Programovani - perl (RESENI)

[František Barančík]

Dne so 8. prosinec 2001 22:48 jste napsal(a):
> # 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'.$predvolb
>a;
>
> $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 ?
To je presne ono, co jsem potreboval!
Diky vsem za spolupraci, ted se aspon poradne vyradim :-)
--
Frantisek Barancik