XYplorer Beta Club

Code: Select all

 global $pski, $zpsw, $bat, $txt, $zip; //initialize all these variables as globals (i.e. accessible by "_Routine")

 $curl = "<xypath>\..\CLI\curl.exe"; //full path to cURL utility
 $pski = "<xypath>\..\CLI\pskill.exe"; //full path to PsKill utility
 $zpsw = """C:\Programmi\WinRAR\WinRAR.exe"" x -y"; //full path to the preferred .zip handler *plus* command line switches to perform a silent and in-place extraction. Beware of quotes!!!
 $meok = "Versione già aggiornata!"; //message that indicates you're running the last possible (beta) version
 $meko = "Il server non è raggiungibile. Ritentare in seguito."; //message that indicates a server-side connectivity problem

 $bat = "XYplorer"; //name *without extension* of the batch file
 $txt = "XYplorer"; //name *without extension* of the text file
 $zip = "XYplorer"; //name *without extension* of the update file

 /*
 Up above: the things that should be modified according to your system configuration and likes.
 Down below: the "real" code. It shouldn't be edited unless really necessary.
 */

 perm $p_lm; //initialize the "last modified" permanent variable (truly needed upon first execution only)

 $ok = "HTTP/1.1 200 OK"; //the "exit code" of a successful HTTP request
 $vers = substr(readurl("http://www.xyplorer.com/version.php"), 0, 5); //obtain the current major version number from the web and turn it in the xx.yy form
 $du = "http://www.xyplorer.com/download/xyplorer_".$vers."_beta_noinstall.zip"; //set the url from which the update will be downloaded

 $bat = <xypath>."\".$bat.".".bat; //add path and proper extension to the batch file name
 $txt = <xypath>."\".$txt.".".txt; //add path and proper extension to the text file name
 $zip = <xypath>."\".$zip.".".zip; //add path and proper extension to the update file name

 delete 0, 0, $bat; //delete silently and permanently unlikely remnants of any previous execution
 delete 0, 0, $txt; //delete silently and permanently unlikely remnants of any previous execution
 delete 0, 0, $zip; //delete silently and permanently unlikely remnants of any previous execution

 $comm = <<<WIN_CLI
cmd /c ""$curl" --head "$du" > "$txt""
WIN_CLI;

 /*
 Get the HTTP response and store it in the text file.
 */

 run $comm,,1,2; //run the command described above. The shell window is minimized, and XY will wait until it has finished
 $resp = readfile($txt); //read the above HTTP response in a variable
 delete 0, 0, $txt; //delete the text file
 $hc = gettoken ($resp, 1, <crlf>); //store the "HTTP "exit" code" (first line of the HTTP response)
 $lm = gettoken ($resp, 4, <crlf>); //store the "last modified" time of the possibly-to-be-downloaded file on the server (fourth line of the HTTP response)

 if ($hc != $ok) { //if the HTTP request isn't successful...
  echo $meko; //...display a message that warns about a possible server-side connectivity problem...
  end; //...and terminate script execution
 }

 if ($lm != $p_lm) { //if the last modification appears to be different than what XYplorer remembers...
  $p_lm = $lm; //...then store this new modification time...
  download $du,$zip; //...download the update...
  sub "_Routine"; //...and finally execute the "dirty work"
 } else { //else...
  echo $meok; //...display a message that says you're already bleeding edge :)
 };

"_Routine"
 global $pski, $zpsw, $bat, $txt, $zip; //make all these variables accessible inside here

 $batch = <<<WIN_CLI
@echo off

color 70

title %~n0

cd /d "%~dp0"

start "" /wait /separate "$pski" "XYplorer.exe" /accepteula
start "" /wait /separate "$pski" "XYcopy.exe" /accepteula

start "" /wait /separate $zpsw "$zip"

start "" /separate "XYplorer.exe"

del "$zip"
del "$txt"
del "$bat"
WIN_CLI;

 /*
 The batch file (written above with here-doc syntax) basically kills every instance of every executable
 called "XYplorer.exe" and "XYcopy.exe". Then it unpacks the downloaded "XYplorer.zip", silently and in-place.
 Finally, it starts XYplorer and deletes the downloaded .zip file, the .txt file if still present, and itself.
 All in a nice black-on-grey shell window (good for myopia and/or astigmatism without burning your eyes).
 */

 writefile($bat,$batch); //physically writes the batch file above

 #182; //saves all XYplorer's settings
 run """$bat""",,,2; //starts, in a minimized window, the batch file
 #191; //shuts XYplorer down