maff
/
scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Apparently implemented cPanel DNS syncing.

This commit is contained in:
Maff 2014-02-09 11:05:03 +00:00
parent f2f63072ff
commit ddce9f4093
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rdns-manager
View File

@ -14,7 +14,6 @@ use Data::Validate::IP qw(is_public_ipv4 is_public_ipv6); #for valida
use Getopt::Long qw(:config posix_default bundling pass_through); #for intelligently handling cli arguments use Getopt::Long qw(:config posix_default bundling pass_through); #for intelligently handling cli arguments
use Net::DNS; #for doing forward and reverse lookups use Net::DNS; #for doing forward and reverse lookups
use Net::IP; #for converting IPs to their reverse zones use Net::IP; #for converting IPs to their reverse zones
use Data::Dumper; #debugging
#conf #conf
my $def_rdns = 'hosted-by.mycompany.com'; #Recomend default is "hosted-by.your-website.tld". my $def_rdns = 'hosted-by.mycompany.com'; #Recomend default is "hosted-by.your-website.tld".
@ -178,7 +177,10 @@ sub set_ptr {
return 1; return 1;
} }
sub sync_cpanel { sub sync_cpanel {
return 1; my $zone = shift;
my $syncscript = "/scripts/dnscluster synczone";
`$syncscript $zone`;
return $?;
} }
sub do_sync { sub do_sync {
my $ip = shift; my $ip = shift;