Не уверен что в нужном разделе, но все же...
На просторах инета нашел perl скрипт для автоматической регистрации зон DNS с PRIMARY на SLAVE сервере.Файл из 2-х частей, сам скрипт соответственно
http://www.tourservice.kz/docs/ru/blog/2010/2/19/zoneadd
и
http://www.tourservice.kz/docs/ru/blog/2010/2/19/zoneadd.conf
conf файл настройки.
Попробовал с дебагом, получилось
main::(zoneadd:9): my (оg);
DB<1> n
main::(zoneadd:10): open CFG,'/etc/zoneadd.conf' or die '/etc/zoneadd.conf '.$!;
DB<1>
main::(zoneadd:11): my $cfg=join "\n", <CFG>;
DB<1>
main::(zoneadd:12): close CFG;
DB<1>
main::(zoneadd:13): eval "$cfg";
DB<1>
main::((eval 8)[zoneadd:13]:1): my оg=(
DB<1>
main::(zoneadd:14): die $@ if $@;
DB<1>
main::(zoneadd:18): if ( $cfg{'daemon'} ) {
DB<1>
main::(zoneadd:30): open ZONES, $cfg{'named.conf'} or die $cfg{'named.conf'}." ".$!;
DB<1>
Use of uninitialized value in open at zoneadd line 30.
at zoneadd line 30
Use of uninitialized value $cfg{"named.conf"} in concatenation (.) or string at zoneadd line 30.
at zoneadd line 30
Нет такого файла или каталога at zoneadd line 30.
at zoneadd line 30
Debugged program terminated. Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
Т.е. как я понял он не может найти или прочитать named.conf
Решил тогда объеденить файл conf и сам скрипт, и запустил опять в дебаге zoneadd+zoneadd.conf
main::(zoneadd:16): my оg=(
DB<1>
main::(zoneadd:48): if ( $cfg{'daemon'} ) {
DB<1>
main::(zoneadd:60): open ZONES, $cfg{'named.conf'} or die $cfg{'named.conf'}." ".$!;
DB<1>
main::(zoneadd:61): while (<ZONES>) {
DB<1>
main::(zoneadd:62): if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
DB<1>
main::(zoneadd:62): if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
DB<1>
main::(zoneadd:62): if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
DB<1>
main::(zoneadd:62): if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
В perl не очень то разбираюсь. А данная фича очень нужна на сервере.
Никто случаем не делал себе такую штуку?
