search for: is_success

...;' => ''s''); sub get_string { my $req = HTTP::Request->new(''GET'', "https://$server/production/file_metadata/".$_[0], $ay); my $res = $ua->request($req); die "Something went wrong: ".$res->status_line unless $res->is_success; my @ini = YAML::Load($res->content."\n"); my $md5 = $ini[0]->{checksum}; $md5 =~ s/^{md5}//; $req = HTTP::Request->new(''GET'', "https://$server/production/file_bucket_file/md5/$md5", $as); $res = $ua->request($req); die "So...

We were seeing 100% failure rates transferring 10G disk images from ESX on a particular setup. We also weren't spotting the transfer failure, and dying with a strange error from libguestfs. These 2 patches fix the error check which should have made it obvious what was failing, and the underlying error.

...f("%02d:%02d", $hrs,$min); $url .= "date=" . $currentdate . "&"; $url .= "time=" . $currenttime; #print $url . "\n"; my $response = $browser->get( $url ); die "Can't get $url -- ", $response->status_line unless $response->is_success; print $response->content; ================= Could it be that, sometimes, Asterisk doesn't wait for the previous step to be completed before moving on to the next? Thank you.

...tp://tunes.3dcrm.co.uk/stream/next.php\n"; my $ua=new LWP::UserAgent; my $req=HTTP::Request->new(GET => \ "http://tunes.3dcrm.co.uk/stream/next.php"); print "Making request..."; my $res=$ua->simple_request($req); if(!$res->is_success) { print "Failed: " . $res->status_line . "\n"; } print "Done\n"; my $filename=$res->content; return($filename); } # If defined, the return value is used for title streaming (metadata) sub ices_get_metadata {...

...s = 'changeme'; my $host = 'localhost:8000'; my $realm = 'Icecast2 Server'; my $maxclients = 100; my $ua = LWP::UserAgent->new; $ua->timeout(10); #$ua->env_proxy; my $res = $ua->get("http://$host/status2.xsl"); die $res->status_line unless $res->is_success; my $content = $res->content; $content =~ s|.*<pre>(.*)</pre>|$1|s; foreach my $line (split(/\n/, $content)) { if ($line =~ /^$mounts,/) { if ($line =~ /^([^,]*),[^,]*,[^,]*,(\d+),[^,]*, - (.*),$/) { my $mount = $1; my $listeners = $2; my $title = $3;...

mkinitrd needs to mount files using loop. loop might be a module, so try to load it first. --- lib/Sys/VirtV2V/GuestOS/RedHat.pm | 7 +++++++ 1 files changed, 7 insertions(+), 0 deletions(-) diff --git a/lib/Sys/VirtV2V/GuestOS/RedHat.pm b/lib/Sys/VirtV2V/GuestOS/RedHat.pm index 0e469f5..08027b6 100644 --- a/lib/Sys/VirtV2V/GuestOS/RedHat.pm +++ b/lib/Sys/VirtV2V/GuestOS/RedHat.pm @@ -1114,6

...sub get_volume # We could do this with a single GET request. The problem with this is that # you have to create the volume before writing to it. If the volume creation # takes a very long time, the transfer may fail in the mean time. - my $r = $self->head($url); - if ($r->is_success) { - $self->verify_certificate($r) unless ($self->{_v2v_noverify}); - $self->create_volume($r); - } else { - $self->report_error($r); + my $retried = 0; + SIZE: for(;;) { + my $r = $self->head($url); + if ($r->is_success) { +...

...ssword, $pool, $verify) = @_; + my ($server, $username, $password, $target, $noverify) = @_; my $self = $class->SUPER::new( agent => 'virt-v2v/'.$Sys::VirtV2V::VERSION, @@ -65,7 +65,7 @@ sub new { my ($response, $self, $h) = @_; if ($response->is_success) { - $self->verify_certificate($response) if ($verify); + $self->verify_certificate($response) unless ($noverify); $self->create_volume($response); } }); @@ -75,14 +75,14 @@ sub new { $self->{_v2v_username} = $username; $self-&g...

The following patches are where I'm currently at with ESX support. I can now import a domain from ESX along with its storage. Note that I'm not yet doing any conversion. In fact, I've never even tested past the import stage (I just had an exit in there). The meat is really in the 4th patch. The rename of MetadataReader->Connection was because the Connection is now really providing

With this patchset I have successfully[1] imported a RHEL 5 guest directly from ESX with the following command line: virt-v2v -ic 'esx://yellow.marston/?no_verify=1' -op transfer RHEL5-64 Login details are stored in ~/.netrc Note that this is the only guest I've tested against. I haven't for example, checked that I haven't broken Xen imports. Matt [1] With the exception of

...e GET request. The problem with this is that - # you have to create the volume before writing to it. If the volume creation - # takes a very long time, the transfer may fail in the mean time. - my $retried = 0; - SIZE: for(;;) { - my $r = $self->head($url); - if ($r->is_success) { - $self->verify_certificate($r) unless ($self->{_v2v_noverify}); - $self->create_volume($r); - last SIZE; - } - - # If a disk is actually a snapshot image it will have '-00000n' - # appended to its name, e.g.: - # [ye...