Mercurial > hg > chronicle
comparison cgi-bin/comments.cgi @ 237:053c52c4516f
Bugfix fro mColin Zheng
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Sun, 04 May 2008 13:48:29 +0100 |
parents | 52326e71a41e |
children | e1d0a8576342 |
comparison
equal
deleted
inserted
replaced
236:9e72fad938ee | 237:053c52c4516f |
---|---|
137 | 137 |
138 # | 138 # |
139 # Open the file. | 139 # Open the file. |
140 # | 140 # |
141 my $file = $COMMENT . "/" . $id . "." . $timestr; | 141 my $file = $COMMENT . "/" . $id . "." . $timestr; |
142 $file =~ s/[^a-z0-9]/_/gi; | 142 $file =~ s/[^a-z0-9\/]/_/gi; |
143 | 143 |
144 open( FILE, ">", $file ); | 144 open( FILE, ">", $file ); |
145 print FILE "Name: $name\n"; | 145 print FILE "Name: $name\n"; |
146 print FILE "Mail: $mail\n"; | 146 print FILE "Mail: $mail\n"; |
147 print FILE "User-Agent: $ENV{'HTTP_USER_AGENT'}\n"; | 147 print FILE "User-Agent: $ENV{'HTTP_USER_AGENT'}\n"; |