#!/s/std/bin/perl -w

use strict;
use CSL::DBs;
use CSL::Sybase;
use CSL::Pg;
use DBI;

my $dbhp = DBI->connect($CSL::DBs::csdb);
my %hash;

open("FH", "</s/dhcp/conf/dhcpd.conf") or die("Could not open the specified file: $!");

while (<FH>) {
  if ($_ =~ /host\s+(\w+)\s+\{/) {
    my $host = $1;
    $hash{$host} = 1;
  }
}
close("FH");

open("FH", "</u/p/e/petska/splat/dhcpd.conf") or die("Could not open the specified file: $!");

while (<FH>) {
  if ($_ =~ /host\s+(\w+)\s+\{/) {
    my $dhost = $1;
      print "$dhost\n" unless $hash{$dhost};
  }
}
close("FH");
