Roxen.git
/
server
/
etc
/
RoxenUI.wxs
version
»
Context lines:
10
20
40
80
file
none
3
Roxen.git/server/etc/RoxenUI.wxs:5:
<CustomAction Id="ERRCA_CANCELNEWERVERSION" Error="[VSDVERSIONMSG]" /> <CustomAction Id="ERRCA_UIANDADVERTISED" Error="[VSDUIANDADVERTISED]" /> <CustomAction Id="CustomTextA_SetProperty_EDIT3" Property="SERVER_PORT" Value="22202" Execute="firstSequence" /> <CustomAction Id="CustomTextA_SetProperty_EDIT2" Property="SERVER_PROTOCOL" Value="https" Execute="firstSequence" /> <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="
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" /> <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}&Close</Text> <Publish Event="EndDialog" Value="Return"><![CDATA[1]]></Publish>