This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
whiteshark
Halfop
Posts: 62 Joined: Sun Jun 12, 2005 3:23 am
Location: netherlands
Contact:
Post
by whiteshark » Sun Feb 19, 2006 10:50 am
Hello this script works great
but it will every minute runs i want it to every 30 minutes
so who can help me thnx
Code: Select all
bind time - * qstat ;# runs every minute
proc qstat {m h d mo y} {
if ![catch {set res [exec /path/to/qstat -ut2s 217.77.176.198:7777]}] {
foreach line [split $res \n] {
puthelp "privmsg #channel :$line"
}
}
}
Sir_Fz
Revered One
Posts: 3794 Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Post
by Sir_Fz » Sun Feb 19, 2006 10:56 am
Code: Select all
bind time - * qstat
proc qstat {m args} {
if {[regexp {00|30} $m]} {
if ![catch {set res [exec /path/to/qstat -ut2s 217.77.176.198:7777]}] {
foreach line [split $res \n] {
puthelp "privmsg #channel :$line"
}
}
}
}
whiteshark
Halfop
Posts: 62 Joined: Sun Jun 12, 2005 3:23 am
Location: netherlands
Contact:
Post
by whiteshark » Sun Feb 19, 2006 11:02 am
Thnx Sir_Fz