X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/blobdiff_plain/b78d620f92951712aae906f6bac0bd1b166644cc..810d7a536b8b17299b53cba7e4acdca46dd44a9f:/snom.pl
diff --git a/snom.pl b/snom.pl
index 7b96919..8bf0869 100755
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
#!/bin/sh
-#$Id: snom.pl,v 1.31 2006-05-22 12:01:43 michael Exp $
+#$Id: snom.pl,v 1.38 2006-05-22 12:22:53 michael Exp $
# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
@@ -57,7 +57,7 @@ $g_host->set_active(0);
UpdatePhoneInfo();
$g_host->signal_connect(changed => \&UpdatePhoneInfo);
$g_host->show();
-$g_host->signal_connect(changed => \&SwitchIdentity);
+$g_identity->signal_connect(changed => \&SwitchIdentity);
$g_identity->show();
set_locale Gtk2;
@@ -352,12 +352,25 @@ 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");
+ my $response = $ua->request($req);
+
$g_identity->set_active(0);
+ while($g_identity->get_active() == 0) {
+ $g_identity->remove_text(0);
+ $g_identity->set_active(0);
+ }
+ my @lines=split("\n", $response->content());
+ foreach (@lines) {
+ chomp;
+ #
+ #
+ #
+ if (m/^\