WebInstall.m

(* ::Package:: *)

(* ::Subsection:: *)
(*Update code*)


Needs["JLink`"];
Needs["Utilities`URLTools`"];
InstallJava[];


httpGet[url_String]:=
	JavaBlock@Module[{http,get},
		http=JavaNew["org.apache.commons.httpclient.HttpClient"];
		get=JavaNew["org.apache.commons.httpclient.methods.GetMethod",url];
		http@executeMethod[get];
		get@addRequestHeader["content-type","application/json"];
		get@getResponseBodyAsString[]
	];


latestRelease[]:=
	Module[{code,tags},
		code = httpGet["https://api.github.com/repos/opencobra/MASS-Toolbox/releases"];
		tags = StringTake[Select[StringSplit[code,","],StringMatchQ[#,"\"tag_name"~~___]&],14;;-2];
		First[tags]
	];


Clear[Global`progress];
Module[{version,directory,fileName,url,progFunction,task1,task2,newDirectory,installNotebook,nb},
	(* Find latest version *)
	version = latestRelease[];

	(* Download tar file *)
	directory = $TemporaryDirectory;
	fileName=directory<>"/MASS-Toolbox-"<>version<>".tar.gz";
	Print["Please wait. Downloading Toolbox v"<>version<>"..."];
	url="https://github.com/opencobra/MASS-Toolbox/archive/v"<>version<>".tar.gz";
	Global`progress= 0.;
	Monitor[Null,Null];
	progFunction[_, "progress", {dlnow_, dltotal_, _, _}]:= Quiet[Global`progress = dlnow/dltotal];
	task1=URLDownload[url, fileName];
	Print["Download Complete!"];

	(* Extract files *)
	newDirectory=FileNameJoin[{directory,"MASS-Toolbox-"<>version}];
	Quiet@DeleteFile[FileNameJoin[{directory,"pax_global_header"}]];
	Quiet@DeleteDirectory[newDirectory,DeleteContents->True];
	Print["Please wait. Extracting Files..."];
	task2=ExtractArchive[fileName,directory];
	WaitAsynchronousTask[task2];

	(* Install new Toolbox *)
	Print["Installing Toolbox..."];
	installNotebook=FileNameJoin[{newDirectory,"Installer.nb"}];
	nb=NotebookOpen[installNotebook];
	SelectionMove[nb,Next,Cell,3];
	SelectionEvaluate[nb];
	SelectionMove[nb,Next,Cell,1];
	SelectionEvaluate[nb];
	Print["The MASS Toolbox was successfully installed! To load the Toolbox, quit the kernel and run \"<<Toolbox`\""];
];