Автоматическая установка "IPv4 WAN Адреса" в CommuniGate Pro 5.4.1

Задача: Сменить "IPv4 WAN Адрес" в случае смены динамического адреса при ppp подключении.

Скачиваем "CLI.pm" со страницы http://www.communigate.com/CGPerl/. Помещаем его в папку модулей Perl, например, в "/usr/lib/perl5/site_perl/" (для FC 14).
В "/var/CommuniGate/bin/" создаём файл "set-network":

#!/usr/bin/perl
use CLI;
my $cli = new CGP::CLI ({PeerAddr=>'localhost',
                         PeerPort=>106,
                         login =>'postmaster@domain.com',
                         password=>'password-postmaster',
                         SecureLogin=>0})
           || die "Can't login to CGPro: ".$CGP::ERR_STRING."\n";
$addr=(split (" ", (split (":", `/sbin/ifconfig ppp0|grep 'inet addr:'`))[1]))[0];
$cli->SendCommand ('SETNETWORK {WANAddress="['.$addr.']";}');
$cli->SendCommand ('REFRESHOSDATA');
$cli->Logout();

PeerAddr - имя (адрес) хоста, на котором расположен CommuniGate Pro
login - Имя пользователя, имеющего права на изменение настроек сети в CommuniGate Pro
password - Пароль вышеуказанного пользователя

Скрипт так-же обновляет информацию об операционной системе, в том числе, об активных сетевых интерфейсах.

Данный скрипт необходимо запускать при переподключении ppp, например из "/etc/ppp/ip-up.local"
Так-же вышеуказанный скрипт можно использовать и после получения адреса по DHCP (вызывать из "/sbin/ifup-local")

Наверх