\!magic introduced, <reply> +

1 files changed, 4 insertions, 1 deletions

diff --git a/bot.pl b/bot.pl
index c95e65b..f0f6459 100644
--- a/bot.pl
+++ b/bot.pl
@@ -204,7 +204,7 @@ sub irc_pub_msg{
     #search in our knowledge
     my $thr = join ' ', $dbh->selectrow_array(
         "SELECT trigger, hilfsverb, reply FROM knowledge WHERE trigger = ? ORDER BY RANDOM() LIMIT 1", undef, $msg );
-    $thr =~ s/^.*?(?:<reply> )(.*)$/$1/;
+    $thr =~ s/^.*?(?:<reply> +?)(.*)$/$1/;
     $thr =~ s/!who/$nick/g;
     $thr =~ s'!date'francoise_date()'eg;
     $thr =~ s'!time'francoise_time()'eg;
@@ -236,6 +236,9 @@ sub irc_priv_msg{
   $kernel->post( 'francoise', 'privmsg', $channel, $1)
     if( $msg =~ /^!say (.*)$/ );
 
+  $kernel->post( 'francoise', $1, $2, $3, $4 )
+    if $msg =~ /^!magic +(\S+) +(\S+) +(\S+) (.*)/;
+
   print "PRIV: [$nick] $msg\n";
 }