--- foxridge-archiver/archivecheck.pl	2008/09/10 12:59:45	1.7
+++ foxridge-archiver/archivecheck.pl	2017/03/16 17:00:43	1.8
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;
 
@@ -16,7 +16,7 @@ $|=1;
 #
 
 # 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 %archived_files = ();
 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 {