Roxen.git/ server/ etc/ RoxenUI.wxs

2004-11-29

2004-11-29 16:50:45 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• ea05472c3de394db9368d12aef3a4d8a2e192e6a (2274 lines) (+1134/-1140) ^{[ Show | Annotate ]}
  Branch: 5.2

CreatePikeLocation now uses Win32Installer.vbs.

Rev: server/etc/RoxenUI.wxs:1.22

15:    <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 &amp; "pikelocation,txt", True) -  tf.WriteLine(serverdir &amp; "pike\bin\pike") -  tf.Close -  -  </CustomAction> +  <CustomAction Id="CreatePikeLocation" BinaryKey="Installer" +  VBScriptCall="CreatePikeLocation" Execute="deferred" />    <CustomAction Id="StartBrowser" Property="BROWSER"    ExeCommand="[SERVER_PROTOCOL]://localhost:[SERVER_PORT]/"    Execute="deferred" Return="asyncNoWait" />
1136:    <Binary Id="DefBannerBitmap" src="Banner.bmp" />    <Binary Id="UpFldrBtn" src="UpFldrBtn.icon" />    <Binary Id="NewFldrBtn" src="NewFldrBtn.icon" /> +  <Binary Id="Installer" src="Win32Installer.vbs" />    </Fragment>   </Wix>