Облагороженный ;) скрипт для MaxDSL Dynamic-2 [сообщение #491906] |
, 05 2006 07:49 |
Dimmy Timchenko (fido)
Сообщений: 0 Зарегистрирован: 2002
|
|
|
|
Hello All.
Я тут подправил скрипт для управления телекомовским сабжем. Может, кому
пригодится.
============= резать здесь ================================================
#
# A script to switch between NIGHT and DAY mode in MaxDSL Dynamic-2
# usage:
# dynamic {night|day}
#
# night|day...required; 256 or 64 kilobit mode
#----------------------------------------
# enter your login and password here:
$login = 'MY_LOGIN';
$passw = 'MY_PASSWORD';
#----------------------------------------
# cisco control system base URL
$cisco = 'http://192.168.169.66:8080';
#----------------------------------------
$ua = '';
$res = '';
$req = '';
#----------------------------------------
sub ErrCheck
{
if ($res =~ /^[45]/) {
die "\n".$res."\n";
} else {
print "OK\n";
};
}
sub Query
{
$res = $ua->request($req)->as_string;
ErrCheck;
}
#----------------------------------------
# retrieving & checking command line...
$mode = shift;
if ( ($mode ne "night") and ($mode ne "day") ) {
die "First argument must be 'night' or 'day'\n";
}
#------------------------------------------
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
$ua=LWP::UserAgent->new;
$ua->agent("Mozzila");
#------------------------------------------
print "Logging OUT\n";
$req = POST ($cisco.'/accountLogoff/home',
[confirmed => 'true'],
[submitButton => 'OK+' ] );
Query;
print "DELAYING...\n";
sleep 10;
print "Logging IN\n";
$req = POST ($cisco.'/home');
Query;
$req = POST ( $cisco.'/home?confirmed=true&submitButton=OK+&username='
.$login.'&password='.$passw );
Query;
print "Turning on RM\n";
$req = POST ( $cisco.'/serviceStart/refresh/home?service=PrSer4&group=2');
Query;
if ($mode eq "night") {
print "Turning on 256k\n";
$req = POST ($cisco.'/serviceStart/refresh/home?service=PrWeek3&group=2');
} else {
print "Turning on 64k\n";
$req = POST ($cisco.'/serviceStart/refresh/home?service=PrWeek1&group=2');
}
Query;
============= резать здесь ================================================
Dimmy.
|
|
|