Différences

Ci-dessous, les différences entre deux révisions de la page.

--- tuto:ipasserelle:divers:scripts_dokuwiki [16/01/2019 11:32]
dani
+++ tuto:ipasserelle:divers:scripts_dokuwiki [17/06/2020 14:53] (Version actuelle)
heuzef
@@ Ligne 36: / Ligne 36: @@
     $name = '<color red>' . $_->key . '</color>';
   }
-  print '|' . $name . ' |' . $_->prop('LastName') .
+  print '|' . $name . ' |' . $_->prop('LastName') . ' |' . $_->prop('FirstName') . ' |' . ($_->prop('PreferredMail') || $_->key . '@' . $main_dom) . ' |' . $_->prop('Phone') . ' |' . $_->prop('Function1') . "|\n";
-     ' |' . $_->prop('FirstName') . ' |' . ($_->prop('PreferredMail') || $_->key . '@' . $main_dom) .
-      "|\n";
 }
 </file>
@@ Ligne 222: / Ligne 220: @@
 use BackupPC::CGI::Lib;
 use POSIX;
+use List::Util qw(min);
 use Data::Dumper;
@@ Ligne 235: / Ligne 234: @@
 my $mainConf = $bpc->ConfigDataRead();
-print '^ Jeux de sauvegarde ^ Description ^ Fréquence ^ volume complète ^ Volume incrémental ^ Durée moyenne ^' . "\n";
+print '^ Jeux de sauvegarde ^ Description ^ Fréquence (jours) ^ volume complète (Go) ^ Volume incrémental (Go) ^ Durée moyenne (minutes) ^' . "\n";
-foreach my $host (keys %$hosts){
+foreach my $host (sort keys %$hosts){
   my $hostConf = $bpc->ConfigDataRead($host);
   my $conf = { %$mainConf, %$hostConf };
@@ Ligne 261: / Ligne 260: @@
   }
   $size_full = sprintf('%.3f', $size_full / (1024 * 1024 * 1024));
+  my $freq = ($conf->{BackupsDisable} == 0 ) ? ceil(min(($conf->{IncrPeriod}, $conf->{FullPeriod}))) : 'N/A';
-  print "|$host | | $size_full | $size_incr | $duration |\n";
+  print "|$host | | $freq | $size_full | $size_incr | $duration |\n";
 }
 </file>
+----
+Exporter le résultats de tous les scripts : ''for i in *.pl;do perl $i > ${i%}.txt;done''