print saml/xml

[philosophia]

I have a cgi script that performs a GET operation on a URL

#!/usr/bin/perl

use LWP::Simple;
my $document = get("http://http://www.perlmonks.org/");

print "Content-type: text/html\n\n";
print $document;

exit;

I need to change the URL to http://localhost/Shibboleth.sso/GetAssertion?key=_8283db5f841dcf3914f777be6c3dc71b&ID=_229c80c9f6d300b607f0512a141f9882 - when you perform GET on this URL, the URL should respond with a SAML assertion with a MIME type of "application/samlassertion+xml". So my cgi script now looks like

#!/usr/bin/perl

use LWP::Simple;
my $document = get("http://localhost/Shibboleth.sso/GetAssertion?key=_
+8283db5f841dcf3914f777be6c3dc71b&ID=_229c80c9f6d300b607f0512a141f9882
+");

print "Content-type: application/samlassertion+xml\n\n";
print $document;

exit;

this doesn't seem to be working, when I navigate to my cgi script in a browser I'm presented with a dialog to save the document - when I open the document it's empty, no SAML xml. I'm trying to debug whether the http://localhost/Shibboleth.sso/GetAssertion? URL is not generating SAML correctly, or if my cgi is missing something. Should this work?

[Anonymous Monk]

#!/usr/bin/perl --

use strict;
use warnings;

use CGI 2.69 qw' header ';
use LWP::Simple;

my $uri =
"http://localhost/Shibboleth.ssoGetAssertion?key=_8283db5f841dcf3914f7
+77be6c3dc71b&ID=_229c80c9f6d300b607f0512a141f9882";

binmode STDOUT;

print header(qw! -type application/samlassertion+xml !);

my $rc = getprint($uri);

if ( not is_success($rc) ) {
    print qq!<?xml version="1.0" encoding="UTF-8"?><ERROR>$rc</ERROR>!
+;
}

exit;

[Anonymous Monk]

if( is_error( $rc ) ) { ....

[arc_of_descent]

Does the assertion URL work when directly fetched from your browser?