version 1.7, 2005/10/05 13:35:12
|
version 1.8, 2008/09/10 12:59:45
|
Line 16 $|=1;
|
Line 16 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.7.2 (ROC 5.10.2005)"; |
my $version = "0.7.3 (ROC 10.9.2008)"; |
|
|
# short help |
# short help |
my $help = "MPIWG archiver $version |
my $help = "MPIWG archiver $version |
Line 359 sub delete_all_files {
|
Line 359 sub delete_all_files {
|
logger('START', "archiver $version at $archdate"); |
logger('START', "archiver $version at $archdate"); |
|
|
# make shure the right user is running this program |
# make shure the right user is running this program |
my $user = getlogin; |
my $user = getlogin || getpwuid($<); |
if (($user ne "archive")&&($user ne "root")) { |
if (($user ne "archive")&&($user ne "root")) { |
logger("WARNING", "you ($user) should be archive or root user to run this program!"); |
logger("WARNING", "you ($user) should be archive or root user to run this program!"); |
} |
} |