# HG changeset patch
# User casties
# Date 1221051585 -7200
# Node ID b762b5af6e42f44879307fc97de27053896fb077
# Parent  116162d2d06ec4fc105f05d658aa51580edb9444
fixed problem with user recogintion by getlogin

diff -r 116162d2d06e -r b762b5af6e42 archivecheck.pl
--- a/archivecheck.pl	Wed Mar 21 15:22:27 2007 +0100
+++ b/archivecheck.pl	Wed Sep 10 14:59:45 2008 +0200
@@ -16,7 +16,7 @@
 #
 
 # program version
-my $version = "0.4.3 (21.3.2007 ROC)";
+my $version = "0.4.4 (10.9.2008 ROC)";
 
 # read command line parameters
 my $args = parseargs;
@@ -343,7 +343,7 @@
 logger("INFO", "archivecheck $version");
 
 # make shure the right user is running this program
-my $user = getlogin;
+my $user = getlogin || getpwuid($<) ;
 if (not (($user eq "archive")||($user eq "root"))) {
     logger("ABORT", "you must be archive or root user to run this program!");
     exit 1;
diff -r 116162d2d06e -r b762b5af6e42 archiver.pl
--- a/archiver.pl	Wed Mar 21 15:22:27 2007 +0100
+++ b/archiver.pl	Wed Sep 10 14:59:45 2008 +0200
@@ -16,7 +16,7 @@
 #
 
 # 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 @@
 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!");
 }
diff -r 116162d2d06e -r b762b5af6e42 unarchiver.pl
--- a/unarchiver.pl	Wed Mar 21 15:22:27 2007 +0100
+++ b/unarchiver.pl	Wed Sep 10 14:59:45 2008 +0200
@@ -18,7 +18,7 @@
 #
 
 # program version
-my $version = "0.3.2 (21.3.2007)";
+my $version = "0.3.3 (10.9.2008)";
 
 # read command line parameters
 my $args = parseargs;
@@ -299,7 +299,7 @@
 logger("INFO", "unarchiver $version");
 
 # make shure the right user is running this program
-my $user = getlogin;
+my $user = getlogin || getpwuid($<);
 if (($user)&&($user ne "archive")&&($user ne "root")) {
     logger("ABORT", "you must be archive or root user to run this program!");
     exit 1;