Màj spéciale hamster

fdnTopicAddBot/fdn-accbot.pl

@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-# git clone http://repo.ldn-fai.net/repo/si-public.git
 
 package Bot;
 use base qw(Bot::BasicBot);
@@ -16,14 +15,14 @@ if(@ARGV && ! -w "$ARGV[0]" || !@ARGV) {
 	exit 1;
 }
 
-my $nick = "accbot";
-my $chan = "#fdnbotteste";
+my $nick = "fdnAlertBot";
+my $chan = "#fdnbottest";
 my $url = "http://fdn.ldn-fai.net";
-my $flag = "[ACC]";
+my $flag = "[ALERT]";
 
-my $bot;
-my $file = $ARGV[0];
 my $isacc = 0;
+my $file = $ARGV[0];
+my $bot;
 
 sub said {
 	my $self = shift;
@@ -32,7 +31,28 @@ sub said {
 	return 0 unless $message->{"address"};
 
 	if($message->{"address"} eq $nick || $message->{"address"} eq "msg") {
-		$self->reply($message, "$url - SYNTAXE : /topic N'importe quoi $flag Description de l'accident");
+		if($message->{"body"} =~ m/r(?:e|é)ponse/i) {
+			$self->reply($message, "42.");
+
+		} elsif($message->{"body"} =~ m/(?:drapeau|flag|tag)/i) {
+			$self->reply($message, $flag);
+
+		} elsif($message->{"body"} =~ m/(?:url|adresse)/i) {
+			$self->reply($message, $url);
+
+		} 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");
+		}
 	}
 }