|
@@ -16,6 +16,7 @@ if(@ARGV && ! -w "$ARGV[0]" || !@ARGV) {
|
|
|
}
|
|
|
|
|
|
my $nick = "fdnAlertBot";
|
|
|
+my $server = "irc.geeknode.org";
|
|
|
my $chan = "#fdnbottest";
|
|
|
my $flag = "[ALERT]";
|
|
|
my $url = "http://fdn.ldn-fai.net";
|
|
@@ -48,17 +49,10 @@ sub said {
|
|
|
$self->reply($message, "De rien.");
|
|
|
|
|
|
} else {
|
|
|
- $self->reply($message, "Bonjour ".$message->{"who"}.". "
|
|
|
- ."Pour signaler un accident sur l'infrastructure de FDN, "
|
|
|
- ."il suffit d'ajouter le drapeau $flag à la fin du /topic de $chan, "
|
|
|
- ."suivi d'une courte information sur sa nature. Je me chargerai "
|
|
|
- ."personnellement de reporter instantanément celle-ci sur <$url>. "
|
|
|
- ."La page sera mise à jour chaque fois que le /topic changera en "
|
|
|
- ."gardant le drapeau. Dès lors que ce dernier disparaîtra, la "
|
|
|
- ."page redeviendra vierge, ce qui signalera la fin de l'accident. "
|
|
|
- ."Bonne chance, ".$message->{"who"}." !");
|
|
|
-
|
|
|
- #$self->reply($message, "SYNTAXE : /topic N'importe quoi $flag Description de l'accident");
|
|
|
+ $self->reply($message, "Pour signaler un accident, ajouter $flag à la suite "
|
|
|
+ ."du /topic, suivi d'un court descriptif. Ce dernier sera reporté sur "
|
|
|
+ ."<$url>, qui sera mis à jour chaque fois qu'il changera. Retirer $flag "
|
|
|
+ ."du /topic vide la page, ce qui signale la fin de l'accident.");
|
|
|
}
|
|
|
}
|
|
|
}
|
|
@@ -95,7 +89,7 @@ sub topic {
|
|
|
}
|
|
|
|
|
|
$bot = Bot->new(
|
|
|
- server => "irc.geeknode.org",
|
|
|
+ server => $server,
|
|
|
port => "6667",
|
|
|
channels => [$chan],
|
|
|
nick => $nick,
|