#!/usr/bin/perl -w

package esmith;

use strict;
use Errno;
use esmith::ConfigDB;
use esmith::util;

    our $db = esmith::ConfigDB->open('');

    my $status  = $db->get_prop('dansguardian', 'status') || '' ;

    if ($status eq 'disabled')
    {
      if (-e '/var/run/dansguardian.pid')
      {
        system("/usr/sbin/dansguardian -q") == 0
          or warn ("Error occurred stopping dansguardian.\n");
      }
    }

exit (0);
