31 |
# |
# |
32 |
#======================================================================== |
#======================================================================== |
33 |
# |
# |
34 |
# Version 2.1.0, released 20 Jun 2004. |
# Version 2.1.2, released 5 Sep 2005. |
35 |
# |
# |
36 |
# See http://backuppc.sourceforge.net. |
# See http://backuppc.sourceforge.net. |
37 |
# |
# |
82 |
|
|
83 |
my @badHosts = (); |
my @badHosts = (); |
84 |
foreach my $host ( sort(keys(%Status)) ) { |
foreach my $host ( sort(keys(%Status)) ) { |
85 |
next if ( $Status{$host}{reason} ne "backup failed" |
next if ( ($Status{$host}{reason} ne "Reason_backup_failed" |
86 |
|
&& $Status{$host}{reason} ne "Reason_restore_failed") |
87 |
|| $Status{$host}{error} =~ /^lost network connection to host/ ); |
|| $Status{$host}{error} =~ /^lost network connection to host/ ); |
88 |
push(@badHosts, "$host ($Status{$host}{error})"); |
push(@badHosts, "$host ($Status{$host}{error})"); |
89 |
} |
} |
122 |
my @files = $d->read; |
my @files = $d->read; |
123 |
$d->close; |
$d->close; |
124 |
foreach my $host ( @files ) { |
foreach my $host ( @files ) { |
125 |
next if ( $host eq "." || $host eq ".." || defined($Status{$host}) ); |
next if ( $host =~ /^\./ || defined($Status{$host}) ); |
126 |
push(@oldDirs, "$TopDir/pc/$host"); |
push(@oldDirs, "$TopDir/pc/$host"); |
127 |
} |
} |
128 |
if ( @oldDirs ) { |
if ( @oldDirs ) { |
217 |
while ( 1 ) { |
while ( 1 ) { |
218 |
my $s = $fh->readLine(); |
my $s = $fh->readLine(); |
219 |
last if ( $s eq "" ); |
last if ( $s eq "" ); |
220 |
if ( $s =~ /^\s*Error reading file.*\.pst : ERRDOS - ERRlock/ |
if ( $s =~ /^\s*Error reading file.*\.pst : (ERRDOS - ERRlock|NT_STATUS_FILE_LOCK_CONFLICT)/ |
221 |
|| $s =~ /^\s*Error reading file.*\.pst\. Got 0 bytes/ ) { |
|| $s =~ /^\s*Error reading file.*\.pst\. Got 0 bytes/ ) { |
222 |
$badOutlook = 1; |
$badOutlook = 1; |
223 |
last; |
last; |