#!/bin/sh
-#$Id: snom.pl,v 1.29 2006-05-22 11:47:37 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
UpdatePhoneInfo();
$g_host->signal_connect(changed => \&UpdatePhoneInfo);
$g_host->show();
+$g_host->signal_connect(changed => \&SwitchIdentity);
$g_identity->show();
set_locale Gtk2;
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);
}
+sub SwitchIdentity
+{
+ print "TODO: Switch Identity on <".${$Config{$sections[$g_host->get_active]}}{host}."> to ".$g_identity->get_active."!\n";
+}
+
sub CloseAppWindow
{
$window->destroy;