foxridge-archiver/archiver.pl - diff

Return to archiver.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.7, 2005/10/05 13:35:12	version 1.9, 2017/03/16 17:00:43
Line 1	Line 1
#!/usr/local/bin/perl -w	#!/usr/bin/perl -w

use strict;	use strict;

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!");
}	}