Revision 10143
Added by Chris Jones about 8 years ago
| src/perl/ldapweb.cgi | ||
|---|---|---|
| 1 |
#!/usr/bin/perl -w
|
|
| 1 |
#!/usr/bin/perl -w |
|
| 2 | 2 |
# |
| 3 | 3 |
# '$RCSfile$' |
| 4 | 4 |
# Copyright: 2001 Regents of the University of California |
| ... | ... | |
| 977 | 977 |
|
| 978 | 978 |
my $mailhost = $properties->getProperty('email.mailhost');
|
| 979 | 979 |
my $sender; |
| 980 |
my $contact; |
|
| 980 | 981 |
$sender = $skinProperties->getProperty("email.sender") or $sender = $properties->getProperty('email.sender');
|
| 981 | 982 |
# Send the email message to them |
| 982 | 983 |
my $smtp = Net::SMTP->new($mailhost); |
Also available in: Unified diff
Remove the inadvertant UTF-8 BOM from the beginning of the file, and initialize the contact variable properly (again).