Ajout du suivi du fichier de suivi

unefede.pl

@@ -29,6 +29,11 @@ use base qw( Bot::BasicBot );
 binmode STDOUT, ":utf8";
 use utf8;
 
+# pour le suivi du suivi
+use File::stat;
+use Time::localtime;
+use POSIX qw(strftime);
+
 # le repectoire des données du bot aka autoconf
 my $bot_dir = `pwd`; chomp $bot_dir ; $bot_dir .= "/";
 my $wrk_dir = "wrk-dir/";
@@ -474,6 +479,36 @@ sub connected {
 		  });
 }
 
+# On spam lorsque le fichier suivi est modifié
+sub check_file {
+  my $file = shift();
+  my $time = shift() 
+    or $time = 10;
+
+  my $ltime = strftime("%s", @{ localtime() });
+  debug("localtime: $ltime");
+
+  my $atime = strftime("%s", @{ localtime(stat($file)->atime) });
+  debug("atime: $atime");
+
+  my $mtime = strftime("%s", @{ localtime(stat($file)->mtime) });
+  debug("mtime: $mtime");
+
+  my $ntime = $mtime-$time;
+  debug("ntime: $ntime");
+
+  if (($ltime-$mtime) lt $time) {
+    utime($ntime, $ntime, $file);
+    return 1;
+  } 
+  else {
+    return 0;
+  }
+}
+
+if (check_file("suivi" 10)) {
+	lecture_fichier("suivi");
+}
 # aucune idée de comment on déclenche cette ligne
 sub help { "Je suis le bot de la fédé." }