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.
-
Madalin
- Master
- Posts: 310
- Joined: Fri Jun 24, 2005 11:36 am
- Location: Constanta, Romania
-
Contact:
Post
by Madalin »
Can anyone tell me if these are the correct codes for bind time routines?
Code: Select all
if {($min eq "01") && [regexp {^(00|07|14|21|28)$} $day]} { putlog "UserAge Weekly RESET has been triggered"; set temp(userage-reset) "weekly" }
if {$min eq "02" && $day eq "00"} { putlog "UserAge Monthly RESET has been triggered"; set temp(userage-reset) "monthly" }
if {$min eq "00" && [regexp {^(00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|00)$} $hour]} { putserv "PRIVMSG _MaDaLiN_ :UserAge Daily RESET has been triggered"; set temp(userage-reset) "daily" }
