fdnbot: Added FDN alertbot (monitor #fdn on irc.geeknode.org)

files/fdnbot/fdnbot.pl

@@ -0,0 +1,161 @@
+#!/usr/bin/perl
+
+package Bot;
+use Mail::Sendmail;
+use MIME::Base64;
+use MIME::Words qw(encode_mimewords);
+use base qw(Bot::BasicBot);
+use warnings;
+use strict;
+use utf8;
+
+if(@ARGV && ! -w "$ARGV[0]" || !@ARGV) {
+	if(@ARGV) {
+		print "ERREUR: $ARGV[0] est inexistant ou non-inscriptible.\n";
+	} else {
+		print "USAGE: $0 fichier-a-ecrire\n";
+	}
+
+	exit 1;
+}
+
+my $nick = "fdnAlertBot";
+my $server = "irc.geeknode.org";
+my $chan = "#fdn";
+my $flag = "[ALERT]";
+my $url = "https://fdn.ldn-fai.net";
+my $git = "git clone https://code.ffdn.org/ldn/puppet.git";
+my $subscribe = "https://listes.ldn-fai.net/cgi-bin/mailman/listinfo/fdn";
+
+my $mail_support = 'support@fdn.fr';
+my $mail_liste = 'fdn@listes.ldn-fai.net';
+my $mail_from = 'fdnAlertBot <fdnAlertBot@ldn-fai.net>';
+my $mail_subject = "[ALERTE FDN]";
+
+my $isacc = 0;
+my $file = $ARGV[0];
+my $bot;
+
+sub said {
+	my $self = shift;
+	my $message = shift;
+
+	return undef unless $message->{"address"};
+
+	if($message->{"address"} eq $nick || $message->{"address"} eq "msg") {
+		if($message->{"body"} =~ m/\br(?:e|é)ponse\b/i) {
+			$self->reply($message, "42.");
+
+		} elsif($message->{"body"} =~ m/\b(?:drapeau|flag|tag)\b/i) {
+			$self->reply($message, $flag);
+
+		} elsif($message->{"body"} =~ m/\b(?:url|adresse)\b/i) {
+			$self->reply($message, $url);
+
+		} elsif($message->{"body"} =~ m/\b(?:git|svn|source)\b/i) {
+			$self->reply($message, $git);
+
+		} elsif($message->{"body"} =~ m/\bliste\b/i) {
+			$self->reply($message, "$mail_liste ($subscribe)");
+
+		} elsif($message->{"body"} =~ m/\bmerci\b/i) {
+			$self->reply($message, "De rien.");
+
+		} else {
+			$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 du problème.");
+		}
+	}
+}
+
+sub topic {
+	my $self = shift;
+	my $args = shift;
+
+	my %mail = (
+		From => $mail_from,
+		To => $mail_liste,
+		Cc => $mail_support
+	);
+
+	if($args->{"topic"}) {
+		if($args->{"topic"} =~ /\Q$flag\E\s*(.+)$/i) {
+
+			my $msg = $1;
+			$mail{"Message"} = $msg;
+			utf8::decode($msg);
+
+			open(OUT, ">$file");
+			binmode(OUT, ":utf8");
+			print OUT "$msg";
+			close(OUT);
+
+			if($isacc) {
+				$mail{"Subject"} = "$mail_subject Mise à jour de l'intitulé du problème";
+
+				$bot->emote(
+					channel => $chan,
+					body => "a bien actualisé le problème sur $url (et prévenu le support + $mail_liste)"
+				);
+
+			} else {
+				$isacc = 1;
+				$mail{"Subject"} = "$mail_subject Nouveau problème déclaré";
+
+				$bot->emote(
+					channel => $chan,
+					body => "a bien reporté le problème sur $url (et prévenu le support + $mail_liste)"
+				);
+			}
+
+			sendemail(\%mail) or die $Mail::Sendmail::error;
+
+		} elsif($isacc) {
+			$isacc = 0;
+
+			$mail{"Subject"} = "$mail_subject Problème résolu";
+			$mail{"Message"} = "Fin de l'alerte.";
+
+			open(OUT, ">$file");
+			print OUT "";
+			close(OUT);
+
+			$bot->emote(
+				channel => $chan,
+				body => "a bien pris en compte la fin du problème sur $url (et prévenu le support + $mail_liste)"
+			);
+
+			sendemail(\%mail) or die $Mail::Sendmail::error;
+		}
+	}
+}
+
+sub sendemail {
+	my $mail = shift;
+	my %mail = %{$mail};
+
+	utf8::encode($mail{"Subject"});
+
+	$mail{"Subject"} = encode_mimewords($mail{"Subject"}, Charset => "utf-8", Encoding => "Q");
+	$mail{"Message"} = encode_base64($mail{"Message"});
+	$mail{"Content-Type"} = 'text/plain; charset="utf-8"';
+	$mail{"Content-Transfer-Encoding"} = "base64";
+
+	sendmail(%mail) or die $Mail::Sendmail::error;
+}
+
+$bot = Bot->new(
+	server => $server,
+	port => "6667",
+	channels => [$chan],
+	nick => $nick,
+	alt_nicks => ["${nick}_"],
+	username => $nick,
+	name => $url
+);
+
+$bot->run();
+
+exit 0;

files/fdnbot/fdnbot.service

@@ -0,0 +1,13 @@
+[Unit]
+Description=FDN Alert Bot
+Requires=network.target
+After=network.target
+
+[Service]
+Type=simple
+User=fdnbot
+Group=fdnbot
+ExecStart=/usr/bin/perl /usr/local/bin/fdnbot.pl /var/www/fdn.ldn-fai.net/index.html
+
+[Install]
+WantedBy=multi-user.target

manifests/fdnbot.pp

@@ -0,0 +1,50 @@
+# Module:: public
+# Manifest:: fdnbot.pp
+
+class public::fdnbot {
+
+  ensure_packages(['libmail-sendmail-perl','libbot-basicbot-perl'])
+
+  user { 'fdnbot':
+    ensure => present,
+    system => true,
+  }
+
+  file { '/etc/systemd/system/fdnbot.service':
+    ensure  => file,
+    owner   => root,
+    group   => staff,
+    mode    => '0755',
+    source  => 'puppet:///modules/public/fdnbot/fdnbot.service',
+    notify  => Service['fdnbot'],
+    require => User['fdnbot'],
+  }
+
+  service { 'fdnbot':
+    ensure  => running,
+    enable  => true,
+    require => File['/etc/systemd/system/fdnbot.service'],
+  }
+
+  file {
+    '/usr/local/bin/fdnbot.pl':
+      ensure  => file,
+      mode    => '0755',
+      owner   => 'fdnbot',
+      group   => 'fdnbot',
+      source  => 'puppet:///modules/public/fdnbot/fdnbot.pl',
+      notify  => Service['fdn-accbot'],
+      require => Package['libmail-sendmail-perl'];
+    '/var/www/fdn.ldn-fai.net':
+      ensure => directory,
+      owner  => 'fdnbot',
+      group  => 'fdnbot',
+      mode   => '0755';
+    '/var/www/fdn.ldn-fai.net/index.html':
+      ensure => file,
+      owner  => 'fdnbot',
+      group  => 'fdnbot',
+      mode   => '0644';
+  }
+
+}