#!/bin/sh
-#$Id: snom.pl,v 1.1 2006-05-21 11:53:53 simigern Exp $
+#$Id: snom.pl,v 1.4 2006-05-21 12:29:13 simigern Exp $
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
+#$ua->credentials("${ARGV[0]}:80","snom","root","geheim");
-#set_locale Gtk2;
+set_locale Gtk2;
sub snom_key(@) {
(my $key) = @_;
my $display = Gtk2::Entry->new();
$display->signal_connect(activate => \&DialNumber);
my $kph_blocked = FALSE;
-#$display->signal_connect(focus_in_event => \&DisplayMouseOver, TRUE);
$display->signal_connect(enter_notify_event => \&DisplayMouseOver, TRUE);
-#$display->signal_connect(focus_out_event => \&DisplayMouseOver, FALSE);
$display->signal_connect(leave_notify_event => \&DisplayMouseOver, FALSE);
$display->show();
$window->add($mainbox);
$window->show();
+$key{OK}->grab_focus();
+
# Gtk2 event loop
Gtk2->main;
'P7', 'P8', 'P9', 'P10', 'P11', 'P12') {
if ($i eq $text) {
snom_key($i);
- return;
+ return TRUE;
}
}
snom_key("VOLUME_UP") if ( $text eq "+" );
snom_key("VOLUME_DOWN") if ( $text eq "-" );
+ return TRUE;
}
sub DialNumber
{
my ($entry) = @_;
+
snom_number($entry->get_text());
+ return TRUE;
}
sub DisplayMouseOver