#!/usr/bin/perl 

# Purpose: Looking for nodename which begins with 219 

# 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

use English;
use Carp;
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";

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

   open (ETR, "<$etr") or croak "Can't open ETR file for read: $!\n"; 
    while (<ETR>) {
          if (/^\[nodes\]$/ ... /^(\s)*$/) {
               next if /^\#/ ;
               @arr = split(/\s+/,$_);
#               if ($arr[1] !~ $arr[3]) {
               if ($arr[8] !~ /^219/) {
                      print "$_";
                }
          }
    }
    close (ETR);
