michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-04 22:30:33 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-05-30 21:34:50 -07:00
parent e25eae389f
commit cdf631f397
1 changed files with 29 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
bind8/dns_boot.cgi
View File

@@ -1,24 +1,27 @@
#!/usr/local/bin/perl
# dns_boot.cgi
# Create an empty named.conf file and start the name server
use strict;
use warnings;
our (%text, %config, %in);
require './bind8-lib.pl';
&error_setup($text{'boot_err'});
&ReadParse();
$config{'named_conf'} =~ /^(\S+)\/([^\/]+)$/;
$conf_directory = $1;
$pid_file = $config{'pid_file'} || "/var/run/named.pid";
my $conf_directory = $1;
my $pid_file = $config{'pid_file'} || "/var/run/named.pid";
&lock_file(&make_chroot($config{'named_conf'}));
&lock_file(&make_chroot("$conf_directory/db.cache"));
$conf_temp = &transname("webmin.named.conf");
open(BOOT, ">$conf_temp");
print BOOT "options {\n";
print BOOT "\tdirectory \"$conf_directory\";\n";
print BOOT "\tpid-file \"$pid_file\";\n";
print BOOT "\t};\n";
print BOOT "\n";
$chroot = &get_chroot();
my $conf_temp = &transname("webmin.named.conf");
open(my $BOOT, ">", $conf_temp);
print $BOOT "options {\n";
print $BOOT "\tdirectory \"$conf_directory\";\n";
print $BOOT "\tpid-file \"$pid_file\";\n";
print $BOOT "\t};\n";
print $BOOT "\n";
my $chroot = &get_chroot();
if ($chroot && !-d $chroot) {
mkdir($chroot, 0755);
}
@@ -32,14 +35,15 @@ if ($config{'slave_dir'} && !-d &make_chroot($config{'slave_dir'})) {
mkdir(&make_chroot($config{'slave_dir'}), 0777);
}
if ($pid_file =~ /^(.*)\//) {
$pid_dir = $1;
my $pid_dir = $1;
if (!-d &make_chroot($pid_dir)) {
mkdir(&make_chroot($pid_dir), 0777);
}
}
if (!-r &make_chroot($pid_file)) {
&open_tempfile(PID, ">".&make_chroot($pid_file));
&close_tempfile(PID);
my $PID;
&open_tempfile($PID, ">", &make_chroot($pid_file));
&close_tempfile($PID);
&set_ownership(&make_chroot($pid_file));
}
if ($in{real} == 0) {
@@ -48,24 +52,24 @@ if ($in{real} == 0) {
elsif ($in{real} == 1) {
# Try to download the root servers file from
# ftp://rs.internic.net/domain/named.root
$err = &download_root_zone("$conf_directory/db.cache");
my $err = &download_root_zone("$conf_directory/db.cache");
&error($err) if ($err);
print BOOT "zone \".\" {\n";
print BOOT "\ttype hint;\n";
print BOOT "\tfile \"$conf_directory/db.cache\";\n";
print BOOT "\t};\n";
print BOOT "\n";
print $BOOT "zone \".\" {\n";
print $BOOT "\ttype hint;\n";
print $BOOT "\tfile \"$conf_directory/db.cache\";\n";
print $BOOT "\t};\n";
print $BOOT "\n";
}
elsif ($in{real} == 2) {
# Use builtin db.cache
&execute_command("cp ./db.cache ".&make_chroot("$conf_directory/db.cache"));
print BOOT "zone \".\" {\n";
print BOOT "\ttype hint;\n";
print BOOT "\tfile \"$conf_directory/db.cache\";\n";
print BOOT "\t};\n";
print BOOT "\n";
print $BOOT "zone \".\" {\n";
print $BOOT "\ttype hint;\n";
print $BOOT "\tfile \"$conf_directory/db.cache\";\n";
print $BOOT "\t};\n";
print $BOOT "\n";
}
close(BOOT);
close($BOOT);
&copy_source_dest($conf_temp, &make_chroot($config{'named_conf'}));
unlink($conf_temp);
&unlock_file(&make_chroot("$conf_directory/db.cache"));