Mercurial > hg > foxridge-archiver
changeset 57:2208ed7370cb
updated to Ubuntu Perl paths.
| author | casties |
|---|---|
| date | Thu, 16 Mar 2017 18:00:43 +0100 |
| parents | 9d7df218f94c |
| children | 975c4dbcd192 |
| files | archivecheck.pl archiver.pl changemeta.pl harvestmeta.pl makemeta-lib.pl makemeta-vlp.pl metacheck.pl unarchiver.pl |
| diffstat | 8 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/archivecheck.pl Fri Aug 27 19:10:28 2010 +0200 +++ b/archivecheck.pl Thu Mar 16 18:00:43 2017 +0100 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w use strict; @@ -16,7 +16,7 @@ # # program version -my $version = "0.4.4 (10.9.2008 ROC)"; +my $version = "0.4.5 (13.7.2009 ROC)"; # read command line parameters my $args = parseargs; @@ -368,8 +368,9 @@ my $archcnt = 0; if ($docdir =~ /\/mpiwg\/archive\/data\/(.*)/) { # TSM needs two different paths because of historical mount points :-( - my $docdir1 = "/mpiwg/archive/data/"; - $archcnt += run_query($docdir1, \%archived_files); + # ...doesn't work anymore since old filespace was renamed (13.7.2009) +# my $docdir1 = "/mpiwg/archivedataold/"; +# $archcnt += run_query($docdir1, \%archived_files); my $docdir2 = "/mpiwg/archive/"; $archcnt += run_query($docdir2, \%archived_files); } else {
--- a/archiver.pl Fri Aug 27 19:10:28 2010 +0200 +++ b/archiver.pl Thu Mar 16 18:00:43 2017 +0100 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w use strict;
--- a/changemeta.pl Fri Aug 27 19:10:28 2010 +0200 +++ b/changemeta.pl Thu Mar 16 18:00:43 2017 +0100 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w use strict; use XML::LibXML;
--- a/harvestmeta.pl Fri Aug 27 19:10:28 2010 +0200 +++ b/harvestmeta.pl Thu Mar 16 18:00:43 2017 +0100 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w use strict; use XML::SAX;
--- a/makemeta-lib.pl Fri Aug 27 19:10:28 2010 +0200 +++ b/makemeta-lib.pl Thu Mar 16 18:00:43 2017 +0100 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w use strict; use XML::LibXML;
--- a/makemeta-vlp.pl Fri Aug 27 19:10:28 2010 +0200 +++ b/makemeta-vlp.pl Thu Mar 16 18:00:43 2017 +0100 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w use strict; use XML::LibXML;