From 6266330d04fe4056e92e60dc486e81f3c852b58e Mon Sep 17 00:00:00 2001
From: cantor <cantor@cb58f699-b61c-0410-a6fe-9272a202ed29>
Date: Thu, 13 Mar 2008 18:31:26 +0000
Subject: [PATCH] Untested script to run keygen batch file.

git-svn-id: https://svn.middleware.georgetown.edu/cpp-sp/trunk@2773 cb58f699-b61c-0410-a6fe-9272a202ed29
---
 msi/scripts/shib_keygen.vbs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 msi/scripts/shib_keygen.vbs

diff --git a/msi/scripts/shib_keygen.vbs b/msi/scripts/shib_keygen.vbs
new file mode 100644
index 0000000..ccc4a16
--- /dev/null
+++ b/msi/scripts/shib_keygen.vbs
@@ -0,0 +1,17 @@
+Dim ConvertedDir, InstallDir, ScriptName, WshShell
+
+On Error Resume Next
+Set WshShell = CreateObject("WScript.Shell")
+If (Err = 0) then
+  'Get the INSTALLDIR value via CustomActionData
+  InstallDir = Session.Property("CustomActionData")
+
+  'Remove all trailing backslashes to normalize
+  Do While (Mid(InstallDir,Len(InstallDir),1) = "\")
+    InstallDir = mid(InstallDir,1,Len(InstallDir)-1)
+  Loop
+  ConvertedDir = Replace(InstallDir, "\", "/")
+  ScriptName = ConvertedDir & "\etc\shibboleth\keygen.bat"
+  
+  WshShell.Exec(ScriptName)
+End If
-- 
2.1.4