foxridge-archiver/archivecheck.pl - diff

Return to archivecheck.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.6, 2007/03/21 14:21:01	version 1.7, 2008/09/10 12:59:45
Line 16 $\|=1;	Line 16 $\|=1;
#	#

# program version	# program version
my $version = "0.4.3 (21.3.2007 ROC)";	my $version = "0.4.4 (10.9.2008 ROC)";

# read command line parameters	# read command line parameters
my $args = parseargs;	my $args = parseargs;
Line 343 sub compare_files {	Line 343 sub compare_files {
logger("INFO", "archivecheck $version");	logger("INFO", "archivecheck $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 (not (($user eq "archive")\|\|($user eq "root"))) {	if (not (($user eq "archive")\|\|($user eq "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;