version 1.5, 2004/07/01 10:58:29
|
version 1.6, 2004/07/02 09:43:40
|
Line 48
|
Line 48
|
# Import section: |
# Import section: |
|
|
use strict; |
use strict; |
|
use lib '/home/httpd/lib/perl'; |
use MIME::Entity; |
use MIME::Entity; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
use File::Copy; |
use File::Copy; |
Line 409 sub MailRequest {
|
Line 410 sub MailRequest {
|
|
|
Debug("Done"); |
Debug("Done"); |
} |
} |
sub Cleanup {} |
|
|
# |
|
# Cleans up the detritus that's been created by this |
|
# script (see Implicit inputs below). |
|
# Implicit inputs: |
|
# request.pem - Name of certificate request file in PEM format |
|
# which will be deleted. |
|
# request.txt - Name of textual equivalent of request file |
|
# which will also be deleted. |
|
# hostkey.pem - Encrypted host key which will be deleted. |
|
# hostkey.dec - Decoded host key, which will be deleted. |
|
# |
|
sub Cleanup { |
|
Debug("Cleaning up generated, temporary files"); |
|
unlink("request.pem", "request.txt", "hostkey.pem", "hostkey.dec"); |
|
Debug("done!"); |
|
} |
|
|
|
|
|
|