forum.lan.md

**MuadDib** 06 май 2006, 18:46

МТК только что поменяли адрес сервера авторизации. Возможно только на новых пакетах...
Теперь вместо 192.168.169.66 заходит на 192.168.170.66

**RDS** 06 май 2006, 22:52

MuadDib писал(а):МТК только что поменяли адрес сервера авторизации. Возможно только на новых пакетах...
Теперь вместо 192.168.169.66 заходит на 192.168.170.66

Вот БЛИН!!! Хоть бы МТК нас заранее об этом предупредил...

Пять часов без инета просидели. Спасибо хоть ты предупредил!

информация по восстановлению интернета в сетке шла по цепочке:
RDS - телефон - admin (lan.md) - forum.lan.md - admin (lan.md) - телефон - RDS - admin (TEENNET).

p.s. хорошо еще, что телефон для связи с миром был не IP!

**Igoras** 07 май 2006, 00:42

Меня автоматом редиректило со старого ИП, который 169, на новый который 170... причем первые пару минут там не хотело авторизовать, а потом еще минут 15 включать пакеты

особенно халявный, потому что тот, который 1 мбит включить получилось после 10 нажатия по ссылке =)

Добавлено спустя 1 час 19 минут 4 секунды:

Вот что у них висит на странице выбора скорости, причем доступно только после авторизации... ясное дело, что на новом сервере

)

**Igoras** 16 май 2006, 00:35

Доделал скрипт для ГО... так как там не надо переключать скорости, зато намного важнее постоянная проверка, не вылетела ли авторизация, скрипт проверяет есть ли пинг до какого-то сервера (выбрал DNS-сервер), если нет (дошло меньше 2 пингов из 5) - пытается сделать логаут, логин и включение скоростей 384+мд....

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use Net::Ping;

$server_ip = 'http://192.168.170.66:8080';
$ping_host = '212.0.200.2';

$p = Net::Ping->new("icmp");
for ($i = 1; $i <= 5; $i++ ) {if ($p->ping($ping_host, 2)) {$ping++;}}
if ( $ping < 2)
{

$ua=LWP::UserAgent->new;
$ua->agent("Mozzila");
my $req = POST $server_ip.'/accountLogoff/home', [confirmed => 'true' ], [ submitButton => 'OK+' ];
$res = $ua->request($req)->as_string;
sleep 2;
my $req = POST $server_ip.'/home?confirmed=true&submitButton=OK+&username=ЛОГИН&password=ПАРОЛЬ';
$res = $ua->request($req)->as_string;
my $req = POST $server_ip.'/serviceStart/refresh/home?service=PrDSL9';
$res = $ua->request($req)->as_string;
my $req = POST $server_ip.'/serviceStart/refresh/home?service=PrDSL15';
$res = $ua->request($req)->as_string;

}
$p->close();

**halflife** 22 май 2006, 16:39

Igoras писал(а):Доделал скрипт для ГО... так как там не надо переключать скорости, зато намного важнее постоянная проверка, не вылетела ли авторизация, скрипт проверяет есть ли пинг до какого-то сервера (выбрал DNS-сервер), если нет (дошло меньше 2 пингов из 5) - пытается сделать логаут, логин и включение скоростей 384+мд....

Во блин, мне мозгов не хватило сначала сюда залезть глянуть, сделал по своему:

каждые N сек. парсится http://192.168.169.66:8080/pages/statusBody.jsp

и если сервис отключен (или слетела авторизация) - авторизируется заново и включает выбранные сервисы.

Если всеже кому интересно, взять можно тут: http://vovka.sunray.homelinux.org/srvdi.rb

**Igoras** 23 май 2006, 17:00

Подправил по заявкам - вынес логин, пароль, названия сервисов в переменные... не проверял, но должно работать... ниже вариант с сервисами для ГО2

Код: Выделить всё

use LWP::UserAgent; 
use HTTP::Request::Common qw(POST); 
use Net::Ping; 

$server_ip = 'http://192.168.170.66:8080'; 
$ping_host = '212.0.200.2'; 

$login = 'login';
$pass = 'password';

$service1 = 'PrDSL9';
$service2 = 'PrDSL15';

$p = Net::Ping->new("icmp"); 
for ($i = 1; $i <= 5; $i++ ) {if ($p->ping($ping_host, 2)) {$ping++;}} 
if ( $ping < 2) 
{ 

$ua=LWP::UserAgent->new; 
$ua->agent("Mozzila"); 
my $req = POST $server_ip.'/accountLogoff/home', [confirmed => 'true' ], [ submitButton => 'OK+' ]; 
$res = $ua->request($req)->as_string; 
sleep 2; 
my $req = POST $server_ip.'/home?confirmed=true&submitButton=OK+&username='.$login.'&password='.$pass; 
$res = $ua->request($req)->as_string; 
my $req = POST $server_ip.'/serviceStart/refresh/home?service='.$service1; 
$res = $ua->request($req)->as_string; 
my $req = POST $server_ip.'/serviceStart/refresh/home?service='.$service2; 
$res = $ua->request($req)->as_string; 


} 
$p->close();

**KirillTs** 14 дек 2006, 00:53

А можно скрипт с проверкой не слетела ли авторизация для GO(как для юзверя обыкновенного), т.е. для винды??
Очень интересно наблюдать что за ночь скачалось 1-2% всего того ..что я поставил качаться биткометом...

Или можно использовать какой то из вышеперечисленных скриптов? что для этого установить?

**Igoras** 14 дек 2006, 00:55

Предыдущий скрипт очень активно работает с ActivePerl

**KirillTs** 14 дек 2006, 01:56

Спасибо! щаз будем разбираться

Добавлено спустя 18 минут 48 секунд:

буду надоедать )
..кидаю скрипт в файл, открываю его с помощью c:/perl/bin/perl.exe , пролетает черное окошко...... что то не то наверное ) как его запустить?

**Alex** 14 дек 2006, 10:34

Прописываешь в шедулере "с:\perl.exe твой_скрипт.pl" и ставишь запускаться каждые мин 10.
Спим спокойно.

Добавлено спустя 1 минуту 21 секунду:

Если все ок - то оно быстро пролетает - ничего ты и не увидишь

Добавлено спустя 54 секунды:

попробуй разорвать соединение - а потом его запустить - если все прописал правильно - инет должен появиться

**KirillTs** 14 дек 2006, 13:37

Большое спасибо! всё работает !

**dtyc** 26 янв 2007, 14:32

люди какой финальный вариант скрипта на перле для Динамика.
так чтобы он автоматически включал 64 кб и 2 мб по молдове. пробовал что выложены здесь на форуме не пашут. сервер авторизации уже давно поменялся и сейчас 192.168.172.66:8080 он даже прописывается уже как login.maxdsl.md:8080

помогите!!!

**Alexy** 03 фев 2007, 00:31

Alex писал(а):Прописываешь в шедулере "с:\perl.exe твой_скрипт.pl" и ставишь запускаться каждые мин 10.
Спим спокойно.

Добавлено спустя 1 минуту 21 секунду:

Если все ок - то оно быстро пролетает - ничего ты и не увидишь

Добавлено спустя 54 секунды:

попробуй разорвать соединение - а потом его запустить - если все прописал правильно - инет должен появиться

Плиззз, Alex, объясни где этот шедулер и как туда прописывать скрипты.

Добавлено спустя 50 минут 6 секунд:

MuadDib писал(а):Ну и скрипты надо копировать не в сам крон. А создать файлы 64.pl и 512.pl и в них скопировать скрипты. И в кроне уже запускать именно эти файлы по раснисанию.

Как создать эти файлы, как скопировать в них скрипты и как их запускать в ннкроне?

Плиззз хелп. Заранее благодарен.

**Шинкевич Владимир** 03 фев 2007, 00:58

dtyc, а ч0 не судьба самому вместо 192,та-та-та вставить новую ссылку?
Alexy, шедулер - планировщик задач. панель инструментов - назначенные задания.

**Igoras** 03 фев 2007, 02:16

Profi the same,
неа

мало того.... найди еще знакомых с динамиком и посмотри как у них выглядят названия пакетов и впиши

**Alexy** 03 фев 2007, 10:20

Profi the same, спасибо за ликбез, но как создать файлы ***.pl и как скопировать в них скрипты.

У меня Max DSL Eco, у кого-нить есть скрипты для Eco?

**Шинкевич Владимир** 03 фев 2007, 11:41

Alexy, ну я конечно допускаю такой уровень компьютерной безграмотности..
Создаешь текстовый файл maxdssl.txt, копируешь в него скрипт, исправляешь под себя, переименовываешь в тожесамоеноточкапл.pl
Устанавливаешь activePerl, ставишь задание в планировщике.

**Igoras** 03 фев 2007, 12:12

Profi the same,
чтобы изменить расширение, надо, чтобы была выключена галка "скрывать расширения для зарегистрированых типов"

**Ro_lexx** 03 фев 2007, 17:49

Написал для Eco на JavaScript. Гарантировано работает в Internet Explorer. Необходимо иметь cookie от MaxDSL, сформированные хотя бы одним "человеческим" вход на их страницу. Запоминает последние использованные параметры и легко адаптируется под любой MaxDSL. Есть возможность автовхода.
На этом пока все

хттп://ввв.madhouse.мд/ro_lexx/MaxDSL.html

P.S. Думаю, я не слишком запутал ссылку, просто защита от спама не позволила мне разместить исходный код и, уж тем более, ссылку для скачивание страницы.

**Шинкевич Владимир** 03 фев 2007, 20:18

Igoras,

**Alex** 05 фев 2007, 11:08

В качестве шедулера юзаю Крон

**dtyc** 05 фев 2007, 14:39

все получилось до этого делал допустил ошибку в скрипте. active perl + sheduller

**Alexy** 06 фев 2007, 02:47

народ помогите: как должен выглядеть скрипт? :unsure:

у меня их столько, что я уже запутался.

у кого рабочий скрипт, выложите его сюда, чтоб и остальные могли его использовать. :lookaround:

Всем спс.

**BuTaMuH** 08 мар 2008, 15:30

для мну сделали в п2п скрипт... проще чем тут предложенные.... (для пакета Го)

Я ещё не проверил но можете проверить если кому не в терпёж

Код: Выделить всё

<?php
/*=======================================================
*		       MTC autologiner V 1.0                  	*
*					-----------							*
*              Programmed By PRoFy4ce   for  BuTaMuHkO-KreveDko =)             	*
========================================================*/

//------------- Settings ----------------
$time_refresh = 1000*60*10;  	//частота проверки в 10 min

$ping_site_ip = 'mikrotik.com';  	//пингуем какой-либо адрес

$mtc_login = 'Логин';			//ваш логин
$mtc_pass = 'Пароль';		      //ваш пароль

$mtc_ip = 'http://192.168.173.66:8080';                        //сервер авторизации
$mtc_check_login_page = "$mtc_ip/user/refresh/home";
$mtc_enable_service_url = "$mtc_ip/serviceStart/refresh/home?service=PrDSL1&group=2";
//------------- End Settings ------------


$MTC_script_url = 'http://'.$_SERVER['HTTP_HOST'];
$no_ping = 1;

system("ping $ping_site_ip", $no_ping);

if($no_ping)
{
	$ch = curl_init();

	curl_setopt($ch, CURLOPT_URL, $mtc_check_login_page);
	curl_setopt($ch, CURLOPT_POST, 1);
	curl_setopt($ch, CURLOPT_POSTFIELDS, "username=$mtc_login&password=$mtc_pass");
	
	ob_start();
	curl_exec ($ch);
	echo $ch;
	ob_end_clean();
	
	curl_close ($ch);
	unset($ch);
	
	$ch = curl_init();
	curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
	curl_setopt($ch, CURLOPT_URL, $mtc_enable_service_url);
	
	curl_exec ($ch);
	
	curl_close ($ch);
	
	echo "<br /><br /><strong style='color:red;'>Reconnect to MTC</strong>";
}
else
{
	echo "<br /><br /><strong style='color:green;'>Ping OK</strong>";
}

?>

<script>
function checkPing()
{
	document.location.href = '<?php echo $MTC_script_url; ?>';	
}
setTimeout('checkPing()', <?php echo $time_refresh; ?>);	
</script>

чтобы скрипт заработал, нужно включить модуль curl.dll в php
Файл (index.php) должен быть в директории апачьсервера (например: /home/mtc_script/www )
Старт апачи (предлагаю вообще денвер Веб-сервер) кидаем в авторан... проверяем

**Igoras** 08 мар 2008, 15:46

BuTaMuH,
фигассе проще

для перла достаточно перл поставить (а на юниксе он обычно вообще есть) и поставить в шедулер "перл имя-файла"

forum.lan.md

Тем кому в ручную надоело скорость менять в MaxDSL Dyn.

Кто сейчас на конференции