tuto:ipasserelle:divers:scripts_dokuwiki

Différences

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

Lien vers cette vue comparative

Les deux révisions précédentes Révision précédente
Prochaine révision
Révision précédente
Dernière révision Les deux révisions suivantes
tuto:ipasserelle:divers:scripts_dokuwiki [16/01/2019 11:32]
dani
tuto:ipasserelle:divers:scripts_dokuwiki [25/01/2019 16:31]
heuzef
Ligne 222: Ligne 222:
 use BackupPC::CGI::Lib; use BackupPC::CGI::Lib;
 use POSIX; use POSIX;
 +use List::Util qw(min);
 use Data::Dumper; use Data::Dumper;
  
Ligne 235: Ligne 236:
 my $mainConf = $bpc->ConfigDataRead(); 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 $hostConf = $bpc->ConfigDataRead($host);
   my $conf = { %$mainConf, %$hostConf };   my $conf = { %$mainConf, %$hostConf };
Ligne 261: Ligne 262:
   }   }
   $size_full = sprintf('%.3f', $size_full / (1024 * 1024 * 1024));   $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> </file>
 +
 +
 +----
 +
 +Exporter le résultats de tous les scripts : ''for i in *.pl;do perl $i > ${i%}.txt;done''
  • tuto/ipasserelle/divers/scripts_dokuwiki.txt
  • Dernière modification: 17/06/2020 14:53
  • de heuzef