#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; use HTTP::Headers; use strict; my $URL = "http://top100.rambler.ru/cgi-bin/set_title.cgi"; my $ua = LWP::UserAgent->new; push @{ $ua->requests_redirectable }, 'POST'; my $resp = $ua->post($URL, Content => { 'id' => '3031414', 'code' => 'e8100d22ddb1d85c0953feee823feeb5', 'announce' => 'Новый анонс в кодировке koi8-r', 'announce_url => 'http://mysite.ru/news/daily_report.html', } ); my $status = "unknown error"; if($resp->is_success && $resp->content =~ m/status\s+(.*)$/) { $status = $1; } ($status eq "ok") ? print "Анонс успешно изменен.\n" : print "Ошибка при изменении анонса: $status.\n";
ИП Саксонов В.Ю
СтройПластСервис
  Главная                                                                                                                        I Каталог строительных сайтов
Яндекс.Метрика
Рейтинг@Mail.ru
г.Пенза
ул.  Циолковского,  19/31
тел.: 
8 (8412) 49-51-17
тел. сот.: 
89272891230
e-mail:    
sv-sps@ya.ru
Мы в социальных сетях: