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

More work on program flow, fixed a bug or two

This commit is contained in:
Maff 2014-02-09 10:53:13 +00:00
parent cb17b00191
commit 18f595d16d
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rdns-manager
View File

@ -7,7 +7,7 @@ use strict;
use warnings; use warnings;
package DNS::Reverse::Manager; package DNS::Reverse::Manager;
use feature qw(switch); use feature qw(switch say);
use vars '$VERSION'; $VERSION = '1.0.0'; #Version number use vars '$VERSION'; $VERSION = '1.0.0'; #Version number
use Data::Validate::Domain qw(is_domain); #for validating domains use Data::Validate::Domain qw(is_domain); #for validating domains
@ -15,7 +15,7 @@ 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::DNS::ZoneFile; #for working with BIND zones use Net::DNS::ZoneFile; #for working with BIND zones
use Net::DNS::ZoneParse; #for converting an array of RRs to a zone file #use Net::DNS::ZoneParse; #for converting an array of RRs to a zone file
use Net::IP; #for converting IPs to their reverse zones use Net::IP; #for converting IPs to their reverse zones
use POSIX qw(strftime); #for SOA serial generation use POSIX qw(strftime); #for SOA serial generation
use Data::Dumper; #debugging use Data::Dumper; #debugging
@ -124,11 +124,14 @@ sub generate_soa_serial {
return $yyyymmdd."00"; return $yyyymmdd."00";
} }
sub write_zone { sub write_zone {
use File::Copy qw(copy);
use Net::DNS::ZoneParse qw(writezone);
my $zone = shift; my $zone = shift;
my @z = @_; my @z = @_;
foreach(@z) {$_->serial(generate_soa_serial $_->serial) if $_->type eq "SOA";} #update SOA foreach(@z) {$_->serial(generate_soa_serial $_->serial) if $_->type eq "SOA";} #update SOA
copy "$zone_dir$zone$zone_ext", "$zone_dir$zone$zone_ext.bak" or print "Warning: Couldn't create a backup of the zone $zone.\n";
open ZONE, ">$zone_dir$zone$zone_ext" or nicedie "Failed to open zonefile for $zone for writing!"; open ZONE, ">$zone_dir$zone$zone_ext" or nicedie "Failed to open zonefile for $zone for writing!";
print ZONE Net::DNS::ZoneParse::writezone @z; print ZONE writezone @z;
close ZONE or nicedie "Seemingly failed to close $zone$zone_ext, cowardly quitting here."; close ZONE or nicedie "Seemingly failed to close $zone$zone_ext, cowardly quitting here.";
} }
sub del_ptr { sub del_ptr {
@ -186,8 +189,7 @@ sub do_sync {
$res = sync_cpanel $zone when /cpanel/; $res = sync_cpanel $zone when /cpanel/;
default { nicedie "Couldn't sync $zone: Don't have a known sync method for network type $net_type."; } default { nicedie "Couldn't sync $zone: Don't have a known sync method for network type $net_type."; }
} }
print (($res) ? "Synchronised" : "Failed"); say (($res) ? "Synchronised" : "Failed");
print "!\n";
} }
#main #main
@ -229,15 +231,15 @@ if(!defined $domain and $reset) {
set_ptr $ip,$def_rdns or nicedie "Failed to set rDNS for $ip to '$def_rdns'!"; set_ptr $ip,$def_rdns or nicedie "Failed to set rDNS for $ip to '$def_rdns'!";
print "rDNS set"; print "rDNS set";
print ((confirm_rdns $ip, $def_rdns) ? " and resolving" : " but not yet resolving (check manually with 'host $ip')") if $verify; print ((confirm_rdns $ip, $def_rdns) ? " and resolving" : " but not yet resolving (check manually with 'host $ip')") if $verify;
print ".\n"; print "\n";
} elsif(!defined $domain and $delptr) { } elsif(!defined $domain and $delptr) {
del_ptr $ip or nicedie "Failed to delete PTR record for $ip!"; del_ptr $ip or nicedie "Failed to delete PTR record for $ip!";
nicedie "PTR record for IP $ip deleted."; say "PTR record for IP $ip deleted.";exit;
} elsif(!defined $domain and $newzone) { } elsif(!defined $domain and $newzone) {
nicedie "Sorry, but the zone population functionality isn't yet written."; nicedie "Sorry, but the zone population functionality isn't yet written.";
} elsif(!defined $domain) { } elsif(!defined $domain) {
nicedie "No rDNS record for IP $ip exists." unless does_record_exist $ip; say "No rDNS record for IP $ip exists." and exit unless does_record_exist $ip;
nicedie "rDNS for IP $ip: ".get_ptr $ip; say "rDNS for IP $ip: ".get_ptr $ip;exit;
} }
if(defined $domain) { if(defined $domain) {
nicedie "Forward DNS for $domain doesn't match $ip!" unless does_fqdn_match $ip or $force; nicedie "Forward DNS for $domain doesn't match $ip!" unless does_fqdn_match $ip or $force;