[cpp-sp COMMIT] in /branches/REL_2/msi: scripts/shib_uninstall_isapi_filter.vbs shibboleth-sp-win32.wsi shibboleth-sp...

[noreply at shibboleth.net]

Author: rdw
Date: Mon Apr  2 16:28:30 2012
New Revision: 3605

URL: http://svn.shibboleth.net/view/cpp-sp?rev=3605&view=rev
Log:
Bring forward 2.4.3 installer.  Update version information.  Change ComponentId and add old one to list of previously used

Modified:
    branches/REL_2/msi/scripts/shib_uninstall_isapi_filter.vbs
    branches/REL_2/msi/shibboleth-sp-win32.wsi
    branches/REL_2/msi/shibboleth-sp-win64.wsi

Modified: branches/REL_2/msi/scripts/shib_uninstall_isapi_filter.vbs
URL: http://svn.shibboleth.net/view/cpp-sp/branches/REL_2/msi/scripts/shib_uninstall_isapi_filter.vbs?rev=3605&r1=3604&r2=3605&view=diff
==============================================================================
--- branches/REL_2/msi/scripts/shib_uninstall_isapi_filter.vbs (original)
+++ branches/REL_2/msi/scripts/shib_uninstall_isapi_filter.vbs Mon Apr  2 16:28:30 2012
@@ -78,48 +78,57 @@
 Dim ShibISAPIPath
 Dim site, siteObj, sitePath
 
+' First of all look for the FileExtension
+Set WshShell = CreateObject("WScript.Shell")
+On Error Resume Next
+regValue = WshShell.RegRead("HKLM\SOFTWARE\Shibboleth\FileExtension")
+if (Err = 0) then
+  ' Registry key is still there - this is an upgrade, so exit
 
-'Don't show errors, we'll handle anything important
-On Error Resume Next
+else 
+  ' Key is gone - a pure uninstall
 
-'Attempt to get W3SVC.  If failure, end script (e.g. IIS isn't available)
-Set WebObj = GetObject("IIS://LocalHost/W3SVC")
-if (Err = 0) then
+  'Don't show errors, we'll handle anything important
+  On Error Resume Next
 
-  'Get the INSTALLDIR value via CustomActionData
-  InstallDir = Session.Property("CustomActionData")
+  'Attempt to get W3SVC.  If failure, end script (e.g. IIS isn't available)
+  Set WebObj = GetObject("IIS://LocalHost/W3SVC")
+  if (Err = 0) then
 
-  'Remove all trailing backslashes to normalize
-  do while (mid(InstallDir,Len(InstallDir),1) = "\")
-    InstallDir = mid(InstallDir,1,Len(InstallDir)-1)
-  loop
-  ShibISAPIPath = InstallDir & "\lib\shibboleth\isapi_shib.dll"
+    'Get the INSTALLDIR value via CustomActionData
+    InstallDir = Session.Property("CustomActionData")
 
-  'Delete ISAPI Filter
-  'First do the master service
-  DeleteISAPIFilters "IIS://LocalHost/W3SVC",ShibISAPIPath
-  'Now do the websites
-  for each site in WebObj
-    if (site.Class = "IIsWebServer") then
-      sitePath = "IIS://LocalHost/W3SVC/" & site.Name
-      DeleteISAPIFilters sitePath,ShibISAPIPath
-    end if
-  next
+    'Remove all trailing backslashes to normalize
+    do while (mid(InstallDir,Len(InstallDir),1) = "\")
+      InstallDir = mid(InstallDir,1,Len(InstallDir)-1)
+    loop
+    ShibISAPIPath = InstallDir & "\lib\shibboleth\isapi_shib.dll"
 
-  'Delete File Extensions
-  'First do the master service
-  DeleteFileExtensions WebObj,ShibISAPIPath
-  'Now do the websites
-  for each site in WebObj
-    if (site.Class = "IIsWebServer") then
-      set siteObj = GetObject("IIS://LocalHost/W3SVC/" & site.Name & "/ROOT")
-      DeleteFileExtensions siteObj,ShibISAPIPath
-    end if
-  next
+    'Delete ISAPI Filter
+    'First do the master service
+    DeleteISAPIFilters "IIS://LocalHost/W3SVC",ShibISAPIPath
+    'Now do the websites
+    for each site in WebObj
+      if (site.Class = "IIsWebServer") then
+        sitePath = "IIS://LocalHost/W3SVC/" & site.Name
+        DeleteISAPIFilters sitePath,ShibISAPIPath
+      end if
+    next
 
+    'Delete File Extensions
+    'First do the master service
+    DeleteFileExtensions WebObj,ShibISAPIPath
+    'Now do the websites
+    for each site in WebObj
+      if (site.Class = "IIsWebServer") then
+        set siteObj = GetObject("IIS://LocalHost/W3SVC/" & site.Name & "/ROOT")
+        DeleteFileExtensions siteObj,ShibISAPIPath
+      end if
+    next
 
-  'Delete Web Services Extension (universal, no need to do for each site)
-  WebObj.DeleteExtensionFileRecord ShibISAPIPath
-
-'Last end if
+    'Delete Web Services Extension (universal, no need to do for each site)
+    WebObj.DeleteExtensionFileRecord ShibISAPIPath
+  ' Got the IIS Object
+  End If
+' Sense whether this is an upgrade
 end if

Modified: branches/REL_2/msi/shibboleth-sp-win32.wsi
URL: http://svn.shibboleth.net/view/cpp-sp/branches/REL_2/msi/shibboleth-sp-win32.wsi?rev=3605&r1=3604&r2=3605&view=diff
==============================================================================
Binary files - no diff available.

Modified: branches/REL_2/msi/shibboleth-sp-win64.wsi
URL: http://svn.shibboleth.net/view/cpp-sp/branches/REL_2/msi/shibboleth-sp-win64.wsi?rev=3605&r1=3604&r2=3605&view=diff
==============================================================================
Binary files - no diff available.