1 files changed, 15 insertions, 0 deletions

diff --git a/bot.pl b/bot.pl
index 7f625f0..4bb7379 100644
--- a/bot.pl
+++ b/bot.pl
@@ -33,6 +33,7 @@ my %commands = ( 'help'     => \&francoise_help,
                  'topten0r' => \&francoise_topten0r,
                  'forget'   => \&francoise_forget,
                  'alias'    => \&francoise_alias,
+                 'count'    => \&francoise_count,
                );
 
 # this helps identify jamaica autorejoiner and doublejoiner
@@ -387,6 +388,20 @@ sub francoise_forget {
     }
 }
 
+sub francoise_count {
+    my ($kernel, $channel, $what) = @_;
+
+    my ($tmp) = $dbh->selectrow_array("SELECT COUNT(*) FROM knowledge where trigger = ?", undef, $what);
+
+    if ($tmp)
+    {
+        $kernel->post('francoise', 'privmsg', $channel, "Dazu hab ich $tmp schlaue Sachen zu sagen.");
+    } else
+    {
+        $kernel->post('francoise', 'privmsg', $channel, "Zu $what weiss ich noch gar nix.");
+    }
+}
+
 sub francoise_donothing {
 }