package ISPMan::DNSMan::MXrecords;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $Config);
require Exporter;
@ISA = qw(Exporter AutoLoader);
@EXPORT = qw(
editmxrecords
addmxrecord
modifymxrecords
);
$VERSION = '0.01';
use ISPMan::Config;
$Config=ISPMan::Config->new();
sub editmxrecords {
my $self=shift;
my $r=shift;
my $dn=$r->param("dn");
my $entry=$self->{'ldap'}->getEntry($dn);
my @records=$entry->get_value("record");
print $r->param('domain'), "::MX Records