[rt-users] login script

[sercuto]

Hi all.

I want validate in my rt-3.8.2 system whit that script:

#!/usr/bin/perl

   use Error qw(:try);
   use RT::Client::REST;
   use RT::Client::REST::Queue;
   use RT::Client::REST::Ticket;
   use RT::Client::REST::HTTPClient;
#  use RT::Authen::ExternalAuth;

   my $rt = RT::Client::REST->new(
     server => 'http://www.mydomain.org/sol/mason/SelfService/index.html',
     timeout => 30,
   );


$user = 'myuser';
$pass = 'mypass';
   try {
     $rt->login(username => $user, password => $pass);
   } catch Exception::Class::Base with {
     die "problem logging in: ", shift->message;
   };



The script return:

problem logging in: Authorization Required at ./p1.pl line 21.

My RT system use LDAP validation.

In others RT systems with local authentication, I have login successfully.

Best Regards.