1#!/bin/sh 2# -*- tcl -*- \ 3exec tclsh "$0" ${1+"$@"} 4 5# syntax: transmit FILE ?HOST? 6# Run this after receive, it waits for our connection. 7 8set selfdir [file dirname [info script]] 9# Enable the commands below to run from a tcllib checkout 10#source $selfdir/../../modules/transfer/copyops.tcl 11#source $selfdir/../../modules/transfer/dsource.tcl 12#source $selfdir/../../modules/transfer/connect.tcl 13#source $selfdir/../../modules/transfer/transmitter.tcl 14 15package require transfer::transmitter 16package require tls 17 18set file [lindex $argv 0] 19set host [lindex $argv 1] 20if {$host eq {}} { set host localhost } 21 22proc OK {f args} { 23 puts "Done ($args) $f" 24 exit 25} 26 27proc PR {f args} { 28 puts "Progress ($args) $f" 29 return 30} 31 32set type transmitter 33source $selfdir/tlssetup.tcl 34 35transfer::transmitter stream file $file $host 6789 \ 36 -command [list OK $file] \ 37 -progress [list PR $file] \ 38 -socketcmd tls::socket 39 40vwait forever 41exit 42