#!/bin/sh
-#$Id: snom.pl,v 1.24 2006-05-21 23:13:01 michael Exp $
-
-# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
+#$Id: snom.pl,v 1.42 2006-05-22 13:06:47 michael Exp $
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
use Gtk2 '-init';
use Gtk2::Gdk::Keysyms;
use LWP::UserAgent;
-#use Config::IniFiles;
my %g_key = ();
+my %g_arrows;
+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: $!");
}
close(INIFILE);
-
for my $section (@sections) {
- for my $val (qw(host login password)) {
- if (defined(${$Config{$section}}{$val})) {
- print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
+ if (defined(${$Config{$section}}{host})) {
+ $g_host->append_text($section);
+ if (defined(${$Config{$section}}{login}) &&
+ defined(${$Config{$section}}{password})) {
+ $ua->credentials(${$Config{$section}}{host}.":80",
+ "snom",
+ ${$Config{$section}}{login},
+ ${$Config{$section}}{password});
}
-
}
}
-
-
-
-#$ua->credentials("${ARGV[0]}:80","snom","root","geheim");
+$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;
sub snom_key {
my $key = shift;
$key='%23' if ($key eq '#');
- my $req = HTTP::Request->new(GET => "http://${ARGV[0]}/command.htm?key=${key}");
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/command.htm?key=${key}");
$ua->request($req);
}
sub snom_number {
my $number = shift;
- my $req = HTTP::Request->new(GET => "http://${ARGV[0]}/command.htm?number=${number}");
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/command.htm?number=${number}");
$ua->request($req);
}
my $n = 0;
foreach my $key (@$keys) {
if ($key ne '_') {
- $g_key{$key} = Gtk2::Button->new("${key}");
+ if($key=~m/^ARROWS(.*)$/) {
+ $g_key{$key} = Gtk2::Button->new;
+ $g_key{$key}->add($g_arrows{"${1}"});
+ } else {
+ $g_key{$key} = Gtk2::Button->new("${key}");
+ }
$g_key{$key}->signal_connect(clicked => \&KeyPressed, $key);
$table->attach_defaults($g_key{$key}, (($n)%$cols), (($n)%$cols)+1, int(($n)/$cols), int((($n)/$cols)+1));
$g_key{$key}->show();
$table;
}
-if (!defined($ARGV[0])) {
- print STDERR "Usage: ${0} snom.phone.address\n";
- exit 1
-}
-
my $window = Gtk2::Window->new('toplevel');
$window->set_title("snom");
$window->signal_connect(delete_event => \&CloseAppWindow);
my $softkeys = gen_table(1, 4, FALSE, 0, 6, ['F1', 'F2', 'F3', 'F4']);
+$g_arrows{up} = Gtk2::Arrow->new('up', 'none');
+$g_arrows{up}->show();
+$g_arrows{down} = Gtk2::Arrow->new('down', 'none');
+$g_arrows{down}->show();
+$g_arrows{left} = Gtk2::Arrow->new('left', 'none');
+$g_arrows{left}->show();
+$g_arrows{right} = Gtk2::Arrow->new('right', 'none');
+$g_arrows{right}->show();
+
my $navi = gen_table(3, 5, FALSE, 0, 0,
- ['_', '_', '^', '_', '_', 'X', '<', '_', '>', 'OK', '_', '_', 'V', '_', '_']);
+ ['_', '_', 'ARROWSup', '_', '_', 'X', 'ARROWSleft', '_', 'ARROWSright', 'OK', '_', '_', 'ARROWSdown', '_', '_']);
my $output = gen_table(2, 3, FALSE, 2, 2, ['-', '+', '_', '_Mute', '_Speaker', '_Headset']);
$display->signal_connect(leave_notify_event => \&DisplayMouseOver, FALSE);
$display->show();
-my $host = Gtk2::ComboBox->new();
-# my $combobox = Gtk2::Ex::ComboBox->new($host);
-# $combobox->set_list(\@sections);
-$host->show();
-
my $dispbox = Gtk2::VBox->new(0, 5);
$dispbox->pack_start($display, 0, 0, 0);
$dispbox->pack_start($softkeys, 0, 0, 0);
$dispbox->show();
my $outbox = Gtk2::VBox->new(0, 0);
-$outbox->pack_start($host, 0, 0, 0);
+$outbox->pack_start($g_host, 0, 0, 0);
$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();
snom_key("CANCEL") if ( $text eq "X" );
snom_key("ENTER") if ( $text eq "OK" );
- snom_key("UP") if ( $text eq "^" );
- snom_key("DOWN") if ( $text eq "V" );
- snom_key("LEFT") if ( $text eq "<" );
- snom_key("RIGHT") if ( $text eq ">" );
+ snom_key("UP") if ( $text eq "ARROWSup" );
+ snom_key("DOWN") if ( $text eq "ARROWSdown" );
+ snom_key("LEFT") if ( $text eq "ARROWSleft" );
+ snom_key("RIGHT") if ( $text eq "ARROWSright" );
snom_key("F_REC") if ( $text eq "Record" );
snom_key("F_RETRIEVE") if ( $text eq "Retrieve" );
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;
+ #<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\>$/) {
+ my $line = $3;
+ $g_identity->append_text("${3}");
+ $g_identity->set_active(${1}-1) if(defined($2));
+ }
+ }
+}
+
+sub SwitchIdentity
+{
+ 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
{
$window->destroy;