egghelp/eggheads community

How to make a script that runs on specified time?

2004-09-06T08:40:15-04:00

The "day" passed from a time bind is the day of month, so there's no way to easily convert it into day of week. 'clock format' to the rescue...

Code:

if {[clock format [clock seconds] -format %u]==7} {it's sunday}

http://tcl.tk/man/tcl8.5/TclCmd/clock.htm#M36

Statistics: Posted by user — Mon Sep 06, 2004 8:40 am

How to make a script that runs on specified time?

2004-09-06T08:00:08-04:00

Thank you! It works good!

Do someone know how i can check the day? Not the date!
Like this:

Code:

if ($day == Sunday) then proc

Statistics: Posted by Freez — Mon Sep 06, 2004 8:00 am

How to make a script that runs on specified time?

2004-09-06T00:31:14-04:00

It works! I would to like to know how i callup an procedure.

But how?

Code:

proc tgstop {nick host hand chan text} {global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakminglobal tgerrremindtimer tgrebindhinttimerif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==1} {tggamemsg "[tgcolstop]Triviant is gestopt door $nick!"if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }set tgstreak 0set tgplaying 0catch {unbind pubm -|- "$tgchan *" tgcheckanswer}if {[utimerexists tghint]!=""} {killutimer $tghinttimer}if {[utimerexists tgnextq]!=""} {killutimer $tgnextqtimer}if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}}}}

This is the proc i want to callup. Do you know how? Thank you!
[/code]

To callup another procedure from an existing/running procedure use:

procedure:name arg1 arg2 arg3....argN

#You will need to set the same number of arguments as in your call procedure when you are calling.
#If you want to use a bit of delay to call, you can use timers with 'list'

utimer $myutimer [list procedure:name arg1 arg2 arg3....argN]

To call your procedure use:
tgstop $nick $host $hand $chan $text

But remember nick, host, hand, chan and text all have to be defined.

Hope this helps!

Statistics: Posted by awyeah — Mon Sep 06, 2004 12:31 am

How to make a script that runs on specified time?

2004-09-02T13:29:23-04:00

This will bind it to the public trigger !stop and everyone is able to use it.

Code:

bind pub -|- !stop tgstop

Statistics: Posted by greenbear — Thu Sep 02, 2004 1:29 pm

How to make a script that runs on specified time?

2004-09-02T13:14:40-04:00

It works! I would to like to know how i callup an procedure.

But how?

Code:

proc tgstop {nick host hand chan text} {global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakminglobal tgerrremindtimer tgrebindhinttimerif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==1} {tggamemsg "[tgcolstop]Triviant is gestopt door $nick!"if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }set tgstreak 0set tgplaying 0catch {unbind pubm -|- "$tgchan *" tgcheckanswer}if {[utimerexists tghint]!=""} {killutimer $tghinttimer}if {[utimerexists tgnextq]!=""} {killutimer $tgnextqtimer}if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}}}}

This is the proc i want to callup. Do you know how? Thank you!
[/code]

Statistics: Posted by Freez — Thu Sep 02, 2004 1:14 pm

How to make a script that runs on specified time?

2004-09-02T12:43:13-04:00

You forgot to add it to the proc.

Code:

set tgchan "#triviant"bind time - "* * * * *" timed_modesproc timed_modes {min hour day month year} {global tgchanif {$hour == 18 && $min == 30} { pushmode $tgchan -mi }if {$hour == 00} { pushmode $tgchan +mi }}

Statistics: Posted by greenbear — Thu Sep 02, 2004 12:43 pm

How to make a script that runs on specified time?

2004-09-02T12:28:29-04:00

I have this but it don't work... something wrong?

Code:

set tgchan "#triviant"bind time - "* * * * *" timed_modes proc timed_modes {min hour day month year} { if {$hour == 18 && $min == 30} { pushmode $tgchan -mi }if {$hour == 00} { pushmode $tgchan +mi }}

Update: [18:30] Tcl error [timed_modes]: can't read "tgchan": no such variable

He can't read the variable but i have specified...

Statistics: Posted by Freez — Thu Sep 02, 2004 12:28 pm

How to make a script that runs on specified time?

2004-09-02T12:22:06-04:00

seems like you forgot to declare $tgchan

Statistics: Posted by greenbear — Thu Sep 02, 2004 12:22 pm

How to make a script that runs on specified time?

2004-09-02T12:20:33-04:00

I have try also with minutes, but i don't work. What do i have made wrong?

Code:

bind time - "* * * * *" timed_modes proc timed_modes {min hour day month year} { if {$hour == 18 && $min == 20} { pushmode $tgchan -mi }if {$hour == 00} { pushmode $tgchan +mi }}

Statistics: Posted by Freez — Thu Sep 02, 2004 12:20 pm

Re: How to make a script that runs on specified time?

2004-09-01T09:24:20-04:00

I would like to excute soms tcl commands at one specified time.
Time = 18:00 > set mode $chan +mi
Time = 00:00 > set mode $chan -mi

bind time - "00 * * * *" timed_modes
proc timed_modes {min hour day month year} {
if {$hour == 18} {pushmode #channel +mi}
if {$hour == 00} {pushmode #channel -mi}
}

Belive that should do what ya want.

Statistics: Posted by Guest — Wed Sep 01, 2004 9:24 am

How to make a script that runs on specified time?

2004-09-01T09:16:31-04:00

Hi!

I would like to excute soms tcl commands at one specified time.

Time = 18:00 > set mode $chan +mi
Time = 00:00 > set mode $chan -mi

But how? I means its with if ($time == 18:00) but i think it don't work.

Tank You!

Statistics: Posted by Freez — Wed Sep 01, 2004 9:16 am