Displaying 8 results from an estimated 8 matches for "status_line".
2011 May 31
3
uploading files via REST?
...;header(''Accept'' => ''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->requ...
2007 May 28
1
[1.2.18] Wrong steps in extensions.conf?
...ear % 100);
$currenttime = sprintf("%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.
2004 Aug 06
0
Reloading ices (0.2.3) playlist
...WP::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 {
print "Getting meta data from \
http://tunes.3dcrm.co.uk/stre...
2005 Apr 17
0
Listener count in stream title
...= 'source';
my $pass = '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;...
2009 Feb 11
8
how to get DTrace to use the same structure field alignment as C?
Is there a pragma to turn off padding or some other mechanism besides
dummying up fields to make them char[] to disable padding?
Thanks!
2010 Jan 29
4
[FOR REVIEW ONLY] ESX work in progress
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
2010 Feb 01
9
[ESX support] Working ESX conversion for RHEL 5
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
2010 Sep 21
1
[PREVIEW ONLY] Refactor data transfer code
...r => $self->{_v2v_server},
- username => $self->{_v2v_username})))
- }
+ my ($conn) = $self->_request('GET', $uri);
- die(user_message(__x("Failed to connect to ESX server: {error}",
- error => $r->status_line)));
+ $self->{conn} = $conn;
+ $self->{hostname} = $uri->host;
}
-sub get_basic_credentials
+sub read_content
{
my $self = shift;
+ my ($size) = @_;
+
+ my $conn = $self->{conn};
+ die("read_content called without request_content") unless (defined($conn...