From decb6e9f94257391a37bef67694266cfd75e3424 Mon Sep 17 00:00:00 2001
From: lookshe <lookshe@fumuga.com>
Date: Thu, 13 Mar 2014 17:26:03 +0100
Subject: [PATCH] add !pastebin command

---
 wiki.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/wiki.tcl b/wiki.tcl
index 5135a92..6a9fc54 100644
--- a/wiki.tcl
+++ b/wiki.tcl
@@ -5,6 +5,8 @@ bind pub - !ewiki ewiki
 #bind pub - !say say
 bind pub - !mitsu mitsu
 bind pub - !google say
+bind pub - !pastebin pastebin
+bind pub - !ezcrypt pastebin
 
 proc say {nick host hand chan arg} {
 #   putserv "PRIVMSG $chan :$arg";
@@ -16,6 +18,10 @@ proc mitsu {nick host hand chan arg} {
 #   putserv "PRIVMSG $chan :das hier ist [string trimleft $chan #]";
 }
 
+proc pastebin {nick host hand chan arg} {
+  putserv "PRIVMSG $chan :Längere Texte bitte nicht in den Chat kopieren! Benutze stattdessen https://ezcrypt.it/ : kopiere den Text in das große Textfeld, klicke auf \"Submit\" und teile uns die URL mit, auf die du automatisch weitergeleitet wurdest.";
+}
+
 proc wiki {nick host hand chan arg} {
    global do_wiki
    if {[info exists do_wiki($nick:$chan)]} {