egghelp/eggheads community

qstat map change notify

2005-07-26T11:54:48-04:00

last version + added to tcl archive

multi-game,mutli-server and mutli-irc-channel.
lot of it is overkill but it gave me something to do during my holiday

Code:

##########################################################################                   qstat map change notify script                      ##                  this is a TCL script for eggdrop                     ##         written by Lee (Moonunit) Donaghy lee295012@yahoo.com         ##               Titan Internet 32 Player Onslaught server               ##  ut2004://217.77.176.198:7777 http://ut2004.titaninternet.co.uk/vbb/  ########################################################################### set your qstatpathset qstatpath "/usr/local/bin/qstat"# number of servers to checkset server_number 1# edit the mapchangenotify.serverlist file# ie.# -ut2s# 123.123.123.123:7777# now running on myonslaught server# #myirchannel# -ut2s# etc...set mcn_version "v0.1.1"################################################################ TCL code begins, don't edit unless you know what your doing ################################################################putlog "mapchangenotify $mcn_version loaded"# read server list set slname "mapchangenotify.serverlist"set slct [open $slname "r"]set sdlist [split [read $slct] \n]close $slct#---------------------------------------------------------------------# create server files if they don't existset cfc 0while { $cfc != $server_number } {if {![file exists mapchange]} {set fname "mapchangenotify$cfc.output"set fp [open $fname "w"]close $fpincr cfc}}#---------------------------------------------------------------------bind time - * qstatrun ;# runs every minuteproc qstatrun {m h d mo y} {global qstatpathglobal server_numberglobal slctglobal slglobal sdlistset server_count 0set slcount 0while {$server_count != $server_number} {# read old map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set qstatxmlfile [split [read $fp] \n]close $fp#-------------------------------------------------------------------------# using regex to find the right lines, yeah i know 50 lines is over kill.set qstatxmlgameline 50set qstatxmlmapline 50set findrightlines 0set findrightlinesmax 50while { $findrightlines != $findrightlinesmax } {set poon [lindex $qstatxmlfile $findrightlines]if { [regexp "(.*)" $poon] == 1} {set qstatxmlmapline $findrightlines} incr findrightlines}#-------------------------------------------------------------------------set mapline [lindex $qstatxmlfile $qstatxmlmapline]# strip out  and <\map>set oldmap [string range $mapline 7 [expr [string length $mapline] - 7]]#-------------------------------------------------------------------------# set server list set qstatgametype [lindex $sdlist $slcount] ; incr slcountset qstatserverip [lindex $sdlist $slcount] ; incr slcountset qstataddedtext [lindex $sdlist $slcount] ; incr slcountset qstatircchan [lindex $sdlist $slcount] ; incr slcount#-------------------------------------------------------------------------exec $qstatpath $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set qstatxmlfile [split [read $fp] \n]close $fp#-------------------------------------------------------------------------# using regex to find the right lines, yeah i know 50 lines is over kill.set qstatxmlgameline 50set qstatxmlmapline 50set findrightlines 0set findrightlinesmax 50while { $findrightlines != $findrightlinesmax } {set poon [lindex $qstatxmlfile $findrightlines]if { [regexp "(.*)" $poon] == 1} {set qstatxmlmapline $findrightlines} if { [regexp "(.*)" $poon] == 1} {set qstatxmlgameline $findrightlines} incr findrightlines}#-------------------------------------------------------------------------set gametypeline [lindex $qstatxmlfile $qstatxmlgameline]set mapline [lindex $qstatxmlfile $qstatxmlmapline]# strip out  and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]# strip out  and <\gametype>set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]#--------------------------------------------------------------------------# if qstat hit the server at the wrong time nothing is returned so having another crack at itset recheckbreak 0set mlbroken 0while {[string length $mapline] < 1} {exec /usr/local/bin/qstat $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set qstatxmlfile [split [read $fp] \n]close $fp#------------------------------------------------------------------------# using regex to find the right lines, yeah i know 50 lines is over kill.set qstatxmlgameline 50set qstatxmlmapline 50set findrightlines 0set findrightlinesmax 50while { $findrightlines != $findrightlinesmax } {set poon [lindex $qstatxmlfile $findrightlines]if { [regexp "(.*)" $poon] == 1} {set qstatxmlmapline $findrightlines} if { [regexp "(.*)" $poon] == 1} {set qstatxmlgameline $findrightlines} incr findrightlines}#------------------------------------------------------------------------set gametypeline [lindex $qstatxmlfile $qstatxmlgameline]set mapline [lindex $qstatxmlfile $qstatxmlmapline]# strip out  and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]# strip out  and <\gametype>set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]incr recheckbreakif {$recheckbreak == 10} { set mlbroken 1 ; break }}#-----------------------------------------------------------------------------------------------------------------------------------------incr server_countif {$newmap != $oldmap && $mlbroken == 0 }  {     puthelp "PRIVMSG $qstatircchan :$newmap $qstataddedtext ($gametype)"   }}}

Statistics: Posted by deadite66 — Tue Jul 26, 2005 11:54 am

qstat map change notify

2005-07-22T17:37:20-04:00

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

Code:

##########################################################################                qstat UT2004 map change notify script                  ##                  this is a TCL script for eggdrop                     ##              written by Lee Donaghy lee295012@yahoo.com               ##               Titan Internet 32 Player Onslaught server               ##  ut2004://217.77.176.198:7777 http://ut2004.titaninternet.co.uk/vbb/  ########################################################################### set your qstatpathset qstatpath "/usr/local/bin/qstat"# number of servers to checkset server_number 3# edit the mapchangenotify.serverlist file# ie.# -ut2s# 123.123.123.123:7777# now running on myonslaught server# #myirchannel# -ut2s# etc...set mcn_version "v0.1.0"################################################################ TCL code begins, don't edit unless you know what your doing ################################################################putlog "mapchangenotify $mcn_version loaded"# read server list set slname "mapchangenotify.serverlist"set slct [open $slname "r"]set sdlist [split [read $slct] \n]close $slct# create server files if they don't existset cfc 0while { $cfc != $server_number } {if {![file exists mapchange]} {set fname "mapchangenotify$cfc.output"set fp [open $fname "w"]close $fpincr cfc}}#---------------------------------------------------------------------bind time - * qstatrun ;# runs every minuteproc qstatrun {m h d mo y} {global qstatpathglobal server_numberglobal slctglobal slglobal sdlistset server_count 0set slcount 0while {$server_count != $server_number} {# read old map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set blank [gets $fp] ;set blank [gets $fp] ;set blank [gets $fp];set blank [gets $fp];set blank [gets $fp]set gametypeline [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set oldmap [string range $mapline 7 [expr [string length $mapline] - 7]]#-------------------------------------------------------------------------------------------------------------------------------------------# set server list set qstatgametype [lindex $sdlist $slcount] ; incr slcountset qstatserverip [lindex $sdlist $slcount] ; incr slcountset qstataddedtext [lindex $sdlist $slcount] ; incr slcountset qstatircchan [lindex $sdlist $slcount] ; incr slcount#-------------------------------------------------------------------------------------------------------------------------------------------exec $qstatpath $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set blank [gets $fp] ;set blank [gets $fp] ;set blank [gets $fp];set blank [gets $fp];set blank [gets $fp]set gametypeline [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]#------------------------------------------------------------------------------------------------------------------------------------------# if qstat hit the server at the wrong time nothing is returned so having another crack at itset recheckbreak 0set mlbroken 0while {[string length $mapline] < 1} {exec /usr/local/bin/qstat $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set blank [gets $fp] ;set blank [gets $fp] ;set blank [gets $fp];set blank [gets $fp];set blank [gets $fp]set gametypeline [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]# strip out  and <\gametype>set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]incr recheckbreakif {$recheckbreak == 10} { set mlbroken 1 ; break }}#-----------------------------------------------------------------------------------------------------------------------------------------incr server_countif {$newmap != $oldmap && $mlbroken == 0 }  {     puthelp "PRIVMSG $qstatircchan :$newmap $qstataddedtext ($gametype)"   }}}

Statistics: Posted by deadite66 — Fri Jul 22, 2005 5:37 pm

qstat map change notify

2005-07-22T11:58:54-04:00

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

Statistics: Posted by deadite66 — Fri Jul 22, 2005 11:58 am

qstat map change notify

2005-07-22T11:46:16-04:00

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.

Statistics: Posted by Sir_Fz — Fri Jul 22, 2005 11:46 am

qstat map change notify

2005-07-22T03:05:28-04:00

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.

Statistics: Posted by deadite66 — Fri Jul 22, 2005 3:05 am

qstat map change notify

2005-07-22T03:00:37-04:00

From what i see, your not closing qstat

Statistics: Posted by metroid — Fri Jul 22, 2005 3:00 am

qstat map change notify

2005-07-22T00:23:20-04:00

can anyone see what may be causing a memory leak?

Statistics: Posted by deadite66 — Fri Jul 22, 2005 12:23 am

qstat map change notify

2005-07-21T21:16:18-04:00

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

Code:

##########################################################################                qstat UT2004 map change notify script                  ##                  this is a TCL script for eggdrop                     ##              written by Lee Donaghy lee295012@yahoo.com               ##               Titan Internet 32 Player Onslaught server               ##  ut2004://217.77.176.198:7777 http://ut2004.titaninternet.co.uk/vbb/  ########################################################################### set your qstatpathset qstatpath "/usr/local/bin/qstat"# number of servers to checkset server_number 3# edit the mapchangenotify.serverlist file# ie.# -ut2s# 123.123.123.123:7777# now running on myonslaught server# #myirchannel# -ut2s# etc...set mcn_version "v0.1.0"################################################################ TCL code begins, don't edit unless you know what your doing ################################################################putlog "mapchangenotify $mcn_version loaded"set scan_delay 30000bind time - * qstatrun ;# runs every minuteproc qstatrun {m h d mo y} {global qstatpathglobal server_numberglobal scan_delayset server_count 0set slcount 0while {$server_count != $server_number} {# if the files don't exist then create themif {![file exists mapchangenotify$server_count.output]} {# read the serverlistset slname "mapchangenotify.serverlist"set sl [open $slname "r"]set sdlist [split [read $sl] \n]set qstatgametype [lindex $sdlist $slcount] ; incr slcountset qstatserverip [lindex $sdlist $slcount] ; incr slcountset qstataddedtext [lindex $sdlist $slcount] ; incr slcountset qstatircchan [lindex $sdlist $slcount] ; incr slcountexec $qstatpath $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output }incr server_count}set server_count 0set slcount 0while {$server_count != $server_number} {# read old map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set blank [gets $fp] ;set blank [gets $fp] ;set blank [gets $fp];set blank [gets $fp];set blank [gets $fp]set gametypeline [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set oldmap [string range $mapline 7 [expr [string length $mapline] - 7]]#-------------------------------------------------------------------------------------------------------------------------------------------# read the serverlistset slname "mapchangenotify.serverlist"set sl [open $slname "r"]set sdlist [split [read $sl] \n]set qstatgametype [lindex $sdlist $slcount] ; incr slcountset qstatserverip [lindex $sdlist $slcount] ; incr slcountset qstataddedtext [lindex $sdlist $slcount] ; incr slcountset qstatircchan [lindex $sdlist $slcount] ; incr slcount#-------------------------------------------------------------------------------------------------------------------------------------------#puts "$qstatircchan $qstatgametype $qstatserverip $qstataddedtext"exec $qstatpath $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set blank [gets $fp] ;set blank [gets $fp] ;set blank [gets $fp];set blank [gets $fp];set blank [gets $fp]set gametypeline [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]#------------------------------------------------------------------------------------------------------------------------------------------# if qstat hit the server at the wrong time nothing is returned so having another crack at itwhile {[string length $mapline] < 1} {#after $scan_delayexec /usr/local/bin/qstat $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set blank [gets $fp] ;set blank [gets $fp] ;set blank [gets $fp];set blank [gets $fp];set blank [gets $fp]set gametypeline [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]# strip out  and <\gametype>set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]}#-----------------------------------------------------------------------------------------------------------------------------------------incr server_countif {$newmap != $oldmap}  {     puthelp "PRIVMSG $qstatircchan :$newmap $qstataddedtext ($gametype)"   }}close $sl}

Statistics: Posted by deadite66 — Thu Jul 21, 2005 9:16 pm

qstat map change notify

2005-07-22T17:40:14-04:00

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

Code:

bind time - * qstat ;# runs every minuteproc qstat {m h d mo y} {# read old map nameset fname "/home/lee/documents/tclmapchange.output"set fp [open $fname "r"]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set maplinelength [string length $mapline]set maplineend [expr $maplinelength - 7]set oldmap [string range $mapline 7 $maplineend]# run qstatset blank [exec /usr/local/bin/qstat -ut2s 217.77.176.198:7777 -xml -of /home/lee/documents/tclmapchange.output]# read new map nameset fname "/home/lee/documents/tclmapchange.output"set fp [open $fname "r"]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set blank [gets $fp]set mapline [gets $fp]close $fp# strip out  and <\map>set maplinelength [string length $mapline]set maplineend [expr $maplinelength - 7]set mapname [string range $mapline 7 $maplineend]# if old map different from new map name then print change message.if {$mapname != $oldmap}  {   puthelp "PRIVMSG #titanonslaught :$mapname now running on Titan 32Player Onslaught"   }}

Statistics: Posted by deadite66 — Mon Jul 18, 2005 6:06 pm

qstat map change notify

2005-07-18T13:06:39-04:00

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

Statistics: Posted by deadite66 — Mon Jul 18, 2005 1:06 pm

qstat map change notify

2005-07-18T11:21:59-04:00

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

Statistics: Posted by deadite66 — Mon Jul 18, 2005 11:21 am

qstat map change notify

2005-07-18T03:29:52-04:00

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

Code:

set mapname [string range $mapline 7 $maplineend]

add

Code:

  if {$mapname != $oldmap} {    puthelp "PRIVMSG #channel :New map: $mapname"  }  set oldmap $mapname

... see how that works? (someone correct me if i'm wrong)

Statistics: Posted by LtPhil — Mon Jul 18, 2005 3:29 am

qstat map change notify

2005-07-17T23:40:02-04:00

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 and 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?

Statistics: Posted by deadite66 — Sun Jul 17, 2005 11:40 pm

qstat map change notify

2005-07-18T18:33:47-04:00

I assume

Code:

lindex [split $res] 8

would be the map name, try to do some tests and see.

Edit: it shouldn't be [split $res \n]

Statistics: Posted by Sir_Fz — Sun Jul 17, 2005 9:01 pm

qstat map change notify

2005-07-17T17:00:37-04:00

again, congratulations for your creativity seriously

Statistics: Posted by demond — Sun Jul 17, 2005 5:00 pm