Adding DNS subdomain to All domains?

[deltatech]

Currently we have mail.domainname.com defined in the DNS for all domains that we have hosted. We want to add smtp.domainname.com, imap.domainname.com, and pop3.domainname.com for ALL hosted domains.

Is there an easy way to do this without having to edit each domain individually?

If I manually edit the PSA database to add them is there a way to tell plesk to read that database and recreate the zones from the database?

Or, maybe a command line method of doing it so we can create a script to do this?

We have 200 domains on the server and editing each one manually would take forever.

 

[deltatech]

The solution

I already found the answer to my own question but thought I would post it here just in case someone else needs the information.

The following perl script did the trick..

#!/usr/bin/perl

use DBI;
use Time:arseDate;

my $RDBMS = "mysql";
my $DBHost = "localhost";
my $DBName = "psa";
my $Username="admin";
my $Password ="Put Your Admin Password Here";
my $dbh = DBI->connect("DBI:$RDBMS:$DBName:$DBHost", $Username, $Password);

$query="SELECT domains.name, dns_recs.val FROM dns_recs INNER JOIN domains ON domains.dns_zone_id = dns_recs.dns_zone_id WHERE dns_recs.type = 'A' AND dns_recs.host = concat(domains.name,'.')";
$sth=$dbh->prepare("$query");
$sth->execute();

while ( @row = $sth->fetchrow_array ) {
($domain,$ip) = @row;

$cmd=sprintf("/usr/local/psa/bin/dns --add %s -a imap -ip %s",$domain,$ip);
print "$cmd\n";
system($cmd);
$cmd=sprintf("/usr/local/psa/bin/dns --add %s -a pop3 -ip %s",$domain,$ip);
print "$cmd\n";
system($cmd);
$cmd=sprintf("/usr/local/psa/bin/dns --add %s -a smtp -ip %s",$domain,$ip);
print "$cmd\n";
system($cmd);
}