The script that just wont work no way no how - LOL
set count 0
set POSTCOMMAND "SITE"
set tempnumber 0
set lasttempsite 0
set isopen 1
set chan "#abcd"
bind msg - $POSTCOMMAND postsite
set templist ""
######################
proc postsite {nick host hand arg} {
global chan templist isopen tempnumber siteip sitepath file
if {$isopen == 0} {
putquick "NOTICE $nick : Please Read the Topic !!, Bot is Currently Closed, Try Again Later."
} else {
set siteip [lindex $arg 0]
set sitepath [lindex $arg 1]
set sitelogin [lindex $arg 2]
set siteport [lrange $arg 3 end]
set file templist
set found 0
set fs [open $file r]
while {![eof $fs]} {
gets $fs line
if {$line == $siteip} { set found 1 }
}
close $fs
if {$found} {
puthelp "PRIVMSG $chan : its a Duplicate already in the templist!"
} else {
puthelp "PRIVMSG $chan : is OK & adding to templist"
}
}
}
the command for adding a new submission is
/msg botname SITE ftp://xxx.xxx.xxx.xxx /DIR Login/Pass :razz:ort
Good luck & ill love forever whoever can solve this mystery.
<font size=-1>[ This Message was edited by: [Nero] on 2002-06-06 11:54 ]</font>
<font size=-1>[ This Message was edited by: [Nero] on 2002-06-06 16:09 ]</font>