sendmail

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: 
##       Brief: 
## Description: 
##  Parameters: 

if ( $cmd !~ /sendMail/i ) {
        configError( "Wrong Command Usage ($cmd/importReqs)!" );
        exit 1;
}

my $serverDir = getRequired( 'ServerDir' );
	
if( ($config->getParam('warnuser'))->{VALUES}->[0] ne "yes" ) {
	configError("Command disabled by Configuration File (warnuser)", 212);
	exit 212;
};

print startLogPage( "E-Mail Sending Page" );
if( (warnUsers( $serverDir ) ) == -1 ) {
	configError("Error: Failed Sending Mail to Users!<BR>") ;
};
print "</OL></UL></FONT>\n";
closePage();

1;