Mercurial > hg > chronicle

comparison cgi-bin/comments.cgi @ 219:52326e71a41e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ran through perltidy
author Steve Kemp <steve@steve.org.uk>
date Wed, 16 Apr 2008 19:04:45 +0100
parents e0ef0f218600
children 053c52c4516f
comparison
equal deleted inserted replaced
218:62fd800e7777 219:52326e71a41e
40 # NOTE: This should be writeable to the www-data user, and shouldn't 40 # NOTE: This should be writeable to the www-data user, and shouldn't
41 # be inside your web-root - or you open up a security hole. 41 # be inside your web-root - or you open up a security hole.
42 # 42 #
43 # my $COMMENT = "/home/www/comments/"; 43 # my $COMMENT = "/home/www/comments/";
44 # 44 #
45 my $COMMENT = $ENV{'DOCUMENT_ROOT'} . "../comments/"; 45 my $COMMENT = $ENV{ 'DOCUMENT_ROOT' } . "../comments/";
46 46
47 # 47 #
48 # The notification addresses - leave blank to disable 48 # The notification addresses - leave blank to disable
49 # 49 #
50 my $TO = 'weblog@steve.org.uk'; 50 my $TO = 'weblog@steve.org.uk';
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 #
68 # If any are missing just redirect back to the blog homepage. 68 # If any are missing just redirect back to the blog homepage.
69 # 69 #
81 print "Content-type: text/html\n\n"; 81 print "Content-type: text/html\n\n";
82 print "Missing fields.\n"; 82 print "Missing fields.\n";
83 } 83 }
84 else 84 else
85 { 85 {
86 print "Location: http://" . $ENV{'HTTP_HOST'} . "/\n\n"; 86 print "Location: http://" . $ENV{ 'HTTP_HOST' } . "/\n\n";
87 } 87 }
88 exit; 88 exit;
89 } 89 }
90 90
91 # 91 #
98 print "Content-type: text/html\n\n"; 98 print "Content-type: text/html\n\n";
99 print "Missing fields.\n"; 99 print "Missing fields.\n";
100 } 100 }
101 else 101 else
102 { 102 {
103 print "Location: http://" . $ENV{'HTTP_HOST'} . "/\n\n"; 103 print "Location: http://" . $ENV{ 'HTTP_HOST' } . "/\n\n";
104 } 104 }
105 exit; 105 exit;
106 } 106 }
107 107
108 108