форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"помогите кто может"
Сообщение от vict on 17-Апр-04, 09:38  (MSK)
Всем привет огромная просьба помогите написать програмку нужно сравнивать SOA serial первичного и вторичного сервера результаты(совпадают или нет) сообщить на e-mail
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

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

1. "помогите кто может"
Сообщение от alchie (??) on 18-Апр-04, 10:39  (MSK)
>Всем привет огромная просьба >помогите написать програмку >нужно сравнивать SOA serial первичного и вторичного сервера >результаты(совпадают или нет) сообщить на e-mail perl -MNet::DNS -e '$r=Net::DNS::Resolver->new; $r->nameservers("212.0.65.2"); $q=$r->query("burnet.ru", "SOA"); if ($q){ ($q->answer)[0]->print}' burnet.ru.      86400   IN      SOA     ns.burnet.ru. dnsmaster.ns.burnet.ru. (                                         2004041201      ; Serial                                         86400   ; Refresh                                         14400   ; Retry                                         2592000 ; Expire                                         86400 ) ; Minimum TTL дальше сам?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "To alchie"
Сообщение от vic (??) on 20-Апр-04, 08:58  (MSK)
>Всем привет огромная просьба >помогите написать програмку >нужно сравнивать SOA serial первичного и вторичного сервера >результаты(совпадают или нет) сообщить на e-mail большое спосибо можно по подробнее не очень разбераю
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "To alchie"
	Сообщение от alchie (??) on 20-Апр-04, 09:32  (MSK)
	>>Всем привет огромная просьба >>помогите написать програмку >>нужно сравнивать SOA serial первичного и вторичного сервера >>результаты(совпадают или нет) сообщить на e-mail > >большое спосибо >можно по подробнее не очень разбераю доступнее наверное некуда уже (: #!/usr/bin/perl use Net::DNS; $r1=Net::DNS::Resolver->new; $r1->nameservers("212.0.65.2"); $q1=$r1->query("burnet.ru", "SOA"); if ($q1) {     $soa1=$q1->string;     ($soa1_serial)= grep { /Serial/ } split /\n/, $soa1;     $soa1_serial= $1 if $soa1_serial=~/(\d+)/; } $r2=Net::DNS::Resolver->new; $r2->nameservers("212.0.67.58"); $q2=$r2->query("burnet.ru", "SOA"); if ($q2) {     $soa2=$q2->string;     warn $soa2;     ($soa2_serial)= grep { /Serial/ } split /\n/, $soa2;     $soa2_serial= $1 if $soa2_serial=~/(\d+)/; } system("/bin/echo $soa1_serial, $soa2_serial | /bin/mail abuse\@mail.ru");
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "To alchie"
	Сообщение от vic (??) on 20-Апр-04, 12:09  (MSK)
	спосибо alchie, не могу разобраться дает следущее : unninitiallized value for $soa1_serial и $soa2_serial буду очень благодарен если поможите разобраться
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "To alchie"
	Сообщение от alchie (??) on 20-Апр-04, 12:25  (MSK)
	>спосибо alchie, >не могу разобраться >дает следущее : >unninitiallized value for $soa1_serial и $soa2_serial >буду очень благодарен если поможите разобраться icq 4734249
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.