#!/usr/bin/perl

require '/var/smoothwall/header.pl';

umask 022;

my %pppsettings;

# read vars back from file.
&readhash("${swroot}/ppp/settings", \%pppsettings);

$dns = $pppsettings{'DNS'};
$primarydns = $pppsettings{'DNS1'};
$secondarydns = $pppsettings{'DNS2'};

if ($dns eq 'Automatic') 
{
	$primarydns = $ENV{'DNS1'};
	$secondarydns = $ENV{'DNS2'};
}

$command = '/usr/local/bin/dnrd';
if ($primarydns) {
	$command = "$command -s $primarydns"; }
if ($secondarydns) {
	$command = "$command -s $secondarydns"; }
@commandlist = split / /, $command;

system @commandlist;

system ('touch', "${swroot}/ppp/active");

system "/bin/echo -en '\a' >/dev/console";
