--- psinib.pl	2003/10/12 16:13:38	1.12
+++ psinib.pl	2003/10/12 17:44:21	1.13
@@ -33,8 +33,8 @@
 #$LOG = '/tmp/backup.log';
 
 # store backups in which directory
-#my $BACKUP_DEST = '/backup/isis_backup';
-my $BACKUP_DEST = '/tmp/backup/';
+my $BACKUP_DEST = '/backup/isis_backup';
+#my $BACKUP_DEST = '/tmp/backup/';
 
 # files to ignore in backup
 my @ignore = ('.md5sum', '.backupignore', 'backupignore.txt');
@@ -259,6 +259,7 @@
 	my %file_atime;
 	my %file_mtime;
 	#my %file_md5;
+	%file_md5 = ();
 
 	my @smb_files;
 	my %smb_size;
@@ -490,6 +491,7 @@
 	# remove files
 	foreach (sort @files2erase) {
 		unlink "$bc/$_" || warn "unlink $_: $!\n";
+		delete $file_md5{$_};
 	}
 
 	# remove not needed dirs (after files)
@@ -502,6 +504,14 @@
 		unlink "$bc/$_/.md5sum" if (-e "$bc/$_/.md5sum");
 	}
 
+	# erase stale entries in .md5sum
+	my @md5_files = keys %file_md5;
+	$lc = List::Compare->new(\@md5_files, \@smb_files);
+	foreach my $file ($lc->get_Lonly) {
+		xlog("NOTICE","removing stale '$file' from .md5sum");
+		delete $file_md5{$file};
+	}
+
 	# create .md5sum
 	my $last_dir = '';
 	my $md5;