removefiles

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: removeFiles
##       Brief: Remove tempory files
## Description: Remove Temporary files in the 'tmpcertsdir' (now unused?)
##  Parameters: 

if ( $cmd !~ /removeFiles/i ) {
        configError( "Wrong Command Usage ($cmd/importReqs)!" );
        exit 1;
}
my $ret;
my $serverDir = getRequired( "serverDir" ); 
my $file = "$serverDir/stuff/lastImport.txt";

print startLogPage( "temporary Files Removal" );

print addLogSection( "Moving stuff/lastImport.txt to stuff/lastImport.txt.bak ...");
if (-e "$file.bak") {
	unlink ("$file.bak");
}

$tools->moveFiles( SRC=>"$file", DEST=>"$file.bak" );

$tools->saveFile( FILENAME=>"$file", DATA=>"" ); 

print addLogLine("Ok.");
print addPreLogLine($ret);
print closeLogSection();

closePage();

1;