<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-US" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal">Hi,<o:p></o:p></p>
<p class="MsoNormal"> I wanted to use perl Sys::Virt (which uses libvirt) to remotely connect KVM hypervisor. As a start I tried following simple script(KVM.pl) but I am getting following error.<o:p></o:p></p>
<p class="MsoNormal">First it will ask for authentication which I am providing to it manually then it fails. Do I need to do some configuration on KVM hypervisor before executing this script? Any help is appreciated.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">bash-3.2$ perl KVM.pl<o:p></o:p></p>
<p class="MsoNormal">root@10.238.132.125's password:<o:p></o:p></p>
<p class="MsoNormal">Unable to open connection to qemu+ssh://root@10.238.132.125/system?no_verify=1: End of file while reading data: Warning: Perm: Input/output error8.132.125' (RSA) to the list of known hosts.<o:p></o:p></p>
<p class="MsoNormal">Can't call method "list_domains" on an undefined value at KVM.pl line 21.<o:p></o:p></p>
<p class="MsoNormal">bash-3.2$<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="color:#0070C0">bash-3.2$ cat KVM.pl<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">use strict;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">use warnings;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">use Sys::Virt;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">use Data::Dump qw(dump);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">my $user = "root";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">my $host = <some_host>;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">my $uri = "qemu+ssh://root\@$host/system?no_verify=1";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">my $vmm;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">eval {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> $vmm = Sys::Virt->new(uri => $uri, readonly => 1);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">};<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">if ($@) {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> print "Unable to open connection to $uri: " . $@->message . "\n";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">}<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">for my $dom ($vmm->list_domains, $vmm->list_defined_domains) {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> ## see perldoc Sys::Virt::Domain<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> print "name: ", $dom->get_name, "\n";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> print "uuid: ", $dom->get_uuid_string(), "\n";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> ## $dom->get_info returns a hash reference<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> dump $dom->get_info;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"> print "\n";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">}<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">Regards,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#0070C0">Rawat<o:p></o:p></span></p>
</div>
</body>
</html>