trigger nicht loeschen, wenn sie ein nick sind

1 files changed, 10 insertions, 2 deletions

diff --git a/bot.pl b/bot.pl
index fb5b336..7f625f0 100644
--- a/bot.pl
+++ b/bot.pl
@@ -371,8 +371,16 @@ sub francoise_forget {
 
     if ($tmp)
     {
-        $dbh->do("DELETE FROM knowledge WHERE trigger = ?", undef, $what);
-        $kernel->post('francoise', 'privmsg', $channel, "Mist, seit der letzten Tuete weiss ich nix mehr von $what :(");
+        ($tmp) = $dbh->selectrow_array("SELECT COUNT(*) FROM users WHERE nick = ?", undef, $what);
+
+        if ($tmp)
+        {
+            $kernel->post('francoise', 'privmsg', $channel, "$what wird nicht geloescht, das ist ein User!");
+        } else
+        {
+            $dbh->do("DELETE FROM knowledge WHERE trigger = ?", undef, $what);
+            $kernel->post('francoise', 'privmsg', $channel, "Mist, seit der letzten Tuete weiss ich nix mehr von $what :(");
+        }
     } else
     {
         $kernel->post('francoise', 'privmsg', $channel, "$what? Nie von gehoert! *schwoer*");