Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: XML Signature Validation in Perl

by akalinux (Initiate)
on May 03, 2019 at 23:49 UTC ( [id://1233334]=note: print w/replies, xml ) Need Help??


in reply to Re: XML Signature Validation in Perl
in thread XML Signature Validation in Perl

I was running into the exact same problem. So wrote a module that will handle this without the "namespace" errors.

Link here: XML::Sig::OO

Here is the slice of code you need to validate the xml:
use Net::SAML2::Protocol::Assertion; use XML::Sig::OO; use MIME::Base64; # Lets assume we have a post binding response my $saml_response=..... my $xml=decode_base64($saml_response); my $v=XML::Sig::OO->new(xml=>$xml,cacert=>'idp_cert.pem'); my $result=$v->validate; die $result unless $result; # we can now use the asertion knowing it was from our idp my $assertion=Net::SAML2::Protocol::Assertion->new_from_xml(xml=>$xml)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1233334]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2024-04-16 18:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found