#!/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: add_sub_alias dst src...\n"; exit 1;
}

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

my @src = shift @ARGV;
&usage if (scalar(@src) < 1);

my $ldap = &get_ldap_conn;

$dst =~ s/^\.//; $dst =~ s/\.$//;

foreach $i (@src) {
	$i =~ s/^\.//; $i =~ s/\.$//;
	add_record($ldap, $i, [
		dc => dc_domain($i),
		objectClass => 'dnsDomain',
		objectClass => 'dcObject',
		cNAMERecord => "$dst.",
	], { cNAMERecord => "$dst." });

	# we must remove all aRecord records from this level
	set_record($ldap, $i, [
		dc => dc_domain($src),
		objectClass => 'dnsDomain',
		objectClass => 'dcObject',
		cNAMERecord => "$dst.",
	], { aRecord => [] });
}