Code:

## Sendftp v1.01 (12/6/97) by Ernst <ernst@studbox.uni-stuttgart.de># Ernst's eggdrop page:  http://www.sodre.net/ernst/eggdrop/# =============================================================================# This is a proc to send a file via FTP to another server. Useful in many# situations, for example to upload a HTML file generated by eggdrop to your# www server if it is not the same as your eggdrops machine.# Change this to something to use to check if a host is alife.# set pingcheck "" to disable this checking.# "/bin/ping -c 1" works on Linux. Try just "/bin/ping" on other machines# Set to "" to disable this checkingset pingcheck "/bin/ping -c 1"# Include it with 'source scripts/sendftp.tcl'.  Call it with all parameters:##   sendftp <localfile> <server> <user> <password> <remotefile>## 'localfile' and 'remotefile' *must* both be given as FULL paths to the# filenames, the first on the local, the secondon the remote server.## For example:## sendftp /home/bill/stats.htm www.ms.com bill secret /bgates/WWW/stats.htm#             (local-file       server    user  pass       remote-file)proc sendftp { localfile server user pass remotefile } {global pingcheckif {![file exist $localfile]} {return "sendftp: File $localfile does not exist."}if {$pingcheck != ""} {if {[catch {exec [lindex $pingcheck 0] [lrange $pingcheck 1 end] $server > /dev/null 2> /dev/null}]} {return "sendftp: Machine $server seems to be dead."}}set noftp [catch {set ftpprog [exec which ftd]}] if {$noftp} {if {[file executable /usr/bin/ftp]} {set ftpprog /usr/bin/ftpset noftp 0}if {[file executable /bin/ftp]} {set ftpprog /bin/ftpset noftp 0}}if {$noftp} { return "sendftp: You don't seem to have the 'ftp' tool" }set pipe [open "|$ftpprog -n $server" w]puts $pipe "user $user $pass"puts $pipe "bin"puts $pipe "put $localfile $remotefile"puts $pipe "quit"close $pipereturn 1}