'
DEBUGMODEADVANCED=False

'		LIVINGACTOR INSTALL FOR IE LIBRARY VERSION 1.6.0.1
'
'				copyrights La Cantoche Production
'					all rights reserved
'
'------------------------------------------------
'				Global Stuff
'------------------------------------------------
IE_Installer_Version = "2, 1, 0, 0"
IE_INSTALL_USER_STATE = 0
USERSAIDNOTOINSTALL = False
IE_Init()
Dim IE_Chk



'---------- Init LivingActor For IE -----------
Sub IE_Init()
	Dim IE_Plugin
	
	On Error Resume Next
	currentPluginVersion = document.LIVINGACTORPLUGIN.Version
	If Err.Number > 0 Then
		If (DEBUGMODE = True) Then 
		alert "IE_CheckLivingActor : LA not install"
		End If
		IE_Chk = ERRNOINST
	
	'Old plugin version
	ElseIf(currentPluginVersion < LA_PluginVersion) Then
		Set LA_GenericPlugin = document.LIVINGACTORPLUGIN
		document.LIVINGACTORPLUGIN.LoadActor "fake.liv"
		document.LIVINGACTORPLUGIN.Quit
		
		If (DEBUGMODE = True) Then 
		alert "IE_CheckLivingActor : LA_GenericPlugin not good"
		End If
		IE_Chk = ERRUP
	
	'Good plugin version
	ElseIf (currentPluginVersion >= LA_PluginVersion) Then
		Set LA_GenericPlugin = document.LIVINGACTORPLUGIN
		IE_Chk = ERRNO
		If(LA_GenericPlugin.ClientData("IsReloading") = "True") Then
			LA_ACTOR_URL = LA_GenericPlugin.ClientData("ActorURL")
			LA_UserDefined = LA_GenericPlugin.ClientData("UserValue")
			'Call HandleEventPollMode()
			ActorLoading()
		End If
	Else
		document.LIVINGACTORPLUGIN.LoadActor "fake.liv"
		document.LIVINGACTORPLUGIN.Quit
	End If
	
End Sub
'---------- Init LivingActor For IE -----------



'---------- Check LivingActor For IE -----------
Function IE_CheckLivingActor()
	If (DEBUGMODE = True) Then 
		alert "enter IE_CheckLivingActor"
	End If
		
	If (IE_Chk = ERRNOINST) Then
		If (DEBUGMODE = True) Then 
			alert LA_GenericPlugin
			alert "IE_CheckLivingActor : LA not install"
		End If
		IE_CheckLivingActor = ERRNOINST
		
	ElseIf (IE_Chk = ERRUP) Then
		If (DEBUGMODE = True) Then 
		alert "IE_CheckLivingActor : LA_GenericPlugin not good"
		End If
		IE_CheckLivingActor = ERRUP
	ElseIf (IE_Chk = ERRNO) Then
		If (DEBUGMODE = True) Then 
		alert LA_GenericPlugin
		alert "IE_CheckLivingActor : LA_GenericPlugin is ok"
		End If
		IE_CheckLivingActor = ERRNO
	End If
	
	
	
End Function
'---------- Check LivingActor For IE -----------



'---------- Install LivingActor Version -----------  
Sub IE_Install()
	If (DEBUGMODE=True) Then 
		alert "IE_Install--enter"
	End If
	If USERSAIDNOTOINSTALL=False Then
		If GetCookie("installerpass")="one" Then
			If (DEBUGMODEADVANCED=True) Then 
				alert "IE_Install--case USERSAIDNOTOINSTALL=False cookie was one .. now two ! "
			End If
			SetCookie "installerpass", "two", 1
		else
			If (DEBUGMODEADVANCED=True) Then 
				alert "IE_Install--case USERSAIDNOTOINSTALL=False cookie was nul .. now one ! "
			End If		
			SetCookie "installerpass", "one", 1
		End If
		On Error Resume Next
		' test is we have already an installer.?
		currentDownloadProgress = document.IE_INSTALLER.DownloadProgress
		If Err.Number >  0 then
			' we dont have ....
			document.body.insertAdjacentHTML "BeforeEnd", "<Object ClassID='CLSID:DF4F4ED9-420B-4F40-AEE6-A620460306E7' ID='IE_INSTALLER'  Width=0 Height=0></Object>"
			'document.IE_INSTALLER.onreadystatechange = GetRef("OnIEInstallerStateChange")
			'IE_WaitForCabDownload
			document.IE_INSTALLER.Install
			On Error Resume Next
			IE_WaitForInstaller
		End If
	Else ' USERSAIDNOTOINSTALL
		alert "You have to reload the page to install again"
	End If	
End Sub 

'---------- Event managment : IE_INSATALLER readystate -----------

'Sub OnIEInstallerStateChange() 
'	If (Document.IE_INSTALLER.readystate = 4 ) Then
'		On Error Resume Next 'lance try	
'		Err.Clear
'		'test if we did register  the installer..
'		currentError = document.IE_INSTALLER.Error	
'		If Err.Number >  0 then 'catch
'			If (DEBUGMODE = True) Then 
'			alert  Err.Number
'				If SP2=True Then
'					If GetCookie("installerpass") ="one" Then
'						alert "event Onreadystatereadystatechange : barre jaune "
'					ElseIf GetCookie("installerpass")="two" Then
'						alert "event Onreadystatereadystatechange : utilisateur a dit non"
'						alert "nous pouvons placer ici un reload"
'						call DelCookie( "installerpass")
'						USERSAIDNOTOINSTALL = True
'					End If
'				Else 'no SP2
'					If GetCookie("installerpass") ="one" Then
'						alert "event Onreadystatereadystatechange : first pass "
'						alert "nous pouvons placer ici un reload ou indiquer RE CLICK"
'						DelCookie "installerpass"
'					End If								
'				End If
'			End If
'			'document.body.insertAdjacentHTML "BeforeEnd", "<Object ClassID='CLSID:DF4F4ED9-420B-4F40-AEE6-A620460306E7' CodeBase='http://www.cantoche.com/Player/V16/LivingActorInstaller2.cab#Version=2,1,0,0 ' ID='IE_INSTALLER2'  Width=0 Height=0  > </Object>"
'			'window.setTimeout "IE_2WaitForCabDownload2",300,"VBScript"
'		Else
'			DelCookie "installerpass"
'			document.IE_INSTALLER.Install
'			IE_WaitForInstaller
'		End If
'	else
'		If (DEBUGMODE = True) Then 
'		 	alert "installer readystate = " & Document.IE_INSTALLER.readystate
'		End If
'	End If
'End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'---------- Run Until installer Cab Downloaded -----------
Sub IE_WaitForCabDownload()
	On Error Resume Next
	InstallerReadyState = -1
	InstallerReadyState = Document.IE_INSTALLER.readystate
	If (InstallerReadyState>=0 AND InstallerReadyState<4) Then
		window.setTimeout "IE_WaitForCabDownload",100,"VBScript"
	Else
		currentError = -1
		currentError = document.IE_INSTALLER.Error
		If (currentError = -1) Then
			HighSecurity = True
			ManageError(E_HIGH_SECURITY_OR_USER_SAY_NO)
		Else
			document.IE_INSTALLER.Install
			IE_WaitForInstaller
		End If
	End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub IE_WaitForInstaller()
	If (DEBUGMODELOOPS = True) Then 
		alert "IE_WaitForInstaller--enter"
	End If
	On Error Resume Next
	currentError = E_INSTALL_ABORTED
	currentError = document.IE_INSTALLER.Error
	If Err.Number >  0 then
		'alert " We had a problem with our Installer, we clicked on install and it doesnt work."
		ShowDiv
		Exit Sub
	End If
	If(currentError = E_NO_ERROR) Then
		If(document.IE_INSTALLER.HasFinished) Then
			Set LA_GenericPlugin = CreateObject("ActiveX.CantocheLivingActor")
			If (IE_CheckLivingActor()) Then
				LA_GenericPlugin.ClientData("IsReloading") = "True" 
				LA_GenericPlugin.ClientData("ActorURL") = LA_ACTOR_URL 
				LA_GenericPlugin.ClientData("UserValue") = LA_UserDefined 
				top.document.location.href = top.document.location	
			Else
				ManageError(E_CANNOT_FIND_PLUGIN_VERSION_REQUESTED)
			End If
		Else
			window.setTimeout "IE_WaitForInstaller",400,"VBScript"
		End If
	Else
		ManageError(currentError)
	End If
End Sub