|
ru.website
- RU.WEBSITE -------------------------------------------------------------------
From : ArTemenko Alexander 2:5020/400 19 Feb 2002 20:41:36
To : Vladimir Kolosov
Subject : Re: Отправка форм
--------------------------------------------------------------------------------
Здравствуй, "Vladimir Kolosov"
<Vladimir.Kolosov@p100.f109.n5061.z2.fidonet.org>! Я сейчас наверное скажу
какую-нибудь глупость:
А я пробовал вот так, и что-то ничего не получилось:
#!/usr/bin/perl -w
use Socket;
$req = "POST /cgi-bin/sendsms.pl HTTP/1.0\nUser-Agent: Mozilla/5.0\nAccept:
text
/html\nAccept: image/gif\nContent-Type:
application/x-www-form-urlencoded\nConte
nt-Length: 24\n\nNum=79026464626\nMSG=Sasha";
print "Hi\n";
$proto = getprotobyname('tcp');
print "Hi\n";
$iaddr = gethostbyname('www.m100.ru');
print "Hi\n";
$port = getservbyname('http', 'tcp');
print "Hi\n";
$sin = sockaddr_in($port, $iaddr);
#$sin = sockaddr_in($port, inet_aton("80.246.72.114"));
print "Hi\n";
print "Proto=$proto Port=$port Addr=$iaddr Sin=$sin\n";
socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
connect(Socket_Handle, $sin);
send(Socket_Handle, $req, 0, $sin);
--
За сим разрешите откланяться, всегда Ваш Александр ArTёменко
ICQ 89538671
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
