migration du bot

feed.ksh

@@ -1,4 +1,4 @@
-#!/bin/ksh
+#!/bin/sh
 
 # Copyright (c) 2014 Daniel Jakots <vigdis@chown.me>
 

json-file.pl

@@ -47,7 +47,7 @@ sub info{
     my $json;
     {
 	local $/; #Enable 'slurp' mode
-	open my $fh, "<", "/home/daga/bot-irc/". $dump_dir."/". $fai;
+	open my $fh, "<", "/home/bot/bot-irc/". $dump_dir."/". $fai;
 	$json = <$fh>;
 	close $fh;
     }
@@ -115,7 +115,7 @@ sub info{
 	$description = $data->{"ispformat"}->{"description"};
     }
 
-    my $filename = "/home/daga/bot-irc/wrk-dir/". $fai.".info";
+    my $filename = "/home/bot/bot-irc/wrk-dir/". $fai.".info";
 
 # On indique dans le fichier la phrase que le bot va répondre
 
@@ -131,7 +131,7 @@ sub adh{
     my $json;
     {
 	local $/; #Enable 'slurp' mode
-	open my $fh, "<", "/home/daga/bot-irc/dump/". $fai;
+	open my $fh, "<", "/home/bot/bot-irc/dump/". $fai;
 	$json = <$fh>;
 	close $fh;
     }
@@ -155,7 +155,7 @@ sub adh{
 	$nb_abo_ffdn += $nb_abo;
     }
 
-    my $filename = "/home/daga/bot-irc/wrk-dir/". $fai.".adh";
+    my $filename = "/home/bot/bot-irc/wrk-dir/". $fai.".adh";
     my $fh2;
     open ($fh2, '>', $filename) or die "Impossible d'ouvrir le fichier $filename en écriture";
     print $fh2 $nb_adh ." adhérent·e·s (et ".$nb_abo." abonné·e·s). C'est un ratio de ".sprintf("%.1f", $nb_abo / $nb_adh * 100)."%. Cela représente ".
@@ -166,7 +166,7 @@ sub adh{
 # indique le nombre d'adh et d'abo dans l'ensemble des FAI ; fichier : ffdn.adh
 sub adh_abo_ffdn {
 
-    my $filenameadh = "/home/daga/bot-irc/wrk-dir/ffdn.adh";
+    my $filenameadh = "/home/bot/bot-irc/wrk-dir/ffdn.adh";
 
     my $fh3;
 # on met l'info dans le fichier
@@ -176,7 +176,7 @@ sub adh_abo_ffdn {
 
 }
 sub vieuxchiffres {
-    my $filename = "/home/daga/bot-irc/wrk-dir/ffdn.adh";
+    my $filename = "/home/bot/bot-irc/wrk-dir/ffdn.adh";
     if (-e $filename)
     {
 	my $fh;
@@ -196,15 +196,15 @@ sub vieuxchiffres {
 
 vieuxchiffres();
 # pour chaque FAI on génère l'info
-my @filesdump = </home/daga/bot-irc/dump/*>;
+my @filesdump = </home/bot/bot-irc/dump/*>;
 my $filedump;
 foreach $filedump (@filesdump) {
-    $filedump =~ s{/home/daga/bot-irc/dump/}{};
+    $filedump =~ s{/home/bot/bot-irc/dump/}{};
     info ("$filedump");
 }
 # pour chaque FAI on génère l'info du nombre d'adhérents
 foreach $filedump (@filesdump) {
-    $filedump =~ s{/home/daga/bot-irc/dump/}{};
+    $filedump =~ s{/home/bot/bot-irc/dump/}{};
     adh ("$filedump");
 }
 # on génère l'info du nombre d'adhérents de la fédé

unefede.pl

@@ -470,7 +470,7 @@ sub connected {
     my $fichier = $dir."log";
     my $self = shift;
     $self->forkit({ channel => "#ffdn",
-                    run     => [ qw( /usr/bin/tail -f -n0 /home/daga/bot-irc/wrk-dir/log ) ],
+                    run     => [ qw( /usr/bin/tail -f -n0 /home/bot/bot-irc/wrk-dir/log ) ],
 		  });
 }