egghelp/eggheads community

can you help me with a problem please?

2003-03-16T16:00:07-04:00

thanks!

Statistics: Posted by eiSi — Sun Mar 16, 2003 4:00 pm

can you help me with a problem please?

2003-03-12T12:31:27-04:00

OK,

1: You use the append flag, rather than write to the open command

2: You read the whole file, and output the last 4 lines from your input.

Code:

### update proc proc call_update { nick misc1 misc1end } {    if {$misc1 == "set"} {       set f [open "./tmp/update" "a"]       puts $f "$misc1end ($nick)"       close $f       notice $nick "Update set to: $misc1end"       msg $home "\002Update:\002 $misc1end"    } else {       set f [open "./tmp/update" "r"]       set update [split [read $f] \n]      close $f       foreach a [lrange $update end-3 end]        notice $nick "\002Update:\002 $a"       }   } }

Statistics: Posted by ppslim — Wed Mar 12, 2003 12:31 pm

can you help me with a problem please?

2003-03-12T12:20:24-04:00

hi there!

I have written this little proc:

Code:

### update procproc call_update { nick misc1 misc1end } {if {$misc1 == "set"} {set f [open "./tmp/update" "w"]puts $f "$misc1end ($nick)"close $fnotice $nick "Update set to: $misc1end"msg $home "\002Update:\002 $misc1end"} else {set f [open "./tmp/update" "r"]set update [gets $f]close $fnotice $nick "\002Update:\002 $update"}}

how to make, that it adds a line under the last?
and that if I make show 4 it shows the last 4 changes?

thanks for any help!

Statistics: Posted by eiSi — Wed Mar 12, 2003 12:20 pm