#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib
use Getopt::Std;
use System;

getopts("o:n:", \%opts);

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

my $old = $opts{o};
my $new = $opts{n};
if (!$old || !$new) {
  print "Usage: change_wwn -o wwn -n wwn\n";
  exit(0);
}

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

$changed = 0;
foreach my $d (@$devs) {
   if ($d->{key} eq $old) {
      $d->{key} = $d->{wwn} = $new;
      $changed = 1;
   }
}
if ($changed) {
   PDM::ConfigFile->write($renv, $devs, $hosts, $notifs);
}
