version 1.8, 2004/07/05 11:36:52
|
version 1.9, 2009/02/02 13:27:45
|
Line 108 sub DecodeEmailFromRequest {
|
Line 108 sub DecodeEmailFromRequest {
|
|
|
Debug("opening $RequestFile"); |
Debug("opening $RequestFile"); |
open REQUEST, "< $RequestFile" or |
open REQUEST, "< $RequestFile" or |
die "Unable to open $RequestFile to parse return email address"; |
die "Unable to open $RequestFile to parse return e-mail address"; |
|
|
Debug("Parsing request file"); |
Debug("Parsing request file"); |
my $line; |
my $line; |
Line 121 sub DecodeEmailFromRequest {
|
Line 121 sub DecodeEmailFromRequest {
|
} |
} |
} |
} |
if(!$found) { |
if(!$found) { |
die "There does not appear to be an email address in $RequestFile"; |
die "There does not appear to be an e-mail address in $RequestFile"; |
} |
} |
|
|
close REQUEST; |
close REQUEST; |
Line 153 sub DecodeEmailFromRequest {
|
Line 153 sub DecodeEmailFromRequest {
|
Debug("Futher pulled out $addressequals"); |
Debug("Futher pulled out $addressequals"); |
|
|
my ($junk, $address) = split(/=/, $addressequals); |
my ($junk, $address) = split(/=/, $addressequals); |
Debug("Parsed final email addresss as $address"); |
Debug("Parsed final e-mail address as $address"); |
|
|
|
|
|
|
Line 260 sub GenerateRequest {
|
Line 260 sub GenerateRequest {
|
print "information. Most of this information is for documentation\n"; |
print "information. Most of this information is for documentation\n"; |
print "purposes only, so it's not critical if you make a mistake.\n"; |
print "purposes only, so it's not critical if you make a mistake.\n"; |
print "However: The generated certificate will be sent to the \n"; |
print "However: The generated certificate will be sent to the \n"; |
print "Email address you provide, and you should leave the optional\n"; |
print "E-mail address you provide, and you should leave the optional\n"; |
print "Challenge password blank.\n"; |
print "Challenge password blank.\n"; |
|
|
my $requestcmd = $SSLCommand." req -newkey rsa:1024 " |
my $requestcmd = $SSLCommand." req -newkey rsa:1024 " |
Line 369 sub MailRequest {
|
Line 369 sub MailRequest {
|
|
|
my $FromEmail = DecodeEmailFromRequest("request.txt"); |
my $FromEmail = DecodeEmailFromRequest("request.txt"); |
if(!$FromEmail) { |
if(!$FromEmail) { |
die "From email address cannot be decoded from certificate request"; |
die "From e-mail address cannot be decoded from certificate request"; |
} |
} |
Debug("Certificate will be sent back to $FromEmail"); |
Debug("Certificate will be sent back to $FromEmail"); |
|
|