Гном-апплет проверки баланса на БВК

ТруЪ и нетруЪ версии.

Отличаются друг от друга наличием окошка настроек и корявостью кода.

Напомню что есть так же консольный скрипт для той же цели.

Скрипт проверки баланса на БВК

Всвязи с переходом на CDMA-интернет в качестве основного, снова возникла необходимость следить за состоянием баланса.

Около полугода назад я было взялся сам писать такой скрипт на питоне, знаний не хватило. А сегодня нашел уже готовый в интернете. Лёгкий взмах напильником и он даже заработал :)

Собственно вот.

#!/usr/bin/perl -w
#############################################################
##
## BWC (http://www.bwc.ru) balance checker
## by Qwadrat, qwadrat@gmail.com
## Modified by M0nochr0me, m0nochr0mex@gmail.com
##
#############################################################


use strict;
use warnings;
use LWP;

my $prefix='902'; #код
my $phone='1234567'; #7 цифр телефона
my $passwd='xxxx'; # пароль на issa.bwc.ru
my $agent = LWP::UserAgent->new;
my $url = 'http://issa.bwc.ru/cgi-bin/cgi.exe?function=is_login';
$agent->cookie_jar({});
my $response = $agent->post($url,
[ 'mobnum' => $prefix.$phone,
'Password' => $passwd
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
$response = $agent->get("http://issa.bwc.ru/cgi-bin/cgi.exe?function=is_account");
$response->content =~ /<td class=light width="50%">&nbsp;<em>(.+?)<\/em>&nbsp;/;
my $rc = (defined $1)?($1):("**.**");
print "Актуальный баланс: ", $rc, "руб.\n";
$response->content =~ /(cgi-bin\/cgi.exe?function=is_exit)\"/;
$response = $agent->get("http://issa.bwc.ru");


Чтобы оно заработало нужно поставить пакет perl-libwww, по крайней мере в арче.

PS: кое как этот код сюда упихнул без парсинга >_<



Update 23/11/2009:

Обновленные скрипты: на питоне и на перле.
Для перлового варианта нужно будет доустановить пакет libcrypt-ssleay-perl.

Спасибо Александру, заметившиму ошибку.