/[psinib]/psinib.pl

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /psinib.pl

Parent Directory | Revision Log | View Patch Patch

-revision 1.11 by dpavlin,
Sun Oct 12 15:58:28 2003 UTC
+revision 1.12 by dpavlin,
Sun Oct 12 16:13:38 2003 UTC
 Line 33 
 my $LOG = '/var/log/backup.log';       # add p
  #$LOG = '/tmp/backup.log';
  # store backups in which directory
- my $BACKUP_DEST = '/backup/isis_backup';
+ #my $BACKUP_DEST = '/backup/isis_backup';
+ my $BACKUP_DEST = '/tmp/backup/';
  # files to ignore in backup
  my @ignore = ('.md5sum', '.backupignore', 'backupignore.txt');
-Line 50 
 my $c = 0;
+Line 51 
 my $c = 0;
          sleep 1;
          redo if ++$c < 10;
          # no response for 10 sec, bail out
-         print STDERR "can't take lock on $LOG -- another $0 running?\n";
+         xlog("ABORT","can't take lock on $LOG -- another $0 running?");
          exit 1;
  }
-Line 129 
 while(<M>) {
+Line 130 
 while(<M>) {
          if ($ip) {
                  xlog($share,"IP is $ip");
                  if ($p->ping($ip)) {
-                         snap_share($share,$user,$passwd,$workgroup);
+                         if (snap_share($share,$user,$passwd,$workgroup)) {
-                         $backup_ok++;
+                                 $backup_ok++;
+                         }
                  }
          }
  }
-Line 229 
 sub snap_share {
+Line 231 
 sub snap_share {
          if (-l $bc && $real_bl && $real_bl eq $bc) {
                  print "$share allready backuped...\n";
-                 return;
+                 return 1;
          }
          die "You should really create BACKUP_DEST [$BACKUP_DEST] by hand! " if (!-e $BACKUP_DEST);
-Line 318 
 sub snap_share {
+Line 320 
 sub snap_share {
                                  } elsif (-d $pf) {
                                          push @dirs,$pr;
                                  } else {
-                                         print STDERR "unknown type: $pf\n";
+                                         print STDERR "not file or directory: $pf\n";
                                  }
                          } else {
                                  print STDERR "ignored: $pr\n";
-Line 326 
 sub snap_share {
+Line 328 
 sub snap_share {
                  }
          }
-         xlog($share,($#files+1)." files and ".($#dirs+1)." dirs on local disk before backup");
+         # local dir always include /
+         xlog($share,($#files+1)." files and ".($#dirs)." dirs on local disk before backup");
          # read smb filesystem
-Line 341 
 sub snap_share {
+Line 344 
 sub snap_share {
                  my $pf = norm_dir($d,"smb:$share/");    # path full
                  my $D = $smb->opendir($pf);
                  if (! $D) {
-                         xlog($share,"FATAL: $share: $!");
+                         xlog($share,"FATAL: $share [$pf]: $!");
                          # remove failing dir
                          delete $smb_dirs[$di];
-                         next;
+                         return 0;                       # failed
                  }
                  $di++;
-Line 364 
 sub snap_share {
+Line 367 
 sub snap_share {
                                  } elsif ($item->[0] == main::SMBC_DIR) {
                                          push @smb_dirs,$pr;
                                  } else {
-                                         print STDERR "unknown type: $pf\n";
+                                         print STDERR "not file or directory [",$item->[0],"]: $pf\n";
                                  }
                          } else {
                                  print STDERR "smb ignored: $pr\n";
-Line 372 
 sub snap_share {
+Line 375 
 sub snap_share {
                  }
          }
-         xlog($share,($#smb_files+1)." files and ".($#smb_dirs+1)." dirs on remote share");
+         xlog($share,($#smb_files+1)." files and ".($#smb_dirs)." dirs on remote share");
          # sync dirs
          my $lc = List::Compare->new(\@dirs, \@smb_dirs);
-Line 404 
 sub snap_share {
+Line 407 
 sub snap_share {
                  foreach my $f (@_) {
  #print "smb_copy $from/$f -> $to/$f\n";
-                         if (! open(F,"> $to/$f")) {
-                                 print STDERR "can't open new file $to/$f: $!\n";
-                                 next;
-                         }
                          my $md5 = Digest::MD5->new;
                          my $fd = $smb->open("$from/$f");
                          if (! $fd) {
-                                 print STDERR "can't open smb file $from/$f: $!\n";
+                                 xlog("WARNING","can't open smb file $from/$f: $!");
+                                 next;
+                         }
+                         if (! open(F,"> $to/$f")) {
+                                 xlog("WARNING","can't open new file $to/$f: $!");
                                  next;
                          }
-Line 527 
 sub snap_share {
+Line 530 
 sub snap_share {
          xlog($share,"failed to create latest symlink $bl -> $bc...") if (readlink($bl) ne $bc || ! -l $bl);
          xlog($share,"backup completed...");
- }
+         return 1;
+ }
  __END__
  #-------------------------------------------------------------------------

 Legend:



Removed from v.1.11
 


changed lines


 
Added in v.1.12
 Legend:



Removed from v.1.11
 


changed lines


 
Added in v.1.12
-Removed from v.1.11
+Added in v.1.12

	ViewVC Help
Powered by ViewVC 1.1.26