Mercurial > hg > chronicle

comparison cgi-bin/comments.cgi @ 154:9f91d9377d1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace cleanups
author Steve Kemp <steve@steve.org.uk>
date Thu, 03 Jan 2008 21:44:20 +0000
parents 4a882ba147e4
children 4d2f0d6866e5
comparison
equal deleted inserted replaced
153:3f0bf6fe2825 154:9f91d9377d1a
44 # 44 #
45 # The notification addresses - leave blank to disable 45 # The notification addresses - leave blank to disable
46 # 46 #
47 my $TO = 'weblog@steve.org.uk'; 47 my $TO = 'weblog@steve.org.uk';
48 my $FROM = 'weblog@steve.org.uk'; 48 my $FROM = 'weblog@steve.org.uk';
49 # 49
50 50
51 51
52 52
53 53
54 54
55 # 55 #
56 # Get the parameters from the request. 56 # Get the parameters from the request.
57 # 57 #
58 my $cgi = new CGI(); 58 my $cgi = new CGI();
59 my $name = $cgi->param('name') || undef; 59 my $name = $cgi->param('name') || undef;
60 my $mail = $cgi->param('mail') || undef; 60 my $mail = $cgi->param('mail') || undef;
61 my $body = $cgi->param('body') || undef; 61 my $body = $cgi->param('body') || undef;
62 my $id = $cgi->param('id') || undef; 62 my $id = $cgi->param('id') || undef;
63 my $cap = $cgi->param('captcha') || undef; 63 my $cap = $cgi->param('captcha') || undef;
64 my $ajax = $cgi->param( "ajax" ) || 0; 64 my $ajax = $cgi->param( "ajax" ) || 0;
65
65 66
66 # 67 #
67 # If any are missing just redirect back to the blog homepage. 68 # If any are missing just redirect back to the blog homepage.
68 # 69 #
69 if ( !defined( $name ) || !length( $name ) || 70 if ( !defined( $name ) || !length( $name ) ||