package show;
use strict;
# use joke_inc;
use rb_inc;
use la_inc;
use Tpl;
use CGI qw/:standard/;
$Tpl::dbg=0;
sub show {
my %types=(
wise =>"Умные",
man =>"Мужские",
woman=>"Женские",
misc =>"Разные",
);
# Load Parameters
# Default: rb:Man tosts:page#1
my $name='show.pl';
my $site=param("site")|| "rb";
my $tp =param("tp") || "man";
my $pg =param("pg") || 1;
print "Content-Type: text/html\n\n";
# prev / this / next pages
my @fn=( sprintf("jokes/".$tp."_%2s.inc",$pg-1),
sprintf("jokes/".$tp."_%2s.inc",$pg),
sprintf("jokes/".$tp."_%2s.inc",$pg+1),
);
s/ /0/g for @fn; # fix zeros
$/="\n\n";
my $TXT=Tpl::Load($fn[1]);
my $nav1=' ';
my $nav2=' ';
$nav1="<<< Предыдущая страница" if -e $fn[0];
$nav2="Следующая страница >>>" if -e $fn[2];
my $nav=qq{
};
my $s="$nav";
$s.="";
my $i=1;
for(@$TXT) {
if( $i&1 || $tp eq 'basn') {
$s.="";
} else {
$s.="
";
}
if ($tp eq 'basn_list') {
s/=rb/=$site/gs;
}
if ($types{$tp}) {
$s.="$i. $_
| " ;
} else {
$s.="$_ | " ;
}
$i++;
} # END FOR
$s.="
";
$s.="$nav";
my $menu="";
my $head;
my $head2;
# BEGIN MENU / Local HEADERS
my $nm;
if ($types{$tp}) { # ТОСТЫ
$nm="Тосты - $types{$tp}";
$head="
";
$head2="
$types{$tp}";
for(keys %types) {
$menu.="$types{$_} | " unless ( $_ eq $tp);
}
}
if($tp eq 'basn') { # BASNI
$nm="Басни";
$head2="
Басни";
$menu.="Список Басен | "
}
if($tp eq 'Minds') { # Minds
$nm='Мысли вслух';
$head2="
$nm";
$menu.=" | "
}
if($tp eq 'basn_list') { # BASNI_LIST
$nm="Список Басен";
$head="Список Басен";
$menu.=" | "
}
# END MENU / Local HEADERS
$menu.="
";
$s="$menu $head2 $s $menu";
if($site eq 'rla') {
la_inc::page( $s,
'

',
"Юмор > $nm"
);
} else {
rb_inc::page( $s,
'

'
);
}
} # END MAIN
1;