Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added bcc support to email facility.

Browse Source
This commit is contained in:
Chris 2011-09-21 15:23:34 +01:00
parent 463b572112
commit 5cfac6b500
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Template.pm
View File

@ -449,6 +449,7 @@ sub email_template {
$email = "From: ".$args -> {"***from***"}."\n"; $email = "From: ".$args -> {"***from***"}."\n";
$email .= "To: ".$args -> {"***to***"}."\n"; $email .= "To: ".$args -> {"***to***"}."\n";
$email .= "Cc: ".$args -> {"***cc***"}."\n" if($args -> {"***cc***"}); $email .= "Cc: ".$args -> {"***cc***"}."\n" if($args -> {"***cc***"});
$email .= "Bcc: ".$args -> {"***bcc***"}."\n" if($args -> {"***bcc***"});
$email .= "Subject: ".$args -> {"***subject***"}."\n"; $email .= "Subject: ".$args -> {"***subject***"}."\n";
$email .= "Date: ".strftime($args -> {"***date***"})."\n" if($args -> {"***date***"}); $email .= "Date: ".strftime($args -> {"***date***"})."\n" if($args -> {"***date***"});
$email .= "\n"; $email .= "\n";