in reply to Re: Authenticate via REST::Client against Rundeck API
in thread Authenticate via REST::Client against Rundeck API

Thanks for your answer. Unfortunately this is not sufficient, as the library already provides a cookie jar : 
'_msg' => 'Forbidden',
'_rc' => '403',
'_headers' => bless( {
    'connection' => 'close',
    'client-ssl-cipher' => 'ECDHE-RSA-AES128-GCM-SHA256',
    'set-cookie' => 'JSESSIONID=node0k6eor4wib9o5cbccpa3lkm5l220939.no
+de0;Path=/;HttpOnly',
    'date' => 'Thu, 14 Mar 2019 12:28:03 GMT',
    '::std_case' => {
        'client-ssl-cert-issuer' => 'Client-SSL-Cert-Issuer',
        'x-application-context' => 'X-Application-Context',
        'client-ssl-socket-class' => 'Client-SSL-Socket-Class',
        'client-ssl-cert-subject' => 'Client-SSL-Cert-Subject',
        'client-peer' => 'Client-Peer',
        'set-cookie' => 'Set-Cookie',
        'client-ssl-cipher' => 'Client-SSL-Cipher',
        'client-date' => 'Client-Date',
        'client-response-num' => 'Client-Response-Num'
    },
    'client-response-num' => 1,
    'client-date' => 'Thu, 14 Mar 2019 12:29:19 GMT',
    'client-ssl-socket-class' => 'IO::Socket::SSL',
    'client-peer' => 'XXSnipped at boss requestXX',
    'client-ssl-cert-subject' => 'XXSnipped at boss requestXX',
    'expires' => 'Thu, 01 Jan 1970 00:00:00 GMT',
    'x-application-context' => 'application:production:4440',
    'client-ssl-cert-issuer' => '/C=NL/ST=Noord-Holland/L=Amsterdam/O=
+TERENA/CN=TERENA SSL CA 3',
    'content-type' => 'text/xml;charset=utf-8'
}, 'HTTP::Headers' )

[download]
Xavier

Replies are listed 'Best First'.
Re^3: Authenticate via REST::Client against Rundeck API
by hdb (Monsignor) on Mar 14, 2019 at 13:48 UTC

    Sorry if it did not work. I have no access to a Rundeck instance so I cannot test. Just for my personal education: did you try my proposed code or did you conclude from the $res that I won't work?

[reply]
[d/l]
      Hi, hdb,

      I tried your code, too. It actually looks like that :

      my $ua = LWP::UserAgent->new(
            'agent' => basename($0),
            'timeout' => $TIMEOUT,
            );

my $cookie_jar = HTTP::Cookies->new(
    file            => "perlcookie.txt",
    autosave        => 1,
    ignore_discard    => 1,
    );
$ua->cookie_jar( $cookie_jar );

my $client = REST::Client->new( {
        host    => $url,
        timeout    => 10,
        useragent    => $ua,
        follow        => 1,
    } );

$client->addHeader ("content-type", 'application/x-www-form-urlencoded
+');

$res = $client->POST(
            "j_security_check",
            "j_username=$username j_password=$password",
        );
print Dumper ($res); 
$res = $client->GET("api/14/system/info");
$rc = $client->responseCode ();
print Dumper ($res);
exit ( $rc);

      [download]

      And cookie file contains that

      #LWP-Cookies-1.0
Set-Cookie3: JSESSIONID=node0npoji3aifa9r1c2xuxr6xvppe221132.node0; pa
+th="/"; domain=[SNIP]; path_spec; discard; HttpOnly; version=0

      [download]

      Unlike previous attempts, all HTTP transactions look good with this version of the code

      Xavier
[reply]
[d/l]
[select]

      SOLVED (almost) !

      By default, LWP::UserAgent forwards only GET and HEAD requests. Adding POST gives me the login page.

      Xavier
[reply]
[reply]

In Section Seekers of Perl Wisdom