HTML
my %hash = (
network => $self->{cfg}->{network},
maintainer => $self->{cfg}->{maintainer},
days => $self->{stats}->{days},
nicks => scalar keys %{ $self->{stats}->{lines} }
);
print OUTPUT "
" . $self->_template_text('pagetitle1', %hash) . "";
print OUTPUT "
";
print OUTPUT $self->_template_text('pagetitle2', %hash);
sub timefix
{
my $self = shift;
my ($timezone, $sec, $min, $hour, $mday, $mon, $year, $wday, $month, $day, $tday, $wdisplay, @month, @day, $timefixx, %hash);
$month = $self->_template_text('month', %hash);
$day = $self->_template_text('day', %hash);
@month = split(" ", $month);
@day = split(" ", $day);
# Get the Date from the users computer
$timezone = $self->{cfg}->{timeoffset} * 3600;
($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;
}
print OUTPUT "$day[$wday] $mday $month[$mon] $year - $hour:$min:$sec\n";
}
$self->timefix();
print OUTPUT "
" . $self->_template_text('pagetitle3', %hash) . "
";
}
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}