Vieille màj et ajout délimitateurs de mots

fdnTopicAddBot/fdn-accbot.pl

@@ -17,7 +17,7 @@ if(@ARGV && ! -w "$ARGV[0]" || !@ARGV) {
 
 my $nick = "fdnAlertBot";
 my $server = "irc.geeknode.org";
-my $chan = "#fdnbottest";
+my $chan = "#fdn";
 my $flag = "[ALERT]";
 my $url = "http://fdn.ldn-fai.net";
 my $git = "git clone http://repo.ldn-fai.net/repo/si-public.git";
@@ -33,26 +33,26 @@ sub said {
 	return 0 unless $message->{"address"};
 
 	if($message->{"address"} eq $nick || $message->{"address"} eq "msg") {
-		if($message->{"body"} =~ m/r(?:e|é)ponse/i) {
+		if($message->{"body"} =~ m/\br(?:e|é)ponse\b/i) {
 			$self->reply($message, "42.");
 
-		} elsif($message->{"body"} =~ m/(?:drapeau|flag|tag)/i) {
+		} elsif($message->{"body"} =~ m/\b(?:drapeau|flag|tag)\b/i) {
 			$self->reply($message, $flag);
 
-		} elsif($message->{"body"} =~ m/(?:url|adresse)/i) {
+		} elsif($message->{"body"} =~ m/\b(?:url|adresse)\b/i) {
 			$self->reply($message, $url);
 
-		} elsif($message->{"body"} =~ m/(?:git|svn|source)/i) {
+		} elsif($message->{"body"} =~ m/\b(?:git|svn|source)\b/i) {
 			$self->reply($message, $git);
 
-		} elsif($message->{"body"} =~ m/merci/i) {
+		} elsif($message->{"body"} =~ m/\bmerci\b/i) {
 			$self->reply($message, "De rien.");
 
 		} else {
-			$self->reply($message, "Pour signaler un accident, ajouter $flag à la suite "
+			$self->reply($message, "Pour signaler un problème, 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.");
+				."du /topic vide la page, ce qui signale la fin du problème.");
 		}
 	}
 }
@@ -62,7 +62,7 @@ sub topic {
 	my $args = shift;
 
 	if($args->{"topic"}) {
-		if($args->{"topic"} =~ /\Q$flag\E\s*(.+)$/i) {
+		if($args->{"topic"} =~ /\b\Q$flag\E\s*(.+)\b$/i) {
 			$isacc = 1;
 
 			open(OUT, ">$file");
@@ -71,9 +71,8 @@ sub topic {
 
 			$bot->emote(
 				channel => $chan,
-				body => "a bien reporté l'accident sur $url"
+				body => "a bien reporté le problème sur $url"
 			);
-
 		} elsif($isacc) {
 			$isacc = 0;
 
@@ -83,7 +82,7 @@ sub topic {
 
 			$bot->emote(
 				channel => $chan,
-				body => "a bien pris en compte la fin de l'accident ($url)"
+				body => "a bien pris en compte la fin du problème ($url)"
 			);
 		}
 	}