#!/usr/bin/perl 

# Purpose:  using PC,entity_type list provided by jrod, compare those
#           entries to the current ETR file entry

# Report
# ETR                                                                  jrod DB
#SSP LXTNMAAUCM0 458 NENG1MSC "" 0 REM SSP 219-107-205 "" "" ""      219-107-205  MSC
#SSP FRFDNJ46CM0 1318 NYRK2MSC "" 0 REM SSP 219-111-205 "" "" ""     219-111-205  MSC
#SSP WEVLOHCNCM0 1380 219-111-103 "" 0 REM SSP 219-111-103 "" "" ""  219-111-103  MSC
#SSP PHLAPAFGCM3 1359 219-103-205 "" 0 REM SSP 219-103-205 "" "" ""  219-103-205  MSC
#SSP IRVECACMCM0 1249 SCAL2MSC "" 0 REM SSP 219-104-154 "" "" ""     219-104-154  MSC

use English;
use Carp;
use Cwd;
use DBI;
use Net::Ping;
use File::Basename;
use File::Path;
use File::Glob;
use File::Copy;

my $etr = "/tmp/wm/wm.etr";
#my $etr = "/h/bmetzger/s/tmp/all/wm.etr";
my $DB = "/h/bmetzger/s/link_stuff/STEntityID.csv";

 # if ETR file is missing, or created > one days ago.....
   if ( (! -e $etrfile) || (-C $etrfile > 1) ) {
        printf PROBLEMS  "$etrfile missing or old\n";
   }

  open (DB, "<$DB") or croak "Can't open DB file for read: $!\n"; 
  while (my $line = <DB>) {
         next if $line =~ /^(\s)*$/;   #ignore blank lines 
        chomp $line;
        $line =~ s/\s+//;
        my ($pc, $type) = split(/,/,$line);

      open (ETR, "<$etr") or croak "Can't open ETR file for read: $!\n"; 
      while (my $input = <ETR>) {
           chomp $input;
           if ( ($input =~ /$pc/) && ($input !~ /acceSS7/)) {
                my @arr = split(/\s+/,$input);
#print "arr0:$arr[0]\n";
                if ( $arr[0] !~ $type) {
                 print "$input   $pc  $type\n";
                }
           }
      }
      close (ETR);
  }
  close (DB);
