Branch: Tag:

2004-12-01

2004-12-01 10:05:02 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Appempt at using WshShell.Run to spawn the pike that creates the config interface.

Rev: server/etc/RoxenUI.wxs:1.25

9:    <CustomAction Id="CustomTextA_SetProperty_EDIT1" Property="SERVER_NAME" Value="Administration Interface" Execute="firstSequence" />    <CustomAction Id="CustomTextA_SetProperty_EDIT4" Property="ADM_USER" Value="administrator" Execute="firstSequence" />    <CustomAction Id="VSDCA_FolderForm_AllUsers" Property="FolderForm_AllUsers" Value="ALL" /> -  <CustomAction Id="CreateConfigInterface" Directory="SERVERDIR" +  <CustomAction Id="OldCreateConfigInterface" 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="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="CreateConfigInterface" Script="vbscript" +  Execute="deferred"> +  Dim WshShell +  Set WshShell = Wscript.CreateObject("Wscript.Shell") +  WshShell.Run """[SERVERDIR]pike\bin\pike"" ""[SERVERDIR]bin\create_configif.pike"" --batch server_dir ""[SERVERDIR]"" server_name ""[SERVER_NAME]"" server_url ""[SERVER_PROTOCOL]://*:[SERVER_PORT]/"" user ""[ADM_USER]"" password ""[ADM_PASS1]"" ok y update n", 0, True +  </CustomAction>    <CustomAction Id="SetCreatePikeLocation" Property="CreatePikeLocation"    Value="[SERVERDIR]" Execute="immediate" />    <CustomAction Id="CreatePikeLocation" BinaryKey="Installer"