From: cantor <cantor@cb58f699-b61c-0410-a6fe-9272a202ed29>
Date: Thu, 13 Mar 2008 18:31:26 +0000 (+0000)
Subject: Untested script to run keygen batch file.
X-Git-Tag: 2.4~514
X-Git-Url: http://www.project-moonshot.org/gitweb/?p=shibboleth%2Fsp.git;a=commitdiff_plain;h=6266330d04fe4056e92e60dc486e81f3c852b58e

Untested script to run keygen batch file.

git-svn-id: https://svn.middleware.georgetown.edu/cpp-sp/trunk@2773 cb58f699-b61c-0410-a6fe-9272a202ed29
---

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