#!/usr/bin/perl
use JSON;
use LWP::UserAgent;
$url="https://api.rhn.racpsace.com/cgi-bin/rpc/api.cgi";
$token="<core token>";
$servername=$ARGV[0];
chomp($servername);

#debug
print "$servername\n";

$json=new JSON;
$ua=LWP::UserAgent->new;
$ua->agent("my api script");
$ua->default_header("X-Auth" => $token);
$req={
  'action' => 'system.searchName',
  'name' => $servername
  };
$out=$json->pretty->encode($req);
$response=$ua->post("$url", Content => $out);
$decoded=$json->decode($response->decoded_content);
foreach $system(@{$decoded->{'response'}})
  {
  $rhn_server=$system->{'rhn_server'};
  $id=$system->{'id'};
  }

#debug
print qq(rhn_server = $rhn_server
system_id = $id\n);

$ua->agent("my api script");
$ua->default_header("X-Auth" => $token);
$req={
  'action' => 'system.softwarePackages',
  'rhn_server' => $system->{'rhn_server'},
  'id' => $system->{'id'}
  };
$out=$json->pretty->encode($req);
$response=$ua->post("$url", Content => $out);
$decoded=$json->decode($response->decoded_content)->{'response'};
foreach $package(@{$decoded->{'packages'}})
  {
  if($package->{'name'} eq "libssh") {
    print qq($server - $package->{'name'}-$package->{'version'}-$package->{'release'}-$package->{'arch'}\n);
    }
  }
exit;