Roxen.git / server / etc / Win32Installer.vbs

version» Context lines:

Roxen.git/server/etc/Win32Installer.vbs:1: + ' -*- vhdl-mode -*-   ' - ' $Id: Win32Installer.vbs,v 1.2 2004/11/29 17:43:09 grubba Exp $ + ' $Id: Win32Installer.vbs,v 1.3 2004/11/30 17:13:14 grubba Exp $   '   ' Companion file to RoxenUI.wxs with custom actions.   '   ' 2004-11-29 Henrik Grubbström   '    -  + ' At call time the CustomActionData proprty has been set to [SERVERDIR]. + '   ' Creates "[SERVERDIR]pikelocation.txt" with the   ' content "[SERVERDIR]pike\bin\pike" -  +    Function CreatePikeLocation()    Dim fso, tf, serverdir    Set fso = CreateObject("Scripting.FileSystemObject")    -  serverdir = Session.Property("SERVERDIR") +  serverdir = Session.Property("CustomActionData")       Set tf = fso.CreateTextFile(serverdir & "pikelocation.txt", True)    tf.WriteLine(serverdir & "pike\bin\pike")    tf.Close       CreatePikeLocation = 1   End Function