Weird problem with a txt-file

[darton]

Hello!
I made this script:

Code: Select all

bind pub - !modlog atmlog
proc atmlog {nick uhost hand chan arg} {
  set fd [open $::atmfile r]
      while {![eof $fd]} {
         lappend list [gets $fd]
         set lines [split [read $fd] \n]
      }   
      close $fd           
       foreach x $lines {
         putquick "NOTICE $nick :$x"
       }        
    return 1
}

I can't see a mistake in it and an error message does not occur. Actually this script should read a textfile and give all lines with a notice to a user. So, where is the mistake?

[De Kus]

Hint:

Code: Select all

      while {![eof $fd]} {
         lappend list [gets $fd]
      }

and

Code: Select all

         set lines [split [read $fd] \n]

are equivalent (except for saving into 2 diffrent vars).
btw. $lines will be an empty string if *edit* there is only one line */edit*.

Advise: why not simply

Code: Select all

      while {![eof $fd]} {
         putquick "NOTICE $nick :[gets $fd]"
      }

[darton]

Thank you. It works perfectly.