smecontribs/smeserver-ddclient
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-ddclient on Sat Sep 7 19:50:30 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 19:50:30 +10:00
parent 7f083df042
commit c528ca1823
65 changed files with 12379 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
root/etc/e-smith/db/domains/migrate/80ddclient Normal file
View File

@@ -0,0 +1,64 @@
{
my $filename = '/home/e-smith/db/extras';
return 0
unless (-e $filename);
use esmith::ConfigDB;
##use db domain or die if doesn't exist
my $domaindb = esmith::ConfigDB->open('/home/e-smith/db/domains');
##use db extras or die if doesn't exist
my $edb = esmith::ConfigDB->open($filename);
if (defined $edb)
{
foreach my $extradomain ($edb->get_all_by_prop(type=>'ddhost'))
{
my $currentdom = $extradomain->key;
my $descddhost = $edb->get_prop("$currentdom", "desc") || "ddhost migrated domain";
my $dnsddhost = $edb->get_prop("$currentdom", "dns");
my $mxddhost = $edb->get_prop("$currentdom", "mx");
my $passwordddhost = $edb->get_prop("$currentdom", "password");
my $login = $edb->get_prop("$currentdom", "login");
$domaindb->new_record( "$currentdom" );
$domaindb->set_value( "$currentdom" , "domain" );
$domaindb->set_prop( "$currentdom" , "Description" , "$descddhost" );
$domaindb->set_prop( "$currentdom" , "dns" , "$dnsddhost" ) if defined $dnsddhost;
$domaindb->set_prop( "$currentdom" , "mx" , "$mxddhost") if defined $mxddhost;
$domaindb->set_prop( "$currentdom" , "password" , "$passwordddhost" ) if defined $passwordddhost;
$domaindb->set_prop( "$currentdom" , "login" , "$login" ) if defined $login;
# followings set defaults values as a domain pointing to Primary ibay
# as even if they are not configured they will point there !
# Nameservers are defined as internet, as they are dynamic domains,
# if admin wants to point as a localhost, he just has to do it in the manager
$domaindb->set_prop( "$currentdom" , "SystemPrimaryDomain" , "no" );
$domaindb->set_prop( "$currentdom" , "Removable" , "yes" );
$domaindb->set_prop( "$currentdom" , "Nameservers" , "internet" );
$domaindb->set_prop( "$currentdom" , "Content" , "Primary" );
}
foreach my $extradomain ($edb->get_all_by_prop(type=>'domain'))
{
my $currentdom = $extradomain->key;
# commented as we rather keep description already in domain
#my $descdomain = $edb->get_prop("$currentdom", "desc");
my $dnsdomain = $edb->get_prop("$currentdom", "dns");
my $mxdomain = $edb->get_prop("$currentdom", "mx");
my $passworddomain = $edb->get_prop("$currentdom", "password");
my $login = $edb->get_prop("$currentdom", "login");
#$domaindb->set_prop( "$currentdom" , "desc", "$descdomain" );
$domaindb->set_prop( "$currentdom" , "dns" , "$dnsdomain" ) if defined $dnsdomain;
$domaindb->set_prop( "$currentdom" , "mx" , "$mxdomain" ) if defined $mxdomain;
$domaindb->set_prop( "$currentdom" , "password" , "$passworddomain" ) if defined $passworddomain;
$domaindb->set_prop( "$currentdom" , "login" , "$login" ) if defined $login;
}
system ("/bin/mv $filename /home/e-smith/db/extras-migrated");
}
}