init

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"
+}