Mercurial > hg > foxridge-archiver

diff archiver.pl @ 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 8b9d91963de7
children 2208ed7370cb
line wrap: on
line diff
--- 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!");
 }