Mercurial > hg > foxridge-archiver

changeset 52:b762b5af6e42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed problem with user recogintion by getlogin
author casties
date Wed, 10 Sep 2008 14:59:45 +0200
parents 116162d2d06e
children 86965c7658a9
files archivecheck.pl archiver.pl unarchiver.pl
diffstat 3 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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;
--- 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!");
 }
--- 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;