3 set Host paster.example.com
8 set fn [lindex $argv 0]
10 if {($argc > 0) && [file exists $fn]} {
11 set ext [string trimleft [file extension $fn] .]
12 set fd [open $fn {RDONLY BINARY}]
13 set size [file size $fn]
15 chan configure stdin -encoding binary -translation binary
17 set size [string length $data]
18 if {$argc > 0} {set ext $fn}
22 set sock [open "|gnutls-cli --logfile=/dev/null -p $Port $Host" {RDWR BINARY}]
24 set sock [socket $Host $Port]
25 chan configure $sock -encoding binary -translation binary
28 puts -nonewline $sock [string cat [string length $ext] ":$ext,"]
29 puts -nonewline $sock "$size:"
30 if {[info exists fd]} {
34 puts -nonewline $sock $data
36 puts -nonewline $sock ","
38 while {[gets $sock line] >= 0} { puts $line }