Форум на Kuban.ru (http://forums.kuban.ru/)
-   Сети и их администрирование (http://forums.kuban.ru/f1029/)
-   -   Mikrotik - скрипт на ipnodns.ru (http://forums.kuban.ru/f1029/mikrotik_-_skript_na_ipnodns_ru-8931168.html)

Перпетум Мобиле 31.07.2019 22:35

Mikrotik - скрипт на ipnodns.ru
 
Кто нибудь делал скрипт для контроля IP на данный сайт ?

v 31.07.2019 23:37

а чем встроенный дднс не нравится?

Перпетум Мобиле 01.08.2019 08:52

Ну как бы там длинное имя из серийника Микрота (это типа страховка). А там у меня есть давнишний аккаунт с более коротким именем.

IP в принципе статический, но вот вчера провайдер поменял на другую сеть. Просто интересно, можно ли переделать скрипт с питона под Микрот ?

Перпетум Мобиле 01.08.2019 09:07

хм, поменял в ручную IP и фиг вам. такое ощущение, что в остальных DNS обновление очень и очень долгое...

Перпетум Мобиле 01.08.2019 09:25

Да. обновилось в сети и теперь захожу по своему имени с указанного сайта. Вот и хотелось бы под него сделать скрипт, как альтернативу. А то с мобилы набирать три-два-два-пять-три-два-два и так далее напрягает... Тут быстрее IP набрать...

v 01.08.2019 15:04

Мне попадался скрипт для changeip.com
[url]https://wiki.mikrotik.com/wiki/Dynamic_DNS_Update_Script_for_ChangeIP.com[/url]
можешь переделать под себя.
А проще сделать бесплатное имя 3-го уровня и создать алиас на [em]длинное имя из серийника Микрота[/em].

Перпетум Мобиле 01.08.2019 16:32

Вот непонятно мне переделать это в скрипт Микрота

#!/usr/bin/perl -w
#-----------------------------------------------
#логин вашей учетной записи
$login = "zyxel";
#код для записи
$secret = "bbe6854c83e04da02d98b187df176b13";
#если явно не указать адрес, будет автоматически определен ip
#$ip = "8.8.8.8";
#-----------------------------------------------
$url = "http://ipnodns.ru/cgi-bin/newip.cgi";
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>$url);
$req->content_type('application/x-www-form-urlencoded');
my $s = "login=$login&secret=$secret";
if((defined $ip)&&($ip ne ''))**$s = $s.'&addr='.$ip**;
$req->content($s);
my $res = $ua->request($req);

print "Status: ";
print $res->content;
print "\n";

v 01.08.2019 17:26

лично я перл знаю очень поверхностно, а микротоковский язык не знаю вообще. Поэтому заниматься портированием стал бы только из соображений "куда бы деть свободное время?"
Чем идея с алиасом не нравится?

Перпетум Мобиле 01.08.2019 17:45

Так я почему и запостил сюда, вдруг кто-то знает перл и скрипы Микрота и за 5 минут сделает :)

а так я и Cloud Микротовский включил и знаю свой IP. Вот до вчерашнего дня он как-то не менялся, потом пров решил кардинально сменить адреса вообще. хорошо, жена доба была, попросил ее проверить наличие интернета и потом адрес. Так и понял, что поменяли. До этого вроде прецендентов не было.

А так, есть старый логин на данный сайт, вот и подумал попробовать. А не тут то было.

Перпетум Мобиле 01.08.2019 17:45

Не нравится, потому что бесплатных нет особо, все хотят денег. Ну или такие имена дремучие, что ну его нафик...

v 01.08.2019 18:40

посмотри sitelutions.com
За бесплатно, правда, TTL долгий. Но все же лучше, чем ничего (подозреваю, что не (на много) дольше, чем у бесплатного ipnodns.ru). для срочного доступа имей микротиковский адрес на всяк. (или жену дома )))

v 01.08.2019 18:43

[quote=Перпетум Мобиле;46989324]запостил сюда[/quote]
вместе с логином и паролем ))

Перпетум Мобиле 01.08.2019 23:01

11-v > это пример с сайта, не мой :)


Текущее время: 18:38. Часовой пояс GMT +3.