#!/usr/bin/perl

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

my %pppsettings;

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

unlink "${swroot}/ppp/active";

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