#!/usr/local/bin/perl

package joke_inc;

use strict;
use English;
use Tpl;
use CGI qw/:standard/;

sub joke_main {
my $tp=shift;
print "Content-Type: text/html\n\n";
$Tpl::dbg=0;
my @a=localtime();
my $doy=param("doy");
my $now=$a[7];
my $i=$a[7];
$i=$doy if $doy;
my $vip=$i-36;
my $fn=sprintf("jokes/jk_%2s.inc",$vip);
$fn =~ s/ /0/g;
my $jk=Tpl::Load($fn);

#my @J=split /\n/,$jk;


my $nav1=' ';
my $nav2=' ';
my $nav3=' ';
my $nav4=' ';

#$nav1="<a href=\"joke$tp.pl?doy=".($i-1)."\"><font color=black>&lt;&lt;&lt; Предыдущий выпуск</font></a>" if $vip>0;
#$nav2="<a href=\"joke$tp.pl?doy=".($i+1)."\"><font color=black>Следующий выпуск &gt;&gt;&gt;</font></a>" if $i<$a[7];

$nav1="<a href=\"joke$tp.pl?doy=".($i-3)."\"><font color=black>[".($now-$i+3)."]</font></a>" if $vip>0;
$nav2="<a href=\"joke$tp.pl?doy=".($i-2)."\"><font color=black>[".($now-$i+2)."]</font></a>" if $vip>0;
$nav3="<a href=\"joke$tp.pl?doy=".($i-1)."\"><font color=black>[".($now-$i+1)."]</font></a>" if $vip>0;
$nav4="<a href=\"joke$tp.pl?doy=".($i+1)."\"><font color=black>&gt;&gt;&gt;</font></a>" if $i<$a[7];

#my $nav=qq{<table width="100%" cellspacing=0 cellpadding=4 bgcolor=white><tr bgcolor="#e5e5e5"><th align=left>$nav1</th><th align=right>$nav2</th></tr></table>};
my $nav=qq{<table width="100%" cellspacing=0 cellpadding=4 bgcolor=white><tr bgcolor="#e5e5e5"><th align=center>$nav1 $nav2 $nav3 $nav4</th></tr></table>};

my $s="<img src=\"/gfx/header_joke.gif\">$nav<table cellspacing=0 cellpadding=4>";
my $i=0;
for(@$jk) {
$i=1, next if($i==0);
$s.='<tr bgcolor="#f2f2f2">' unless $i&1;
$s.='<tr bgcolor="#ffffff">' if $i&1;
$s.="<td>";
$s.="<div align=right>$_</div><br>" unless $i;
$s.="<b>$i.</b> $_" if $i;
$s.="</td></tr>";
$i++;
}
$s.="</table>$nav";
$s="<!-- joke -->$s<!-- /joke -->";
}

1;