Release your script here.
State:
- Author
- What it does
- Perhaps a little guide.
- Also, if the snippet is of any use to the community, it has a chance of getting posted on the main page, so don't hesitate to submit/ask!
by Cristian » Sun Apr 13, 2008 11:10 am
A simple small script, that executes the same proc every 30 minuttes, setting your eggdrops awaymessage.
- Code: Select all
namespace eval away {
namespace eval variable {
variable awaymsg "Your away message here"
}
bind TIME - "30 * * * *" [namespace current]::checkaway
bind TIME - "00 * * * *" [namespace current]::checkaway
proc checkaway {minute hour day month year} {
set autoaway "\002\[\002 $::away::variable::awaymsg \002\]"
putserv "AWAY :"
putserv "AWAY :${autoaway}"
}
}
putlog "\00304[string range [info script] 0 end]\00304 \002loaded\003\002. By \002Sumsar\002 Website: \002http://sp00fed.org\002"
-
Cristian
- proof of advance

-
- Posts: 282
- Joined: Sun Nov 04, 2007 3:02 pm
- Location: Denmark
- Authnick: Sumsar
-
Return to TCL Scripting Release
Who is online
Users browsing this forum: No registered users and 4 guests