[Users] Perl Client for oVirt REST API

[Frank Wall]

Hi,

I was searching for a Perl Client for the oVirt REST API, but I couldn't 
find one, so I hacked up one myself. It's called Net::oVirt::Lite and
it's entirely based on Net::Twitter::Lite, so credits go to it's author 
Marc Mims for this nice module.

Net::oVirt::Lite uses most of the XML examples from the REST API 
Guide [1]. You just need to pass the required params to the module 
and it will complete the XML code itself. The XML answer from 
oVirt Engine is parsed with XML::Simple and returned as a hashref 
for ease of use. You don't need to write or parse any XML.

Although Net::oVirt::Lite is a quick hack and far from complete 
I'd like to share what I've got. If someone is interested I'd like 
to maintain and further enhance it. Feedback, patches, bug reports 
are very welcome. There's no help file, so take a look at the source 
to get the API calls and params you need.

[1] 
https://access.redhat.com/knowledge/docs/en-US/Red_Hat_Enterprise_Virtualization/3.0/html-single/REST_API_Guide/index.html

DOWNLOAD
==============================
Temporary download location: http://dl.moov.de/perl/Net-oVirt-Lite-0.1.tar.gz
(sorry, not a complete distribution yet, no tests, no Makefile, no docs)


LICENSE
==============================
Net::oVirt::Lite is Copyright (c) 2012 inotronic Computers GmbH
Net::Twitter::Lite is Copyright (c) 2009 Marc Mims
The oVirt API itself, and the description text used in this module is:
Copyright (c) 2011 Red Hat, Inc.

This library is free software; you can redistribute it and/or modify 
it under the same terms as Perl itself.


SYNOPSIS
==============================
  use Net::oVirt::Lite;

  my $ov = Net::oVirt::Lite->new(
      apiurl   => 'https://ovirt-engine.example.com:8443/api',
      username => $user,
      password => $password
  );

  # Test connection
  my $result = eval { $ov->api_connection_test };

  # List all VMs
  eval {
      my $vms = $ov->vms;
      foreach my $vm ( keys %{ $vms->{'vm'} } ) {
          print "Found $vm with ID " . $vms->{'vm'}->{$vm}->{'id'} . "\n";
      }
      print "No VMs found.\n" if scalar(keys %{ $vms->{'vm'} }) < 1;
  };
  warn "$@\n" if $@;

  # Stop VM
  $result = eval { $ov->stop_vm({ vm_id => '8cc4b549-b79f-4fd5-82f1-556175225cf3' }) };

  # Change CPU Cores
  $ov->vm_cpu({ vm_id => '8cc4b549-b79f-4fd5-82f1-556175225cf3', cpu_cores => 2, cpu_sockets => 1 });



Regards
- Frank