sub control {
  my $service = $cmd{command}[1];
  my $command = $cmd{command}[2];
  my @all_services=('pfdhcplistener','pfmon','pfdetect','pfredirect','snort','httpd');

  if ($command =~ /^restart$/i) {
    local $cmd{command}[2] = "stop";
    control();
    local $cmd{command}[2] = "start";
    control();
    return;
  }

  my @services;
  if ($service !~ /^pf$/) {
    push @services, $service;
  } else {
    @services = service_list();
  }

  if ($command =~ /^start$/i) {
    sanity_check(@services);
    my $running_services = 0;
    foreach my $srv (@all_services) {$running_services++ if (service_ctl($srv, "status"))}
    if (!$running_services) {save_iptables($install_dir.'/var/iptables.bak');}
  }

  print "service|command\n";
  if ($command !~ /^stop$/){
    print "config files|$command\n";
    read_dhcp_fingerprints_conf();
    read_violations_conf();
    print "iptables|$command\n";
    generate_iptables();
    generate_sysctl_conf();
    `/sbin/sysctl -p $install_dir/conf/sysctl.conf`;
  }

  foreach my $srv (@services){
    service_ctl($srv, $command);
    print "$srv|$command\n";
  }

  if ($command =~ /^stop$/i) {
    my $running_services = 0;
    foreach my $srv (@all_services) {$running_services++ if (service_ctl($srv, "status"))}
    if (!$running_services) {restore_iptables($install_dir.'/var/iptables.bak');}
  }
}