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