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.

routines for daily/weekly/monthly/yearly

Help for those learning Tcl or writing their own scripts.
Post Reply
User avatar
Madalin
Master
Posts: 310
Joined: Fri Jun 24, 2005 11:36 am
Location: Constanta, Romania
Contact:

routines for daily/weekly/monthly/yearly

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" }
Post Reply