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

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

version 1.4, 2005/09/20 17:28:26 version 1.6, 2007/03/21 14:21:01
Line 16  $|=1; Line 16  $|=1;
 #  #
   
 # program version  # program version
 my $version = "0.4.1 (15.2.2005)";  my $version = "0.4.3 (21.3.2007 ROC)";
   
 # read command line parameters  # read command line parameters
 my $args = parseargs;  my $args = parseargs;
Line 29  my $namespace = ""; Line 29  my $namespace = "";
   
 # archive name (archive-path element, usually == $docdir)  # archive name (archive-path element, usually == $docdir)
 my $archname;  my $archname;
 # archive storage date  
 my $archdate;  
   
   
 #######################################################  #######################################################
Line 126  sub read_resource_meta { Line 124  sub read_resource_meta {
     my $name = sstrip($fn->findvalue('child::name'));      my $name = sstrip($fn->findvalue('child::name'));
     my $path = sstrip($fn->findvalue('child::path'));      my $path = sstrip($fn->findvalue('child::path'));
     logger("DEBUG", "DIR: ($path)$name");      logger("DEBUG", "DIR: ($path)$name");
     my $f = ($path) ? "$path/$name" : "$name";      my $f = "$name";
       if (($path)&&($path ne '.')) {
           $f = "$path/$name";
       }
     $files{$f} = [$name];      $files{$f} = [$name];
     }      }
   
Line 204  sub run_query { Line 205  sub run_query {
     $archcmd .= " -description='$archname'";      $archcmd .= " -description='$archname'";
     $archcmd .= " '$dirquery'";      $archcmd .= " '$dirquery'";
   
       logger('INFO', "querying TSM server for $dirquery, please wait...");
     my $archcnt = 0;      my $archcnt = 0;
     print LOG "CMD: $archcmd\n";      print LOG "CMD: $archcmd\n";
     if (open ARCH, "$archcmd 2>&1 |") {      if (open ARCH, "$archcmd 2>&1 |") {
Removed from v.1.4  
changed lines
  Added in v.1.6

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