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 this script

Help for those learning Tcl or writing their own scripts.
Post Reply
w
whiteshark
Halfop
Posts: 62
Joined: Sun Jun 12, 2005 3:23 am
Location: netherlands
Contact:

help this script

Post by whiteshark »

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" 
      } 
   } 
} 
User avatar
Sir_Fz
Revered One
Posts: 3793
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

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"
         }
      }
   }
}
w
whiteshark
Halfop
Posts: 62
Joined: Sun Jun 12, 2005 3:23 am
Location: netherlands
Contact:

Post by whiteshark »

Thnx Sir_Fz
:D
Post Reply