view release on metacpan or  search on metacpan

ZoneFile.pm  view on Meta::CPAN

				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")