Project

General

Profile

Revision 10143

Added by Chris Jones over 4 years ago

Remove the inadvertant UTF-8 BOM from the beginning of the file, and initialize the contact variable properly (again).

View differences:

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