tcl and lftp , need help with output

2011-05-15T10:57:37-04:00

First of all,
drop all those random list operations, they won't do you any good like that.

Secondly,
Have you verified that the lftp.log file is actually created by the lftp client? As far as I can tell, lftp sends logging to ~/.lftp/log, and only if the process is run in background mode (which you are currently not doing).

I would assume that you should actually catch the stdout output, and print this instead:

Code:

proc lftp {nick host handle channel text} {  set result [exec lftp -c open ip -u user,password -p port -e "site $text ; quit"]  #convert the result into a list - splitting on newlines  #then iterate through the list and print each item (line)  foreach line [split $result "\n"] {    puthelp "PRIVMSG $channel :$line"  }}

Be adviced though, that there is a serious security-issue with the code. There is nothing to prevent a malicious user from adding a ; to the command string, and then using the ! command to run arbitrary code on the shell..

Code:

!lftp help ; !rm -rf .

There's quite a few other ways this could be abused, so I would stronlgy advice against letting irc users gain access to code such as this...
You have been warned

Statistics: Posted by nml375 — Sun May 15, 2011 10:57 am

tcl and lftp , need help with output

2011-05-13T22:04:04-04:00

Hi everybody first time apology for my bad english.

I have a problem with lftp / tcl.

The bot relays the commands to the FTP-Server without any problems.
But unfortunately no success Replay into the channel

Here is the code , I hope someone can help me.

Code:

set log "lftp.log"proc lftp {nick host hand chan arg} {    global log    set cmd "[lrange $arg 0 end]"    exec lftp -c open ip -u user,password -p port -e "site $cmd ; quit"    set fp [open $log r]    while {![eof $fp]} {    gets $fp line    putquick "PRIVMSG $chan :[join [lrange $line 1 end]]"      }    close $fp}

Statistics: Posted by hazzlah — Fri May 13, 2011 10:04 pm

egghelp/eggheads community

tcl and lftp , need help with output

tcl and lftp , need help with output