|
|
@ -22,7 +22,6 @@ package BackupPC::CGI::Check; |
|
|
|
|
|
|
|
|
|
|
|
use strict; |
|
|
|
use strict; |
|
|
|
use BackupPC::CGI::Lib qw(:all); |
|
|
|
use BackupPC::CGI::Lib qw(:all); |
|
|
|
use IPC::System::Simple qw(system capture); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub action |
|
|
|
sub action |
|
|
|
{ |
|
|
|
{ |
|
|
@ -131,7 +130,7 @@ sub action |
|
|
|
$shortErr = " ($shortErr)"; |
|
|
|
$shortErr = " ($shortErr)"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
my $sizeConsistency = system($^X, "/bin/perl check_size_consistency.pl --host=localhost"); |
|
|
|
my $sizeConsistency = `/bin/perl check_size_consistency.pl --host=localhost`; |
|
|
|
|
|
|
|
|
|
|
|
$str = <<EOF; |
|
|
|
$str = <<EOF; |
|
|
|
<tr$reasonHilite><td class="border">${HostLink($host)}</td> |
|
|
|
<tr$reasonHilite><td class="border">${HostLink($host)}</td> |
|
|
|