Как подменить браузер? Распознает зараза и на перле и на пхп
Работает и очень хорошо:
<form method="POST" action="http://www......." class="subb">
<input type="hidden" name="travel_type" value="1">
<input type="hidden" name="sector1_o" value="aKUN">
<input type="hidden" name="SearchBy" value="columenView">
<input type="hidden" name="mode" VALUE="0">
<input type="hidden" name="m1DP" value="0">
...
<input type="submit" value="Send">
</form>
А когда пытаюсь на перл:
$url = "http://www.......";
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
#$ua->agent('Mozilla/5.0');
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13");
$Headers = new HTTP::Headers(
HTTP_ACCEPT => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
HTTP_ACCEPT_LANGUAGE => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3',
HTTP_KEEP_ALIVE => '115',
GATEWAY_INTERFACE => 'CGI/1.1',
HTTP_ACCEPT_ENCODING => 'gzip,deflate',
HTTP_CONNECTION => 'keep-alive',
REMOTE_PORT => '2300',
SYSTEMROOT => 'C:\WINDOWS',
COMSPEC => 'C:\WINDOWS\system32\cmd.exe',
HTTP_ACCEPT_CHARSET => 'windows-1251,utf-8;q=0.7,*;q=0.7',
WINDIR => 'C:\WINDOWS');
my $req = new HTTP::Request(POST => $url, $Headers);
$req->content_type('application/x-www-form-urlencoded');
$postdata = 'travel_type=1§or1_o=aTFS&module=SB&page=SELECT&...&BalearicUserAnswer=NO& acceptTerms=yes';
$req->content($postdata);
my $res = $ua->request($req);
print "Content-type: text/html\n\n";
print $res->content;
Распознает что робот и говорит:
Object moved to here
Тоже происходит и на ПХП и на Локале и на удалённом сервере.
Спасибо