[BACK]Return to archivecheck.pl CVS log [TXT] [DIR] Up to [Repository] / foxridge-archiver

Diff for /foxridge-archiver/archivecheck.pl between versions 1.2 and 1.4

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>