| View previous topic :: View next topic |
| Author |
Message |
whiteshark Halfop
Joined: 12 Jun 2005 Posts: 62 Location: netherlands
|
Posted: Sun Feb 19, 2006 10:50 am Post subject: help this script |
|
|
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: | 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"
}
}
}
|
|
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Sun Feb 19, 2006 10:56 am Post subject: |
|
|
| Code: | 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"
}
}
}
} |
_________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
whiteshark Halfop
Joined: 12 Jun 2005 Posts: 62 Location: netherlands
|
Posted: Sun Feb 19, 2006 11:02 am Post subject: |
|
|
Thnx Sir_Fz
 |
|
| Back to top |
|
 |
|