End Sub
-Dim FileSystemObj, ConvertedDir, ConfigFile, XMLDir
+Dim FileSystemObj, ConvertedDir, ConfigFile, XMLDir, WshShell
Dim customData, msiProperties, InstallDir, ShibdPort
on error resume next
ConfigDir = InstallDir & "\etc\shibboleth\"
DistDir = ConfigDir & "dist\"
+ 'Set ConvertedDir as the SHIBSP_PREFIX system variable.
+ Set WshShell = CreateObject("WScript.Shell")
+ WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\SHIBSP_PREFIX", ConvertedDir, "REG_SZ"
+
'Perform actual Substitutions
'Afterwards, if the config file doesn't already exist, copy up to etc/shibboleth
'Also strip *.in for files in dist
FileSystemObj.CopyFile DistDir & "globalLogout.html", ConfigDir, false
End If
- If (NOT FileSystemObj.FileExists(ConfigDir & "openssl.cnf")) then
- FileSystemObj.CopyFile DistDir & "openssl.cnf", ConfigDir, false
- End If
-
If (NOT FileSystemObj.FileExists(ConfigDir & "console.logger")) then
FileSystemObj.CopyFile DistDir & "console.logger", ConfigDir, false
End If
FileSystemObj.CopyFile DistDir & "shibboleth.logger", ConfigDir, false
End If
- If (NOT FileSystemObj.FileExists(ConfigDir & "sp-example.crt")) then
- FileSystemObj.CopyFile DistDir & "sp-example.crt", ConfigDir, false
- End If
-
- If (NOT FileSystemObj.FileExists(ConfigDir & "sp-example.key")) then
- FileSystemObj.CopyFile DistDir & "sp-example.key", ConfigDir, false
- End If
-
If (NOT FileSystemObj.FileExists(ConfigDir & "example-metadata.xml")) then
FileSystemObj.CopyFile DistDir & "example-metadata.xml", ConfigDir, false
End If