Скрипт управления подпиской, linux (+)

[Oleg Reva]

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

#!/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'=>'Активировать'],);

[ReWire]

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

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

[alexnov66]

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

[Ingener]

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

[Anthony Chet]

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

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

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

[BoBkA]

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

[dkzm]

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

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-запрос-все работает.
где я ошибаюсь?