Ftp Online

[CyberGhosT]

I nead a script that shows whos ftp is online can eny1 help me whit that

I dont know if its posibul to make

[Sir_Fz]

A forum search would help.

[CyberGhosT]

i found this scrip on the forum but i cant make it work
when i restart or rehash the bot it dont show eny error
what can be wrong ? Help me im new at this tcl scripting


package require ftp

bind pub - .ftp ftp


proc ftp { nick uhost hand chan arg } {
ftp1 $nick $uhost $hand $chan $arg
ftp2 $nick $uhost $hand $chan $arg
ftp3 $nick $uhost $hand $chan $arg
ftp4 $nick $uhost $hand $chan $arg
}


proc ftp1 { nick uhost hand chan arg } {

set biglist1 {xxx.xxx.xxx.xxx log pas}
foreach {addr uid pwd} $biglist1 {
set statval [ftp::Open $addr $uid $pwd -port 444]
if {$statval<0} {
putserv "PRIVMSG $chan : \002FTP 1\002 \0034down\0034!"
} else {
putserv "PRIVMSG $chan : \002FTP 1\002 \0039up\0039!"
ftp::Close $statval;
}
}
}

proc ftp2 { nick uhost hand chan arg } {

set biglist2 {xxx.xxx.xxx.xxx log pas}
foreach {addr uid pwd} $biglist2 {
set statval [ftp::Open $addr $uid $pwd -port 444]
if {$statval<0} {
putserv "PRIVMSG $chan : \002FTP 2\002 \0034down\0034!"
} else {
putserv "PRIVMSG $chan : \002FTP 2\002 \0039up\0039!"
ftp::Close $statval;
}
}
}

proc ftp3 { nick uhost hand chan arg } {

set biglist3 {xxx.xxx.xxx.xxx log pas}
foreach {addr uid pwd} $biglist3 {
set statval [ftp::Open $addr $uid $pwd -port 444]
if {$statval<0} {
putserv "PRIVMSG $chan : \002FTP 3\002 \0034down\0034!"
} else {
putserv "PRIVMSG $chan : \002FTP 3\002 \0039up\0039!"
ftp::Close $statval;
}
}
}

proc ftp4 { nick uhost hand chan arg } {

set biglist4 {xxx.xxx.xxx.xxx log pas}
foreach {addr uid pwd} $biglist4 {
set statval [ftp::Open $addr $uid $pwd -port 444]
if {$statval<0} {
putserv "PRIVMSG $chan : \002FTP 4\002 \0034:(\0034"
} else {
putserv "PRIVMSG $chan : \002FTP 4\002 \0039:)\0039"
ftp::Close $statval;
}
}
}

putlog "Loaded ftp_test.tcl by DigitalXXL"

[Aron]

You DID fill in your ftp's address in the $biglist variables, right?

[CyberGhosT]

yes i did fill in ftp's address

wonder if i must use somthing els with that tcl script??

[Aron]

So it does not show any error at all?

Are you sure the script is loading? Did you enter the source line in your bot's config?

[Sir_Fz]

You didn't continue reading that post.

User replied:

Code: Select all

package require ftp 
bind pub - .ftp ftps 

proc ftps {nick uhost hand chan arg} { 
   set out {} 
   # just add your ftps to this list (make sure you don't 
   # leave any fields blank or mess up the order :P) 
   set list { 
      {"FTP 1" ftp.addr1.cum 444 login pass} 
      {"FTP 2" ftp.addr2.cum 21 login pass} 
      {"FTP 3" ftp.addr3.cum 3131 login pass} 
      {"FTP 4" ftp.addr4.cum 9999 login pass} 
   } 
   foreach ftp $list { 
      foreach {name addr port user pass} $ftp break 
      set ftp [ftp::Open $addr $user $pass -port $port] 
      if {$ftp<0} { 
         lappend out "$name is down" 
      } { 
         lappend out "$name is up" 
      } 
      ftp::Close $ftp 
   } 
   putserv "TOPIC $chan :[join $out " | "]" 
}

use it.

[CyberGhosT]

Yes im sure the script is loading

Sir_Fz ivd tryd that script to but it dont work that to


wonder if i must use somthing els with that tcl script??

[CyberGhosT]

Must i add somthing in the ftp prog to make it work ?

sorry ppl im new at this scripting....

[CyberGhosT]

some1 who whant to help me???

[3zzy]

What about a script that would check if any ftp is online using !ftp [address] [port] ?

[Ofloo]

sorry read wrong :p take back my words :p

[CyberGhosT]

Can some 1 tell me what this mean package require ftp
and wher i can get it.

Cant seam to make this script to work..

Code: Select all

package require ftp 
bind pub - .ftp ftps 

proc ftps {nick uhost hand chan arg} { 
   set out {} 
   # just add your ftps to this list (make sure you don't 
   # leave any fields blank or mess up the order :P) 
   set list { 
      {"FTP 1" ftp.addr1.cum 444 login pass} 
      {"FTP 2" ftp.addr2.cum 21 login pass} 
      {"FTP 3" ftp.addr3.cum 3131 login pass} 
      {"FTP 4" ftp.addr4.cum 9999 login pass} 
   } 
   foreach ftp $list { 
      foreach {name addr port user pass} $ftp break 
      set ftp [ftp::Open $addr $user $pass -port $port] 
      if {$ftp<0} { 
         lappend out "$name is down" 
      } { 
         lappend out "$name is up" 
      } 
      ftp::Close $ftp 
   } 
   putserv "TOPIC $chan :[join $out " | "]" 
}

it would be nice if some1 can help me whit this thx

[stdragon]

That means it requires the ftp package. As far as I know, it's part of the tcllib collection (tcllib.sf.net for more info).

[CyberGhosT]

cant some1 make a tcl script like this 1 without the package require ftp ?