НОП | Форум
Fast Uncompromising Discussions. FUDforum will get your users talking.

Начало »  » fido7.moldova.internet » Облагороженный ;) скрипт для MaxDSL Dynamic-2
Облагороженный ;) скрипт для MaxDSL Dynamic-2 [сообщение #491906] , 05 2006 07:49
Dimmy Timchenko (fido) в настоящее время не в онлайне  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.
 
Сообщение не прочитано
Переход к форуму:
  


Текущее время: 29 00:40:39 MSK 2024

Общее время, затраченное на создание страницы: 0.01767 секунд