From: michael Date: Mon, 22 May 2006 12:05:10 +0000 (+0000) Subject: request works X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/c4ce2c546971c1ab903ba190509abc4169cc90dc?ds=sidebyside request works --- diff --git a/snom.pl b/snom.pl index aba0d35..ff690eb 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.32 2006-05-22 12:03:37 sithglan Exp $ +#$Id: snom.pl,v 1.33 2006-05-22 12:05:10 michael Exp $ # http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html @@ -354,12 +354,12 @@ sub UpdatePhoneInfo { print "TODO: Update PhoneInfo from <".${$Config{$sections[$g_host->get_active]}}{host}."> here!\n"; my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/"); - $ua->request($req); - if (! $ua->success) { + my $response = $ua->request($req); + if ($response->is_error) { die("Can't retrieve line information: ", $ua->response->status_line); } - print $req->response->content()."\n"; + print $response->content()."\n"; $g_identity->append_text("\@line1"); $g_identity->set_active(0); }