forum.lissyara.su

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

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $isp_url = "https://[b]IP-АДРЕС[/b]/manager/ispmgr?authinfo=[b]ЛОГИН[/b]:[b]ПАРОЛЬ[/b]&func=domain&out=text"; # адрес к панели ISPmanager
my $slave_dir = "/etc/namedb/slave"; # папка где хранить зоны
my $slave_file = "/etc/namedb/slave.zone"; # фаил с описанием зон
my $master_ip = "[b]127.0.0.1[/b]"; # ip мастера
my $rndc_command = "/usr/sbin/rndc reload > /dev/null 2>&1"; # команда на релоуд binda

# шаблой записи зоны %ZONE% - имя зоны (пример: ya.ru), %SLAVE_DIR% - папка где хранить зоны, %MASTER_IP% - ip мастера
my $zone = <<EOF;
zone "%ZONE%" {
	type slave;
	file "%SLAVE_DIR%/%ZONE%";
	masters { %MASTER_IP%; };
	notify no;
};
EOF

if (my @dns_tmp = get_master($isp_url)) {
	my @dns;
	foreach my $zone_tmp (@dns_tmp) {
		my $zone_save = $zone;
		$zone_save =~ s/%ZONE%/$zone_tmp/gi;
		$zone_save =~ s/%SLAVE_DIR%/$slave_dir/gi;
		$zone_save =~ s/%MASTER_IP%/$master_ip/gi;
		push(@dns, $zone_save);
	}
	if (@dns) {
		if (save_slave($slave_file, @dns)) {
			system($rndc_command);
		}
	}
}

sub get_master {
	my ($isp_url) = @_;
	my @a;
	
	my $ua = LWP::UserAgent->new();
	my $response = $ua->get($isp_url);
 
	if ($response->is_success) {
		my $line = $response->decoded_content;
		$line =~ s/name=//gi;
		$line =~ s/owner=(.*)//gi;
		@a = split('\s\n', $line);
	} else {
		die $response->status_line;
	}

	return @a ? @a : '';
}

sub save_slave {
	my ($fname, @dns) = @_;
	open(F,'>', $fname) or die "Cannot write to file \"$fname\"!\n";
	print F @dns;
	close F;
	return 1;
}

sub get_slave {
	my ($slave_dir) = @_;
	my @a;
	
	opendir SLAVE, $slave_dir || die "can't opendir $slave_dir: $!";
	while (my $file = readdir SLAVE) {
		if ($file !~ m/^\./ and -f "$slave_dir/$file") {
				push(@a, $file);
		}
	}
	closedir SLAVE;
	
	return @a ? @a : '';
}

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

2. ссылки на нормальные сайты оставлять не только можно, но и нужно - на этом интерент построен, вообще-то

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

my $isp_url = "https://IP-АДРЕС/manager/ispmgr?authinfo=ЛОГИН:ПАРОЛЬ&func=domain&out=text"; # адрес к панели ISPmanager
my $slave_dir = "/etc/namedb/slave"; # папка где хранить зоны
my $slave_file = "/etc/namedb/slave.zone"; # фаил с описанием зон
my $master_ip = "127.0.0.1"; # ip мастера
my $rndc_command = "/usr/sbin/rndc reconfig > /dev/null 2>&1"; # команда на релоуд binda
our %zone_exception = ('exemple.com' => 0, 'exemple.net' => '0'); # домены которые исключаем, если не надо оставляем пустым (пример: our %zone_exception = ();)

# шаблой записи зоны %ZONE% - имя зоны (пример: exemple.com), %SLAVE_DIR% - папка где хранить зоны, %MASTER_IP% - ip мастера
my $zone = <<EOF;
zone "%ZONE%" {
	type slave;
	file "%SLAVE_DIR%/%ZONE%";
	masters { %MASTER_IP%; };
	notify no;
};
EOF

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

#!/bin/sh

master="<masterhost>";
syncuser="<isplogin>";
syncpwd="<isppassword>";
syncdir="/opt/bind/sync";
bindchw="bind:bind";
binddir="/opt/bind/conf.d";
bindfile="${binddir}/${master}.include";
tmpfile="${syncdir}/${master}.tlist";


_wget="$(which wget)"
if [ -z "${_wget}" ]; then
    echo "Error: wget not found"
    exit 1
fi

_awk="$(which awk)"
if [ -z "${_awk}" ]; then
    echo "Error: awk not found"
    exit 1
fi

_cat="$(which cat)"
if [ -z "${_cat}" ]; then
    echo "Error: cat not found"
    exit 1
fi

_cp="$(which cp)"
if [ -z "${_cp}" ]; then
    echo "Error: cp not found"
    exit 1
fi

_rm="$(which rm)"
if [ -z "${_rm}" ]; then
    echo "Error: rm not found"
    exit 1
fi

_dig="$(which dig)"
if [ -z "${_dig}" ]; then
    echo "Error: dig not found"
    exit 1
fi

_sort="$(which sort)"
if [ -z "${_sort}" ]; then
    echo "Error: sort not found"
    exit 1
fi

_chown="$(which chown)"
if [ -z "${_chown}" ]; then
    echo "Error: chown not found"
    exit 1
fi

if [ -z "${_rndc}" ]; then
    echo "Error: rndc not found"
    exit 1
fi

_checkconf="$(which named-checkconf)"
if [ -z "${_checkconf}" ]; then
    echo "Error: named-checkconf not found"
    exit 1
fi



if [ -f ${bindfile}.gen ]; then
   ${_rm} ${bindfile}.gen
fi

masterip=`${_dig} +short ${master} A`

if [ "x${masterip}" == "x" ]; then
        echo "IP address for ${master} not found";
        exit 1;
fi


${_wget} --quiet --no-check-certificate "https://${master}/manager/ispmgr?authinfo=${syncuser}:${syncpwd}&func=domain&out=text" -O ${tmpfile} >> /dev/null
zonelist=`${_cat} ${tmpfile} | ${_awk} '{print $1}' | ${_awk} -F '=' '{print $2}' | ${_sort}`
for zone in ${zonelist}
do

echo "
        zone \"$zone\" {
                type slave;
                file \"slave/${zone}\";
                masters { ${masterip}; };
        };
" >> ${bindfile}.gen
done

${_checkconf} ${bindfile}.gen > /dev/null

if [ $? -ne 0 ]; then
        echo "Config error, abort";
        answer=`${_checkconf} ${bindfile}.gen`
        ${_rm} ${bindfile}.gen

        exit 1;
else
        if [ -f ${bindfile} ];then
                ${_cp} ${bindfile} ${bindfile}.last
        fi

        ${_cp} ${bindfile}.gen ${bindfile}
        ${_rm} ${bindfile}.gen
fi
${_chown} -R ${bindchw} ${binddir}

${_rndc} reload

if [ $? -ne 0 ];then
        echo "Reload fail, restore old file";
   ${_cp} ${bindfile}.last ${bindfile}
   ${_rm} ${bindfile}.last
   ${_rndc} reload
else
        if [ -f ${bindfile}.last ];then
                ${_rm} ${bindfile}.last
        fi
fi