#!/usr/bin/perl -I/opt/SUNWstade/lib

use System;

System->set_home("/opt/SUNWstade");


my($renv, $devs, $hosts,$notifs) = PDM::ConfigFile->read();


open(O, "/etc/deviceIP.conf");

while ($l = <O>) {
  next if (substr($l,0,1) eq "#");
  chop($l);
  my($ip, $name) = split(/\s+/, $l);

  $NAME{$ip} = $name if ($name);
}
close(O);

foreach my $d (@$devs) {
   if ($NAME{$d->{ipno}}) {
       $d->{name} = $NAME{$d->{ipno}};
   }
}

PDM::ConfigFile->write($renv, $devs, $hosts,$notifs);

print "changing the names using /etc/deviceIP.conf completed!\n";






