Cgi Message Board Error

Time and date looks like this..d.d.d d:d

[Par5Golf]

Is there any thing I can do to to make it work let em know thanks....

Eric

here is what I got...

sub get_time
{
use Time::localtime;
my $date = sprintf("d", localtime->mday());
my $month = sprintf("d", localtime->mon() + 1);
my $uyear = sprintf("d", localtime->year() + 1900);
$fyear = sprintf("d", $uyear % 100);
my $hour = sprintf("d", localtime->hour());
my $minute = sprintf("d", localtime->min());
$time_string = "$month.$date.$fyear $hour:$minute";
}

[cminblues]

Quick dirt answer:

$date = get_time();
print "$date\n";
exit 0;
sub get_time
{
 my @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
 my @months = ('January','February','March','April','May','June','July',
 'August','September','October','November','December');
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 if ($hour < 10) { $hour = "0$hour"; }
 if ($min < 10) { $min = "0$min"; }
 if ($sec < 10) { $sec = "0$sec"; }
 $year =~ s/^1/20/;
 return "$months[$mon].$days[$wday].$year $hour:$min";
}

But sure you want this format? :)

cminblues

[Par5Golf]

Well i am not really sure if it is what i want but ill try anything at this point...

ill let ya know how it goes....

Thanks

Par5golf

[hiker_jjw]

Use $year += 1900; instead!

sub get_date
{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$date);
my (@days, @months);
@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
'Friday','Saturday');
@months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$year += 1900;
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$date = "$days[$wday], $months[$mon] $mday, $year at $hour\:$min\:$sec";
return $date;
}