From: timriker Date: Mon, 12 Jul 2004 22:07:13 +0000 (+0000) Subject: trivial lart WHO for WHAT support X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0b5c527fcdfd48e04db69010221a695c099a4764;p=infobot.git 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 b5238f4..ab504e3 100644 --- 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);