Mercurial > hg > chronicle
annotate cgi-bin/comments.cgi @ 155:4d2f0d6866e5
Updated the display of the blog comment when using AJAX
| author | Steve Kemp <steve@steve.org.uk> |
|---|---|
| date | Thu, 03 Jan 2008 21:45:58 +0000 |
| parents | 9f91d9377d1a |
| children | 887a460d77d5 |
| rev | line source |
|---|---|
| 98 | 1 #!/usr/bin/perl -w |
| 2 # | |
| 108 | 3 # This is a simple script which is designed to accept comment requests, |
| 4 # and save the details to local text files upon the localhost. | |
| 98 | 5 # |
| 6 # This code is very simple and should be easy to extend with anti-spam | |
| 7 # at a later point. | |
| 8 # | |
| 108 | 9 # |
| 10 ### | |
| 11 # | |
| 12 # NOTE: If you wish to use this you must edit three things at the | |
| 13 # top of the script. | |
| 14 # | |
| 15 # 1. The directory to save the comment data to. | |
| 16 # | |
| 17 # 2. The email address to notify. | |
| 18 # | |
| 19 # 3. The email address to use as the sender. | |
| 20 # | |
| 21 #### | |
| 22 # | |
| 98 | 23 # Steve |
| 24 # -- | |
| 25 # | |
| 26 | |
| 27 | |
| 28 | |
| 29 use strict; | |
| 30 use warnings; | |
|
99
cd27fd555272
Use a better date + time format.
Steve Kemp <steve@steve.org.uk>
parents:
98
diff
changeset
|
31 |
| 98 | 32 use CGI; |
|
99
cd27fd555272
Use a better date + time format.
Steve Kemp <steve@steve.org.uk>
parents:
98
diff
changeset
|
33 use POSIX qw(strftime); |
|
cd27fd555272
Use a better date + time format.
Steve Kemp <steve@steve.org.uk>
parents:
98
diff
changeset
|
34 |
|
cd27fd555272
Use a better date + time format.
Steve Kemp <steve@steve.org.uk>
parents:
98
diff
changeset
|
35 |
| 98 | 36 |
| 37 # | |
| 38 # The directory to store comments in | |
| 39 # | |
| 108 | 40 # my $COMMENT = "/home/www/comments/"; |
| 41 # | |
| 98 | 42 my $COMMENT = $ENV{'DOCUMENT_ROOT'} . "../comments/"; |
| 43 | |
| 108 | 44 # |
| 45 # The notification addresses - leave blank to disable | |
| 46 # | |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
47 my $TO = 'weblog@steve.org.uk'; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
48 my $FROM = 'weblog@steve.org.uk'; |
| 154 | 49 |
| 108 | 50 |
| 51 | |
| 52 | |
| 53 | |
| 98 | 54 |
| 55 # | |
| 56 # Get the parameters from the request. | |
| 57 # | |
| 58 my $cgi = new CGI(); | |
| 154 | 59 my $name = $cgi->param('name') || undef; |
| 60 my $mail = $cgi->param('mail') || undef; | |
| 61 my $body = $cgi->param('body') || undef; | |
| 62 my $id = $cgi->param('id') || undef; | |
| 108 | 63 my $cap = $cgi->param('captcha') || undef; |
| 154 | 64 my $ajax = $cgi->param( "ajax" ) || 0; |
| 65 | |
| 98 | 66 |
| 67 # | |
| 68 # If any are missing just redirect back to the blog homepage. | |
| 69 # | |
| 70 if ( !defined( $name ) || !length( $name ) || | |
| 71 !defined( $mail ) || !length( $mail ) || | |
| 72 !defined( $body ) || !length( $body ) || | |
| 73 !defined( $id ) || !length( $id ) ) | |
| 74 { | |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
75 if ( $ajax ) |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
76 { |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
77 print "Content-type: text/html\n\n"; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
78 print "Missing fields.\n"; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
79 } |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
80 else |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
81 { |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
82 print "Location: http://" . $ENV{'HTTP_HOST'} . "/\n\n"; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
83 } |
| 98 | 84 exit; |
| 85 } | |
| 86 | |
| 108 | 87 # |
| 88 # Does the captcha value contain text? If so spam. | |
| 89 # | |
| 90 if ( defined( $cap ) && length( $cap ) ) | |
| 91 { | |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
92 if ( $ajax ) |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
93 { |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
94 print "Content-type: text/html\n\n"; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
95 print "Missing fields.\n"; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
96 } |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
97 else |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
98 { |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
99 print "Location: http://" . $ENV{'HTTP_HOST'} . "/\n\n"; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
100 } |
| 108 | 101 exit; |
| 102 } | |
| 103 | |
| 98 | 104 |
| 105 # | |
|
123
412506c2de6b
Attempt to recognise paragraphs.
Steve Kemp <steve@steve.org.uk>
parents:
108
diff
changeset
|
106 # Convert the message to crude HTML. |
|
412506c2de6b
Attempt to recognise paragraphs.
Steve Kemp <steve@steve.org.uk>
parents:
108
diff
changeset
|
107 # |
|
412506c2de6b
Attempt to recognise paragraphs.
Steve Kemp <steve@steve.org.uk>
parents:
108
diff
changeset
|
108 $body =~ s/\n$/<br>\n/mg; |
|
412506c2de6b
Attempt to recognise paragraphs.
Steve Kemp <steve@steve.org.uk>
parents:
108
diff
changeset
|
109 |
|
412506c2de6b
Attempt to recognise paragraphs.
Steve Kemp <steve@steve.org.uk>
parents:
108
diff
changeset
|
110 # |
| 98 | 111 # Otherwise save them away. |
| 112 # | |
| 113 # | |
| 114 # ID. | |
| 115 # | |
| 116 if ( $id =~ /^(.*)[\/\\](.*)$/ ){ | |
| 117 $id=$2; | |
| 118 } | |
| 119 | |
| 120 | |
| 121 # | |
| 108 | 122 # Show the header |
| 123 # | |
| 124 print "Content-type: text/html\n\n"; | |
| 125 | |
| 126 | |
| 127 # | |
| 98 | 128 # get the current time |
| 129 # | |
|
99
cd27fd555272
Use a better date + time format.
Steve Kemp <steve@steve.org.uk>
parents:
98
diff
changeset
|
130 my $timestr = strftime "%e-%B-%Y-%H:%M:%S", gmtime; |
| 98 | 131 |
| 108 | 132 |
| 98 | 133 # |
| 134 # Open the file. | |
| 135 # | |
|
99
cd27fd555272
Use a better date + time format.
Steve Kemp <steve@steve.org.uk>
parents:
98
diff
changeset
|
136 my $file = $COMMENT . "/" . $id . "." . $timestr; |
|
155
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
137 $file =~ s/[ \t]//g; |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
138 |
| 98 | 139 open( FILE, ">", $file ); |
| 140 print FILE "Name: $name\n"; | |
| 141 print FILE "Mail: $mail\n"; | |
| 142 print FILE "User-Agent: $ENV{'HTTP_USER_AGENT'}\n"; | |
| 143 print FILE "IP-Address: $ENV{'REMOTE_ADDR'}\n"; | |
| 144 print FILE "\n"; | |
| 145 print FILE $body; | |
| 146 close( FILE ); | |
| 147 | |
| 108 | 148 |
| 149 # | |
| 150 # Send a mail. | |
| 151 # | |
| 152 if ( length($TO) && length($FROM) ) | |
| 153 { | |
|
155
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
154 open ( SENDMAIL, "|/usr/lib/sendmail -t -f $FROM"); |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
155 print SENDMAIL "To: $TO\n"; |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
156 print SENDMAIL "From: $FROM\n"; |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
157 print SENDMAIL "Subject: New Comment [$id]\n"; |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
158 print SENDMAIL "\n\n"; |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
159 print SENDMAIL `cat $file`; |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
160 close( SENDMAIL ); |
| 108 | 161 } |
| 162 | |
| 98 | 163 # |
| 164 # Now show the user the thanks message.. | |
| 165 # | |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
166 if ( $cgi->param( "ajax" ) ) |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
167 { |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
168 print <<EOF; |
|
155
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
169 <h3>Comment Submitted</h3> |
|
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
170 <blockquote> |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
171 <p>Thanks for your comment, it will be made live when the queue is moderated next.</p> |
|
155
4d2f0d6866e5
Updated the display of the blog comment when using AJAX
Steve Kemp <steve@steve.org.uk>
parents:
154
diff
changeset
|
172 </blockquote> |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
173 |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
174 EOF |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
175 exit; |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
176 } |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
177 else |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
178 { |
|
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
179 print <<EOF; |
| 98 | 180 <html> |
| 181 <head> | |
| 182 <title>Thanks For Your Comment</title> | |
| 183 </head> | |
| 184 <body> | |
| 185 <h2>Thanks!</h2> | |
| 186 <p>Your comment will be included the next time this blog is rebuilt.</p> | |
| 187 <p><a href="http://$ENV{'HTTP_HOST'}/">Return to blog</a>.</p> | |
| 188 </body> | |
| 189 </html> | |
| 190 EOF | |
|
150
4a882ba147e4
Updated to allow Ajax to be used for comment submission.
Steve Kemp <steve@steve.org.uk>
parents:
123
diff
changeset
|
191 } |