my $swis = SW::InformationService->new();
$swis->outputxml("true");
$swis->proxy($endpoint);
$swis->proxy->ssl_opts( verify_hostname => 0 );
my $resp = $swis->Create(
'Orion.Nodes',
{
'SysName' => 'apitest3',
'Contact' => 'DGATES',
'Location' => 'owb.1145.01.02',
'Caption' => 'apitest3',
'IPAddress' => '192.168.143.232',
'IPAddressGUID' => ip2guid('192.168.143.232'),
'DynamicIP' => 0,
'EngineID' => 2,
'Status' => 1,
'Allow64BitCounters' => 1,
'ObjectSubType' => 'SNMP',
'EntityType' => 'Orion.Nodes',
'SNMPVersion' => 2,
'Community' => 'tnci991145',
'MachineType' => 'net-snmp - Linux',
'SysObjectID' => '1.3.6.1.4.1.8072.3.2.10',
'UnManaged' => 0,
'Vendor' => 'net-snmp',
'VendorIcon' => '8072.gif',
'BufferNoMemThisHour' => -2,
'BufferNoMemToday' => -2,
'BufferSmMissThisHour' => -2,
'BufferSmMissToday' => -2,
'BufferMdMissThisHour' => -2,
'BufferMdMissToday' => -2,
'BufferBgMissThisHour' => -2,
'BufferBgMissToday' => -2,
'BufferLgMissThisHour' => -2,
'BufferLgMissToday' => -2,
'BufferHgMissThisHour' => -2,
'BufferHgMissToday' => -2,
'PercentMemoryUsed' => -2,
'TotalMemory' => -2,
'SNMPV2Only' => 0,
'External' => 0,
'DNS' => '',
'IOSImage' => '',
'IOSVersion' => '',
'RediscoveryInterval' => 60,
'PollInterval' => 180,
'StatCollection' => 5,
'Description' => 'API Test #3',
}
);
print "Response is $resp\n";
$resp =~ /NodeID=(\d+)\</;
my $nid = $1;
print "New node id is $nid\n";
die "Add node failed" unless $nid =~ /\d/;