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

Diff for /foxridge-archiver/archiver.pl between versions 1.1.1.1 and 1.3

version 1.1.1.1, 2004/06/17 15:58:42 version 1.3, 2004/07/12 15:49:17
Line 16  $|=1; Line 16  $|=1;
 #  #
   
 # program version  # program version
 my $version = "0.5 (15.1.2004)";  my $version = "0.5.2 (12.7.2004)";
   
 # rewrite XML file (necessary for archive date!)  # rewrite XML file (necessary for archive date!)
 my $fix_xml = 1;  my $fix_xml = 1;
Line 64  if ($#ARGV < 0) { Line 64  if ($#ARGV < 0) {
     exit 1;      exit 1;
 }  }
 my $docdir = $ARGV[0];  my $docdir = $ARGV[0];
   # strip double slashes
   $docdir =~ s/\/\//\//;
 # strip trailing slashes  # strip trailing slashes
 $docdir =~ s/\/$//;  $docdir =~ s/\/+$//;
 if (! -d $docdir) {  if (! -d $docdir) {
     print "ABORT: document directory \'$docdir\' doesn't exist!\n";      print "ABORT: document directory \'$docdir\' doesn't exist!\n";
     exit 1;      exit 1;
Line 376  if ($errcnt > 0) { Line 378  if ($errcnt > 0) {
 }  }
   
 # start archiving  # start archiving
 my $archived_files = run_archive;  my $archived_files = run_archive();
   my $num_archfiles = scalar keys %$archived_files;
   
 print "INFO: ", scalar keys %$archived_files, " files archived\n";  print "INFO: $num_archfiles files archived\n";
   
 # check list of archived files  # check list of archived files
 check_files($files_to_archive, $archived_files);  check_files($files_to_archive, $archived_files);
Line 398  if ($errcnt == 0) { Line 401  if ($errcnt == 0) {
   
 print "INFO: $warncnt warnings\n";  print "INFO: $warncnt warnings\n";
 print "INFO: $errcnt errors\n";  print "INFO: $errcnt errors\n";
 my $num_archfiles = %$archived_files + 1;  
 if ($errcnt > 0) {  if ($errcnt > 0) {
     print "ABORT: there were errors! ($num_archfiles files archived) at ", stime(time), "\n";      print "ABORT: there were errors! ($num_archfiles files archived) at ", stime(time), "\n";
     exit 1;      exit 1;
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3

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