/[BackupPC]/trunk/bin/BackupPC_sendEmail
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/BackupPC_sendEmail

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Wed Jun 22 19:12:42 2005 UTC revision 316 by dpavlin, Mon Jan 30 13:37:17 2006 UTC
# Line 31  Line 31 
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  #  #
# Line 82  my $mesg = ""; Line 82  my $mesg = "";
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  }  }
# Line 121  my @oldDirs = (); Line 122  my @oldDirs = ();
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 ) {
# Line 216  foreach my $host ( sort(keys(%Status)) ) Line 217  foreach my $host ( sort(keys(%Status)) )
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;
Legend:
Removed from v.2  
changed lines
  Added in v.316
  ViewVC Help
Powered by ViewVC 1.1.26