egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-07-17T08:37:37-04:00 https://forum.eggheads.org/app.php/feed/topic/7927 2004-07-17T08:37:37-04:00 2004-07-17T08:37:37-04:00 https://forum.eggheads.org/viewtopic.php?p=38707#p38707 <![CDATA[problem with sendftp tcl]]>

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}

now where can i set user pass etc ...

i put

Code: 

sentftp /home/bot/html/index.html www.mynet.com user pas /stats.html
and a timer

Code: 

bind time - "* * * * *" time:sendftpproc time:sendftp {args} {   sendftp etc. }
and i get tis error

Code: 

Tcl error [time:sendftp]: wrong # args: should be "sendftp localfile server user pass remotefile"

and i dont now what to do

Statistics: Posted by Guest — Sat Jul 17, 2004 8:37 am

]]>