#!/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="<<< Предыдущий выпуск" if $vip>0; #$nav2="Следующий выпуск >>>" if $i<$a[7]; $nav1="[".($now-$i+3)."]" if $vip>0; $nav2="[".($now-$i+2)."]" if $vip>0; $nav3="[".($now-$i+1)."]" if $vip>0; $nav4=">>>" if $i<$a[7]; #my $nav=qq{
$nav1$nav2
}; my $nav=qq{
$nav1 $nav2 $nav3 $nav4
}; my $s="$nav"; my $i=0; for(@$jk) { $i=1, next if($i==0); $s.='' unless $i&1; $s.='' if $i&1; $s.=""; $i++; } $s.="
"; $s.="
$_

" unless $i; $s.="$i. $_" if $i; $s.="
$nav"; $s="$s"; } 1;