Hi, on one of the networks that i am an IRCop on, ive had some problems with other IRCops 'breaking' into the channels that are +s, +k, +i, etc and opping themselves, some of the channels belonging to myself, ive browsed throught eh forums for a bit now, and found a few scripts that do something
similar to what I want, ala deopping another op who has opped someone not in the user list, I know that it would be menial protection against an IRCop, but I am looking for some system(TCL script) that will deop someone who OPs themselves, and also kick/ban them, and enforce it, and possibly use sendmail to email me when this occurs. Now i am completely in the dark on how to do the first part, but I am fairly confident i can do the email notice section with something along the lines of
Code: Select all
bind mode - *-o* deopMail
proc deopMail {nick host hand chan mdechg dnick} {
global botnick
if {$dnick == $botnick} {
exec echo "$nick was deoped on $chan at [date] [time]" | sendmail my@email
}
}
well any help and/or suggestions would be greatly appreciated. Thanks in advance, and ill be ready for flames, like "RTFM" and "google search +suninet +tcl +tutorial " "check tcldocs" or whatever. but I am a tcl newbie, and trying to learn all this by example.