Programovani - perl

[yanek]

# OK, tak s barvou ven. Chci takhle obejit posilani SMS pres eurotelackou 
# branu. Protoze oni maji formular, kde nazvy poli se generuji nahodne, tak ten 
# vrchni postup by nemohl fungovat. Takze zbyva postup, ze data se odeslou na 
# muj perlovskej skript, kterej uz vyplni ten formular a odesle jej za me.
# A tak to muze fungovat se vsema operatorama :-)

$socket = IO::Socket::INET->new('www.nejakyweb.cz:80') or die "neni";
$socket->autoflush(1);

$data = 'ppp='.$ppp.'&number='.$cislo.'&message='.$message.'&predcisli=0'.$predvolba;

$delka = length($data);

$header  = "POST http://www.nejakyweb.cz/send.php3 HTTP/1.0\n";
$header .= "Host: www.nejakyweb.cz\n";
$header .= "Accept: application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*\n";
$header .= "Accept-Encoding: gzip, deflate\n";
$header .= "Accept-Language: cs,cz;q=0.5\n";
$header .= "Content-Length: ".$delka."\n";
$header .= "Content-Type: application/x-www-form-urlencoded\n";
$header .= "Pragma: no-cache\n";
$header .= "Referer: http://www.nejakyweb.cz/script.php3\n";
$header .= "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; MSNATLAS01.CZ)\n";
$header .= "\n" . $data . "\n";

print $socket $header;

neco takoveho ?

-- 
[~~~~~~~~ yanek <yanek na yankuv.koniec.sk> ~~~~~~~~~~~~~~~~~~~~]
|  LiNUX-Server/Perl             http://yankuv.koniec.sk/    |
[____________________________________________________________]
Antivirus alert: file .signature infected by signature virus.
Hi! I'm a signature virus! Copy me into your signature file to help me spread!