Mercurial > hg > chronicle
comparison cgi-bin/comments.cgi @ 154:9f91d9377d1a
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 ) || |