#!/usr/bin/perl

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

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'};
}

open(FILE, '>/etc/resolv.conf');
print FILE "nameserver $primarydns\n";
print FILE "nameserver $secondarydns\n";
close FILE;

chmod 0664, '/etc/resolv.conf';

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

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