Need XML APIs for finding server status details

Question

Hi,
Can any one help me with the XML API format for finding server status details like Admin State,Avail State,Assoc State,etc.
Thanks and Regards
-Prateek

Answer 1

Here is a very basic example.  I pulled out all the extra error trapping / logging.  I have been building a module that simplifies  most of this .. will produce simple Dumper output for what you are generally looking to do.
The below example will connect to a default UCSM emulator ( http://developer.cisco.com/web/unifiedcomputing/start ) .. just change IP to match.  If you want a significantly more detailed information ( hierarchical ) ... change inHierarchical="false" to  inHierarchical="true".
Let me know if you want something more specific.
#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request::Common;
use XML::Simple;
use POSIX;
$Data::Dumper::Purity = 1;
$Data::Dumper::Useqq = 1;
### Configurables
my $ucsm = "10.#.#.#";
my $user = "config";
my $pass = "config";
my $proto = "http";
my $cookie;
my $xml = XML::Simple->new();
my $xml_blade = XML::Simple->new(ForceArray => ['computeBlade']);
## Setup User Agent
my $ContentType = "application/x-www-form-urlencode";
my $userAgent = LWP::UserAgent->new(agent => 'perl post');
$userAgent->timeout(5);
&connect;
my $blades = &getblade;
print Dumper $blades;
&disconnect;
### Subroutines
sub connect {
   my $message = q();
   print 'http://'.$ucsm.'/nuova\n';
   my $response = $userAgent->request(POST $proto.'://'.$ucsm.'/nuova', Content_Type => $ContentType, Content => $message);
   my $xml_ref = $xml->XMLin($response->content);
   $cookie = $xml_ref->{outCookie};
sub getblade {
   my $message = q();
   my $response = $userAgent->request(POST $proto.'://'.$ucsm.'/nuova', Content_Type => $ContentType, Content => $message);
   my $xml_ref = $xml_blade->XMLin($response->content, keyattr => []);
   return $xml_ref->{outConfigs};
sub disconnect {
   my $message = q();
   my $response = $userAgent->request(POST $proto.'://'.$ucsm.'/nuova', Content_Type => $ContentType, Content => $message);