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="<a href=\"$name?site=$site&tp=$tp&pg=".($pg-1)."\"><font color=black>&lt;&lt;&lt; Предыдущая страница</font></a>" if -e $fn[0];
$nav2="<a href=\"$name?site=$site&tp=$tp&pg=".($pg+1)."\"><font color=black>Следующая страница &gt;&gt;&gt;</font></a>" if -e $fn[2];

my $nav=qq{<table width="100%" bgcolor="#ffffff" border=0 cellspacing=0><tr bgcolor=\"#e5e5e5\"><td>$nav1</td><td align=right>$nav2</td></tr></table>};

my $s="$nav";
$s.="<table bgcolor='#ffffff' width='100%'>";
my $i=1;
for(@$TXT) {
if( $i&1 || $tp eq 'basn') {
 $s.="<tr bgcolor='#ffffff'>";
} else { 
 $s.="<tr bgcolor='#f2f2f2'>";
}

if ($tp eq 'basn_list') {
 s/=rb/=$site/gs;
}


if ($types{$tp}) {
 $s.="<td><b>$i. </b>$_<br></td>" ;
} else {
 $s.="<td>$_</td>" ;
}
$i++;
} # END FOR
$s.="</table>";
$s.="$nav";

my $menu="<table width='100%' border=0 bgcolor='#ffffff'><tr>";
my $head;

my $head2;

# BEGIN MENU / Local HEADERS
my $nm;

if ($types{$tp}) { # ТОСТЫ
  $nm="Тосты - $types{$tp}";
  $head="<img src=\"/gfx/header_tost.gif\"><br>";
  $head2="<br><center><b> $types{$tp}</b></center>";
  for(keys %types) {
    $menu.="<td bgcolor=\"#e5e5e5\" align=center><a href=\"$name?site=$site&tp=$_\"><font color=black><b>$types{$_}</b></font></a></td>" unless ( $_ eq $tp);
  }
}  


if($tp eq 'basn') {  # BASNI
 $nm="Басни";
 $head2="<br><center><b>Басни</b></center>";
 $menu.="<td align=center><a href=\"$name?site=$site&tp=basn_list\"><font color=black><b>Список Басен</b></font></a></td>"
}

if($tp eq 'Minds') { # Minds
 $nm='Мысли вслух';
 $head2="<br><center><b>$nm</b></center>";
  $menu.="<td>&nbsp;</td>"
}  

if($tp eq 'basn_list') {  # BASNI_LIST
 $nm="Список Басен";
 $head="Список Басен";
 $menu.="<td>&nbsp;</td>"
}

# END MENU / Local HEADERS
$menu.="</tr></table>";

$s="<!-- show --><table width='100%' cellpadding=0 cellspacing=0 border=0 bgcolor='#ffffff'><tr><td align=center><b>$head</b></td></tr></table>$menu $head2 $s $menu<!-- /show -->";


if($site eq 'rla') {
  la_inc::page( $s,
  '<!-- BEGIN LINKEXCHANGE CODE --><center><iframe src="http://leader.linkexchange.com/1/X1510804/showiframe?" width=468 height=60 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no><a href="http://leader.linkexchange.com/1/X1510804/clickle" target="_top"><img width=468 height=60 border=0 ismap alt="" src="http://leader.linkexchange.com/1/X1510804/showle?"></a></iframe><br><a href="http://leader.linkexchange.com/1/X1510804/clicklogo" target="_top"><img src="http://leader.linkexchange.com/1/X1510804/showlogo?" width=468 height=16 border=0 ismap alt=""></a><br></center><!-- END LINKEXCHANGE CODE -->',
  "Юмор > $nm"
  );
} else { 
  rb_inc::page( $s,
  '<!-- BEGIN LINKEXCHANGE CODE --><center><iframe src="http://leader.linkexchange.com/1/X1510804/showiframe?" width=468 height=60 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no><a href="http://leader.linkexchange.com/1/X1510804/clickle" target="_top"><img width=468 height=60 border=0 ismap alt="" src="http://leader.linkexchange.com/1/X1510804/showle?"></a></iframe><br><a href="http://leader.linkexchange.com/1/X1510804/clicklogo" target="_top"><img src="http://leader.linkexchange.com/1/X1510804/showlogo?" width=468 height=16 border=0 ismap alt=""></a><br></center><!-- END LINKEXCHANGE CODE -->'
  );
}
  
  

} # END MAIN

1;