Code: Select all
(01:05:55) (_aLexi) [01:05] Tcl error [pub:qstat]: couldn't duplicate input handle: bad file numberCode: Select all
# $Id: qstat.tcl,v 1.3 2003/06/22 12:43:47 peter Exp $
# Qstat script for an eggdrop, version 2.2, 22/06/2003
#
# This script will query gameservers using the qstat program to
# display server status and players using public commands.
#
# History:
# 1.0 (original) by Mikael Blomqvist <micke@peachpuff.com>
# 1.5 by ST8 <st8@q3f.net> and in part by Ad <ad@contempt.org.uk>
# 1.7 by Peter Postma <peter@webdeveloping.nl>
# - security hole fixed. (passing bad arguments to TCL's exec)
# - display players fixed.
# 1.8 Peter Postma <peter@webdeveloping.nl>
# - doesn't need a temp file anymore to display player info
# - use regsub for input checking
# - better error checking / error messages
# - lot of clean up
# 2.0 by Peter Postma <peter@webdeveloping.nl>
# - very nasty bugs fixed: endless long flood and bad errors
# - wiped out alot code, rewrote the main function
# 2.1 by Peter Postma <peter@webdeveloping.nl>
# - support for RTCW, Quake 1
# - installation steps added :^)
# - windrop fix (but still doesn't work perfect)
# 2.2 by Peter Postma <peter@webdeveloping.nl>
# - added BF, Gamespy, QW and UT2003.
# - added '-timeout 5' option in qstat exec
#
# Installation steps:
# 1) Easiest way of installing: put all Qstat related files (players.qstat,
# server.qstat, qstat.tcl, qstat (executable)) into _ONE_ directory.
# A good choice would be something like: /home/name/eggdrop/qstat
# or c:/windrop/qstat
# 2) Download the Qstat program from www.qstat.org and install it
# to some directory on your system.
# 3) Change the option "set pathqstat "/home/peter/AI/scripts/my/qstat"
# and set it to the path where the Qstat related files are installed.
# 4) Make sure the path you've just set also contains the files:
# players.qstat & server.qstat. If not, copy them to that directory.
# 5) Optionally change some other configuration settings below.
# 6) Edit your eggdrop's configuration file and add the qstat.tcl script.
# If you don't how to do this, please RTFM :)
# 7) Rehash
# 8) Typ !qstat in the channel for a command list.
# 9) Have fun :)
#
# Configuration settings:
# Flags needed to use the commands
set qstat_flag "-|-"
# Path to qstat folder containing qstat stuff/scripts and the qstat program
set pathqstat "C:/SL/scripts/srv/qstat/"
# Channels you _dont_ want the bot to reply to public triggers on
# (seperate with spaces):
set nopub ""
# End configuration settings
################################################################
# This is where the evil TCL code starts, read at your peril! #
################################################################
set qversion "2.2"
bind pub $qstat_flag "!ut" pub:qstat
bind pub $qstat_flag "!hl" pub:qstat
bind pub $qstat_flag "!cs" pub:qstat
bind pub $qstat_flag "!qw" pub:qstat
bind pub $qstat_flag "!q1" pub:qstat
bind pub $qstat_flag "!q2" pub:qstat
bind pub $qstat_flag "!q3" pub:qstat
bind pub $qstat_flag "!rcw" pub:qstat
bind pub $qstat_flag "!bf" pub:qstat
bind pub $qstat_flag "!gs" pub:qstat
bind pub $qstat_flag "!ut2k3" pub:qstat
bind pub $qstat_flag "!ut2003" pub:qstat
bind pub $qstat_flag "!utp" pub:qstat
bind pub $qstat_flag "!hlp" pub:qstat
bind pub $qstat_flag "!qwp" pub:qstat
bind pub $qstat_flag "!q1p" pub:qstat
bind pub $qstat_flag "!q3p" pub:qstat
bind pub $qstat_flag "!q2p" pub:qstat
bind pub $qstat_flag "!rcwp" pub:qstat
bind pub $qstat_flag "!bfp" pub:qstat
bind pub $qstat_flag "!ut2k3p" pub:qstat
bind pub $qstat_flag "!ut2003p" pub:qstat
bind pub $qstat_flag "!qstat" pub:qstat_help
proc pub:qstat_help {nick host hand chan arg} {
global pathqstat nopub
# check if channel is allowed.
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
# output qstat commands / help.
putserv "NOTICE $nick :Qstat commands:"
putserv "NOTICE $nick :\002!qw / !q1 / !q2 / !q3 / !rcw <ip/host>\002 - Displays status of queried Quake World, 1, 2, 3 or RTCW servers"
putserv "NOTICE $nick :\002!ut / !ut2003 / !hl / !bf / !gs <ip/host>\002 - Displays status of queried UT(2003), Half-life, BF1942 and GameSpy servers"
return 0
}
proc pub:qstat {nick host hand chan arg} {
global lastbind pathqstat nopub
# check if channel is allowed.
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
# only use one argument.
set arg [lindex $arg 0]
# check for input.
if {[string length [string trim $arg]] == 0 || [qstat:input_check $arg]} {
putquick "NOTICE $nick :Syntax: $lastbind <ip/host>"
return 0
}
# figure out which command was used.
switch [string tolower $lastbind] {
"!hl" { set gametype "-hls"; set players 0 }
"!cs" { set gametype "-hls"; set players 0 }
"!ut" { set gametype "-uns"; set players 0 }
"!qw" { set gametype "-qws"; set players 0 }
"!q1" { set gametype "-qs"; set players 0 }
"!q2" { set gametype "-q2s"; set players 0 }
"!q3" { set gametype "-q3s"; set players 0 }
"!rcw" { set gametype "-rwm"; set players 0 }
"!bf" { set gametype "-gps"; set players 0 }
"!gs" { set gametype "-gps"; set players 0 }
"!ut2k3" { set gametype "-ut2s"; set players 0 }
"!ut2003" { set gametype "-ut2s"; set players 0 }
"!hlp" { set gametype "-hls"; set players 1 }
"!utp" { set gametype "-uns"; set players 1 }
"!qwp" { set gametype "-qws"; set players 1 }
"!q1p" { set gametype "-qs"; set players 1 }
"!q2p" { set gametype "-q2s"; set players 1 }
"!q3p" { set gametype "-q3s"; set players 1 }
"!rcwp" { set gametype "-rwm"; set players 1 }
"!bfp" { set gametype "-gps"; set players 1 }
"!ut2k3p" { set gametype "-ut2s"; set players 1 }
"!ut2003p" { set gametype "-ut2s"; set players 1 }
default {
putquick "NOTICE $nick :Unknown command."
return 0
}
}
# run the qstat program.
if {$players} {
set stat [open "|$pathqstat/qstat -timeout 5 $gametype $arg -Ts $pathqstat/server.qstat -Tp $pathqstat/players.qstat -P" r]
} else {
set stat [open "|$pathqstat/qstat -timeout 5 $gametype $arg -Ts $pathqstat/server.qstat" r]
}
# output the result.
qstat:results $chan $nick $stat
# close fork, end program.
close $stat
return 0
}
# show results.
proc qstat:results {chan nick pf} {
while {[gets $pf line] >= 0} {
if {[string match "DOWN*" $line]} {
putquick "NOTICE $nick :Connection refused while querying server."
break
} elseif {[string match "HOSTNOTFOUND*" $line]} {
putquick "NOTICE $nick :Host not found."
break
} elseif {[string match "TIMEOUT*" $line]} {
putquick "NOTICE $nick :Timeout while querying server."
break
}
putquick "PRIVMSG $chan :$line"
}
}
# check for valid chars
proc qstat:input_check {text} {
if {[regexp \[^\[:alnum:\]_\.\:\] $text]} { return 1 }
if {[string match "0*" $text]} { return 1 }
return 0
}
putlog "Qstat4Eggdrop version $qversion: Loaded!"
. If I could, I would try tcl8.4.9, but I am (we are) stuck with 8.4.7 (I don't know how the package from windrop page is compiled, but the one from tcl.tk is not working for me) 
.
.