Mercurial > hg > chronicle
changeset 219:52326e71a41e
Ran through perltidy
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Wed, 16 Apr 2008 19:04:45 +0100 |
parents | 62fd800e7777 |
children | 79f30bca8489 |
files | cgi-bin/comments.cgi |
diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/cgi-bin/comments.cgi Wed Apr 16 19:04:28 2008 +0100 +++ b/cgi-bin/comments.cgi Wed Apr 16 19:04:45 2008 +0100 @@ -42,7 +42,7 @@ # # my $COMMENT = "/home/www/comments/"; # -my $COMMENT = $ENV{'DOCUMENT_ROOT'} . "../comments/"; +my $COMMENT = $ENV{ 'DOCUMENT_ROOT' } . "../comments/"; # # The notification addresses - leave blank to disable @@ -56,12 +56,12 @@ # Get the parameters from the request. # my $cgi = new CGI(); -my $name = $cgi->param('name') || undef; -my $mail = $cgi->param('mail') || undef; -my $body = $cgi->param('body') || undef; -my $id = $cgi->param('id') || undef; +my $name = $cgi->param('name') || undef; +my $mail = $cgi->param('mail') || undef; +my $body = $cgi->param('body') || undef; +my $id = $cgi->param('id') || undef; my $cap = $cgi->param('captcha') || undef; -my $ajax = $cgi->param("ajax") || 0; +my $ajax = $cgi->param("ajax") || 0; # @@ -83,7 +83,7 @@ } else { - print "Location: http://" . $ENV{'HTTP_HOST'} . "/\n\n"; + print "Location: http://" . $ENV{ 'HTTP_HOST' } . "/\n\n"; } exit; } @@ -100,7 +100,7 @@ } else { - print "Location: http://" . $ENV{'HTTP_HOST'} . "/\n\n"; + print "Location: http://" . $ENV{ 'HTTP_HOST' } . "/\n\n"; } exit; }