X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/blobdiff_plain/46583d27e5f6b46a3802d781c53b0d6221d7d96b..3cb02741a3740f1ebfbc60e20ff1fde79429e84b:/snom.pl diff --git a/snom.pl b/snom.pl index 9cbbbba..6f580ab 100755 --- a/snom.pl +++ b/snom.pl @@ -1,7 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.25 2006-05-21 23:13:35 michael Exp $ - -# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html +#$Id: snom.pl,v 1.44 2006/05/24 14:31:16 michael Exp $ PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -16,6 +14,9 @@ use Gtk2::Gdk::Keysyms; use LWP::UserAgent; 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: $!"); @@ -39,32 +40,37 @@ while() { } 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() if($#sections); +$g_identity->signal_connect(changed => \&SwitchIdentity); 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}"); + $number =~ s/[^\d]//g; + my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/command.htm?number=${number}"); $ua->request($req); } @@ -83,7 +89,12 @@ sub gen_table { 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(); @@ -96,11 +107,6 @@ sub gen_table { $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); @@ -120,8 +126,17 @@ my $pkeys = gen_table(6, 2, TRUE, 2, 2, ['P1', 'P7', 'P2', 'P8', 'P3', 'P9', 'P4 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']); @@ -134,23 +149,27 @@ $display->signal_connect(enter_notify_event => \&DisplayMouseOver, TRUE); $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 $cbextern = Gtk2::CheckButton->new("extern"); +$cbextern->show(); + +my $dialbox = Gtk2::HBox->new(0, 30); +$dialbox->pack_start($display, 0, 0, 0); +$dialbox->pack_start($cbextern, 0, 0, 0); +$dialbox->show(); my $dispbox = Gtk2::VBox->new(0, 5); -$dispbox->pack_start($display, 0, 0, 0); +$dispbox->pack_start($dialbox, 0, 0, 0); $dispbox->pack_start($softkeys, 0, 0, 0); $dispbox->pack_start($navi, 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(); @@ -180,6 +199,8 @@ $mainbox->pack_start($ubox, 0, 0, 0); $mainbox->pack_start($lbox, 0, 0, 0); $mainbox->show(); + + $window->add($mainbox); $window->show(); @@ -223,10 +244,10 @@ sub KeyPressed 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" ); @@ -239,8 +260,12 @@ sub KeyPressed sub DialNumber { my ($entry) = @_; - - snom_number($entry->get_text()); + my ($num) = $entry->get_text(); + if ($cbextern->get_active){ + snom_number("09".$num) + } else { + snom_number($num); + } return TRUE; } @@ -278,7 +303,7 @@ sub KBDInput } } - if (!$event->state || $event->state eq 'shift-mask') { + if (!$event->state || !($event->state & "control-mask" || $event->state & "mod1-mask")) { if ($keyval == $Gtk2::Gdk::Keysyms{asterisk}) {snom_key('*'); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{KP_Multiply}) {snom_key('*'); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{numbersign}) {snom_key('#'); return TRUE;} @@ -331,7 +356,7 @@ sub KBDInput } } } else { - if ($event->state eq 'mod1-mask') { + if ($event->state & "mod1-mask") { for (my $i=1; $i<13; $i++) { if ($keyval == $Gtk2::Gdk::Keysyms{"F${i}"}) { snom_key("P${i}"); @@ -352,6 +377,43 @@ 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()); + my $num = 0; + foreach (@lines) { + chomp; + # + # + # + if (m/^\