Function ReadFile( filePath )
   Dim theFile

   'OpenTextFile args: <path>, 1 = ForReading
   'If you read an empty file, VBScript throws an error for some reason
   if (FileSystemObj.FileExists(filePath)) then
     Set theFile = FileSystemObj.GetFile(filePath)
     if (theFile.size > 0) then
       Set theFile = FileSystemObj.OpenTextFile(filePath, 1)
       ReadFile = theFile.ReadAll
     else
       ReadFile = ""
     end if
   else
     ReadFile = ""
   end if
End Function

Sub WriteFile( filePath, contents )
   Dim theFile

   'OpenTextFile args: <path>, 2 = ForWriting, True = create if not exist
   Set theFile = FileSystemObj.OpenTextFile(filePath, 2, True)
   theFile.Write contents
End Sub

Sub ReplaceInFile( filePath, lookForStr, replaceWithStr )
  Dim buffer

  buffer = ReadFile(filePath)
  if (buffer <> "") then
    buffer = Replace(buffer, lookForStr, replaceWithStr)
    WriteFile filePath, buffer
  end if
End Sub


Dim FileSystemObj, ConvertedDir, ConfigFile, XMLDir, WshShell
Dim customData, msiProperties, InstallDir, LibDir, Is64Bit, Install32, LogFile

on error resume next
Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
if (Err = 0) then

  'Get the INSTALLDIR and 64/32 values via CustomActionData
  customData = Session.Property("CustomActionData")
  msiProperties = split(customData,";@;")
  InstallDir = msiProperties(0)
  Is64Bit = msiProperties(1)
  Install32 = msiProperties(2)

  LibDir = "lib"
  If (Is64Bit = "TRUE") then
      If (Install32 <> "TRUE") then
          LibDir = "lib64"
      End If
  End If

  Set LogFile = FileSystemObj.OpenTextFile(InstallDir & "\var\log\shibboleth\Installer.log", 8, true)

  If (LogFile) then
     LogFile.WriteLine "Edit Config Files to " & InstallDir & ", 64Bit = " & Is64Bit & ", 32Bit = " & Install32
  End If

  'Remove all trailing backslashes to normalize
  do while (mid(InstallDir,Len(InstallDir),1) = "\")
    InstallDir = mid(InstallDir,1,Len(InstallDir)-1)
  loop
  ConvertedDir = Replace(InstallDir, "\", "/")
  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"

  'Blow away any old SHIBSPP_SCHEMAS variable we find
  WshShell.RegDelete "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\SHIBSP_SCHEMAS"

  'Perform actual Substitutions
  'Afterwards, if the config file doesn't already exist, copy up to etc/shibboleth
  'Also strip *.in for files in dist

  ConfigFile = DistDir & "shibd.logger.in"
  ReplaceInFile ConfigFile, "@-PKGLOGDIR-@", ConvertedDir & "/var/log/shibboleth"
  If (NOT FileSystemObj.FileExists(ConfigDir & "shibd.logger")) then
    FileSystemObj.CopyFile ConfigFile, ConfigDir & "shibd.logger", false
  End If
  If (FileSystemObj.FileExists(DistDir & "shibd.logger")) then
    FileSystemObj.DeleteFile DistDir & "shibd.logger", true
  End If
  FileSystemObj.MoveFile ConfigFile, DistDir & "shibd.logger"

  ConfigFile = DistDir & "native.logger.in"
  ReplaceInFile ConfigFile, "@-SHIRELOGDIR-@", ConvertedDir & "/var/log/shibboleth"
  If (NOT FileSystemObj.FileExists(ConfigDir & "native.logger")) then
    FileSystemObj.CopyFile ConfigFile, ConfigDir & "native.logger", false
  End If
  If (FileSystemObj.FileExists(DistDir & "native.logger")) then
    FileSystemObj.DeleteFile DistDir & "native.logger", true
  End If
  FileSystemObj.MoveFile ConfigFile, DistDir & "native.logger"

  ConfigFile = DistDir & "apache.config.in"
  ReplaceInFile ConfigFile, "@-PKGLIBDIR-@", ConvertedDir & "/" & LibDir & "/shibboleth"
  ReplaceInFile ConfigFile, "@-PKGWEBDIR-@", ConvertedDir & "/doc/shibboleth"
  If (NOT FileSystemObj.FileExists(ConfigDir & "apache.config")) then
    FileSystemObj.CopyFile ConfigFile, ConfigDir & "apache.config", false
  End If
  If (FileSystemObj.FileExists(DistDir & "apache.config")) then
    FileSystemObj.DeleteFile DistDir & "apache.config", true
  End If
  FileSystemObj.MoveFile ConfigFile, DistDir & "apache.config"

  ConfigFile = DistDir & "apache2.config.in"
  ReplaceInFile ConfigFile, "@-PKGLIBDIR-@", ConvertedDir & "/" & LibDir & "/shibboleth"
  ReplaceInFile ConfigFile, "@-PKGWEBDIR-@", ConvertedDir & "/doc/shibboleth"
  If (NOT FileSystemObj.FileExists(ConfigDir & "apache2.config")) then
    FileSystemObj.CopyFile ConfigFile, ConfigDir & "apache2.config", false
  End If
  If (FileSystemObj.FileExists(DistDir & "apache2.config")) then
    FileSystemObj.DeleteFile DistDir & "apache2.config", true
  End If
  FileSystemObj.MoveFile ConfigFile, DistDir & "apache2.config"

  ConfigFile = DistDir & "apache22.config.in"
  ReplaceInFile ConfigFile, "@-PKGLIBDIR-@", ConvertedDir & "/" & LibDir & "/shibboleth"
  ReplaceInFile ConfigFile, "@-PKGWEBDIR-@", ConvertedDir & "/doc/shibboleth"
  If (NOT FileSystemObj.FileExists(ConfigDir & "apache22.config")) then
    FileSystemObj.CopyFile ConfigFile, ConfigDir & "apache22.config", false
  End If
  If (FileSystemObj.FileExists(DistDir & "apache22.config")) then
    FileSystemObj.DeleteFile DistDir & "apache22.config", true
  End If
  FileSystemObj.MoveFile ConfigFile, DistDir & "apache22.config"

  ConfigFile = DistDir & "apache24.config.in"
  ReplaceInFile ConfigFile, "@-PKGLIBDIR-@", ConvertedDir & "/" & LibDir & "/shibboleth"
  ReplaceInFile ConfigFile, "@-PKGWEBDIR-@", ConvertedDir & "/doc/shibboleth"
  If (NOT FileSystemObj.FileExists(ConfigDir & "apache24.config")) then
    FileSystemObj.CopyFile ConfigFile, ConfigDir & "apache24.config", false
  End If
  If (FileSystemObj.FileExists(DistDir & "apache24.config")) then
    FileSystemObj.DeleteFile DistDir & "apache24.config", true
  End If
  FileSystemObj.MoveFile ConfigFile, DistDir & "apache24.config"

  'Now just copy the other non-edited files over as well (if possible)

  If (NOT FileSystemObj.FileExists(ConfigDir & "shibboleth2.xml")) then
    FileSystemObj.CopyFile DistDir & "shibboleth2.xml", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "accessError.html")) then
    FileSystemObj.CopyFile DistDir & "accessError.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "metadataError.html")) then
    FileSystemObj.CopyFile DistDir & "metadataError.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "sessionError.html")) then
    FileSystemObj.CopyFile DistDir & "sessionError.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "sslError.html")) then
    FileSystemObj.CopyFile DistDir & "sslError.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "bindingTemplate.html")) then
    FileSystemObj.CopyFile DistDir & "bindingTemplate.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "discoveryTemplate.html")) then
    FileSystemObj.CopyFile DistDir & "discoveryTemplate.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "postTemplate.html")) then
    FileSystemObj.CopyFile DistDir & "postTemplate.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "localLogout.html")) then
    FileSystemObj.CopyFile DistDir & "localLogout.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "globalLogout.html")) then
    FileSystemObj.CopyFile DistDir & "globalLogout.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "partialLogout.html")) then
    FileSystemObj.CopyFile DistDir & "partialLogout.html", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "console.logger")) then
    FileSystemObj.CopyFile DistDir & "console.logger", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "shibboleth.logger")) then
    FileSystemObj.CopyFile DistDir & "shibboleth.logger", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "attribute-map.xml")) then
    FileSystemObj.CopyFile DistDir & "attribute-map.xml", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "attribute-policy.xml")) then
    FileSystemObj.CopyFile DistDir & "attribute-policy.xml", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "security-policy.xml")) then
    FileSystemObj.CopyFile DistDir & "security-policy.xml", ConfigDir, false
  End If

  If (NOT FileSystemObj.FileExists(ConfigDir & "protocols.xml")) then
    FileSystemObj.CopyFile DistDir & "protocols.xml", ConfigDir, false
  End If

  ConfigFile  = ConfigDir & "SetService64.bat"
  ReplaceInFile ConfigFile, "@-INSTALLDIR-@", InstallDir

  ConfigFile  = ConfigDir & "SetService32.bat"
  ReplaceInFile ConfigFile, "@-INSTALLDIR-@", InstallDir
  

'Last End If
End If