#!/usr/bin/perl
BEGIN {
	my $x = $0; $x =~ s/\/[^\/]+$//;
	if ($x eq $0 || $x eq '') { $x = `pwd`;chomp $x; };
	require "$x/config.pl";
};

sub usage {
	print "usage: set_sub_host pref mx src\n"; exit 1;
}

my $pref = shift @ARGV;
&usage if (!defined($pref));
$pref =~ s/[^0-9]//g;
&usage if ($pref eq '');

my $dst = shift @ARGV;
&usage if (!defined($dst));

my $src = shift @ARGV;
&usage if (!defined($src));

my $ldap = &get_ldap_conn;

$dst =~ s/^\.//; $dst =~ s/\.$//;
$src =~ s/^\.//; $src =~ s/\.$//;
set_record($ldap, $src, [
	dc => dc_domain($src),
	objectClass => 'dnsDomain',
	objectClass => 'dcObject',
	mXRecord => "$pref $dst.",
], { mXRecord => "$pref $dst." });