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

Diff for /foxridge-archiver/archiver.pl between versions 1.6 and 1.7

version 1.6, 2005/09/23 17:16:17 version 1.7, 2005/10/05 13:35:12
Line 16  $|=1; Line 16  $|=1;
 #  #
   
 # program version  # program version
 my $version = "0.7.1 (ROC 23.9.2005)";  my $version = "0.7.2 (ROC 5.10.2005)";
   
 # short help  # short help
 my $help = "MPIWG archiver $version  my $help = "MPIWG archiver $version
Line 25  options: Line 25  options:
   -debug  show debugging info    -debug  show debugging info
   -premigrate  don't delete archived files    -premigrate  don't delete archived files
   -force  archive even if already archived    -force  archive even if already archived
     -replace  rewrite index file
 ";  ";
   
 # read command line parameters  # read command line parameters
Line 40  $debug = (exists $$args{'debug'}) ? $$ar Line 41  $debug = (exists $$args{'debug'}) ? $$ar
 # force archiving  # force archiving
 my $force_archive = (exists $$args{'force'}) ? $$args{'force'} : 0;  my $force_archive = (exists $$args{'force'}) ? $$args{'force'} : 0;
   
   # rewrite index file
   my $rewrite_index = (exists $$args{'replace'}) ? $$args{'replace'} : 0;
   
 # rewrite XML file (necessary for archive date!)  # rewrite XML file (necessary for archive date!)
 my $fix_xml = 1;  my $fix_xml = 1;
 my $xml_changed = 0;  my $xml_changed = 0;
Line 372  if (-f "$docdir/.archived") { Line 376  if (-f "$docdir/.archived") {
 }  }
   
 # use metacheck first  # use metacheck first
 if (open CHECK, "$checkprog -add-files $docdir |") {  my $check_opts="-add-files";
   if ($rewrite_index) {
       $check_opts = "-replace";
   }
   if (open CHECK, "$checkprog $check_opts $docdir |") {
     my @errors;      my @errors;
     my $msg;      my $msg;
     while (<CHECK>) {      while (<CHECK>) {
Removed from v.1.6  
changed lines
  Added in v.1.7

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