|
@@ -17,8 +17,9 @@ if(@ARGV && ! -w "$ARGV[0]" || !@ARGV) {
|
|
|
|
|
|
my $nick = "fdnAlertBot";
|
|
|
my $chan = "#fdnbottest";
|
|
|
-my $url = "http://fdn.ldn-fai.net";
|
|
|
my $flag = "[ALERT]";
|
|
|
+my $url = "http://fdn.ldn-fai.net";
|
|
|
+my $git = "git clone http://repo.ldn-fai.net/repo/si-public.git";
|
|
|
|
|
|
my $isacc = 0;
|
|
|
my $file = $ARGV[0];
|
|
@@ -40,6 +41,9 @@ sub said {
|
|
|
} elsif($message->{"body"} =~ m/(?:url|adresse)/i) {
|
|
|
$self->reply($message, $url);
|
|
|
|
|
|
+ } elsif($message->{"body"} =~ m/(?:git|svn|source)/i) {
|
|
|
+ $self->reply($message, $git);
|
|
|
+
|
|
|
} else {
|
|
|
$self->reply($message, "Bonjour ".$message->{"who"}.". "
|
|
|
."Pour signaler un accident sur l'infrastructure de FDN, "
|
|
@@ -49,7 +53,7 @@ sub said {
|
|
|
."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"}." !");
|
|
|
+ ."Bonne chance, ".$message->{"who"}." !");
|
|
|
|
|
|
#$self->reply($message, "SYNTAXE : /topic N'importe quoi $flag Description de l'accident");
|
|
|
}
|