#!/usr/bin/perl
# start.cgi
# Start bind 8
use strict;
use warnings;
our (%access, %text, %in);

require './bind8-lib.pl';
$access{'ro'} && &error($text{'start_ecannot'});
$access{'apply'} || &error($text{'start_ecannot'});
my $err = &start_bind();
&error($err) if ($err);
&webmin_log("start");
&redirect($in{'return'} ? $ENV{'HTTP_REFERER'} : "");