--- foxridge-archiver/archivecheck.pl	2004/11/30 12:39:51	1.2
+++ foxridge-archiver/archivecheck.pl	2005/09/20 17:28:26	1.4
@@ -16,7 +16,7 @@ $|=1;
 #
 
 # program version
-my $version = "0.4 (30.11.2004)";
+my $version = "0.4.1 (15.2.2005)";
 
 # read command line parameters
 my $args = parseargs;
@@ -322,8 +322,8 @@ sub compare_files {
 		logger("ERROR", "archived $ft ($atime) is older than file on disk ($ftime)!");
 		$errcnt++;
 	    } else {
-		logger("ERROR", "archived file $ft still on disk");
-		$errcnt++;
+		logger("WARNING", "archived file $ft still on disk");
+		$warncnt++;
 	    }
 	} else {
 	    logger("ERROR", "file on disk '$ft' is not in archive!");
@@ -342,7 +342,7 @@ logger("INFO", "archivecheck $version");
 
 # make shure the right user is running this program
 my $user = getlogin;
-if (($user ne "archive")&&($user ne "root")) {
+if (not (($user eq "archive")||($user eq "root"))) {
     logger("ABORT", "you must be archive or root user to run this program!");
     exit 1;
 }
@@ -399,6 +399,7 @@ logger("INFO", "$warncnt warnings");
 logger("INFO", "$errcnt errors");
 if ($errcnt == 0) {
     logger("DONE", "" . (scalar keys %archived_files) . " archived files OK");
+    exit 0;
 } else {
     logger("ABORT", "there were $errcnt errors!!");
     exit 1;