#!/bin/sh
-#$Id: snom.pl,v 1.2 2006-05-21 11:55:57 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) = @_;
$window->add($mainbox);
$window->show();
+$key{OK}->grab_focus();
+
# Gtk2 event loop
Gtk2->main;