Roxen.git / server / etc / Win32Installer.vbs

version» Context lines:

Roxen.git/server/etc/Win32Installer.vbs:1:   ' - ' $Id: Win32Installer.vbs,v 1.20 2009/02/17 13:47:06 grubba Exp $ + ' $Id: Win32Installer.vbs,v 1.21 2009/02/17 17:19:57 grubba Exp $   '   ' Companion file to RoxenUI.wxs with custom actions.   '   ' 2004-11-29 Henrik Grubbström   '      ' At call time the CustomActionData property has been set to [TARGETDIR].   '   ' Remove any previously installed service.   Function RemoveOldService()
Roxen.git/server/etc/Win32Installer.vbs:24:      ' At call time the CustomActionData property has been set to   ' [SERVERDIR];[MYSQLBASE];[MYSQLDEXE];[MYISAMCHKEXE].   '   ' Creates "[SERVERDIR]mysql-location.txt" with the   ' content "basedir=[MYSQLBASE]"   ' "mysqld=[MYSQLDEXE]"   ' "myisamchk=[MYISAMCHKEXE]"   Function CreateMysqlLocation()    Dim re, matches, match, fso, tf, serverdir, mysqlbase, mysqld, myisamchk, i +  Dim rest       serverdir = ""    mysqlbase = ""    mysqld = ""    myisamchk = ""    -  +  rest = "" +     Set re = New RegExp    re.Pattern = "[^;]*"    re.Global = True    Set matches = re.Execute(Session.Property("CustomActionData"))    i = 0    For Each match in matches    If i = 0 Then    serverdir = match.Value -  +  i = 1    Else    If i = 1 Then    mysqlbase = match.Value -  +  i = 2    Else    If i = 2 Then    mysqld = match.Value -  +  i = 3    Else    If i = 3 Then    myisamchk = match.Value -  +  i = 4 +  Else +  rest = rest & ";" & match.Value    End If    End If    End If    End If -  i = i+1 +     Next       Set fso = CreateObject("Scripting.FileSystemObject")       Set tf = fso.CreateTextFile(serverdir & "mysql-location.txt", True) -  tf.writeLine("# Created by $Id: Win32Installer.vbs,v 1.20 2009/02/17 13:47:06 grubba Exp $") +  tf.writeLine("# Created by $Id: Win32Installer.vbs,v 1.21 2009/02/17 17:19:57 grubba Exp $")    tf.writeLine("# DEBUG: " & Session.Property("CustomActionData")) -  +  tf.writeLine("# DEBUG: " & rest & ";")    tf.writeLine("basedir=" & mysqlbase)    If mysqld <> "" Then    tf.writeLine("mysqld=" & mysqld)    End If    If myisamchk <> "" Then    tf.writeLine("myisamchk=" & myisamchk)    End If    tf.Close       CreateMysqlLocation = 1