#!/usr/bin/perl

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

my %pppsettings;

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

if ($pppsettings{'COMPORT'} eq 'ttyS0' || $pppsettings{'COMPORT'} eq 'ttyS1')
{
	$lockfile = "/var/lock/LCK..${pppsettings{'COMPORT'}}";
	if (open(FILE, $lockfile))
	{
		$pid = <FILE>;
		close FILE;
		system "kill $pid";
	}
}
