please help me fix this

2004-01-12T10:49:40-04:00

ok i removed the $arg and it still doesnt work.

I am not exactly sure what you mean by the well defined statement (did I mention im a noob to tcl )

Statistics: Posted by ShavdApe — Mon Jan 12, 2004 10:49 am

please help me fix this

2004-01-12T06:09:02-04:00

...
warauto $arg
...
proc warauto {} {
...

first, you send arguments to warauto, but it doesn't take any arguments in its definition.
So, just call warauto, without any argument.
If the problem persists, verify that your proc is well defined.

Statistics: Posted by CrazyCat — Mon Jan 12, 2004 6:09 am

please help me fix this

2004-01-12T03:51:52-04:00

I have tried fo the last 2 days to get this to work and now for some strange reason i recieve this error.

Tcl error [pub:waron]: invalid command name "warauto"

The are probably numerous bugs but being a noob i dont know what to look for.

bind pub o "!waron" pub:waron
bind pub o "!waroff" pub:waroff
proc pub:waron {nick host hand chan arg} {
warauto $arg
set warin [open warserver r]
while {![eof $warin]} {
gets $warin warline
if {[lindex $warline 0]==$arg} {
putquick "PRIVMSG $chan :Auto War announce is already running!"
return 0
}
}
close $warin
set warout [open warserver a]
puts $warout "$arg"
close $warout
putquick "PRIVMSG $chan :Auto War announce started on $arg"
return 1
}

proc getcidmap {} {
set warin [open warserver r]
while {![eof $warin]} {
gets $warin warline
set warline [split $warline]
set serv [lindex $warline 0]
close $warin
return $serv
}
close $warin
}
return ""
}

proc warauto {} {
global pathqstat
set $chan "#apey"

set serv [getcidmap]

set stat [open "|$pathqstat/qstat -timeout 30 -q3s $serv -Ts $pathqstat/server.qstat -Tp $pathqstat/players.qstat -P " r]

# output the result.
qstat:results $chan $nick $stat

# close fork, end program.
close $stat
set rtime [timer 1 warauto]
return 0
}

proc pub:waroff {nick host hand chan arg} {
global rtime
set warout [open warserver w]
puts $warout "" nonewline
close $warout
putquick "PRIVMSG $chan :Removed all server entries from autoannounce"
catch { killtimer $rtime }

return 1
}

Statistics: Posted by ShavdApe — Mon Jan 12, 2004 3:51 am

egghelp/eggheads community

please help me fix this

please help me fix this

please help me fix this