Доброе время суток.
Есть задача, передать данные в определенную форму на странице. Что нужно добавить?
Текущий код:
#!/usr/bin/perl -w
use Socket;
$host="
www.zol.ru";
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
# post method send
$link = "/declar_new/add.php";
send (SOCK, "
POST $link\\n
HTTP/1.0\\n
User-Agent: Mozilla/5.0\\n
Accept: text/html\\n
Accept: image/gif\\n
Content-Type: application/x-www-form-urlencoded\\n
Content-Length: 0\\n
title=demo\\n
author=demo\\n
email=demo\\@demo.ru\\n
url=www.demo.ru\\n
class=3\\n
mesg=demo\\n
HOST:$host\\n\\n
", 0);
@data =
;
close(SOCK);
print @data;
[/list]
