Форум пользователей сервиса "Радуга-Интернет"

Архив сообщений => Сообщения за 2005-2007 гг. => Тема начата: Oleg Reva от 03.03.2006, 20:49:57

Название: Скрипт управления подпиской, linux (+)
Отправлено: Oleg Reva от 03.03.2006, 20:49:57

Для автоматического управления подпиской.
Написан одним из пользователей.
Размещен с его согласия.

#!/usr/local/bin/perl
use LWP;
my $browser;
sub do_POST {
# Parameters:
#  the URL,
#  an arrayref or hashref for the key/value pairs,
#  and then, optionally, any header lines: (key,value, key,value)
$browser = LWP::UserAgent->new( ) unless $browser;
my $resp = $browser->post(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
my ($content, $message, $is_success)=do_POST('http://Deposit_xxxx:password@904.d-
v.ru/?mode=info',['status'=>'-1', 'ch_status'=>'Деактивировать'],);
sleep 5;
my ($content, $message, $is_success)=do_POST('http://Deposit_xxxx:password@904.d-
v.ru/?mode=info',['status'=>'1', 'ch_status'=>'Активировать'],);

Название: Скрипт управления подпиской, linux (+)
Отправлено: ReWire от 25.08.2006, 09:31:56

Подскажите я в Линуксе не бум-бум.

Правда или Враки, что на Линуксе спутниковый Интернет лучше работает или это всё сказки? P.S. Особенно там граббинг хвалят.

Название: Скрипт управления подпиской, linux (+)
Отправлено: alexnov66 от 02.09.2006, 07:58:49

А для WINDOWS из програмистов может кто нибудь написать.

Название: Скрипт управления подпиской, linux (+)
Отправлено: Ingener от 06.09.2006, 21:24:57

Да не плохо бы иметь такую программу.

Название: Скрипт управления подпиской, linux (+)
Отправлено: Anthony Chet от 25.12.2006, 16:16:22

Цитата: Roltd

Для автоматического управления подпиской.
Написан одним из пользователей.
Размещен с его согласия.

my ($content, $message, $is_success)=do_POST('http://Deposit_xxxx:password@904.d-
v.ru/?mode=info',['status'=>'1', 'ch_status'=>'Активировать'],);

Полагаю, что вместо status и ch_status можно подставлять другие переменные? Можно их узнать? И возможные их значения?

Название: Скрипт управления подпиской, linux (+)
Отправлено: BoBkA от 03.02.2007, 20:20:34

так это ж перл, кто запрещает его использовать в Windows, но конечно же LINUX рулит :)

Название: Скрипт управления подпиской, linux (+)
Отправлено: dkzm от 30.04.2007, 20:53:27

не работает.
на базе написанного выше было сделано два скрипта:
- выключения подписки:

use LWP;
my $browser;
sub do_POST {
# Parameters:
# the URL,
# an arrayref or hashref for the key/value pairs,
# and then, optionally, any header lines: (key,value, key,value)
$browser = LWP::UserAgent->new( ) unless $browser;
my $resp = $browser->post(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
my ($content, $message, $is_success)=do_POST('http://@<пароль>@am1-1.d-v.ru/?mode=info',['status'=>'-1', 'ch_status'=>'Деактивировать'],);

- включения:
#!/usr/bin/perl
use LWP;
my $browser;
sub do_POST {
# Parameters:
# the URL,
# an arrayref or hashref for the key/value pairs,
# and then, optionally, any header lines: (key,value, key,value)
$browser = LWP::UserAgent->new( ) unless $browser;
my $resp = $browser->post(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
my ($content, $message, $is_success)=do_POST('http://@'1', 'ch_status'=>'Активировать'],);

Результату-нет.
Если через браузер делаеш даже аналогичный GET-запрос-все работает.
где я ошибаюсь?