#!/opt/bin/perl -I/opt/ras/lib -d
use PDM::Catalog;

use System;
System->set_home("/opt/ras/");
System->set_rasport("7654");
$P = "PDM::Catalog";

$P->read();


$P->set("n2w", "purple12", "purple12wwn");
$P->set("a2w", "1.1.1.1", "purple12wwn");

print "N=" . $P->get("w2n", "purple12wwn") . "\n";

$P->write();







