Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Не могу отправить на пагер аськи сабж через сокет (Perl)?

2.3K
26 декабря 2002 года
lbpf
7 / / 26.12.2002
Я хочу послать на аськин пагер сообщение и вот текст скрипта, но он не работает, вроде проверял все

#!/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 порту

где ошибка и чего я делаю не так?

И второй вопрос : будет ли нормально в аське отображаться русские буквы, если этот скрипт заработает?
2.3K
27 декабря 2002 года
lbpf
7 / / 26.12.2002



Нет ставить дополнительные pm-ки я не могу, нужен именно вариант через сокет

300
27 декабря 2002 года
ReDrum
689 / / 20.04.2000
Цитата:
Originally posted by lbpf


Нет ставить дополнительные pm-ки я не могу, нужен именно вариант через сокет



Если ставить ломает, то на сырец взглянуть

250
27 декабря 2002 года
Joker
1.4K / / 20.02.2000
http://www.icq.com/scripts/WWPMsg.dll
Такой странички не существует..
2.3K
28 декабря 2002 года
lbpf
7 / / 26.12.2002
Цитата:
Originally posted by Joker
http://www.icq.com/scripts/WWPMsg.dll
Такой странички не существует..



Существует: (вы название спутали)
http://wwp.icq.com/scripts/WWPMsg.dll

Люди, помогите я уже неделю с этой аськой парюсь и на пхп и на перле

250
28 декабря 2002 года
Joker
1.4K / / 20.02.2000
Цитата:
Originally posted by lbpf


Существует: (вы название спутали)
http://wwp.icq.com/scripts/WWPMsg.dll

Люди, помогите я уже неделю с этой аськой парюсь и на пхп и на перле


акой тем более меня редеректит туда же куда и твой скрипт: http://wwp.icq.com/whitepages/error/1,,pager_error,00.html

2.3K
03 января 2003 года
lbpf
7 / / 26.12.2002
Цитата:
Originally posted by Joker

акой тем более меня редеректит туда же куда и твой скрипт: 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.: Всех с Новым Годом!

5.5K
11 сентября 2003 года
yanayana
1 / / 11.09.2003
Цитата:
Originally posted by Joker

акой тем более меня редеректит туда же куда и твой скрипт: 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

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог