Mercurial > hg > chronicle

comparison cgi-bin/comments.cgi @ 244:aaff32519e78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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";