ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Trofimov                       2:5013/8.4     31 Mar 2003  16:18:57
 To : All
 Subject : NET::DNS
 -------------------------------------------------------------------------------- 
 

 
     подскажите, как с помощью сабжа обновлять обратную зону, с прямой проблем
 нету, а вот обратную???
 
 #!/usr/bin/perl
 
 use Net::DNS;
 
 $res = new Net::DNS::Resolver;
 
 $res->nameservers("localhost");
 
 $update = new Net::DNS::Update("domain.ru");
 $update->push("update", rr_del("slava.domain.ru"));
 $update->push("update", rr_add("slava.domain.ru A 10.0.2.55"));
 $ans = $res->send($update);
 print $ans ? $ans->header->rcode : $res->errorstring, "\n";
 
 $update = new Net::DNS::Update("10.0.2.IN-ADDR.ARPA");
 $update->push("update", rr_del("55"));
 $update->push("update", rr_add("55 PTR slava.domain.ru."));
 $ans = $res->send($update);
 print $ans ? $ans->header->rcode : $res->errorstring, "\n";
 
 Во втором случае говорит NOTZONE
 
                                                          До встpечи,
                                                               Слава.
 ... ICQ 62940418 [SHERLOCK]              E-mail: sherlock_boy@mail.ru
 --- GoldED/W32 3.0.0-dam8    [HI-FI (Black raven)] [MATRIX] [THIEF] [GIRLS]
  * Origin:  (FidoNet 2:5013/8.4)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    NET::DNS   Slava Trofimov   31 Mar 2003 16:18:57   Re: NET::DNS   Valentin Nechayev   20 Apr 2003 17:52:17