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{
$nav1$nav2
}; 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.="" ; } else { $s.="" ; } $i++; } # END FOR $s.="
$i. $_
$_
"; $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.="" 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.="
$types{$_}Список Басен  
"; $s="
$head
$menu $head2 $s $menu"; if($site eq 'rla') { la_inc::page( $s, '


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


' ); } } # END MAIN 1;