X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/blobdiff_plain/f0fad26da5554c435bccb5f6cb117fe49f2e97e2..c78daee5180666efc5a13f256b4f73c70f71dc48:/snom.pl
diff --git a/snom.pl b/snom.pl
index bcfdfe8..da06ee5 100755
--- a/snom.pl
+++ b/snom.pl
@@ -1,7 +1,5 @@
#!/bin/sh
-#$Id: snom.pl,v 1.27 2006-05-22 11:18:14 michael Exp $
-
-# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
+#$Id: snom.pl,v 1.39 2006-05-22 12:27:16 michael Exp $
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
@@ -17,6 +15,7 @@ use LWP::UserAgent;
my %g_key = ();
my $g_host = Gtk2::ComboBox->new_text();
+my $g_identity = Gtk2::ComboBox->new_text();
my $ua = LWP::UserAgent->new;
open(INIFILE,"<$ENV{HOME}/.snomrc") || die("can't open config: $ENV{HOME}/.snomrc: $!");
@@ -53,7 +52,11 @@ for my $section (@sections) {
}
}
$g_host->set_active(0);
+UpdatePhoneInfo();
+$g_host->signal_connect(changed => \&UpdatePhoneInfo);
$g_host->show();
+$g_identity->signal_connect(changed => \&SwitchIdentity);
+$g_identity->show();
set_locale Gtk2;
@@ -143,6 +146,7 @@ $outbox->pack_end($output, 0, 0, 0);
$outbox->show();
my $specialbox = Gtk2::VBox->new(0, 0);
+$specialbox->pack_start($g_identity, 0, 0, 0);
$specialbox->pack_end($special, 0, 0, 0);
$specialbox->show();
@@ -344,6 +348,35 @@ sub KBDInput
return FALSE;
}
+sub UpdatePhoneInfo
+{
+ 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;
+ #
+ #
+ #
+ if (m/^\