version 1.7, 2004/07/02 10:19:59
|
version 1.8, 2004/07/05 11:36:52
|
Line 80 my $DEBUG = 0; # 1 for on, 0 for off.
|
Line 80 my $DEBUG = 0; # 1 for on, 0 for off.
|
# $DEBUG - message is only written if this is true. |
# $DEBUG - message is only written if this is true. |
# |
# |
sub Debug { |
sub Debug { |
my $msg = shift; |
my ($msg) = @_; |
if($DEBUG) { |
if($DEBUG) { |
print STDERR "$msg\n"; |
print STDERR "$msg\n"; |
} |
} |
Line 101 sub Debug {
|
Line 101 sub Debug {
|
sub DecodeEmailFromRequest { |
sub DecodeEmailFromRequest { |
Debug("DecodeEmailFromRequest"); |
Debug("DecodeEmailFromRequest"); |
|
|
my $RequestFile = shift; |
my ($RequestFile) = @_; |
Debug("Request file is called $RequestFile"); |
Debug("Request file is called $RequestFile"); |
|
|
# We need to look for the line that has a "/Email=" in it. |
# We need to look for the line that has a "/Email=" in it. |