egghelp/eggheads community

[Solved] Write multiple lines to file.

2013-09-22T13:13:24-04:00

Yes! Thats it!

Many thanks

Statistics: Posted by tessa1 — Sun Sep 22, 2013 1:13 pm

[Solved] Write multiple lines to file.

2013-09-22T12:56:14-04:00

Every time proc stats:raw:242 is triggered by the raw bind, the file is being deleted.
Thus, only the last one is being saved.
See what I mean?

My mistake. Sorry.

Try moving this line:
file delete uptimefile
from where it is currently, to before the first putserv line in
proc stats:cmd:uptime

That way, the file will only be deleted once - when you issue the
!uptime
command. Let's hope this solves it.

Statistics: Posted by willyw — Sun Sep 22, 2013 12:56 pm

[Solved] Write multiple lines to file.

2013-09-22T12:36:21-04:00

Ok, this is my script now.
There are no errors in the partyline.
But the script writes only the last server.
I rehashed an restarted the Bot.
Without deleting the file, the script writes all lines.

Code:

bind pub - !uptime stats:cmd:uptimeproc stats:cmd:uptime {nick uhost handle channel text} {   global server_statsputserv "STATS u server1.irc.net"putserv "STATS u server2.irc.net"putserv "STATS u server3.irc.net"putserv "STATS u server4.irc.net"putserv "STATS u server5.irc.net"putserv "STATS u server6.irc.net"}bind raw - 242 stats:raw:242proc stats:raw:242 {from keyword text} {   global server_stats   file delete uptimefile   set server_stats(text) "$from:[lindex [split [lrange $text 3 end] " "] 0]"        set fd [open "uptimefile" a]        puts $fd $server_stats(text)        close $fd}   unset -nocomplain server_stats(text)

Statistics: Posted by tessa1 — Sun Sep 22, 2013 12:36 pm

[Solved] Write multiple lines to file.

2013-09-22T12:13:25-04:00

We know what happens if you use +w. You get only the last one saved to the file. That's because +w is re-writing the file.

Spike's solution does cure that. However it creates a never ending file.

With your latest clarification, it sounds like you want both - a new file every time, that contains all six lines.

Would the solution be:
Do what Spike said, AND add a new line to your script.... one that deletes the old file, first?

Reference:
http://www.tcl.tk/man/tcl8.5/TclCmd/file.htm#M12

Code:

proc stats:raw:242 {from keyword text} {   global server_stats      file delete uptimefile     ....  rest of your script text here .....

Something like that, anyway...

I hope this helps.

Statistics: Posted by willyw — Sun Sep 22, 2013 12:13 pm

[Solved] Write multiple lines to file.

2013-09-22T11:52:55-04:00

Spike, yes! I know that. But "a" doesn't overwrite the file like "w"
It adds a new line to this file. I need this file to read it out with php and publish it on our homepage.

Statistics: Posted by tessa1 — Sun Sep 22, 2013 11:52 am

[Solved] Write multiple lines to file.

2013-09-22T09:58:17-04:00

try changing w+ to a...

Code:

set fd [open "uptimefile" a]

Statistics: Posted by SpiKe^^ — Sun Sep 22, 2013 9:58 am

[Solved] Write multiple lines to file.

2013-09-22T14:12:38-04:00

Hi

I want to write the stats data of all 6 servers into a file.

e.g:

server1.irc.net:1268
server2.irc.net:724
server3.irc.net:954
...

But my script writes only the last server number six into the file. What can I do?

Here is my script:

Code:

bind pub - !uptime stats:cmd:uptimeproc stats:cmd:uptime {nick uhost handle channel text} {global server_statsputserv "STATS u server1.irc.net"putserv "STATS u server2.irc.net"putserv "STATS u server3.irc.net"putserv "STATS u server4.irc.net"putserv "STATS u server5.irc.net"putserv "STATS u server6.irc.net"}bind raw - 242 stats:raw:242proc stats:raw:242 {from keyword text} {global server_statsset server_stats(text) "$from:[lindex [split [lrange $text 3 end] " "] 0]"        set fd [open "uptimefile" w+]        puts $fd $server_stats(text)        close $fd}unset -nocomplain server_stats(text)

Thank you for help

Statistics: Posted by tessa1 — Sun Sep 22, 2013 12:18 am