egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-02-26T09:04:34-04:00 https://forum.eggheads.org/app.php/feed/topic/6172 2004-02-26T09:04:34-04:00 2004-02-26T09:04:34-04:00 https://forum.eggheads.org/viewtopic.php?p=34009#p34009 <![CDATA[Ftp Online]]>
so in a way i could do

Code: 

if {  ... condition ... } then {  ... body ...} else {  ... body ...}
hmm ive used some php before and they had something simular ..

if {}
then string ..

does this apply on tcl as well ?? if there is no {} then only the first string after the condition is included to the if condition ..

Statistics: Posted by Ofloo — Thu Feb 26, 2004 9:04 am

]]> 2004-02-26T08:39:12-04:00 2004-02-26T08:39:12-04:00 https://forum.eggheads.org/viewtopic.php?p=34005#p34005 <![CDATA[Ftp Online]]>
i have never seen this is it the same as else ..

Code: 

if {... condition ...}{  ... body ...}{  ... body ...}
Probably because "}{" would make the parser return an error :P it's "} {"
If you'd read the whole manual page for 'if' you'd see.
The then and else arguments are optional ``noise words'' to make the command easier to read.
If you like being verbose i recommend using "then" too! :P

Statistics: Posted by user — Thu Feb 26, 2004 8:39 am

]]> 2004-02-26T08:26:25-04:00 2004-02-26T08:26:25-04:00 https://forum.eggheads.org/viewtopic.php?p=34001#p34001 <![CDATA[Ftp Online]]>

Code: 

if {... condition ...} {  ... body ...} elseif {... condition ...} {  ... body ...} else {  ... body ...}
that is what i understand from the manual

but i have never seen this is it the same as else ..

Code: 

if {... condition ...}{  ... body ...}{  ... body ...}

Statistics: Posted by Ofloo — Thu Feb 26, 2004 8:26 am

]]> 2004-02-25T15:57:33-04:00 2004-02-25T15:57:33-04:00 https://forum.eggheads.org/viewtopic.php?p=33986#p33986 <![CDATA[Ftp Online]]>
Just curious not saying its wrong but doesn't there need to be else or something in between could be wrong never seen it used like this tho ..
http://tcl.tk/man/tcl8.4/TclCmd/if.htm

Statistics: Posted by user — Wed Feb 25, 2004 3:57 pm

]]> 2004-02-25T14:48:34-04:00 2004-02-25T14:48:34-04:00 https://forum.eggheads.org/viewtopic.php?p=33983#p33983 <![CDATA[Ftp Online]]>
if {$ftp<0} {
lappend out "$name is down"
} {
lappend out "$name is up"
}
Just curious not saying its wrong but doesn't there need to be else or something in between could be wrong never seen it used like this tho ..

Statistics: Posted by Ofloo — Wed Feb 25, 2004 2:48 pm

]]> 2004-02-24T00:38:12-04:00 2004-02-24T00:38:12-04:00 https://forum.eggheads.org/viewtopic.php?p=33928#p33928 <![CDATA[Ftp Online]]> Statistics: Posted by stdragon — Tue Feb 24, 2004 12:38 am

]]> 2004-02-23T19:36:27-04:00 2004-02-23T19:36:27-04:00 https://forum.eggheads.org/viewtopic.php?p=33922#p33922 <![CDATA[FTP Online]]> can some one give me some hints :o

Statistics: Posted by CyberGhosT — Mon Feb 23, 2004 7:36 pm

]]> 2004-02-23T14:11:02-04:00 2004-02-23T14:11:02-04:00 https://forum.eggheads.org/viewtopic.php?p=33913#p33913 <![CDATA[Re: FTP Online]]>
cant some1 make a tcl script like this 1 without the package require ftp ?
Sure...replace "package require ftp" with "source /path/to/ftp.tcl" :mrgreen:

Statistics: Posted by user — Mon Feb 23, 2004 2:11 pm

]]> 2004-02-23T13:10:25-04:00 2004-02-23T13:10:25-04:00 https://forum.eggheads.org/viewtopic.php?p=33911#p33911 <![CDATA[FTP Online]]> Statistics: Posted by CyberGhosT — Mon Feb 23, 2004 1:10 pm

]]> 2004-02-23T10:24:11-04:00 2004-02-23T10:24:11-04:00 https://forum.eggheads.org/viewtopic.php?p=33900#p33900 <![CDATA[Ftp Online]]> Statistics: Posted by stdragon — Mon Feb 23, 2004 10:24 am

]]> 2004-02-23T10:08:02-04:00 2004-02-23T10:08:02-04:00 https://forum.eggheads.org/viewtopic.php?p=33897#p33897 <![CDATA[FTP Online]]> package require ftp
and wher i can get it.

Cant seam to make this script to work..

Code: 

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

Statistics: Posted by CyberGhosT — Mon Feb 23, 2004 10:08 am

]]> 2003-12-01T18:33:41-04:00 2003-12-01T18:33:41-04:00 https://forum.eggheads.org/viewtopic.php?p=30950#p30950 <![CDATA[Ftp Online]]> Statistics: Posted by Ofloo — Mon Dec 01, 2003 6:33 pm

]]> 2003-11-27T13:08:28-04:00 2003-11-27T13:08:28-04:00 https://forum.eggheads.org/viewtopic.php?p=30776#p30776 <![CDATA[Ftp Online]]> Statistics: Posted by 3zzy — Thu Nov 27, 2003 1:08 pm

]]> 2003-11-23T07:30:28-04:00 2003-11-23T07:30:28-04:00 https://forum.eggheads.org/viewtopic.php?p=30558#p30558 <![CDATA[Ftp Online]]> Statistics: Posted by CyberGhosT — Sun Nov 23, 2003 7:30 am

]]> 2003-11-21T21:32:23-04:00 2003-11-21T21:32:23-04:00 https://forum.eggheads.org/viewtopic.php?p=30497#p30497 <![CDATA[Ftp Online]]>
sorry ppl im new at this scripting....

Statistics: Posted by CyberGhosT — Fri Nov 21, 2003 9:32 pm

]]>