From: michael Date: Mon, 22 May 2006 12:01:43 +0000 (+0000) Subject: non-working X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/b78d620f92951712aae906f6bac0bd1b166644cc?hp=ab877a99b139312070dc8db8f8d2062b775c788d non-working --- diff --git a/snom.pl b/snom.pl index 45137b6..7b96919 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.30 2006-05-22 11:50:33 michael Exp $ +#$Id: snom.pl,v 1.31 2006-05-22 12:01:43 michael Exp $ # http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html @@ -353,6 +353,9 @@ sub KBDInput 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); + print $req->content()."\n"; $g_identity->append_text("\@line1"); $g_identity->set_active(0); }