PCHD#30428 -- Klantspecifieke aanpassingen voor XD-portal

svn path=/Website/branches/v5.4.3/; revision=23274
2014-11-06 15:41:56 +00:00
parent d2191a4e62
commit 0fc6a5941a
4 changed files with 44 additions and 20 deletions
--- a/CUST/PCHH/sso/SSOprodPCHH.asp
+++ b/CUST/PCHH/sso/SSOprodPCHH.asp
@@ -1,23 +1,29 @@
 <%@language="VBScript"%>
 <%
 '*******************************************************************
-'Script: SSO.asp
+'Script: SSOprodPCHH.asp
 '
 '        $Revision$
 '        $Id$
 '

 'Doel:   SSO bewerkstelligen voor ASP providers - deel 1 van 2
-'Auteur: Thorwald Beeris 
 '*******************************************************************
 '* declare *********************************************************
 Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
 Dim strEncryptedCode, strControlEncryptedCode
 '* variables *******************************************************
-strASPUrl = "https://pchh.facilitor.nl/cust/pchh/sso.asp" 'HTTPS URL adres van ASP
+strASPUrl = "https://pchh.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
 strSharedKey = "LwdbWLIBtHuJCpMT" 'Sharedkey - Should be the same at target side
 '*******************************************************************
 response.Buffer=true
+Dim proto, zelf
+If Request.ServerVariables("SERVER_PORT") = 443 Then
+    proto = "https://"
+Else
+    proto = "http://"
+End If
+zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
 %>
 <HTML>
 <HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
 <BODY LANGUAGE="javascript" onload="return fnSubmit()">
 Een moment aub.
 <form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
-<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
+<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
 <%
 '* request action = requestid ***************************************
 strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
 	'* crypt Controlkey *********************************************
 	'First coding phase
 	strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
-	strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
+	strControlEncryptedCode = EnCrypt(zelf)
 	'Second coding phase
 	strKey = mid(strCTID,1,Len(strControlEncryptedCode))
 	strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
--- a/CUST/PCHP/sso/SSOprodPCHP.asp
+++ b/CUST/PCHP/sso/SSOprodPCHP.asp
@@ -1,23 +1,29 @@
 <%@language="VBScript"%>
 <%
 '*******************************************************************
-'Script: SSO.asp
+'Script: SSOprodPCHP.asp
 '
 '        $Revision$
 '        $Id$
 '

 'Doel:   SSO bewerkstelligen voor ASP providers - deel 1 van 2
-'Auteur: Thorwald Beeris 
 '*******************************************************************
 '* declare *********************************************************
 Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
 Dim strEncryptedCode, strControlEncryptedCode
 '* variables *******************************************************
-strASPUrl = "https://pchp.facilitor.nl/cust/pchp/sso.asp" 'HTTPS URL adres van ASP
+strASPUrl = "https://pchp.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
 strSharedKey = "plXZhkVOpFrpdetV" 'Sharedkey - Should be the same at target side
 '*******************************************************************
 response.Buffer=true
+Dim proto, zelf
+If Request.ServerVariables("SERVER_PORT") = 443 Then
+    proto = "https://"
+Else
+    proto = "http://"
+End If
+zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
 %>
 <HTML>
 <HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
 <BODY LANGUAGE="javascript" onload="return fnSubmit()">
 Een moment aub.
 <form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
-<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
+<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
 <%
 '* request action = requestid ***************************************
 strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
 	'* crypt Controlkey *********************************************
 	'First coding phase
 	strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
-	strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
+	strControlEncryptedCode = EnCrypt(zelf)
 	'Second coding phase
 	strKey = mid(strCTID,1,Len(strControlEncryptedCode))
 	strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
--- a/CUST/PCHS/sso/SSOprodPCHS.asp
+++ b/CUST/PCHS/sso/SSOprodPCHS.asp
@@ -1,23 +1,29 @@
 <%@language="VBScript"%>
 <%
 '*******************************************************************
-'Script: SSO.asp
+'Script: SSOprodPCHS.asp
 '
 '        $Revision$
 '        $Id$
 '

 'Doel:   SSO bewerkstelligen voor ASP providers - deel 1 van 2
-'Auteur: Thorwald Beeris 
 '*******************************************************************
 '* declare *********************************************************
 Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
 Dim strEncryptedCode, strControlEncryptedCode
 '* variables *******************************************************
-strASPUrl = "https://pchs.facilitor.nl/cust/pchs/sso.asp" 'HTTPS URL adres van ASP
+strASPUrl = "https://pchs.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
 strSharedKey = "qOszNKMglENlvcMr" 'Sharedkey - Should be the same at target side
 '*******************************************************************
 response.Buffer=true
+Dim proto, zelf
+If Request.ServerVariables("SERVER_PORT") = 443 Then
+    proto = "https://"
+Else
+    proto = "http://"
+End If
+zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
 %>
 <HTML>
 <HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
 <BODY LANGUAGE="javascript" onload="return fnSubmit()">
 Een moment aub.
 <form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
-<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
+<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
 <%
 '* request action = requestid ***************************************
 strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
 	'* crypt Controlkey *********************************************
 	'First coding phase
 	strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
-	strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
+	strControlEncryptedCode = EnCrypt(zelf)
 	'Second coding phase
 	strKey = mid(strCTID,1,Len(strControlEncryptedCode))
 	strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
--- a/CUST/PCHY/sso/SSOprodPCHY.asp
+++ b/CUST/PCHY/sso/SSOprodPCHY.asp
@@ -1,23 +1,29 @@
 <%@language="VBScript"%>
 <%
 '*******************************************************************
-'Script: SSO.asp
+'Script: SSOprodPCHY.asp
 '
 '        $Revision$
 '        $Id$
 '

 'Doel:   SSO bewerkstelligen voor ASP providers - deel 1 van 2
-'Auteur: Thorwald Beeris 
 '*******************************************************************
 '* declare *********************************************************
 Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
 Dim strEncryptedCode, strControlEncryptedCode
 '* variables *******************************************************
-strASPUrl = "https://pchy.facilitor.nl/cust/pchy/sso.asp" 'HTTPS URL adres van ASP
+strASPUrl = "https://pchy.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
 strSharedKey = "YNeNwuOVoBvLIHew" 'Sharedkey - Should be the same at target side
 '*******************************************************************
 response.Buffer=true
+Dim proto, zelf
+If Request.ServerVariables("SERVER_PORT") = 443 Then
+    proto = "https://"
+Else
+    proto = "http://"
+End If
+zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
 %>
 <HTML>
 <HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
 <BODY LANGUAGE="javascript" onload="return fnSubmit()">
 Een moment aub.
 <form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
-<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
+<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
 <%
 '* request action = requestid ***************************************
 strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
 	'* crypt Controlkey *********************************************
 	'First coding phase
 	strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
-	strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
+	strControlEncryptedCode = EnCrypt(zelf)
 	'Second coding phase
 	strKey = mid(strCTID,1,Len(strControlEncryptedCode))
 	strControlEncryptedCode = EnCrypt(strControlEncryptedCode)