#!/usr/bin/perl


   $time1=time;
   $oqsl=$oqs{'Ozon'};
# Whole string
   $ttok1="cover_bg_color";
# FORM ACTION=\"/cart.cfm

   $ttok2="HR WIDTH=\"100\%\"";
# Item Name
   $ttok3="BIG>";
   $ttok4="</BIG";
# Item Author
   $ttok5="SMALL>";
   $ttok6="</SMALL";
# Item Price
   $ttok7="Новая цена: ";
   $ttok71="Цена: ";
   $ttok8=" руб.</B";
# Item Reference 
   $ttok9="HREF=\"";
   $ttok10="\"><IMG";
   $ttok14="\" TITLE";
# Item delivery conditions
   $ttok11="STYLE=\"width:200 px;\"><BR>";
#   $ttok11="Наличие:";
   $ttok12="</SMALL></TD></TR>";

# Item picture
   $ttok15="<IMG SRC=\"http://mmedia.ozon.ru/multimedia/books_covers/small/";
   $ttok16=".gif\" WIDTH=60 BORDER=1  ALT=\"Подробнее\"";
# Token to skip record
   $ttok13="Оставить заявку";

   $pushline=0;
   $lpath=$oq{'Ozon'};
   $shop="Ozon";
#   push(@showline,"*** результаты опроса Ozon ***   <A HREF=\"$oq{'Ozon'}\" TARGET=\"_blank\"><small>(Оригинальная поисковая страница магазина)</small></A><br>\n");
   undef @output;
#   &IOsocket;
   $resultio=IOsocket();

   $inside=0;
   $readytoprocess=0;
   $pstring="";
   $olen=$#output +1;
 #  plog("Ozon answer has -  $olen lines");

if($olen) {

   foreach $outline (@output) {
     if ($outline =~ /$ttok1/) { $inside=1;};
     if ($inside == 1) { 
        $pstring.=$outline;
        $pstring=~ s/\n//g;
        $pstring=~ s/\r//g;
#       print ("<!-- $pstring -->\n");
     };
     if (($inside == 1) && ($outline =~ /$ttok2/)) { 
              $inside=0;
              $readytoprocess=1;
#print "\n<!-- Ready to process set -->\n<!-- $pstring -->\n";
     };
     if ($readytoprocess == 1) {
#           $pstring.="\n";
#           $pstring=~ s/<I> <B>NEW!<\/B><\/I>//g;
#           $pstring=~ s/<B>//;
#           $pstring=~ s/<\/B>//;
           $p1=$p2=0;
           $ltk=$ttok3;
           $rtk=$ttok4;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           if ($p2 > 0) { $itemname=substr($pstring,$p1,$p2);
           } else { $itemname="<"; };
           $p1=$p2=0;
           $ltk=$ttok5;
           $rtk=$ttok6;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           if ($p2 > 0) { $itemauthor=substr $pstring,$p1,$p2;
           } else { $itemauthor="<"; plog("Itemauthor error");};
           $itemauthor=~ s/<BR>/ /;
#plog("Item Author=$itemauthor");
           $p1=$p2=0;
           $ltk=$ttok7;
           if(index($pstring,$ltk) < 0) { $ltk=$ttok71; };
           $rtk=$ttok8;
           $ip1=$p1=index($pstring,$ltk)+length($ltk);
           $ip2=$p2=index($pstring,$rtk)-$p1;
           if ($p2 > 0) { $itemprice=substr $pstring,$p1,$p2;
           } else { $itemprice="<"; plog("Itemprice error");};

#plog("Item Price=$itemprice");
           $p1=$p2=0;
           $ltk=$ttok9;
           $rtk=$ttok10;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           if ($p2 > 0) { $itemref=substr $pstring,$p1,$p2;
           } else { $itemref="<"; plog("Itemref error");};
           if($itemref=~ /TITLE/) {
              $rtk=$ttok14;
              $p2=index($pstring,$rtk)-$p1;
              $itemref=substr $pstring,$p1,$p2;
           };
#plog("Item reference=$itemref");
           $p1=$p2=0;
           $ltk=$ttok11;
           $rtk=$ttok12;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           if ($p2 > 0) { $itemdelivery=substr $pstring,$p1,$p2;
           } else { $itemdelivery="<"; plog("Itemdelivery error");};
           $itemdelivery =~ s/<([^>]|\n)*>//g;
#plog("Item Delivery=$itemdelivery \n\n\n$pstring\n\n\n");
           $p1=$p2=0;
           $ltk=$ttok15;
           $rtk=$ttok16;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           $itempic=substr $pstring,$p1,$p2;
           if ($pstring =~ /$ttok13/) { 
             $itemname="";
             $itemauthor="";
             $itemprice="";
             $itemref="";
             $itemdelivery="";
           };
           $badtok1=">";
           $badtok2="<";
           if(($itemname =~ /$badtok1/) || ($itemname =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop Bad itemname-->\n";
              last;
           };
           if(($itemauthor =~ /$badtok1/) || ($itemauthor =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop Bad author-->\n";
              last;
           };
           if(($itemprice =~ /$badtok1/) || ($itemprice =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop Bad itemprice-->\n";
              last;
           };
           if(($itemref =~ /$badtok1/) || ($itemref =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop Bad itemref-->\n";
              last;
           };
           if(($itemdelivery =~ /$badtok1/) || ($itemdelivery =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
 #             plog("Error processing $shop Bad itemdelivery");
              last;
           };
           if(($itempic =~ /$badtok1/) || ($itempic =~ /$badtok2/)) {
              $itempic="/images/blank_cover.gif";
           };
           $lists++;
           if ($itemname ne "") {
            if (index($itemprice,".") <  0) { $itemprice=$itemprice.".";};
            if (index($itemprice,".") == 1) { $itemprice="      ".$itemprice;};
            if (index($itemprice,".") == 2) { $itemprice="     ".$itemprice;};
            if (index($itemprice,".") == 3) { $itemprice="    ".$itemprice;};
            if (index($itemprice,".") == 4) { $itemprice="   ".$itemprice;};
            if (index($itemprice,".") == 5) { $itemprice="  ".$itemprice;};
            if (index($itemprice,".") == 6) { $itemprice=" ".$itemprice;};

#                 push(@showline,"<B>Название: </B><A HREF=\"http://www.ozon.ru$itemref\" TARGET=\"_blank\">$itemname</A><br><B>Автор:</B> $itemauthor<br><B>Цена:</B> $itemprice<br><B>Доставка:</B> $itemdelivery<br>\n");
                  push(@showline2,"$itemprice       ||$itemname||$itemauthor||http://www.ozon.ru$itemref\&partner=$prtid||$itemdelivery||$shop||$oqsl||http://mmedia.ozon.ru/multimedia/books_covers/$itempic.jpg\n");
           };
           $pstring="";
           $readytoprocess=0;
     };
   };

};
print "<!-- end Ozon process -->";
   $time2=time;

1;

