#!/bin/sh
-#$Id: snom.pl,v 1.28 2006-05-22 11:22:30 michael Exp $
+#$Id: snom.pl,v 1.34 2006-05-22 12:11:55 michael Exp $
# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
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: $!");
UpdatePhoneInfo();
$g_host->signal_connect(changed => \&UpdatePhoneInfo);
$g_host->show();
+$g_host->signal_connect(changed => \&SwitchIdentity);
+$g_identity->show();
set_locale Gtk2;
$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();
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}."/");
+ my $response = $ua->request($req);
+ if ($response->is_error) {
+ die("Can't retrieve line information: ", $ua->response->status_line);
+ }
+
+ my @lines=split("\n", $response->content());
+ foreach (@lines) {
+ chomp;
+ #<option value="1" selected>51@stargate.gernoth.loc</option>
+ #<option value="2">89@asterix.ear-projekt.de</option>
+ #<option value="3">41@grumpy.gernoth.loc</option>
+ if (m/^\<option value=\"(.+)\"( selected)?\>([^<]*)\<\/option\>$/) {
+ if(defined($2)) {
+ print "*".$1." ".$3."\n";
+ } else {
+ print $1." ".$3."\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