Не могу отправить на пагер аськи сабж через сокет (Perl)?
#!/usr/bin/perl -w
$from="Vasya Pupkin";
$fromemail="www@mail.ru";
$subject="tema";
$to='1234567';
$body='soobshenie';
$submit="Send Message";
$ref="http://wwp.icq.com/$to";
# формирование заголовка
$PostData=
"from=".$from."&".
"fromemail=".$fromemail."&".
"subject=".$subject."&".
"body=".$body."&".
"to=".$to."&".
"submit=".$submit;
$len=length($PostData);
$nn="\r\n";
$zapros=
"POST /scripts/WWPMsg.dll HTTP/1.0".$nn.
"Referer: $ref".$nn.
"Content-Type: applicatiom/x-www-form-urlencoded".$nn.
"Content-Length: $len".$nn.
"Host: wwp.icq.com".$nn.
"Accept: */*".$nn.
"Accept-Encoding: gzip, deflate".$nn.
"Connection: Keep-Alive".$nn.
"User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT)".$nn.
"".$nn.
"$PostData";
$remote_host="wwp.icq.com";
$remote_port=80;
use Socket;
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp');
$iaddr = inet_aton($remote_host);
$paddr = sockaddr_in($remote_port, $iaddr);
connect(SOCK, $paddr) or die "No answer";
send (SOCK, $zapros, 0);
@data=<SOCK>;
print "@data";
close(SOCK);
и вот чего я вижу после выполнения
####################################
HTTP/1.1 301 Moved Permanently
Date: Thu, 26 Dec 2002 07:42:40 GMT
Server: Apache/1.3.26 (Unix) mod_ssl/2.8.10 OpenSSL/0.9.6g
Location: /whitepages/error/1,,pager_error,00.html
P3P: CP="ONL UNI COM PHY NAV INT DEM CURo OUR"
Cache-Control: max-age=0
Expires: Thu, 26 Dec 2002 07:42:40 GMT
Connection: close
Content-Type: text/html
хотя http://wwp.icq.com телнетится по 80 порту
где ошибка и чего я делаю не так?
И второй вопрос : будет ли нормально в аське отображаться русские буквы, если этот скрипт заработает?
http://search.cpan.org/author/JMUHLICH/Net-ICQ-0.16/lib/Net/ICQ.pm
Нет ставить дополнительные pm-ки я не могу, нужен именно вариант через сокет
Нет ставить дополнительные pm-ки я не могу, нужен именно вариант через сокет
Если ставить ломает, то на сырец взглянуть
Такой странички не существует..
Существует: (вы название спутали)
http://wwp.icq.com/scripts/WWPMsg.dll
Люди, помогите я уже неделю с этой аськой парюсь и на пхп и на перле
Существует: (вы название спутали)
http://wwp.icq.com/scripts/WWPMsg.dll
Люди, помогите я уже неделю с этой аськой парюсь и на пхп и на перле
акой тем более меня редеректит туда же куда и твой скрипт: http://wwp.icq.com/whitepages/error/1,,pager_error,00.html
акой тем более меня редеректит туда же куда и твой скрипт: http://wwp.icq.com/whitepages/error/1,,pager_error,00.html
В общем помучился я еще немного, написал письмо тому кто скрипт по отправке аськи делал(на ПХП). Он мне ответил, что данные отправляемой формы сейчас уже не актуальны, на сервере icq все уже поменялось.
И я сделал так:
1) Поставил модуль NET:ICQ2000 http://cpan.org
2) Поставил прогу vICQ - ICQ - клиент из командной строки http://gonzo.kiev.ua/projects/vicq/
3) завел новый ICQ-ный UIN для vICQ и настроил vICQ - довольно простая настройка (conf-файл)
и написал пару строчек на перле:
#!/usr/bin/perl
$body="Супер-пупер\n Сообщение!";
$body=~ s/\n/\\n/g; #чтобы переводы строки нормально отображались
$icq="№ аськи кому шлем сообщение";
$subject="msg $icq/$body"; #такой формат команды для vICQ
$pid=open(WRITE, "|vicq -b -o -t 5");
print WRITE $subject;
close(WRITE);
Вот собссно и все. Во время выполнения она коннектится к icq.com, авторизуется, отправляет сабж, и после этого отваливается.
:) :)
P.S.: Всех с Новым Годом!
акой тем более меня редеректит туда же куда и твой скрипт: http://wwp.icq.com/whitepages/error/1,,pager_error,00.html
дык параметров нет, поробуй так, точно должно сработать, я пробовала, только вставь номер своей аськи
http://wwp.icq.com/scripts/WWPMsg.dll?to=135639015&Send=Send Message&from=11&fromemail=11&body=11