#!/usr/bin/perl

   $time1=time;
   $oqsl=$oqs{'Arcadia'};
   $oqsl2=$oqsl."\&Action=Click\&AffiliateID=".$prtid;
#print "<!-- $oqs{'Arcadia'} -->\n";
# Whole string
   $ttok1="td valign=\"baseline\" nowrap>\&nbsp;<font color=\"#000000\">";
   $ttok2="i><font size=\"1\"><b>подробнее";
# Item Name
   $ttok3="font size=\"+1\" color=\"#000000\">";
   $ttok4="</font></b></a><br>";
# Item Author
   $ttok5="b><font size=\"-1\">";
   $ttok6="</font></b>        </div>";
# Item Price
   $ttok7="Цена: <b>";
   $ttok8="\&nbsp;руб.";
# Item Reference 
   $ttok9="<a href=\"book.asp?ID=";
   $ttok10="\" style=\"text-decoration";
# Item delivery conditions
   $ttok11="Доступность:&nbsp;";
   $ttok12="</b></a></font><br>";
# Token to skip record
   $ttok13="";

   $pushline=0;
   $lpath=$oq{'Arcadia'};
   $shop="Arcadia";
   undef @output;
#   &IOsocket;
#   $resultio=IOsocket();

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

if($olen) {

   foreach $outline (@output) {
     if ($outline =~ /$ttok1/) { 
        $inside=1;
#print "<!-- Start token found -->\n";
     };
     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>//;
           $ltk=$ttok3;
           $rtk=$ttok4;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           $itemname=substr($pstring,$p1,$p2);
#print "<!-- Item Name=$itemname -->\n";
           $ltk=$ttok5;
           $rtk=$ttok6;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           $itemauthor=substr $pstring,$p1,$p2;
#print "<!-- Item Author=$itemauthor -->\n";
           $ltk=$ttok7;
           $rtk=$ttok8;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           $itemprice=substr $pstring,$p1,$p2;
#print "<!-- $p1 $p2 Item Price=$itemprice -->\n";
           $ltk=$ttok9;
           $rtk=$ttok10;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           $itemref=substr $pstring,$p1,$p2;
#print "<!-- Item reference=$itemref -->\n";
           $ltk=$ttok11;
           $rtk=$ttok12;
           $p1=index($pstring,$ltk)+length($ltk);
           $p2=index($pstring,$rtk)-$p1;
           $itemdelivery=substr $pstring,$p1,$p2;
           $itemdelivery =~ s/<([^>]|\n)*>//g;
#            $itemdelivery="В результатах поиска не указана. Смотри описание товара.";
# print "<!-- Item Delivery=$itemdelivery -->\n";
#           if ($pstring =~ /$ttok13/go) { 
#             $itemname="";
#             $itemauthor="";
#             $itemprice="";
#             $itemref="";
#             $itemdelivery="";
#           };
           $itempic="http://www.arcadia.ru/images/item/books/small/".$itemref.".jpg";
           $badtok1=">";
           $badtok2="<";
           if(($itemname =~ /$badtok1/) || ($itemname =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop itemname-->\n";
              last;
           };
           if(($itemauthor =~ /$badtok1/) || ($itemauthor =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop author-->\n";
              last;
           };
           if(($itemprice =~ /$badtok1/) || ($itemprice =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop price-->\n";
              last;
           };
           if(($itemref =~ /$badtok1/) || ($itemref =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop ref-->\n";
              last;
           };
           if(($itemdelivery =~ /$badtok1/) || ($itemdelivery =~ /$badtok2/)) {
              push(@showline,"***! Обработка страницы прервана. Неопознанный формат. ***\n");
              print "<!-- Error processing $shop deliv-->\n";
              last;
           };
           $lists++;
           if ($itemname ne "") {
            $itemprice=~ s/,/./;
            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(@showline2,"$itemprice       ||$itemname||$itemauthor||http://www.arcadia.ru/books/book.asp?ID=$itemref\&Action=Click\&AffiliateID=$prtid||$itemdelivery||$shop||$oqsl2||$itempic\n");

## http://www.bolero.ru/cgi-bin/basket.cgi?act_add=yes\&pid=ID_PRODUCT\&num=1\&partner=$prtid">,

           };
           $pstring="";
           $readytoprocess=0;
     };
   };

};

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

1;

