egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-01-23T20:33:02-04:00 https://forum.eggheads.org/app.php/feed/topic/6686 2004-01-23T20:33:02-04:00 2004-01-23T20:33:02-04:00 https://forum.eggheads.org/viewtopic.php?p=32816#p32816 <![CDATA[data loss]]> Statistics: Posted by Ofloo — Fri Jan 23, 2004 8:33 pm

]]> 2004-01-23T20:31:40-04:00 2004-01-23T20:31:40-04:00 https://forum.eggheads.org/viewtopic.php?p=32815#p32815 <![CDATA[data loss]]>

Code: 

  if {[file exists $::pubscript(usrlist)]} {    set pubscript(rfile) [open "$::pubscript(usrlist)" "r"]    set pubscript(read) [read $pubscript(rfile)]    close $pubscript(rfile)    set pubscript(wfile) [open "$::pubscript(usrlist)" "w"]    foreach line [split $pubscript(read) \n] {      if {![string match {} [lindex $line 0]]} {        puts "$line"      }    }    close $pubscript(wfile)  }
I know it can be done mutch simpeler but could someone point me out what is wrong with this cause it seems that everytime i do this that all data is lost been staring hours at hit but just can't put my finger on it ..

Statistics: Posted by Ofloo — Fri Jan 23, 2004 8:31 pm

]]>