[Israel.pm] authentication with LWP/SOAP

[eran meiri]

Hello everyone.
I have a problem and I am seeking for help.

I need to access Citrix Odata api and for some reason I can't.
when I try to access the URL with my browser I get a prompt to the
domain\user an password.
when I enter them I get the data I need but it doesn't work with the Perl
script.

I have tried it with LWP:
my $url = "http://192.168.100.41/Citrix/Monitor/OData/v1/Methods/";;
my $req = HTTP::Request->new(GET => $url );
my $ua = LWP::UserAgent->new(keep_alive=>1);
$ua->credentials("192.168.100.41:80", "<REAL-M>","lyncent.com\\Citrix" =>
'Rel0aded1');

my $response = $ua->request( $req );

if ($response->is_success) {
    print $response->content;
}
else {
    print $response->status_line, "\n";
}

and I have tried it with SOAP:

my $api_host = "
http://192.168.100.41/Citrix/Monitor/OData/v1/Methods/Catalogs";;
my $api_user = "lyncent.com\\Citrix";
my $api_pass = "Rel0aded1";
my $authClient = SOAP::Lite->service($api_host );
my $result2 = $authClient->performLogin($api_user, $api_pass);
print $result2->{result};

or again with soap :
my $service = SOAP::Lite
              -> service('
http://192.168.100.41/Citrix/Monitor/OData/v1/Methods/Catalogs');
my $AuthHeader = SOAP::Header->new(
  name =>'AuthenticationHeader',
  attr => { xmlns => "192.168.100.41" },
  value => {username => 'lyncent.com\Citrix', password => 'Rel0aded1' },
);
my $result = $service->GetIt($AuthHeader);


all of these options give me the same result : 401 unauthorized
the domain , user and password are all correct since I can access the URL
from the browser.

H E L P

_______________________________________________
Perl mailing list
Perl@perl.org.il
http://mail.perl.org.il/mailman/listinfo/perl