view release on metacpan or  search on metacpan

ZoneFile.pm  view on Meta::CPAN

502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
                                return undef;
                                }
                        }
                }
        return \%hash;
        }
 
#updateSerial
#   This function will update the serial number in the zone file loaded.
 
sub updateSerial
        {
        my $self=shift;
 
        my $snum;
 
# need to add some kind of check here.....
 
        for my $record (@{$self->{"RECORDS"}})
                {
                if($record->{"TYPE"} eq "SOA")