package ISPMan::DNSMan::SOArecords;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $Config);
require Exporter;
@ISA = qw(Exporter AutoLoader);
@EXPORT = qw(
editsoarecords
addsoarecord
modifysoarecords
getSOA
);
$VERSION = '0.01';
use ISPMan::Config;
$Config=ISPMan::Config->new();
sub editsoarecords {
my $self=shift;
my $r=shift;
my $dn=$r->param("dn");
my $records=$self->getSOA($dn);
print $r->param('domain'), "::SOA Records