X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/blobdiff_plain/f0fad26da5554c435bccb5f6cb117fe49f2e97e2..2b127e29cae4de25b8fb79f05e0ef3d29df2538c:/snom.pl diff --git a/snom.pl b/snom.pl index bcfdfe8..608e62f 100755 --- a/snom.pl +++ b/snom.pl @@ -1,7 +1,4 @@ #!/bin/sh -#$Id: snom.pl,v 1.27 2006-05-22 11:18:14 michael Exp $ - -# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -14,9 +11,14 @@ use Glib qw/TRUE FALSE/; use Gtk2 '-init'; use Gtk2::Gdk::Keysyms; use LWP::UserAgent; +use FindBin qw($Bin); + my %g_key = (); +my %g_arrows; my $g_host = Gtk2::ComboBox->new_text(); +my $g_identity = Gtk2::ComboBox->new_text(); +my $cbextern = Gtk2::CheckButton->new("extern"); my $ua = LWP::UserAgent->new; open(INIFILE,"<$ENV{HOME}/.snomrc") || die("can't open config: $ENV{HOME}/.snomrc: $!"); @@ -53,7 +55,10 @@ for my $section (@sections) { } } $g_host->set_active(0); -$g_host->show(); +UpdatePhoneInfo(); +$g_host->signal_connect(changed => \&UpdatePhoneInfo); +$g_host->show() if($#sections); +$g_identity->signal_connect(changed => \&SwitchIdentity); set_locale Gtk2; @@ -66,6 +71,7 @@ sub snom_key { sub snom_number { my $number = shift; + $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); } @@ -85,7 +91,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(); @@ -117,8 +128,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']); @@ -131,8 +151,13 @@ $display->signal_connect(enter_notify_event => \&DisplayMouseOver, TRUE); $display->signal_connect(leave_notify_event => \&DisplayMouseOver, FALSE); $display->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(); @@ -143,6 +168,7 @@ $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(); @@ -172,7 +198,57 @@ $mainbox->pack_start($ubox, 0, 0, 0); $mainbox->pack_start($lbox, 0, 0, 0); $mainbox->show(); + + +######################################################### +# +# Tray Icon +# +######################################################### +sub quit_cb { + my ($widget, $status_icon) = @_; + + $status_icon->set_visible(0) if $status_icon; + Gtk2->main_quit(); +} + +sub popup_menu_cb { + my ($widget, $button, $time, $menu) = @_; + + if ($button == 3) { + my ($x, $y, $push_in) + = Gtk2::StatusIcon::position_menu($menu, $widget); + + $menu->show_all(); + $menu->popup( undef, undef, + sub{return ($x,$y,0)} , + undef, 0, $time ); + } +} + +sub activate_icon_cb { + if ($window->visible){ + $window->hide(); + } else { + $window->show(); + } +} + +my $status_icon = Gtk2::StatusIcon->new_from_file($Bin.'/snom.ico'); +my $menu = Gtk2::Menu->new(); + +my $menuItem = Gtk2::ImageMenuItem->new_from_stock('gtk-quit'); +$menuItem->signal_connect('activate', \&quit_cb, $status_icon); +$menu->append($menuItem); + +$status_icon->set_tooltip('Snom Tray'); +$status_icon->signal_connect('activate', \&activate_icon_cb); +$status_icon->signal_connect('popup-menu', \&popup_menu_cb, $menu); +$status_icon->set_visible(1); +########################################################################333 + $window->add($mainbox); +$window->set_icon_from_file($Bin.'/snom.ico'); $window->show(); $g_key{OK}->grab_focus(); @@ -215,10 +291,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" ); @@ -231,8 +307,13 @@ sub KeyPressed sub DialNumber { my ($entry) = @_; + my ($num) = $entry->get_text(); + + if ($cbextern->get_active && defined(${$Config{$sections[$g_host->get_active]}}{extern})) { + $num = ${$Config{$sections[$g_host->get_active]}}{extern} . $num; + } - snom_number($entry->get_text()); + snom_number($num); return TRUE; } @@ -270,7 +351,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;} @@ -323,7 +404,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}"); @@ -344,6 +425,55 @@ sub KBDInput return FALSE; } +sub UpdatePhoneInfo +{ + if (defined(${$Config{$sections[$g_host->get_active]}}{extern})) { + $cbextern->show(); + } else { + $cbextern->hide(); + } + + 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; + my $activated = 0; + + foreach (@lines) { + chomp; + # + # + # + if (m/^\