--- foxridge-archiver/archivecheck.pl	2005/12/07 17:31:04	1.5
+++ foxridge-archiver/archivecheck.pl	2008/09/10 12:59:45	1.7
@@ -16,7 +16,7 @@ $|=1;
 #
 
 # program version
-my $version = "0.4.2 (7.12.2005 ROC)";
+my $version = "0.4.4 (10.9.2008 ROC)";
 
 # read command line parameters
 my $args = parseargs;
@@ -205,6 +205,7 @@ sub run_query {
     $archcmd .= " -description='$archname'";
     $archcmd .= " '$dirquery'";
 
+    logger('INFO', "querying TSM server for $dirquery, please wait...");
     my $archcnt = 0;
     print LOG "CMD: $archcmd\n";
     if (open ARCH, "$archcmd 2>&1 |") {
@@ -342,7 +343,7 @@ sub compare_files {
 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;