Roxen.git / server / etc / RoxenUI.wxs

version» Context lines:

Roxen.git/server/etc/RoxenUI.wxs: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"    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="CreatePikeLocation" Script="vbscript" -  Execute="immediate"> +  Execute="deferred">    Dim fso, tf, serverdir    Set fso = CreateObject("Scripting.FileSystemObject")    Set serverdir = Session.Property("SERVERDIR") -  Set tf = fso.CreateTextFile(serverdir &amp; "\pikelocation,txt", True) -  tf.WriteLine(serverdir &amp; "\pike\bin\pike") +  Set tf = fso.CreateTextFile(serverdir &amp; "pikelocation,txt", True) +  tf.WriteLine(serverdir &amp; "pike\bin\pike")    tf.Close -  +     </CustomAction>    <CustomAction Id="StartBrowser" Property="BROWSER"    ExeCommand="[SERVER_PROTOCOL]://localhost:[SERVER_PORT]/"    Execute="deferred" Return="asyncNoWait" />    <UI>    <Property Id="ErrorDialog"><![CDATA[ErrorDialog]]></Property>    <Property Id="DefaultUIFont"><![CDATA[VsdDefaultUIFont.524F4245_5254_5341_4C45_534153783400]]></Property>    <Dialog Id="UserExitForm" Width="373" Height="287" Title="[ProductName]">    <Control Id="CloseButton" Type="PushButton" X="300" Y="261" Width="66" Height="18" Default="yes" Cancel="yes">    <Text>{\VSI_MS_Sans_Serif13.0_0_0}&amp;Close</Text>