Как включить в http заголовок запроса ip.
HTTP заголовок формуриеться посредством сокетов:
#!/usr/bin/perl
use Socket;
$AF_INET=2;
$SOCK_STREAM=1;
$protocol=(getprotobyname(\'tcp\'))[2];
$end="\\015\\012";
$site="localhost";# Адрес хоста без
http://$port=80;
$addr=(gethostbyname($site))[4];
$addrs=pack (\'S n a4 x8\', $AF_INET, $port, $addr);
$cur=\'/a.jpg\';#имя файла на хосте Например /cgi-bin/cookie.cgi
{print "Content-Type: text/html\\n\\n";
if (!(socket(LOAD,$AF_INET,SOCK_STREAM,$protocol))){
print "Невозможно создать сокет!"; exit;}
if (!(connect(LOAD, $addrs))){print "Невозможно соединиться!"; exit;}
select(LOAD);
$|=1;
select(STDOUT);
print LOAD "GET $cur HTTP/1.0$end";
print LOAD "Content-Type: application/x-www-form-urlencoded$end";
print LOAD "Accept: text/html$end";
print LOAD "Accept: image/jpeg$end";
print LOAD "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)$end";
print LOAD "Accept: image/gif$end";
print LOAD "Accept: image/x-xbitmap$end";
print LOAD "Referer:
http://www.host/$end";
print LOAD "Accept: image/pjpeg$end";
print LOAD "Cookie: nik=uuu; passwd=e789201b865999990c17bf5bc9c15$end";
print LOAD "Host: $site$end";
print LOAD "Authorization: Basic $encoded$end";
print LOAD "$end$end";
@str=
;
print @str;
close (LOAD);
}
