version 1.6, 2007/03/21 14:21:01
|
version 1.7, 2008/09/10 12:59:45
|
Line 18 $|=1;
|
Line 18 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.3.2 (21.3.2007)"; |
my $version = "0.3.3 (10.9.2008)"; |
|
|
# read command line parameters |
# read command line parameters |
my $args = parseargs; |
my $args = parseargs; |
Line 299 sub check_files {
|
Line 299 sub check_files {
|
logger("INFO", "unarchiver $version"); |
logger("INFO", "unarchiver $version"); |
|
|
# 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)&&($user ne "archive")&&($user ne "root")) { |
if (($user)&&($user ne "archive")&&($user ne "root")) { |
logger("ABORT", "you must be archive or root user to run this program!"); |
logger("ABORT", "you must be archive or root user to run this program!"); |
exit 1; |
exit 1; |