#!/bin/sh
-#$Id: snom.pl,v 1.3 2006-05-21 11:58:47 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) = @_;