HTML
_html("
$title");
_html("
");
_html($self->_template_text('pagetitle2', %hash) . " " . $self->get_time());
_html("
" . $self->_template_text('pagetitle3', %hash) . "
");
}
sub get_time
{
my $self = shift;
my ($tday, %hash);
my $month = $self->_template_text('month', %hash);
my $day = $self->_template_text('day', %hash);
my @month = split(" ", $month);
my @day = split(" ", $day);
# Get the Date from the users computer
my $timezone = $self->{cfg}->{timeoffset} * 3600;
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time+$timezone);
$year += 1900; # Y2K Patch
$min =~ s/^(.)$/0$1/; # Fixes the display of mins/secs below
$sec =~ s/^(.)$/0$1/; # it displays 03 instead of 3
if ($hour > '23') { # Checks to see if it Midnight
$hour = 12; # Makes it display the hour 12
$tday = "AM"; # Display AM
} elsif($hour > '12') { # Get rid of the Military time and
$hour -= 12; # put it into normal time
$tday = "PM"; # If past Noon and before Midnight set
} else {
$tday = "AM"; # If it's past Midnight and before Noon
} # set the time as AM
# Use 24 hours pr. day
if ($tday eq "PM" && $hour < '12') {
$hour += 12;
}
return "$day[$wday] $mday $month[$mon] $year - $hour:$min:$sec";
}
sub _htmlfooter
{
my $self = shift;
print OUTPUT <
Stats generated by pisg $self->{cfg}->{version}
pisg by Morten Brix Pedersen and others
Stats generated in $self->{stats}->{processtime}