#!/bin/sh
-#$Id: snom.pl,v 1.36 2006-05-22 12:20:15 michael Exp $
-
-# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
+#$Id: snom.pl,v 1.40 2006-05-22 12:40:14 michael Exp $
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$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;
my $response = $ua->request($req);
$g_identity->set_active(0);
- while(defined($g_identity->get_active_text())) {
+ while($g_identity->get_active() == 0) {
$g_identity->remove_text(0);
$g_identity->set_active(0);
}
#<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 (m/^\<option value=\"(.+)\"( selected)?\>([^<\@]*)\@([^<]*)\<\/option\>$/) {
+ my $line = $3;
$g_identity->append_text("${3}");
$g_identity->set_active(${1}-1) if(defined($2));
}
sub SwitchIdentity
{
- print "TODO: Switch Identity on <".${$Config{$sections[$g_host->get_active]}}{host}."> to ".$g_identity->get_active."!\n";
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/dummy.htm?SETTINGS=Set&active_line=".($g_identity->get_active+1));
+ $ua->request($req);
}
sub CloseAppWindow