|
@@ -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 ) ],
|
|
|
});
|
|
|
}
|
|
|
|