Apache-DnsZone
view release on metacpan or search on metacpan
Domain for inserting into DnsZone: example.com
User to add example.com for: test
From which nameserver do you want to transfer the zone for example.com: yourname.server
Performing Zone transfer...
Which restrictions do you want to place on the user:
How many A records can he have: 10
How many CNAME records can he have: 10
How many MX records can he have: 10
How many NS records can he have: 10
How many TXT records can he have: 10
Do you want the SOA to be locked (n):
Inserting records into db...
NS: example.com yourname.server 86400
Do you want this record to be locked (n): y
MX: example.com mail.example.com 10 86400
Do you want this record to be locked (n):
A: mail.example.com 192.168.1.1 86400
Do you want this record to be locked (n):
example.com succesfully imported
You should now be set for accessing the webinterface, fire up your
favorite browser and point it to the host you created in apache.
If the software is complaining about missing modules you need to
install those.
If you encounter any bugs please report them so they can be fixed.
bin/mysql/addreversezone.pl view on Meta::CPAN
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+$/) {
print "needed to be a number\n";
$dbh->disconnect();
exit 1;
}
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";
$dbh->do("insert into domains (id, domain, owner) values ('', ?, ?)", undef, $domain, $uid);
my $dom_id = $dbh->selectrow_array("select id from domains where domain = ? and owner = ?", undef, $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-...
bin/mysql/addreversezone.pl view on Meta::CPAN
}
}
print "$domain succesfully imported\n";
$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;
}
bin/mysql/addzone.pl view on Meta::CPAN
}
print "How many TXT records can he have: ";
my $txt_rec = <>;
chomp($txt_rec);
unless ($txt_rec =~ /^\d+$/) {
print "needed to be a number\n";
$dbh->disconnect();
exit 1;
}
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";
$dbh->do("insert into domains (id, domain, owner) values ('', ?, ?)", undef, $domain, $uid);
my $dom_id = $dbh->selectrow_array("select id from domains where domain = ? and owner = ?", undef, $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-...
bin/mysql/addzone.pl view on Meta::CPAN
}
}
print "$domain succesfully imported\n";
$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;
}
bin/oracle/addreversezone.pl view on Meta::CPAN
#$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-...
bin/oracle/addreversezone.pl view on Meta::CPAN
}
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";
bin/oracle/addzone.pl view on Meta::CPAN
unless ($ns_rec =~ /^\d+$/) {
bailout ("needed to be a number");
}
print "How many TXT records can he have: ";
my $txt_rec = <>;
chomp($txt_rec);
unless ($txt_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-...
bin/oracle/addzone.pl view on Meta::CPAN
}
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";
bin/postgresql/addreversezone.pl view on Meta::CPAN
print "How many PTR records can he have: ";
my $ptr_rec = <>;
chomp($ptr_rec);
unless ($ptr_rec =~ /^\d+$/) {
print "needed to be a number\n";
$dbh->rollback();
$dbh->disconnect();
exit 1;
}
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";
$dbh->do("insert into domains (id, domain, owner) values ('', ?, ?)", undef, $domain, $uid);
my $dom_id = $dbh->selectrow_array("select id from domains where domain = ? and owner = ?", undef, $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-...
bin/postgresql/addreversezone.pl view on Meta::CPAN
}
}
$dbh->commit();
print "$domain succesfully imported\n";
$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;
}
bin/postgresql/addzone.pl view on Meta::CPAN
print "How many TXT records can he have: ";
my $txt_rec = <>;
chomp($txt_rec);
unless ($txt_rec =~ /^\d+$/) {
print "needed to be a number\n";
$dbh->rollback();
$dbh->disconnect();
exit 1;
}
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";
$dbh->do("insert into domains (id, domain, owner) values ('', ?, ?)", undef, $domain, $uid);
my $dom_id = $dbh->selectrow_array("select id from domains where domain = ? and owner = ?", undef, $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-...
bin/postgresql/addzone.pl view on Meta::CPAN
}
}
$dbh->commit();
print "$domain succesfully imported\n";
$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;
}
lib/Apache/DnsZone.pm view on Meta::CPAN
if (/^A$/) { ($rec_lock) = $dbh->get_lock_A($dom_id, $record_id); }
elsif (/^AAAA$/) { ($rec_lock) = $dbh->get_lock_AAAA($dom_id, $record_id); }
elsif (/^CNAME$/) { ($rec_lock) = $dbh->get_lock_CNAME($dom_id, $record_id); }
elsif (/^MX$/) { ($rec_lock) = $dbh->get_lock_MX($dom_id, $record_id); }
elsif (/^NS$/) { ($rec_lock) = $dbh->get_lock_NS($dom_id, $record_id); }
elsif (/^PTR$/) { ($rec_lock) = $dbh->get_lock_PTR($dom_id, $record_id); }
elsif (/^TXT$/) { ($rec_lock) = $dbh->get_lock_TXT($dom_id, $record_id); }
else { $rec_lock = 1; }
}
if ($rec_lock) {
$r->log_reason("User tried to delete a locked record");
output_redirect($r, 1, '/admin');
$dbh->close();
return REDIRECT;
}
if (apr()->param('button') && lc(apr()->param('button')) eq lc($lang{'SUBMIT'})) {
Debug(5, qq{This is a submit of delete_record request});
for ($type) {
if (/^A$/) {
if (dns_del_A($dom_id, $record_id)) {
lib/Apache/DnsZone.pm view on Meta::CPAN
elsif (/^A$/) { ($rec_lock) = $dbh->get_lock_A($dom_id, $record_id); }
elsif (/^AAAA$/) { ($rec_lock) = $dbh->get_lock_AAAA($dom_id, $record_id); }
elsif (/^CNAME$/) { ($rec_lock) = $dbh->get_lock_CNAME($dom_id, $record_id); }
elsif (/^MX$/) { ($rec_lock) = $dbh->get_lock_MX($dom_id, $record_id); }
elsif (/^NS$/) { ($rec_lock) = $dbh->get_lock_NS($dom_id, $record_id); }
elsif (/^PTR$/) { ($rec_lock) = $dbh->get_lock_PTR($dom_id, $record_id); }
elsif (/^TXT$/) { ($rec_lock) = $dbh->get_lock_TXT($dom_id, $record_id); }
else { $rec_lock = 1; }
}
if ($rec_lock) {
$r->log_reason("User tried to change a locked record");
output_redirect($r, 1, '/admin');
$dbh->close();
return REDIRECT;
}
if (apr()->param('button') && lc(apr()->param('button')) eq lc($lang{'SUBMIT'})) {
Debug(5, qq{This is a submit of edit_record request});
for ($type) {
if (/^SOA$/) {
my $soa_email = apr()->param('soa_email');
( run in 1.167 second using v1.01-cache-2.11-cpan-49f99fa48dc )