trivial lart WHO for WHAT support

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@999 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index b5238f4513065865e92b2a7caf4db4983afd329a..ab504e3b60f94f827a5b8f385d721f63fcb8f61b 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -668,6 +668,10 @@ sub lart {
            return;
        }
     }
+    if ($target =~ /^(.*)(\s+for\s+.*)$/) {
+       $target = $1;
+       $for    = $2;
+    }
 
     my $line = &getRandomLineFromFile($bot_data_dir. "/blootbot.lart");
     if (defined $line) {
@@ -676,6 +680,7 @@ sub lart {
        } else {
            $line =~ s/WHO/$target/g;
        }
+       $line .= $for if ($for);
        $line .= ", courtesy of $who" if ($extra);
 
        &action($chan, $line);