Mercurial > hg > chronicle
comparison cgi-bin/comments.cgi @ 244:aaff32519e78
Perltidied
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Fri, 16 May 2008 17:41:26 +0100 |
parents | e1d0a8576342 |
children | 9c05c34e7e8f d2ab0ff77660 |
comparison
equal
deleted
inserted
replaced
243:855f04717521 | 244:aaff32519e78 |
---|---|
52 | 52 |
53 # | 53 # |
54 # Find sendmail | 54 # Find sendmail |
55 # | 55 # |
56 my $SENDMAIL = undef; | 56 my $SENDMAIL = undef; |
57 foreach my $file ( qw ! /usr/lib/sendmail /usr/sbin/sendmail ! ) | 57 foreach my $file (qw ! /usr/lib/sendmail /usr/sbin/sendmail !) |
58 { | 58 { |
59 $SENDMAIL = $file if ( -x $file ); | 59 $SENDMAIL = $file if ( -x $file ); |
60 } | 60 } |
61 | 61 |
62 | 62 |
160 | 160 |
161 | 161 |
162 # | 162 # |
163 # Send a mail. | 163 # Send a mail. |
164 # | 164 # |
165 if ( length($TO) && length($FROM) && defined( $SENDMAIL ) ) | 165 if ( length($TO) && length($FROM) && defined($SENDMAIL) ) |
166 { | 166 { |
167 open( SENDMAIL, "|$SENDMAIL -t -f $FROM" ); | 167 open( SENDMAIL, "|$SENDMAIL -t -f $FROM" ); |
168 print SENDMAIL "To: $TO\n"; | 168 print SENDMAIL "To: $TO\n"; |
169 print SENDMAIL "From: $FROM\n"; | 169 print SENDMAIL "From: $FROM\n"; |
170 print SENDMAIL "Subject: New Comment [$id]\n"; | 170 print SENDMAIL "Subject: New Comment [$id]\n"; |