#!/usr/bin/perl

use strict;
use warnings;
use Net::DNS;
use lib "/home/postgres/elijah/govph/tests/Net";
use Net::DNS::ZoneFile;

my $rrset = Net::DNS::ZoneFile->read("/home/postgres/elijah/govph/etc/namedb/tem
p.gov.ph");

print $_->string, "\n" for @$rrset;
push @$rrset, new Net::DNS::RR "3 7200 IN PTR gov.ph.";

foreach (@$rrset)
{
        next unless $_->type eq 'SOA' and $_->class eq 'IN';
        $_->serial($_->serial + 1);
}
 print $_->string, "\n" for @$rrset;

##</code><code>##

; Sta. Magdalena, Sorsogon
; Created by GovPh: Fri Aug  6 13:02:54 2004
stamagdalena            IN      NS      ncc.xx.gov.ph
                        IN      NS      ncc.xx.gov.ph