add commented credentials example

diff --git a/snom.pl b/snom.pl
index 56116b13d93a90252efc45bdad083aa5e3430de9..b2d4a21db7c81ef76cd5537bae69966a1e74e537 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
 #!/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" "$@"
 
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 


@@ -12,8 +12,9 @@ use strict;
 
 use LWP::UserAgent;
 my $ua = LWP::UserAgent->new;
 
 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) = @_;
 
 sub snom_key(@) {
        (my $key) = @_;