424 |
# UTC time and issuer |
# UTC time and issuer |
425 |
my $utctime=strftime "%FT%TZ", gmtime; |
my $utctime=strftime "%FT%TZ", gmtime; |
426 |
my $issuer=getissuer; |
my $issuer=getissuer; |
427 |
|
my $uuid=sprintf("%09d", int(rand(10**9))); |
428 |
|
|
429 |
my $msg= <<EOF; |
my $msg= <<EOF; |
430 |
<?xml version="1.0" encoding="UTF-8"?> |
<?xml version="1.0" encoding="UTF-8"?> |
444 |
<SOAP-ENV:Body> |
<SOAP-ENV:Body> |
445 |
<XACMLsamlp:XACMLAuthzDecisionQuery CombinePolicies="true" ReturnContext="true" |
<XACMLsamlp:XACMLAuthzDecisionQuery CombinePolicies="true" ReturnContext="true" |
446 |
InputContextOnly="false" IssueInstant="$utctime" Version="2.0" |
InputContextOnly="false" IssueInstant="$utctime" Version="2.0" |
447 |
ID="ID-1804289383"> |
ID="ID-$uuid"> |
448 |
<saml:Issuer xsi:type="saml:NameIDType" |
<saml:Issuer xsi:type="saml:NameIDType" |
449 |
Format="urn:oasis:names:tc:SAML:1.1:nameid-format:X509SubjectName">$issuer</saml:Issuer> |
Format="urn:oasis:names:tc:SAML:1.1:nameid-format:X509SubjectName">$issuer</saml:Issuer> |
450 |
<XACMLcontext:Request xsi:type="XACMLcontext:RequestType"> |
<XACMLcontext:Request xsi:type="XACMLcontext:RequestType"> |