non-working

diff --git a/snom.pl b/snom.pl
index 45137b62d54238196debd33ace06cc4db3d4ff41..7b9691923e83de3506328d603ad2bf99a73844e7 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
 #!/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
 
 
 # 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";
 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);
 }
        $g_identity->append_text("\@line1");
        $g_identity->set_active(0);
 }