egghelp.org community

[deadite66]

well it works sort of

while inkey=""
RUN "/usr/local/bin/qstat -ut2s 217.77.176.198:7777 -xml -of /home/lee/documents/qstat.output"
OPEN "/home/lee/documents/qstat.output" for INPUT as #1
for a=1 to 6 : LINEINPUT #1, blank$ : next a
LINEINPUT #1, mapline$
qstat$=mid(mapline$,8,len(mapline$)-13)
if qstat$<>map$ then map$=qstat$ : print map$;" is now on titan 32p Onslaught" : gosub runtelnet
close #1
pause 30
wend

LABEL runtelnet
OPEN "/home/lee/documents/telnetscript.sh" for OUTPUT as #2
PRINT #2,"eggdrop="+chr(34)+"127.0.0.1 3333"+chr(34)
print #2, "username=myusername"
print #2, "password=mypassword"
print #2, "(echo $username;\"
print #2, "echo $password;\"
print #2, "echo "+chr(34)+".say #titanonslaught "+map$+" is now on titan 32p onslaught"+chr(34)+";\"
print #2, "sleep 1 | telnet $eggdrop"
close #2
RUN "/bin/bash /home/lee/documents/telnetscript.sh"

return

[demond]

again, congratulations for your creativity seriously

[Sir_Fz]

I assume

[deadite66]

well i had a go at writing a tcl script, i had problems getting to grips with catch and lindex so i went the external file bit again.
though i'm having problems with the map change bit.

-----------------------------------------------------------------------------------------
bind time - * qstat ;# runs every minute
proc qstat {m h d mo y} {

set blank [exec /usr/local/bin/qstat -ut2s 217.77.176.198:7777 -xml -of /home/lee/documents/tclmapchange.output]

# File name to read.
set fname "/home/lee/documents/tclmapchange.output"

# Open file for read access (note we're not catching errors, you might
# want to use catch {} if the file might not exist.
set fp [open $fname "r"]

# Here we read in all of the data.
set data [read -nonewline $fp]

# Close the file, since we're done reading.
close $fp

# Now we split the data into lines.
set lines [split $data "\n"]

# Get the map line from the list!
set mapline [lindex $lines 6]
# get the string length of the line
set maplinelength [string length $mapline]
# get end of map name by trimming 7 characters off mapline
set maplineend [expr $maplinelength - 7]
# cut out <map> and </map> leaving only the map name
set mapname [string range $mapline 7 $maplineend]
}
---------------------------------------------------------------------------------------

how can i display the map name in irc if it changed since the last time the procedure ran?

[LtPhil]

well since you've figured out how to extract the mapname, what you need to do is create a variable at the beginning of the script, like "oldmap" or something, then right after

[deadite66]

are variables reset at the start of the proc running?
if so $oldmap will always be different to $mapname every time the proc runs.

[deadite66]

ok someone online suggested reading the qstat output file before running exec qstat to get the olmap name

[deadite66]

and we have a winner, had to change how the file was read that line split thing messed it up.
its a bit belt and braces but it works

[deadite66]

re-wrote 1/2 of it to make it multi-server and multi irc channel
http://ghostpilot.org/mcn/mapchangenotify_v0.1.0.tar.gz

[deadite66]

can anyone see what may be causing a memory leak?

[metroid]

From what i see, your not closing qstat

[deadite66]

if you mean the program i'm using in exec it should return server details then terminate..

edit..
perhaps i used the wrong word, what ment to say was the eggdrop memory footprint keeps slowly increasing.

[Sir_Fz]

If you mean that your bot is freezing, or lagging when executing the shell command, then I suggest you use open or bgexec.tcl (not sure if I got the name right) by strikelight from tclscript.com.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts

[deadite66]

thanks guys
well think i had 2 different problems
1. after command (will have to change bits to stop hammering the server if its down)
2. a missing close statement in a loop which must have kept opening new hooks on the file everytime it looped,supprised TCL didn't flag a warning

i'll leave it a few hours and see how its goes.

thanks MeTroiD and Sir_Fz

[deadite66]

hopefully working better this time, moved unneeded stuff out of the proc.
should close all open files now, removed after command.
better leave it working for a few days before i add this one to the tcl archive