Mercurial > hg > chronicle

comparison cgi-bin/comments.cgi @ 99:cd27fd555272

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use a better date + time format.
author Steve Kemp <steve@steve.org.uk>
date Wed, 12 Dec 2007 17:33:22 +0000
parents 3d8b0e615bf3
children a25099606ec5
comparison
equal deleted inserted replaced
98:3d8b0e615bf3 99:cd27fd555272
12 12
13 13
14 14
15 use strict; 15 use strict;
16 use warnings; 16 use warnings;
17
17 use CGI; 18 use CGI;
19 use POSIX qw(strftime);
20
21
18 22
19 # 23 #
20 # The directory to store comments in 24 # The directory to store comments in
21 # 25 #
22 my $COMMENT = $ENV{'DOCUMENT_ROOT'} . "../comments/"; 26 my $COMMENT = $ENV{'DOCUMENT_ROOT'} . "../comments/";
57 61
58 62
59 # 63 #
60 # get the current time 64 # get the current time
61 # 65 #
62 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 66 my $timestr = strftime "%e-%B-%Y-%H:%M:%S", gmtime;
63 localtime(time);
64 67
65 # 68 #
66 # Open the file. 69 # Open the file.
67 # 70 #
68 my $file = $COMMENT . "/" . $id . "." . "$mday-$mon-$year-$hour-$min-$sec"; 71 my $file = $COMMENT . "/" . $id . "." . $timestr;
69 open( FILE, ">", $file ); 72 open( FILE, ">", $file );
70 print FILE "Name: $name\n"; 73 print FILE "Name: $name\n";
71 print FILE "Mail: $mail\n"; 74 print FILE "Mail: $mail\n";
72 print FILE "User-Agent: $ENV{'HTTP_USER_AGENT'}\n"; 75 print FILE "User-Agent: $ENV{'HTTP_USER_AGENT'}\n";
73 print FILE "IP-Address: $ENV{'REMOTE_ADDR'}\n"; 76 print FILE "IP-Address: $ENV{'REMOTE_ADDR'}\n";