форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форум WEB технологии (Perl)
Изначальное сообщение		[ Отслеживать ]

"Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
Сообщение от AleR (ok) on 11-Фев-14, 13:28
Не уверен что в нужном разделе, но все же... На просторах инета нашел 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 не очень то разбираюсь. А данная фича очень нужна на сервере. Никто случаем не делал себе такую штуку?
Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
Сообщение от Pahanivo (ok) on 12-Фев-14, 18:05
> На просторах инета нашел perl скрипт для автоматической регистрации зон DNS с PRIMARY на  SLAVE сервере. регистрации? > В perl не очень то разбираюсь. нуу не разбираешься в перле, возми grep, awk, sed  и тд, THIS IS SPAAAA^W UNIX WAY! выдернуть имена примари, по шаблону сформировать кусок конфига, отправить по фтп на другой сервер - както так если в общем > А данная фича очень нужна на сервере. ээээээ я думаю должено буть хотябы два сервера ... > Никто случаем не делал себе такую штуку? у тебя тысячи зон и они меняются ежедневно? ЗЫ А смешной такой пост: я скачал хрень, зачем не знаю, как работает не понимаю, как-то  запустил, почемуто не запустилось не запустилось, куда меня скрипт послал перевести не могу - памахите христа ради ... ))
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

	2. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от AleR (ok) on 12-Фев-14, 20:56
	> ЗЫ А смешной такой пост: я скачал хрень, зачем не знаю, как > работает не понимаю, как-то  запустил, почемуто не запустилось не запустилось, > куда меня скрипт послал перевести не могу - памахите христа ради > ... )) Не знаешь что сказать - промолчи, будешь выглядеть умнее (народная мудрость)
	Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

	3. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от Pahanivo (ok) on 12-Фев-14, 21:30
	> Не знаешь что сказать - промолчи, будешь выглядеть умнее (народная мудрость) какую именно фразу не смог осилить?
	Ответить | Правка | ^ к родителю #2 | Наверх | Cообщить модератору

4. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
Сообщение от михалыч (ok) on 22-Фев-14, 08:52
> Никто случаем не делал себе такую штуку? Спасибо. Потестил )) скрипт рабочий, просто там как в известном анекдоте - доработать напильником
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

	5. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от Pahanivo (ok) on 23-Фев-14, 22:40
	> Спасибо. Потестил )) > скрипт рабочий, просто там как в известном анекдоте - доработать напильником ты его две недели пилил и тестил? ))
	Ответить | Правка | ^ к родителю #4 | Наверх | Cообщить модератору

	6. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от михалыч (ok) on 24-Фев-14, 06:00
	>> Спасибо. Потестил )) >> скрипт рабочий, просто там как в известном анекдоте - доработать напильником > ты его две недели пилил и тестил? )) да! ну не все две недели, конечно, но - то времени не было, то косяки в коде вылазить начали, причём, вроде и мелкие и разные, но блин задёргали, то у меня в конфиге named.conf с notify, короче, вот так и растянулась "доработка напильником"
	Ответить | Правка | ^ к родителю #5 | Наверх | Cообщить модератору

	7. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от Pahanivo (ok) on 24-Фев-14, 08:11
	>>> Спасибо. Потестил )) >>> скрипт рабочий, просто там как в известном анекдоте - доработать напильником >> ты его две недели пилил и тестил? )) > да! ну не все две недели, конечно, но - то времени не > было, > то косяки в коде вылазить начали, причём, вроде и мелкие и разные, > но блин задёргали, > то у меня в конфиге named.conf с notify, короче, вот так и > растянулась "доработка напильником" блин чуваг, проще заново накидать скритягу чем в чужой разбираться ))
	Ответить | Правка | ^ к родителю #6 | Наверх | Cообщить модератору

	8. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от михалыч (ok) on 24-Фев-14, 09:06
	> блин чуваг, проще заново накидать скритягу чем в чужой разбираться )) конечно, согласен, но иногда хочется посмотреть как реализовано другими, попытаться разобраться в чужом коде - это тоже стимулирует серые клеточки головного мозга, чему-то новому учишься и т.д, в общем, i like it
	Ответить | Правка | ^ к родителю #7 | Наверх | Cообщить модератору

	9. "Авторегистрация зон DNS на SLAVE сервере средствами PERL"	+/–
	Сообщение от Pahanivo (ok) on 24-Фев-14, 15:43
	>  i like it just do it
	Ответить | Правка | ^ к родителю #8 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема