#!/usr/local/bin/perl -w -Ilib # модули для получения информации из XML и доступа к # веб-ресурсам, соответственно use CGI qw(:standard); use XML::XPath; use LWP::UserAgent; use HTML::Template::Compiled::Plugin::XMLEscape; use URI::Escape; use Convert::Cyrillic; print "Content-Type: text/html;windows-1251\n\n"; print " Поиск по сайту - Business.Su - Деловой портал СНГ
\"\"\"Деловой
Деловой портал СНГ

в избранное | стартовой 		  Всего объявлений - 5760    Сайтов - 1650    Пользователей - 28739  

Деловой портал СНГ


Поиск по сайту

Карта сайта
 Доски объявлений:   Продажа бизнеса. Коммерческая недвижимость. Аренда Жилая недвижимость Оборудование Партнерство Поиск работы
"; $SrcEncoding="utf8"; $DstEncoding="win"; $query = param("query"); $query =~ s/&//; $query =~ s/"//; $query =~ s/>//; $query =~ s/new( plugin => [qw(HTML::Template::Compiled::Plugin::XMLEscape)], tagstyle => [qw(-classic -comment -asp +tt)], scalarref => \'[%= cdata escape=XML %]', default_escape => 'XML_ATTR', ); my $page = $params {'page'} || '0'; my $query = $params {'query'}; #$query=uri_escape($query); $htc->param( attr => '', cdata => $query, ); my $esc=$htc->output; my $host = $params {'host'} || 'www.yandex.ru'; $htc->param( attr => '', cdata => $host, ); my $ehost=$htc->output; $htc->param( attr => '', cdata => "<< host=\"$ehost\"", ); my $search_tail=$htc->output; #print $search_tail; my $page = $params {'page'} || 0; my $reqid = $params {'request'} || undef; my $ua = LWP::UserAgent->new; $ua -> agent("Bond, James Bond/0.07"); my $exit = 1; $exit = 0 unless ($query eq '' and $reqid eq ''); my $found = 0; my $pages = 10; my $xml; # выводим форму с запросом. $FormToPrint="
Запрос:



"; if ($query and not $exit) { my $reqid_tag = ''; $reqid_tag = " $reqid" if (defined $reqid and $reqid ne ''); # XML запрос my $doc =" $esc $search_tail $reqid_tag $page "; #print $doc; my $req = HTTP::Request -> new ( POST => 'http://xmlsearch.yandex.ru/xmlsearch/'); $req -> content_type ('application/xml'); $req -> content ($doc); my $response = $ua -> request ($req); $xml = $response -> content; if ($response -> is_success) { $xml = XML::XPath -> new ( xml => $xml ); my $error = $xml -> findvalue ('/yandexsearch/response/error'); $reqid = $xml -> findvalue ('/yandexsearch/response/reqid'); my $found = $xml -> findvalue ("/yandexsearch/response/found[\@priority='all']"); my @found = $xml -> findnodes ("/yandexsearch/response/results/grouping/group/doc"); if ("$error" ne '') { $error=Convert::Cyrillic::cstocs ($SrcEncoding,$DstEncoding, "$error"); if($error ne 'Искомая комбинация слов нигде не встречается') { print "

Ошибка: ", $error, "

"; } else { print "

Ничего не найдено!

"; } print $FormToPrint; } else { print "     нашел $found страниц
\n"; print $FormToPrint; print "
    \n"; $toprint=""; foreach (@found) { $toprint.="
  1. "; $toprint.=" findvalue ('title', $_); $toprint.="
    \n"; $toprint.="
      "; my @passages = $xml -> findnodes ('passages/passage', $_); $numpass=1; foreach (@passages) { if($numpass==1) { $toprint.="
    • "; $toprint.=$_ -> string_value; $toprint.="

      • \n"; $numpass=2; } } $toprint.=""; $toprint.=$xml -> findvalue ('url', $_); $toprint.=""; $toprint.="

    2. \n"; } print Convert::Cyrillic::cstocs ($SrcEncoding,$DstEncoding, $toprint); print "
\n"; &print_pager ($found, $reqid, $page); } } else { print warn "response from server not succeed\n\ndetails: ".$response -> {'code'}." ".$response -> {'message'}; print "Внутренняя ошибка сервера.\n\n"; print $FormToPrint; # print $response{'message'}; $exit = 1; } } else { print $FormToPrint; } sub print_pager { my $found_links = shift; my $reqid = shift; my $page = shift || 0; my $links_on_page = shift || 10; print "← предыдущая " unless $page == 0; print " страница № ", $page + 1; print " следующая → " if int($found_links) > ($page + 1) * $links_on_page; } print "		"; print "

Эксклюзив

"; if ($query) { $QueryForYdirect = uri_escape($query); print " "; } print "

\"Rambler's

\"Рейтинг@Mail.ru\"/ 		Добавить новость | Дать объявление | Добавить сайт
\"Business.su

\"НЕДВИЖИМОСТЬ
Все права защищены и охраняются законом - © 2004-2007 Max House Group, JSC
Перепечатка материалов разрешена только со ссылкой на www.Business.su
 Доски объявлений:   Продажа бизнеса. Коммерческая недвижимость. Аренда Жилая недвижимость Оборудование Партнерство Поиск работы 
Поиск по сайту - Таблица предложений о продаже бизнеса и недвижимости - Рейтинг продавцов - Личная страница - Карта сайта - Подписка - FAQ
РЕКЛАМА НА САЙТЕ - Партнерская программа - Контакты - Лицензионное соглашение
";