Mercurial > hg > chronicle

comparison cgi-bin/comments.cgi @ 237:053c52c4516f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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";