In the following chunk,
($sec, $min, $hour, $wday, $month, $year) = (localtime)[0..5];
1: $year += 1900;
2: $wday = "0" . $wday if $wday < 10; # adds a leading zero , not needed
3: $month++; # perl counts from -1 on occasion
4: $month = "0" . $month if $month < 10; # same as above
# this line makes line 2 and 4 unnecessary, better style to handle it with printf (?)
"On %02d/%02d/%04d At %d:%02d you wrote:<br>\n\n", $month, $wday, $year, $hour, $min;
----
Also I am creating unique files and was thinking of the following:
$unique_file_name 'fourm'. (localtime) . '.html';
is there a better way of doing this, I am saving each entry froma web based guest book
as
a separate .html file. So if the same person submits another entry, I don't want that
to overwrite any older files, so I can't use their name for the file name with out
some sort of
'key'... any comments.
Regards,
Dave G.
--Yep PERL what else can you do on a rainy day :)
