egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2015-05-13T16:56:54-04:00 https://forum.eggheads.org/app.php/feed/topic/19969 2015-05-13T16:56:54-04:00 2015-05-13T16:56:54-04:00 https://forum.eggheads.org/viewtopic.php?p=104092#p104092 <![CDATA[Retrieve data from a file (other alternative)]]> I know the "traditional" way, but I tried for other alternative to be learning.

Code: 

proc noti_nolist {nick uhost handle chan arg} {global canal_adminif {[string tolower $chan] != [string tolower $canal_admin]} {return}if {[file exist prohibidos.txt]} {set file [open prohibidos.txt "r"]set x 0while {![eof $file]} {set nickpr [gets $file]if {([llength $nickpr] == 0) && ($x == 0)} { putmsg $chan  "The list is empty."; return } if {$nickpr == ""} { continue }putmsg $chan "$nickpr"set x [expr {$x + 1}]}close $fileputmsg $chan "The list contains  $x prohibited nicks."} else {putmsg $canal_admin "Has not yet entered any nick,database is missing.!"}}
Works well! :D

Statistics: Posted by juanamores — Wed May 13, 2015 4:56 pm

]]>