Here's an example of calling the new version (don't know how well this
will turn out with line wrapping):


@inform_dest   = ("sinxgp117s\.southernco\.com",
"gaxgpov4\.southernco\.com");
my @attrs         = ();
#
# Set the device type.
#
if    ($NodePropertyGrp =~ /$router/i)        { $attrs[0] = "Device
Type=Router"; }
elsif ($NodePropertyGrp =~ /$switch/i)        { $attrs[0] = "Device
Type=Switch"; }
elsif ($NodePropertyGrp =~ /$hub/i)           { $attrs[0] = "Device
Type=Hub";    }
elsif ($NodePropertyGrp =~ /$remote_access/i) { $attrs[0] = "Device
Type=Remote access device"; }
elsif ($NodePropertyGrp =~ /$load_balancer/i) { $attrs[0] = "Device
Type=Load balancer"; }
elsif ($NodePropertyGrp =~ /$unknown/i)       { $attrs[0] = "Device
Type=Device"; }
else  { $attrs[0] = "Device Type=Device"; }
#
# We're sending a node up event because it's already rebooted
# and operating again.
#
my $inform_number = 120001; # node up
$attrs[1]         = "Reason= (rebooted)";
#
# Send the inform to Netcool.
#
&netcool_inform(\@inform_dest, $inform_number, \@attrs);