#!/usr/bin/env tclsh8.5
# The ridiculous npaste client.
# Public domain.
package require http

set posturl http://npaste.de/

if {[llength $argv] == 0} {
	puts Paste:
	set text [read stdin]
} else {
	set fd [open [lindex $argv 0]]
	set text [read $fd]
	close $fd
}

puts -nonewline "Description: "
flush stdout
gets stdin desc
puts -nonewline "Language: "
flush stdout
gets stdin lang

set query [http::formatQuery content $text desc $desc lang $lang]
set res   [http::geturl $posturl -query $query]
puts -nonewline [http::data $res]

# $Id: npaste,v 1.1 2012/05/12 10:43:17 mw Exp $