#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser); # log errors to browser window

require './config.cgi';
require './functions.cgi';

# set values before parsing so they can't be overridden
use vars qw ($basedir $chroot $dnsconf);

$basedir = $FORM{'BASEDIR'};
$chroot = $FORM{'CHROOT'};

if ($FORM{'CONFLOCATION'}) { $::dnsconf = $FORM{'CONFLOCATION'}; }
elsif ($FORM{'CONFIGFILE'}) { $::dnsconf = "$FORM{'CONFIGFILE'}"; }
else { $::dnsconf = "named.conf"; }
$::dnsconf = &clean_filename($::dnsconf);

&parse_form;

&html_header("Named has been refreshed");
&named_refresh("refresh");
&html_footer;
exit;