diff options
Diffstat (limited to 'forwardedSpamProtection.tcl')
| -rw-r--r-- | forwardedSpamProtection.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/forwardedSpamProtection.tcl b/forwardedSpamProtection.tcl new file mode 100644 index 0000000..45ac554 --- /dev/null +++ b/forwardedSpamProtection.tcl @@ -0,0 +1,10 @@ +# born after accidentally triggering hackint's spambot warnin + +bind rawt * 470 gotForwarded + +proc gotForwarded {from keyword text tags} { + set fromChan [lindex [split $text] 1] + set toChan [lindex [split $text] 2] + channel set $fromChan +inactive + putserv "PRIVMSG #fire-trail :\[forward protection\] got forwarded from $fromChan to $toChan, set $fromChan as inactive" +} |