#!/bin/sh
-#$Id: snom.pl,v 1.35 2006-05-22 12:15:35 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
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;
my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/");
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;