keeplinked.tcl

Simple script to keep all your +h (hub) and +a (alt-hub) bots linked. (It tries to link to them once per hour)

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
btc	FireEgl	chanops	Cod netestat	313	2023-12-25 09:46:30

# keeplinked.tcl v1.0 by FireEgl@EFNet <FireEgl@LinuxFan.com> - April 21, 2000

# Description:
# Simple script to keep all your +h (hub) and +a (alt-hub) bots linked.
# (It tries to link to them once per hour)

# Notes:
# It's just as well that "bind time" doesn't seem to support */10 or 10,20,30,...
# Because you'd see messages like "Lost Bot: Lamest" all the time then..

# The 57 here is the minute of the hour that bots will attempt to be linked.
bind time - "57 * * * *" time:keeplinked
proc time:keeplinked {min hour day month year} { foreach b [userlist b] { if {(([string match "*h*" "[getuser $b BOTFL]"]) || ([string match "*a*" "[getuser $b BOTFL]"])) && ((![string match "*r*" "[getuser $b BOTFL]"]) && (![islinked $b]))} { 
putlog "Attemping to link to ${b}..."
link "$b" 
} } }
putlog "keeplinked.tcl v1.0 by FireEgl@EFNet <FireEgl@LinuxFan.com> - Loaded."