HTML
my %hash = (
network => $self->{conf}->{network},
maintainer => $self->{conf}->{maintainer},
days => $stats->{days},
nicks => scalar keys %{ $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->{conf}->{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
} # the time as PM
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;
my ($stats) = @_;
print OUTPUT <
Stats generated by pisg $self->{conf}->{version}
pisg by Morten "LostStar" Brix Pedersen and others
Stats generated in $stats->{processtime}