--- foxridge-archiver/archiver.pl	2005/10/05 13:35:12	1.7
+++ foxridge-archiver/archiver.pl	2017/03/16 17:00:43	1.9
@@ -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.7.2 (ROC 5.10.2005)";
+my $version = "0.7.3 (ROC 10.9.2008)";
 
 # short help
 my $help = "MPIWG archiver $version
@@ -359,7 +359,7 @@ sub delete_all_files {
 logger('START', "archiver $version at $archdate");
 
 # make shure the right user is running this program
-my $user = getlogin;
+my $user = getlogin || getpwuid($<);
 if (($user ne "archive")&&($user ne "root")) {
     logger("WARNING", "you ($user) should be archive or root user to run this program!");
 }