Parcourir la source

modif d'un message, rajout de la feature symbol et on fait parler le bot maintenant

Daniel Jakots il y a 10 ans
Parent
commit
25c75cbd86
1 fichiers modifiés avec 9 ajouts et 5 suppressions
  1. 9 5
      unefede.pl

+ 9 - 5
unefede.pl

@@ -125,7 +125,7 @@ sub lecture_fichier {
     }
     else
     {
-	return "pas d'information pour \n";
+	return "Nope\n";
     }
 
 }
@@ -431,6 +431,10 @@ sub said {
     elsif ($message->{body} =~ /^\Q$symbol\Ejson/) {
 	lecture_fichier("json");
     }
+    # on assiste ceux qui ont alzheimer :p
+    elsif ($message->{"body"} =~ /^symbol/) {
+	return "Les symboles sont : pour UnRouteur : > ; pour [ffdn] : ! ; pour moi-même : $symbol";
+    }
     # on rale sur les gens qui utilisent l'ancien bot
     elsif ($message->{body} =~ /^\!/) {
         return "meh";
@@ -461,12 +465,12 @@ sub said {
     }
 }
 
-# tout ce qu'on écrit dans /tmp/log apparait dans $channel
-my $channel = '#ffdn';
+# tout ce qu'on écrit dans le ficher log apparait dans $channel
 sub connected {
+    my $fichier = $dir."log";
     my $self = shift;
-    $self->forkit({ channel => $channel,
-                    run     => [ qw( /usr/bin/tail -f /tmp/log ) ],
+    $self->forkit({ channel => "#ffdn",
+                    run     => [ qw( /usr/bin/tail -f -n0 /home/daga/bot-irc/wrk-dir/log ) ],
 		  });
 }