Attached is a perl script that i use to maintain our zenoss and idb in sync using xmlrpc and rest calls.
Hope this helps On Fri, 2007-05-04 at 13:48 -0600, Jamie Bohr wrote: > I am trying devices with Perl using > http://dev.zenoss.org/trac/wiki/HowToAddDevice as a reference. > > I am using the below in my Perl code > > $serv = RPC::XML::Client->new(' > http://admin:[EMAIL PROTECTED]:8080/zport/dmd/DeviceLoader'); > print $serv->simple_request('loadDevice', > RPC::XML::string->new(' myhost.mydomain'), # > device name > RPC::XML::string->new(''), # device Path > RPC::XML::string->new(''), # Tag > RPC::XML::string->new(''), # serail number > RPC::XML::string->new(''), # zSnmpCommunity > RPC::XML::string->new(''), # zSnmpPort > RPC::XML::string->new(''), # zSnmpVer > RPC::XML::string->new(''), # rackSlot > RPC::XML::string->new(''), # productionState > RPC::XML::string->new(''), # comments > RPC::XML::string->new(''), # hwManufacturer > RPC::XML::string->new(''), # hwProductName > RPC::XML::string->new(''), # osManufacturer > RPC::XML::string->new(''), # osProductName > RPC::XML::string->new(''), # locationPath > RPC::XML::string->new(''), # groupPaths > RPC::XML::string->new(''), # systemPaths > RPC::XML::string->new(''), # statusMonitors > RPC::XML::string->new(''), # > performanceMonitor > RPC::XML::string->new('none') # > discoverProto > ); > > > I get no Perl error and the system (myhost.mydomain) does not get > added. Am I using the function wrong? How do I tell if there is an > error in the call? Sorry, I have been tasked to get this done today > and have had many interruptions and need some advice. > > Thank you, > > > -- > Jamie Bohr > _______________________________________________ > zenoss-users mailing list > [email protected] > http://lists.zenoss.org/mailman/listinfo/zenoss-users
shared_mysql.pl
Description: Perl program
_______________________________________________ zenoss-users mailing list [email protected] http://lists.zenoss.org/mailman/listinfo/zenoss-users
