Roxen.git/
server/
etc/
RoxenUI.wxs
Branch:
Tag:
Non-build tags
All tags
No tags
2004-11-29
2004-11-29 14:11:37 by Henrik Grubbström (Grubba) <grubba@grubba.org>
01b8230a81e2e073a2be399f9849bbeafa8117c8 (
12
lines) (+
11
/-
1
)
[
Show
|
Annotate
]
Branch:
5.2
Try using vbscript to create pikelocation.txt.
Rev: server/etc/RoxenUI.wxs:1.18
12:
<CustomAction Id="CreateConfigInterface" Directory="SERVERDIR" ExeCommand='"[SERVERDIR]\pike\bin\pike" bin\create_configif.pike --batch server_name "[SERVER_NAME]" server_url "[SERVER_PROTOCOL]://*:[SERVER_PORT]/" user "[ADM_USER]" password "[ADM_PASS1]" ok y update n' Execute="deferred" />
-
<CustomAction Id="
CreatePikeLocation
" Directory="SERVERDIR"
+
<CustomAction Id="
OldCreatePikeLocation
" Directory="SERVERDIR"
ExeCommand='"[SERVERDIR]\pike\bin\pike" -e "write(argv[1]); Stdio.write_file(argv[2], argv[3]);" "Creating pikelocation.txt..." "pikelocation.txt" "[SERVERDIR]\pike\bin\pike"' Execute="deferred" />
-
+
<CustomAction Id="CreatePikeLocation" Script="vbscript"
+
Execute="Deferred">
+
Dim fso, tf, serverdir
+
Set fso = CreateObject("Scripting.FileSystemObject")
+
Set serverdir = Session.Property("SERVERDIR")
+
Set tf = fso.CreateTextFile(serverdir & "\pikelocation,txt", True)
+
tf.WriteLine(serverdir & "\pike\bin\pike")
+
tf.Close
+
</CustomAction>
<CustomAction Id="StartBrowser" Property="BROWSER" ExeCommand="[SERVER_PROTOCOL]://localhost:[SERVER_PORT]/" Execute="deferred" Return="asyncNoWait" />