egghelp/eggheads community

421 and 530 check in ftp

2004-03-18T17:17:34-04:00

when a non async connection is made the socket command returns a value that value is $sock in this case if u resolve the variable then it will match sock1 or sock2 depends on how many sock are open or witch one is available.. so if u wana check if a connection is made u do string match -nocase .. for sock? "?" cause u don't know the value you also could do sock*

i have 1 problem
with ->
if {[string match -nocase "sock?" $sock]} {

what is the problem??

you don't need the ftp lib to do this .. so ..

Statistics: Posted by Ofloo — Thu Mar 18, 2004 5:17 pm

421 and 530 check in ftp

2004-03-18T15:33:13-04:00

See string manual.

Statistics: Posted by caesar — Thu Mar 18, 2004 3:33 pm

421 and 530 check in ftp

2004-03-18T12:32:42-04:00

i have 1 problem

with ->

if {[string match -nocase "sock?" $sock]} {

could u tell me what it means .. what it check's

Statistics: Posted by Guest — Thu Mar 18, 2004 12:32 pm

421 and 530 check in ftp

2004-03-18T11:49:08-04:00

10x man
it's working great

Statistics: Posted by Guest — Thu Mar 18, 2004 11:49 am

421 and 530 check in ftp

2004-03-18T08:17:57-04:00

10x i'll test it

Statistics: Posted by Guest — Thu Mar 18, 2004 8:17 am

421 and 530 check in ftp

2004-03-15T16:16:26-04:00

There that should take care of it .. i think. Haven't tested it tho so ..

Code:

# Usage: ftpcheck ip port login passproc ftpcheck {host port user pass} {  catch {socket $host $port} sock  if {[string match -nocase "sock?" $sock]} {    puts $sock "USER $user"    puts $sock "PASS $pass"    while {![eof $sock]} {      flush $sock      gets $sock line      if {[string match -nocase 421 [lindex $line 0]]} {         putserv "PRIVMSG $nick :Ftp Full."         close $sock         return 0      } elseif {[string match -nocase 530 [lindex $line 0]]} {         putserv "PRIVMSG $nick :Account Disabled."         close $sock         return 0      } elseif {[string match -nocase 230 [lindex $line 0]]} {         putserv "PRIVMSG $nick :Logged in."         close $sock         return 1      }    }    close $sock  } else {    putserv "PRIVMSG $nick :Error No Route Host."    return 0  }}

Statistics: Posted by Ofloo — Mon Mar 15, 2004 4:16 pm

421 and 530 check in ftp

2004-03-14T09:54:57-04:00

hello i have this script :

bind msg - test ddd:test
proc ddd:test {nick userhost handle text} {
global aaaaass statval host user port pass
set aaaaass [uri::split $text]
set port [lindex $aaaaass 1]
set host [lindex $aaaaass 7]
set user [lindex $aaaaass 11]
set pass [lindex $aaaaass 13]
set statval [ftp::Open $host $user $pass -port $port -output]
if {$statval == 0} {
putserv "PRIVMSG $nick : \002FTP \002 \0034down\0034!"
} else {
putserv "PRIVMSG $nick : \002FTP \002 \0039up\0039!"
ftp::Close $statval;

}
}

how i check if the ftp return 421 or 530 right now it's just checking if it's loged or not loged
10x

Statistics: Posted by Guest — Sun Mar 14, 2004 9:54 am