view release on metacpan or  search on metacpan

bin/oracle/addreversezone.pl  view on Meta::CPAN

#!/usr/local/bin/perl -w

use strict;
use Net::DNS;
use DBI;

require 'conf.pl';

my ($db_src, $db_user, $db_pass) = conf();

my $dbh = DBI->connect($db_src, $db_user, $db_pass, { RaiseError => 1, PrintError => 1, AutoCommit => 0});

print "Domain for inserting into DnsZone: ";
my $domain = <>;
chomp($domain);
unless ($domain =~ /\d+\.in\-addr\.arpa$/) {
    print "Reverse Zone needs to be in the .in-addr.arpa format\n";
    exit 1;
}
print "User to add $domain for: ";
my $user = <>;
chomp($user);
my $uid = $dbh->selectrow_array("select id from users where username = ?", undef, $user);
unless ($uid =~ /^\d+$/) {
    bailout ("Unknown user");
}
if ($dbh->selectrow_array("select id from domains where domain = ? and owner = ?", undef, $domain, $uid)) {
    bailout ("$user already has $domain");
}

print "From which nameserver do you want to transfer the zone for $domain: ";
my $nameserver = <>;
chomp($nameserver);
print "Performing Zone transfer...\n";

my $res = new Net::DNS::Resolver;
$res->nameservers($nameserver);
my @zone = $res->axfr($domain);

my $rrsoa = shift @zone;
die "first record not SOA" if $rrsoa->type ne 'SOA';
#$rrsoa->print;

print "Which restrictions do you want to place on the user:\n";
print "How many PTR records can he have: ";
my $ptr_rec = <>;
chomp($ptr_rec);
unless ($ptr_rec =~ /^\d+$/) {
    bailout ("needed to be a number");
}

print "Do you want the SOA to be locked (n): ";
my $answer = <>;
chomp($answer);
my $lock = 0;
$lock = 1 if $answer =~ /^y$/i;

print "Inserting records into db...\n";
my $dom_id = $dbh->selectrow_array("select domains_id.nextval from dual");
$dbh->do("insert into domains (id, domain, owner) values (?, ?, ?)", undef, $dom_id, $domain, $uid);
#printf("insert into domains (id, domain, owner) values ('','%s','%s')\n", $domain, $uid);
$dbh->do("insert into soa (domain, auth_ns, email, serial, refresh, default_ttl, expire, retry, rec_lock) values (?,?,?,?,?,?,?,?,?)", undef, $dom_id, $rrsoa->mname, $rrsoa->rname, $rrsoa->serial, $rrsoa->refresh, $rrsoa->ttl, $rrsoa->expire, $rrsoa-...
$dbh->do("insert into rec_count (domain, A_count, AAAA_count, CNAME_count, MX_count, NS_count, PTR_count, TXT_count) values (?,0,0,0,0,?,0)", undef, $dom_id, $ptr_rec);

foreach my $rr (@zone) {
    for ($rr->type) {
	if (/^PTR$/) {
	    print "PTR: ", $rr->name, " ", $rr->ptrdname, " ", $rr->ttl, "\n";
	    my $rec_lock = rec_lock();
	    $dbh->do("insert into records_PTR (id, domain, name, ptrdname, ttl, rec_lock) values (records_PTR_id.nextval,?,?,?,?,?)", undef, $dom_id, $rr->name, $rr->ptrdname, $rr->ttl, $rec_lock);	    
	} else {
	    print "UNKNOWN\n";
	}
    }
}

print "$domain succesfully imported\n";

$dbh->commit();

$dbh->disconnect();

sub rec_lock {
    my $lock = 0;
    print "Do you want this record to be locked (n): ";
    my $answer = <>;
    chomp($answer);
    $lock = 1 if $answer =~ /^y$/i;
    return $lock;
}

sub bailout {
    my $error = shift;

    print "ERROR: $error\n";
    $dbh->rollback();
    $dbh->disconnect();
    exit 1;
}