i have a script which reads all the lines from a file and outputs them:
This does work, and outputs the 2 lines of information in the file, but with one problem:proc msg_listpassreqs {nick uhost hand arg} {
global botnick requestpassfile
putnotc $nick "Listing Password Requests"
set fileread [open $requestpassfile r]
while {![eof $fileread] } {
foreach listing [gets $fileread line] {
set subtime [lindex $line 0]
set subnick [lindex $line 1]
set uhost [lindex $line 2]
set handle [lindex $line 3]
set regemail [lindex $line 4]
set newpass [lindex $line 5]
putlog "Submitted: \[Time:\] [ctime $subtime] \[Nick:\] $subnick \[Uhost:\] $uhost \[Handle:\] $hand \[RegEmail:\] $regemail \[NewPass:\] $newpass"
}
}
close $fileread
}
What am i doing wrong which is making it produce the bottom line?<h4> [18:38] Submitted: [Time:] Sat Sep 21 22:08:34 2002 [Nick:] notbad [Uhost:] aooi58@usercf098.dsl.pipex.com [Handle:] Simon [RegEmail:] a@b.com [NewPass:] test
<h4> [18:38] Submitted: [Time:] Tue Oct 8 17:53:44 2002 [Nick:] bob [Uhost:] aooi58@usercf098.dsl.pipex.com [Handle:] Simon [RegEmail:] aooi58@dsl.pipex.com [NewPass:] test
<h4> [18:38] Submitted: [Time:] Thu Jan 1 00:00:00 1970 [Nick:] [Uhost:] [Handle:] Simon [RegEmail:] [NewPass:]
thanks
Simon