Roxen.git / server / etc / Win32Installer.vbs

version» Context lines:

Roxen.git/server/etc/Win32Installer.vbs:1:   ' - ' $Id: Win32Installer.vbs,v 1.10 2004/12/07 17:27:09 grubba Exp $ + ' $Id: Win32Installer.vbs,v 1.11 2005/11/02 15:39:22 anders 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:53:    serverdir = match.Value    Next       Set WshShell = CreateObject("WScript.Shell")    WshShell.Run """" & serverdir & "pike\bin\pike"" """ & serverdir &_    "bin\create_configif.pike"" --batch __semicolon_separated__ """ &_    Session.Property("CustomActionData") & """ ok y update n", 0, True       CreateConfigInterface = 1   End Function +  + Function CreateEnvironment() +  Dim envfile, fso, tf +  Set fso = CreateObject("Scripting.FileSystemObject") +  +  envfile = Session.Property("CustomActionData") +  +  If (Not fso.FileExists(envfile)) Then +  Set tf = fso.CreateTextFile(envfile, True) +  tf.WriteLine("[Parameters]") +  tf.WriteLine("default= ") +  tf.WriteLine("[Environment]") +  tf.WriteLine("_JAVA_OPTIONS=-Xmx256M") +  tf.Close +  End If + End Function