# HG changeset patch
# User casties
# Date 1489683643 -3600
# Node ID 2208ed7370cbb2f36a373bce8f43e9b8a26bc302
# Parent  9d7df218f94c346ecc8752ad1092a4e8b46675f4
updated to Ubuntu Perl paths.

diff -r 9d7df218f94c -r 2208ed7370cb archivecheck.pl
--- 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 {
diff -r 9d7df218f94c -r 2208ed7370cb archiver.pl
--- 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;
 
diff -r 9d7df218f94c -r 2208ed7370cb changemeta.pl
--- 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;
diff -r 9d7df218f94c -r 2208ed7370cb harvestmeta.pl
--- 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;
diff -r 9d7df218f94c -r 2208ed7370cb makemeta-lib.pl
--- 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;
diff -r 9d7df218f94c -r 2208ed7370cb makemeta-vlp.pl
--- 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;
diff -r 9d7df218f94c -r 2208ed7370cb metacheck.pl
--- a/metacheck.pl	Fri Aug 27 19:10:28 2010 +0200
+++ b/metacheck.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;
diff -r 9d7df218f94c -r 2208ed7370cb unarchiver.pl
--- a/unarchiver.pl	Fri Aug 27 19:10:28 2010 +0200
+++ b/unarchiver.pl	Thu Mar 16 18:00:43 2017 +0100
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;