#!/usr/bin/perl
require 'cgi_common.req';

sub printhead {

smartcat(undef, '/home/virtual/ceoinfo.ru/www/html/header_3.inc');
# smartcat(undef, '/home/virtual/vhs.ru/www/html/left.html');

$|=1;

};

sub printfoot {

$msg2= <<"(FOOT_BLOCK)";

</body>
</html>

(FOOT_BLOCK)

$msg3= <<"(FOOT1_BLOCK)";

   </TD>
    </TR>
</TABLE>
     </td>
     </tr>
     </table>
 </td>
 </table>
<BR>


(FOOT1_BLOCK)

if($noname == 1) {
   print "$msg3\n";
smartcat(undef, '/home/virtual/ceoinfo.ru/www/html/advert_bottom.inc');
smartcat(undef, '/home/virtual/ceoinfo.ru/www/html/menu_bottom.inc');
   
# smartcat(undef, '/home/virtual/vhs.ru/www/html/right.html');
   
} else {
   print "$msg3\n";
smartcat(undef, '/home/virtual/ceoinfo.ru/www/html/advert_bottom.inc');
smartcat(undef, '/home/virtual/ceoinfo.ru/www/html/menu_bottom.inc');

};
$|=1;


};
	    print("Pragma: no-cache\r\n");
	    print("Cache: no-cache\r\n");
#            print("Connection: Close\r\n");
            print("Content-type: text/html; charset=windows-1251\n\n");
            &printhead;

#########################################
# Get the input
   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        $buffer = $ENV{'QUERY_STRING'};
    }
    else {
       read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $form{$name} = $value;
}
$start=$form{'start'};
$increment=$form{'increment'};
if ($increment eq "") { $increment=10; };
$search=$form{'search'};
$noname=$form{'noname'};
$show_pic=1;

#########################################
#
# Debug zone
#



#### Read temporary file ####################
$workdir="./searches/";
$sfile=$workdir.$form{'search'}.".txt";
if (not (-e $sfile)) { 
   print("<H1>Page expired</H1>\n");
   die;
};

open (tfile,$sfile);
@showline2=<tfile>;
close (tfile);
$olen=$#showline2 +1;

if($start > $olen) { $start=0; };

# Make refs line
if($olen > $increment) { 
  $begref=1;
makerefs:
  $endref=$begref+$increment-1;
  if($endref > $olen) { $endref=$olen;};
  $corr_beg=$begref-1;
  $a=$start+1;
  if($begref == $a) {
     $refline.=$begref."-".$endref."\&nbsp;\&nbsp";
  } else {
     $refline.="<a href=\"show.cgi?search=$search\&start=$corr_beg\&increment=$increment\&noname=$noname\">".$begref."-".$endref."</a>\&nbsp;\&nbsp;\n";
  };
  $begref=$begref+$increment;
  if($endref ne $olen) { goto makerefs;};
};
$end=$start+$increment;
if($end > $olen) {$end=$olen;};
$start1=$start+1;





for($i=$start; $i< $end; $i++) {
   $t_dataline="";
   $tmpsortline=$showline2[$i];
   ($itemprice,$itemname,$itemauthor,$itemref,$itemdelivery,$shop,$shoplink,$itempic,$itemakter,$itemdesc) = split(/\|\|/, $tmpsortline);
   $itemprice=~ s/ //;
   $itemname1=$itemname;
   $itemname1=~ s/ /\%20/g;
   if($show_pic == 1) {
     $t_dataline.="\&nbsp;<br><table border=\"0\" cellpadding=\"4\" cellspacing=\"0\" width=\"90\%\">\n";
     $t_dataline.="<tr>\n";
     $t_dataline.="<td width=\"74\" HEIGHT=\"102\" align=center valign=middle><table border=0 cellpadding=0 cellspacing=1 width=72   bgcolor=\"\#C1C1C1\"><tr><td bgcolor=\"\#FFFFFF\"><A HREF=\"nph-redir.cgi?$itemref\" TARGET=\"_blank\"><img src=\"$itempic\"  width=90 height=140 border=0 vspace=0 hspace=0></a></td></tr></table></td>\n";
     $t_dataline.="<td width=\"100\%\" class=bartertxt>";
     $t_dataline.="";
   };
   $t_dataline.="<b>Название:</b> <A HREF=\"nph-redir.cgi?$itemref\" TARGET=\"_blank\">$itemname</A><br>\n";
   $t_dataline.="<B>Автор:</B> $itemauthor<br>\n";
#   $t_dataline.="<B>В ролях:</B> $itemakter<br>\n";
#   $t_dataline.="<B>Описание:</B> $itemdesc<br>\n";
   $t_dataline.="<B>Цена:</B> $itemprice р.<br>\n";
   $t_dataline.="<B>Доставка:</B> $itemdelivery<br>\n";
   $t_dataline.="<B>Магазин:</B> <A HREF=\"nph-redir.cgi?$shoplink\" TARGET=\"_blank\">$shop</A><BR>\n";
   $t_dataline.="<A HREF=\"nph-redir.cgi?$itemref\" TARGET=\"_blank\"><B>КУПИТЬ</B></a>\n";
#   if($noname ne "1") {
#     $t_dataline.="<b>IQRate:</b>\&nbsp;<a href=javascript:ShowStatistic(\'".$itemname1."\',581)>Статистика\&nbsp;по\&nbsp;книге</a><br>";
#     $t_dataline.="<b>IQRate:</b>\&nbsp;<a href=javascript:ShowPrognosys(\'".$itemname1."\',581)>Прогноз\&nbsp;по\&nbsp;книге</a><br>\n";
#   };
   if($show_pic == 1) {
     $t_dataline.="</td></tr></table>\n";
   };
   $t_dataline.="";

   push(@showline, $t_dataline);

};

    #PRINT PARAMETRS

#    print "<div align=\"left\"><table border=\"0\" cellpadding=\"2\" width=\"80%\" cellspacing=\"0\"><tr><td>\n";
    print "<div align=\"left\">\n";
    print "<table align=left cellpadding=10 cellspacing=10 border=0 width=600><tr><td><ol start=$start1>\n";
    $firstline=1;
    $nonempty=0;
    foreach $out (@showline) {
      $nonempty=1;
      if (substr($out,0,3) eq "***" ) {
        if(($firstline == 0) && (substr($out,3,1) ne "!")) {
        
        } else { print ("<hr><p><b>$out</b></p>\n");
         print ("<p><b>$out</b></p>\n");
         $firstline=0;
        };
      } else {
       print ("<li>$out<br></li>\n");
      };
    };
    if($nonempty eq 0) {
      print <<"(EMP_BL)";

<h3>Информации по Вашему запросу не найдено.</h3>

<li>Не все магазины ответили или Вы задали сложный
запрос. Попробуйте увеличить &quot;максимальное
время ожидания ответа магазина&quot; в форме
запроса. Упростить запрос можно указав только
название или его часть. Как показывает практика,
запрос, содержащий режисера и название фильма
обрабатывается намного дольше.</li>

<li>Некоторые магазины не ответили в связи с
недоступностью. Это может быть если в странице
статуса опроса Вы видели сообщение &quot;не ответил&quot;
или &quot;соединение не установлено&quot;. Никто не
может гарантировать 100% качество связи и
постоянную доступность в интернете - попытайтесь
повторить Ваш запрос позднее.</li>

<li>Последнее и самое печальное - такого фильма
действительно нет в опрошенных магазинах.

(EMP_BL)

    }; 
    print "</ol><p align=center>$refline</p></td></tr></table>\n";
#    print "</td></tr><tr><td align=center><p align=center>$refline\n";
#    print "</td></tr></table></div>\n";
    print "<div align=left><table border=0 cellpadding=0 cellspacing=0 width=80\%><tr>\n";
    print "</tr></table></div>\n";
    print "</div>\n";
    &printfoot;
    exit;


sub error { 
    exit;
}