downloads/scripts.php - gerrit/www.eclipse.org/gmf-tooling - Git at Google

 <?php

 // $Id: scripts.php,v 1.89 2011/01/26 20:19:18 ahunter Exp $

 function PWD_check($PWD, $suf)
 {
 	debug ("&#160; &#160; <b>PWD = </b>$PWD; <b>suf = </b>$suf;<br/>&#160; &#160; &#160; is_dir? <b style='color:green'>" . is_dir($PWD) . "</b>; is_readable? <b style='color:green'>" . is_readable($PWD) . "</b>; is_writable? <b style='color:green'>" . is_writable($PWD) . "</b><br/>", 2);
 	return(!is_dir($PWD) || !is_readable($PWD));//||($suf == "logs" && !is_writable($PWD)));
 }

 function getPWD($suf = "downloads/drops", $doDynCheck = true, $debug_echoPWD = 0) // set 0 to hide (for security purposes!)
 {
 	global $PR, $App;

 	debug ("<br/>getPWD <b>PR = </b>$PR, <b>suf = </b>$suf</br>", 2);
 	$PWDs = array();

 	if($doDynCheck)
 	{
 		//dynamic assignments
 		$PWD = str_replace('2', '', $App->getDownloadBasePath() . "/$PR/" . $suf);
 //		var_dump($PWD);
 		$PWDs[] = $PWD;

 		//second dynamic assignment
 		if(PWD_check($PWD, $suf))
 		{
 			$PWD = $_SERVER["DOCUMENT_ROOT"] . "/$PR/" . $suf;
 			$PWDs[] = $PWD;
 		}

 		if(!PWD_check($PWD, $suf))
 		{
 			debug("'$suf' ended up with first '$PWD' (is_readable: <b style='color:green'>" . is_readable($PWD) . "</b>, is_dir: <b style='color:green'>" . is_dir($PWD) . "</b>)");
 			return $PWD;
 		}
 	}
 	$PWD = "";

 	//static assignments
 	if(PWD_check($PWD, $suf))
 	{
 		$servers = array(
 				"/buildbox(?:\.torolab\.ibm\.com)?/" => "/home/www-data/build",
 				"/build\.eclipse\.org/" => "/opt/public/modeling/build",
 				"/emf(?:\.torolab\.ibm\.com)?/" => "/home/www-data/build",
 				"/(emft|modeling)(?:\.eclipse\.org)?/" => "/home/www-data/build",
 				"/localhost/" => "/home/www-data/build",
 				"/download1\.eclipse\.org/" => "/home/local/data/httpd/download.eclipse.org",
 				"/fullmoon\.torolab\.ibm\.com/" => "/home/www");

 		foreach(array_keys($servers) as $z)
 		{
 			$PWD = $servers[$z] . "/$PR/$suf";
 			if(preg_match($z, $_SERVER["HTTP_HOST"]) && !PWD_check($PWD, $suf))
 			{
 				$PWDs[] = $PWD;
 			}
 		}
 		foreach(array_keys($servers) as $z)
 		{
 			$PWD = $servers[$z] . "/$suf";
 			if(preg_match($z, $_SERVER["HTTP_HOST"]) && !PWD_check($PWD, $suf))
 			{
 				$PWDs[] = $PWD;
 			}
 		}
 	}
 	$PWD = "";

 	//try a default guess: /home/www, two options
 	if(PWD_check($PWD, $suf))
 	{
 		$data = array(
 				2=>array(
 						"checkdir" => "/home/data/httpd/download.eclipse.org/modeling/gmp/gmf-tooling/downloads/drops",
 						"tries" => array("/home/data/httpd/download.eclipse.org/modeling/gmp/gmf-tooling/downloads/drops",
 								"/home/data/httpd/download.eclipse.org/modeling/gmp/gmf-tooling/downloads/drops",)
 				),
 				4 => array(
 						"checkdir" => "/home/data/httpd/download.eclipse.org/",
 						"tries" => array("/home/data/httpd/download.eclipse.org/$suf",
 								"/home/data/httpd/download.eclipse.org/$PR/$suf",)
 				),
 				5 => array("checkdir" => "/home/data/httpd/download.eclipse.org/",
 						"tries" => array("/home/data/httpd/download.eclipse.org/$suf",
 								"/home/data/httpd/download.eclipse.org/$PR/$suf",)
 				),
 				6 => array("checkdir" => "/home/local/data/httpd/download.eclipse.org/",
 						"tries" => array($doDynCheck ? $App->getDownloadBasePath() . "/$PR/" . $suf : null,
 								"/home/local/data/httpd/download.eclipse.org/$suf",
 								"/home/local/data/httpd/download.eclipse.org/$PR/$suf",)
 				),
 				7 => array("checkdir" => "/var/www/",
 						"tries" => array("/var/www/$PR/$suf",
 								"/var/www/html/$PR/$suf",)
 				),
 		);

 		foreach(array_keys($data) as $y)
 		{
 			$PWD = $data[$y]["checkdir"];
 			if(is_dir($PWD) && is_readable($PWD))
 			{
 				foreach(array_keys($data[$y]["tries"]) as $z)
 				{
 					#debug("&#160; &#160; &#160; &#160; &#160; \$data[$y][\"tries\"][$z] = " . $data[$y]["tries"][$z],3);
 					$PWD = $data[$y]["tries"][$z];
 					if($PWD && !PWD_check($PWD, $suf))
 					{
 						$PWDs[] = $PWD;
 						break 2;
 				}
 			}
 		}
 	}
 }

 krsort($PWDs);
 reset($PWDs);
 	debug_r($PWDs, "<hr>PWDs: ", "<hr>", 2);
 foreach($PWDs as $i => $PWD)
 {
 	debug(" &#160; &#160; $i : $PWD", 9);
 	if(!PWD_check($PWD, $suf))
 	{
 		debug("'$suf' ended up with second '$PWD' (is_readable: <b style='color:green'>" . is_readable($PWD) . "</b>, is_dir: <b style='color:green'>" . is_dir($PWD) . "</b>)");
 		return $PWD;
 	}
 }

 debug("<!-- PWD not found! -->");
 debug("'$suf' ended up with third '$PWD' (is_readable: <b style='color:green'>" . is_readable($PWD) . "</b>, is_dir: <b style='color:green'>" . is_dir($PWD) . "</b>)");
 return $PWD;
 }

 function loadDirSimple($dir, $ext, $type) // 1D array, not 2D
 {
 	$stuff = array();
 	if(is_dir($dir) && is_readable($dir))
 	{
 		$handle = opendir($dir);
 		while(($file = readdir($handle)) !== false)
 		{
 			if(preg_match("/$ext$/", $file) && !preg_match("/^\.{1,2}$/", $file))
 			{
 				if(($type == "d" && is_dir("$dir/$file")) ||($type == "f" && is_file("$dir/$file")))
 				{
 					$stuff[] = $file;
 				}
 			}
 		}
 		closedir($handle);
 	}
 	else
 	{
 		global $hadLoadDirSimpleError;
 		if(!$hadLoadDirSimpleError)
 		{
 		/*	$issue =(!is_dir($dir) ? "NOT FOUND" :(!is_readable($dir) ? "NOT READABLE" : "PROBLEM"));
 			print "<p>Directory ($dir) <b>$issue</b> on mirror: <b>" . $_SERVER["HTTP_HOST"] . "</b>!</p>";
 			print "<p>Please report this error to <a href=\"mailto:webmaster@eclipse.org?Subject=Directory ($dir) $issue in scripts.php::loadDirSimple() on mirror " . $_SERVER["HTTP_HOST"] . "\">webmaster@eclipse.org</a>, or make directory readable.</p>";
 			$hadLoadDirSimpleError = 1;*/
 		}
 	}

 	return $stuff;
 }

 function wArr($arr)
 {
 	print "<pre>\n";
 	print_r($arr);
 	print "</pre>\n";
 }

 function w($s, $br = "") // shortcut for echo() with second parameter: "add break+newline"
 {
 	if(stristr($br, "n"))
 	{
 		$br = "\n";
 	}
 	else
 	if($br)
 	{
 		$br = "<br/>\n";
 	}

 	print $s . $br;
 }

 function fDir($dirs)
 {
 	$list = scandir($dirs);
 	foreach($list as $dr)
 	{
 		if ($dr!='.' AND $dr!='..')
 		{
 			if (is_dir($dirs."/".$dr."/")) return $dirs."/".$dr."/";
 		}
 	}

 }

 function getNews($lim, $key, $xml = "", $linkOnly = false, $dateFmtPre = "", $dateFmtSuf = "") // allow overriding in case the file's not in /$PR/
 {
 	global $PR;

 	$xml =($xml ? $xml : file_get_contents($_SERVER["DOCUMENT_ROOT"] . "/$PR/" . "news/news.xml"));
 	$news_regex = "%
 			<news\ date=\"([^\"]+)\"\ showOn=\"([^\"]+)\">.*\\n
 			(.+)\\n
 			</news>.*\\n
 			%mx";

 	if(!$xml)
 	{
 		print "<p><b><i>Error</i></b> Couldn't find any news!</p>\n";
 	}

 	$regs = null;
 	preg_match_all($news_regex, $xml, $regs);
 	$i_real = 0;
 	foreach(array_keys($regs[0]) as $i)
 	{
 		if($i_real >= $lim && $lim > 0)
 		{
 			return;
 		}

 		$showOn = explode(",", $regs[2][$i]);
 		if($key == "all" || in_array($key, $showOn))
 		{
 			$i_real++;
 			print "<p>\n";
 			if(strtotime($regs[1][$i]) > strtotime("-3 weeks"))
 			{
 				if(preg_match("/update/i", $regs[3][$i]))
 				{
 					print '<img src="/modeling/images/updated.gif" alt="Updated!"/> ';
 				}
 				else
 				{
 					print '<img src="/modeling/images/new.gif" alt="New!"/> ';
 				}

 			}
 			if(!$dateFmtPre && !$dateFmtSuf)
 			{
 				$app =(date("Y", strtotime($regs[1][$i])) < date("Y") ? ", Y" : "");
 				print date("M" . '\&\n\b\s\p\;jS' . $app, strtotime($regs[1][$i])) . ' - ' . "\n";
 			}
 			else
 			if($dateFmtPre)
 			{
 				print date($dateFmtPre, strtotime($regs[1][$i]));
 			}
 			if($linkOnly)
 			{
 				$link = preg_replace("#.+(<a .+</a>).+#", "$1", $regs[3][$i]);
 			}
 			else
 			{
 				$link = $regs[3][$i];
 			}
 			print $link;
 			if($dateFmtSuf)
 			{
 				print date($dateFmtSuf, strtotime($regs[1][$i]));
 			}
 			print "</p>\n";
 		}
 	}
 }

 /* TODO: remove this when we upgrade php to >= 4.3.0 everywhere */
 if(!function_exists("file_get_contents"))
 {
 	function file_get_contents($file)
 	{
 		return(is_file($file) ? join("", file($file)) : "");
 	}
 }

 function getProjectArray($projects, $extraprojects, $nodownloads, $PR) //only the projects we have the files for
 {
 	$pwd = getPWD();

 	$projs = loadDirSimple($pwd, ".*", "d"); // locally available

 	foreach($nodownloads as $z)
 	{
 		/* php <4.2.0 returns NULL on array_search() failure, but php >=4.2.0 returns FALSE on array_search() failure, so don't check that */
 		if(is_numeric($s = array_search($z, $projs)))
 		{
 			unset($projs[$s]);
 		}
 	}
 	return array_intersect(array_merge($projects, $extraprojects), $projs);
 }

 function doSelectProject($projectArray, $proj, $nomenclature, $style = "homeitem3col", $showAll = "", $showMax = "", $sortBy = "")
 {
 	global $incubating;
 	$vars = array("showAll", "showMax", "sortBy", "hlbuild");
 	$tmp = preg_replace("#^/#", "", $proj);

 	$hlbuild =(isset($_GET["hlbuild"]) && preg_match("/^[IMNRS]\d{12}$/", $_GET["hlbuild"]) ? $_GET["hlbuild"] : "");

 	$out = "<div class=\"" .($style == "sideitem" ? "sideitem" : "homeitem3col") . "\">\n";
 	$tag =($style == "sideitem" ? "h6" : "h3");
 	$out .= "<$tag>";
 	if($style != "sideitem" && isset($incubating) && in_array($tmp, $incubating))
 	{
 		$out .= '<a href="http://www.eclipse.org/projects/what-is-incubation.php"><img style="float:right"
 				src="http://www.eclipse.org/modeling/images/egg-icon.png" alt="Validation (Incubation) Phase"
 				border="0" /></a>';
 	}
 	$out .= "$nomenclature selection</$tag>\n";
 	$out .= "<form action=\"" . $_SERVER["SCRIPT_NAME"] . "\" method=\"get\" id=\"subproject_form\">\n";
 	$out .= "<p>\n";
 	$out .= "<label for=\"project\">$nomenclature: </label>\n";

 	$out .= "<select id=\"project\" name=\"project\" onchange=\"javascript:document.getElementById('subproject_form').submit()\">\n";
 	foreach($projectArray as $k => $v)
 	{
 		$out .= "<option value=\"$v\">$k</option>\n";
 	}
 	$out .= "</select>\n";
 	foreach($vars as $z)
 	{
 		if($$z !== "")
 		{
 			$out .= "<input type=\"hidden\" name=\"$z\" value=\"" . $$z . "\"/>\n";
 		}
 	}
 	$out = preg_replace("#<option (value=\"$tmp\")>#", "<option selected=\"selected\" $1>", $out);
 	$out .= "<input type=\"submit\" value=\"Go!\"/>\n";
 	$out .= "</p>\n";
 	$out .= "</form>\n";
 	$out .= "</div>\n";

 	return $out;
 }

 function project_name($proj)
 {
 	global $projects, $PR;

 	if (isset($projects))
 	{
 		$tmp = array_flip($projects);
 		$proj = preg_replace("#^/#", "", $proj);
 		return isset($tmp[$proj]) ? $tmp[$proj] :(isset($tmp[$PR]) ? $tmp[$PR] : "");
 	}
 	else
 	{
 		return strtoupper($proj);
 	}

 }

 function debug($str, $level = 0)
 {
 	global $debug;

 	if($debug > $level)
 	{
 		print "<div class=\"debug\">$str</div>\n";
 	}
 }

 function debug_r($str, $header = "", $footer = "", $level = 0, $isPreformatted = false)
 {
 	global $debug;

 	if($debug > $level)
 	{
 		if($header)
 		{
 			print "<div class=\"debug\">";
 			print $header;
 			print "</div>\n";
 		}
 		print "<div class=\"debug\">";
 		print $isPreformatted ? "<pre><small>" : "";
 		print_r($str);
 		print $isPreformatted ? "</small></pre>" : "";
 		print "</div>\n";
 		if($footer)
 		{
 			print "<div class=\"debug\">";
 			print $footer;
 			print "</div>\n";
 		}
 	}
 }

 function domainSuffix($domain)
 {
 	return preg_replace("/.*([^\.]+\.[^\.]+)$/", "$1", $domain);
 }

 /* convert a wiki category page into a series of <li> items */
 function wikiCategoryToListItems($category)
 {
 	$wiki_contents = "";

 	// insert wiki content
 	$host = "wiki.eclipse.org";
 	$url = "/Category:" . $category;

 	$header = "Host: $host\r\n";
 	$header .= "User-Agent: PHP Script\r\n";
 	$header .= "Connection: close\r\n\r\n";

 	$fp = fsockopen($host, 80, $errno, $errstr, 30);
 	if(!$fp)
 	{
 		$out .= "<li><i>$errstr ($errno)</i></li>\n";
 	}
 	else
 	{
 		fputs($fp, "GET $url HTTP/1.1\r\n");
 		fputs($fp, $header);
 		while(!feof($fp))
 		{
 			$wiki_contents .= fgets($fp, 128);
 		}
 		fclose($fp);
 	}

 	$out = "";
 	if($wiki_contents)
 	{
 		$m = null;
 		if(preg_match("#<div id=\"mw-pages\">(.+)</div>[ \t\n]*<div class=\"printfooter\">#s", $wiki_contents, $m))
 		{
 			$links = null;
 			if(preg_match_all("#<a href=\"([^\"]+)\" title=\"([^\"]+)\">([^<]+)</a>#", $m[1], $links, PREG_SET_ORDER))
 			{
 				foreach($links as $z)
 				{
 					$out .= "<li><a href=\"http://wiki.eclipse.org/$z[1]\" title=\"$z[2]\">$z[3]</a></li>\n";
 				}
 			}
 		}
 	}
 	return $out;
 }

 function getProjectFromPath($PR)
 {
 	$m = null;
 	return preg_match("#/" . $PR . "/([^/]+)/build/.+#", $_SERVER["PHP_SELF"], $m) ? $m[1] :(preg_match("#/(" .
 			$PR . ")/build/.+#", $_SERVER["PHP_SELF"], $m) ? $m[1] : "");
 }

 function cvsminus($rev)
 {
 	if(preg_match("/^1\.1$/", $rev)) // "1.10" == "1.1" returns true, curiously enough
 	{
 		return $rev;
 	}
 	else
 	{
 		if(preg_match("/\.1$/", $rev))
 		{
 			return preg_replace("/^(\d+\.\d+)\..+$/", "$1", $rev);
 		}
 		else
 		{
 			return preg_replace("/^(.+\.)(\d+)$/e", "\"$1\" . ($2 - 1);", $rev);
 		}
 	}
 }

 function changesetForm($bugid = "")
 {
 	?>
 <form action="http://www.eclipse.org/modeling/emf/news/changeset.php"
 	method="get" target="_blank">
 	<p>
 		<label for="bugid">Bug ID: </label><input size="7" type="text"
 			name="bugid" id="bugid" value="<?php print $bugid; ?>" /> <input
 			type="submit" value="Go!" />
 	</p>
 	<p>
 		<a href="javascript:void(0)"
 			onclick="javascript:this.style.display = 'none'; document.getElementById('changesetinfo').style.display = 'block';">How
 			does this work?</a>
 	</p>
 	<div id="changesetinfo" style="display: none">
 		<p>Use this form to generate a bash shell script which can be run
 			against the projects and plugins in your workspace to produce a patch
 			file showing all changes for a given bug.</p>
 		<p>
 			The requested bug must be indexed in the <a
 				href="http://www.eclipse.org/modeling/searchcvs.php?q=190525">Search
 				CVS</a> database. Download the generated script for more
 			information. If the script is empty, then the bug was not found.
 		</p>
 	</div>
 </form>
 <?php

 }

 function tokenize($in) # split a shell command into flag/value pairs
 {
 	/* 17722 ? Ss 0:00 /bin/bash /home/www-data/build/modeling/scripts/start.sh -proj gmf
 	 * -sub gmf -version 2.1.0 -branch HEAD
 	* -URL http://download.eclipse.org/eclipse/downloads/drops/S-3.4M7-200805020100/eclipse-SDK-3.4M7-linux-gtk.tar.gz
 	* -URL http://download.eclipse.org/modeling/emf/emf/downloads/drops/2.4.0/S200805052017/emf-sdo-xsd-SDK-2.4.0M7.zip
 	* -URL http://download.eclipse.org/modeling/mdt/uml2/downloads/drops/2.2.0/S200805052208/mdt-uml2-SDK-2.2.0M7.zip
 	* -URL http://download.eclipse.org/tools/orbit/downloads/drops/S20080427194908/orbitBundles-S20080427194908.map
 	* -URL http://emft.eclipse.org/modeling/mdt/ocl/downloads/drops/1.2.0/S200805061053/mdt-ocl-SDK-1.2.0M7.zip
 	* -URL http://emft.eclipse.org/modeling/emf/query/downloads/drops/1.2.0/S200805061125/emf-query-SDK-1.2.0M7.zip
 	* -URL http://download.eclipse.org/modeling/emf/transaction/downloads/drops/1.2.0/S200805061205/emf-transaction-SDK-1.2.0M7.zip
 	* -URL http://emft.eclipse.org/modeling/emf/validation/downloads/drops/1.2.0/S200805061125/emf-validation-SDK-1.2.0M7.zip
 	* -URL http://download.eclipse.org/tools/gef/downloads/drops/3.4.0/S200804291800/GEF-ALL-3.4.0M7.zip -antTarget run
 	* -mapfileRule use-false -buildType I -javaHome /opt/sun-java2-5.0 -downloadsDir /home/www-data/build/downloads
 	* -buildDir /home/www-data/build/modeling/gmf/gmf/downloads/drops/2.1.0/I200805072353
 	* -email gmf-releng@eclipse.org,nickboldt@gmail.com,max.feldman@borland.com,anthonyh@ca.ibm.com
 	* -basebuilderBranch RC1_34
 	*/
 	$bits = explode(" -", $in);
 	$pairs["cmd"] = $bits[0];
 	for($i = 1; $i < sizeof($bits); $i++)
 	{
 		$pair = explode(" ", $bits[$i]);
 		if(isset($pair[0]) && isset($pair[1]))
 		{
 			$pairs[$pair[0]] = $pair[1];
 		}
 		else
 		if(isset($pair[0]))
 		{
 			$pairs[$pair[0]] = "";
 		}
 	}
 	return $pairs;
 }

 function addGoogleAnalyticsTrackingCodeToHeader($UA = "UA-2566337-8")
 {
 	# http://wiki.eclipse.org/Using_Phoenix#Google_Analytics
 	global $App;
 	$App->SetGoogleAnalyticsTrackingCode("$UA");
 }

 function getDownloadScript($PR)
 {
 	//global $PR;
 	if(strstr($PR, "/") !== false)
 	{
 		list($topProj, $parentProj) = explode("/", $PR); # modeling, emf
 	}
 	else
 	{
 		list($topProj, $parentProj) = array("NONE", $PR); # NONE, gef
 	}

 	# if this is a Modeling page, use /modeling/download.php;
 	# if this is a GEF page, use /gef/download.php
 	# if /foo/download.php doesn't exist, revert to /downloads/download.php
 	//$dlScriptFile = $_SERVER["DOCUMENT_ROOT"] . "/" .($topProj == "NONE" ? $parentProj : $topProj) . "/download.php";
 	#print "[$dlScriptFile =? " . is_file($dlScriptFile) . "]<br>";
 	if(is_file($dlScriptFile))
 	{
 		$downloadScript = "http://www.eclipse.org/" .($topProj == "NONE" ? $parentProj : $topProj) . "/download.php?file=";
 	}
 	else
 	{
 		$downloadScript = "http://www.eclipse.org/downloads/download.php?file=";
 	}
 	return $downloadScript;
 }

 /* thanks to http://www.php.net/manual/en/function.filesize.php#80995 */
 function dirsize($path)
 {
 	$dirsize = exec("du -s $path");
 	if($dirsize)
 	{
 		$dirsize = explode(" ", $dirsize);
 		return($dirsize[0] - 0) * 1024;
 	}
 	if(!is_dir($path))
 	{
 		return filesize($path);
 	}
 	$size = 0;
 	foreach(scandir($path) as $file)
 	{
 		if($file != '.' && $file != '..')
 		{
 			$size += dirsize($path . '/' . $file);
 		}
 	}
 	return $size;
 }

 function pretty_size($bytes)
 {
 	$sufs = array("B", "K", "M", "G", "T", "P"); //we shouldn't be larger than 999.9 petabytes any time soon, hopefully
 	$suf = 0;

 	while($bytes >= 1000)
 	{
 		$bytes /= 1024;
 		$suf++;
 	}

 	return sprintf("%3.1f%s", $bytes, $sufs[$suf]);
 }

 ?>
	<?php

	// $Id: scripts.php,v 1.89 2011/01/26 20:19:18 ahunter Exp $

	function PWD_check($PWD, $suf)
	{
	debug ("    <b>PWD = </b>$PWD; <b>suf = </b>$suf;<br/>      is_dir? <b style='color:green'>" . is_dir($PWD) . "</b>; is_readable? <b style='color:green'>" . is_readable($PWD) . "</b>; is_writable? <b style='color:green'>" . is_writable($PWD) . "</b><br/>", 2);
	return(!is_dir($PWD) \|\| !is_readable($PWD));//\|\|($suf == "logs" && !is_writable($PWD)));
	}

	function getPWD($suf = "downloads/drops", $doDynCheck = true, $debug_echoPWD = 0) // set 0 to hide (for security purposes!)
	{
	global $PR, $App;

	debug ("<br/>getPWD <b>PR = </b>$PR, <b>suf = </b>$suf</br>", 2);
	$PWDs = array();

	if($doDynCheck)
	{
	//dynamic assignments
	$PWD = str_replace('2', '', $App->getDownloadBasePath() . "/$PR/" . $suf);
	// var_dump($PWD);
	$PWDs[] = $PWD;

	//second dynamic assignment
	if(PWD_check($PWD, $suf))
	{
	$PWD = $_SERVER["DOCUMENT_ROOT"] . "/$PR/" . $suf;
	$PWDs[] = $PWD;
	}

	if(!PWD_check($PWD, $suf))
	{
	debug("'$suf' ended up with first '$PWD' (is_readable: <b style='color:green'>" . is_readable($PWD) . "</b>, is_dir: <b style='color:green'>" . is_dir($PWD) . "</b>)");
	return $PWD;
	}
	}
	$PWD = "";

	//static assignments
	if(PWD_check($PWD, $suf))
	{
	$servers = array(
	"/buildbox(?:\.torolab\.ibm\.com)?/" => "/home/www-data/build",
	"/build\.eclipse\.org/" => "/opt/public/modeling/build",
	"/emf(?:\.torolab\.ibm\.com)?/" => "/home/www-data/build",
	"/(emft\|modeling)(?:\.eclipse\.org)?/" => "/home/www-data/build",
	"/localhost/" => "/home/www-data/build",
	"/download1\.eclipse\.org/" => "/home/local/data/httpd/download.eclipse.org",
	"/fullmoon\.torolab\.ibm\.com/" => "/home/www");

	foreach(array_keys($servers) as $z)
	{
	$PWD = $servers[$z] . "/$PR/$suf";
	if(preg_match($z, $_SERVER["HTTP_HOST"]) && !PWD_check($PWD, $suf))
	{
	$PWDs[] = $PWD;
	}
	}
	foreach(array_keys($servers) as $z)
	{
	$PWD = $servers[$z] . "/$suf";
	if(preg_match($z, $_SERVER["HTTP_HOST"]) && !PWD_check($PWD, $suf))
	{
	$PWDs[] = $PWD;
	}
	}
	}
	$PWD = "";

	//try a default guess: /home/www, two options
	if(PWD_check($PWD, $suf))
	{
	$data = array(
	2=>array(
	"checkdir" => "/home/data/httpd/download.eclipse.org/modeling/gmp/gmf-tooling/downloads/drops",
	"tries" => array("/home/data/httpd/download.eclipse.org/modeling/gmp/gmf-tooling/downloads/drops",
	"/home/data/httpd/download.eclipse.org/modeling/gmp/gmf-tooling/downloads/drops",)
	),
	4 => array(
	"checkdir" => "/home/data/httpd/download.eclipse.org/",
	"tries" => array("/home/data/httpd/download.eclipse.org/$suf",
	"/home/data/httpd/download.eclipse.org/$PR/$suf",)
	),
	5 => array("checkdir" => "/home/data/httpd/download.eclipse.org/",
	"tries" => array("/home/data/httpd/download.eclipse.org/$suf",
	"/home/data/httpd/download.eclipse.org/$PR/$suf",)
	),
	6 => array("checkdir" => "/home/local/data/httpd/download.eclipse.org/",
	"tries" => array($doDynCheck ? $App->getDownloadBasePath() . "/$PR/" . $suf : null,
	"/home/local/data/httpd/download.eclipse.org/$suf",
	"/home/local/data/httpd/download.eclipse.org/$PR/$suf",)
	),
	7 => array("checkdir" => "/var/www/",
	"tries" => array("/var/www/$PR/$suf",
	"/var/www/html/$PR/$suf",)
	),
	);

	foreach(array_keys($data) as $y)
	{
	$PWD = $data[$y]["checkdir"];
	if(is_dir($PWD) && is_readable($PWD))
	{
	foreach(array_keys($data[$y]["tries"]) as $z)
	{
	#debug("          \$data[$y][\"tries\"][$z] = " . $data[$y]["tries"][$z],3);
	$PWD = $data[$y]["tries"][$z];
	if($PWD && !PWD_check($PWD, $suf))
	{
	$PWDs[] = $PWD;
	break 2;
	}
	}
	}
	}
	}

	krsort($PWDs);
	reset($PWDs);
	debug_r($PWDs, "<hr>PWDs: ", "<hr>", 2);
	foreach($PWDs as $i => $PWD)
	{
	debug("     $i : $PWD", 9);
	if(!PWD_check($PWD, $suf))
	{
	debug("'$suf' ended up with second '$PWD' (is_readable: <b style='color:green'>" . is_readable($PWD) . "</b>, is_dir: <b style='color:green'>" . is_dir($PWD) . "</b>)");
	return $PWD;
	}
	}

	debug("<!-- PWD not found! -->");
	debug("'$suf' ended up with third '$PWD' (is_readable: <b style='color:green'>" . is_readable($PWD) . "</b>, is_dir: <b style='color:green'>" . is_dir($PWD) . "</b>)");
	return $PWD;
	}

	function loadDirSimple($dir, $ext, $type) // 1D array, not 2D
	{
	$stuff = array();
	if(is_dir($dir) && is_readable($dir))
	{
	$handle = opendir($dir);
	while(($file = readdir($handle)) !== false)
	{
	if(preg_match("/$ext$/", $file) && !preg_match("/^\.{1,2}$/", $file))
	{
	if(($type == "d" && is_dir("$dir/$file")) \|\|($type == "f" && is_file("$dir/$file")))
	{
	$stuff[] = $file;
	}
	}
	}
	closedir($handle);
	}
	else
	{
	global $hadLoadDirSimpleError;
	if(!$hadLoadDirSimpleError)
	{
	/* $issue =(!is_dir($dir) ? "NOT FOUND" :(!is_readable($dir) ? "NOT READABLE" : "PROBLEM"));
	print "<p>Directory ($dir) <b>$issue</b> on mirror: <b>" . $_SERVER["HTTP_HOST"] . "</b>!</p>";
	print "<p>Please report this error to <a href=\"mailto:webmaster@eclipse.org?Subject=Directory ($dir) $issue in scripts.php::loadDirSimple() on mirror " . $_SERVER["HTTP_HOST"] . "\">webmaster@eclipse.org</a>, or make directory readable.</p>";
	$hadLoadDirSimpleError = 1;*/
	}
	}

	return $stuff;
	}

	function wArr($arr)
	{
	print "<pre>\n";
	print_r($arr);
	print "</pre>\n";
	}

	function w($s, $br = "") // shortcut for echo() with second parameter: "add break+newline"
	{
	if(stristr($br, "n"))
	{
	$br = "\n";
	}
	else
	if($br)
	{
	$br = "<br/>\n";
	}

	print $s . $br;
	}

	function fDir($dirs)
	{
	$list = scandir($dirs);
	foreach($list as $dr)
	{
	if ($dr!='.' AND $dr!='..')
	{
	if (is_dir($dirs."/".$dr."/")) return $dirs."/".$dr."/";
	}
	}

	}

	function getNews($lim, $key, $xml = "", $linkOnly = false, $dateFmtPre = "", $dateFmtSuf = "") // allow overriding in case the file's not in /$PR/
	{
	global $PR;

	$xml =($xml ? $xml : file_get_contents($_SERVER["DOCUMENT_ROOT"] . "/$PR/" . "news/news.xml"));
	$news_regex = "%
	<news\ date=\"([^\"]+)\"\ showOn=\"([^\"]+)\">.*\\n
	(.+)\\n
	</news>.*\\n
	%mx";

	if(!$xml)
	{
	print "<p><b><i>Error</i></b> Couldn't find any news!</p>\n";
	}

	$regs = null;
	preg_match_all($news_regex, $xml, $regs);
	$i_real = 0;
	foreach(array_keys($regs[0]) as $i)
	{
	if($i_real >= $lim && $lim > 0)
	{
	return;
	}

	$showOn = explode(",", $regs[2][$i]);
	if($key == "all" \|\| in_array($key, $showOn))
	{
	$i_real++;
	print "<p>\n";
	if(strtotime($regs[1][$i]) > strtotime("-3 weeks"))
	{
	if(preg_match("/update/i", $regs[3][$i]))
	{
	print '<img src="/modeling/images/updated.gif" alt="Updated!"/> ';
	}
	else
	{
	print '<img src="/modeling/images/new.gif" alt="New!"/> ';
	}

	}
	if(!$dateFmtPre && !$dateFmtSuf)
	{
	$app =(date("Y", strtotime($regs[1][$i])) < date("Y") ? ", Y" : "");
	print date("M" . '\&\n\b\s\p\;jS' . $app, strtotime($regs[1][$i])) . ' - ' . "\n";
	}
	else
	if($dateFmtPre)
	{
	print date($dateFmtPre, strtotime($regs[1][$i]));
	}
	if($linkOnly)
	{
	$link = preg_replace("#.+(<a .+</a>).+#", "$1", $regs[3][$i]);
	}
	else
	{
	$link = $regs[3][$i];
	}
	print $link;
	if($dateFmtSuf)
	{
	print date($dateFmtSuf, strtotime($regs[1][$i]));
	}
	print "</p>\n";
	}
	}
	}

	/* TODO: remove this when we upgrade php to >= 4.3.0 everywhere */
	if(!function_exists("file_get_contents"))
	{
	function file_get_contents($file)
	{
	return(is_file($file) ? join("", file($file)) : "");
	}
	}

	function getProjectArray($projects, $extraprojects, $nodownloads, $PR) //only the projects we have the files for
	{
	$pwd = getPWD();

	$projs = loadDirSimple($pwd, ".*", "d"); // locally available

	foreach($nodownloads as $z)
	{
	/* php <4.2.0 returns NULL on array_search() failure, but php >=4.2.0 returns FALSE on array_search() failure, so don't check that */
	if(is_numeric($s = array_search($z, $projs)))
	{
	unset($projs[$s]);
	}
	}
	return array_intersect(array_merge($projects, $extraprojects), $projs);
	}

	function doSelectProject($projectArray, $proj, $nomenclature, $style = "homeitem3col", $showAll = "", $showMax = "", $sortBy = "")
	{
	global $incubating;
	$vars = array("showAll", "showMax", "sortBy", "hlbuild");
	$tmp = preg_replace("#^/#", "", $proj);

	$hlbuild =(isset($_GET["hlbuild"]) && preg_match("/^[IMNRS]\d{12}$/", $_GET["hlbuild"]) ? $_GET["hlbuild"] : "");

	$out = "<div class=\"" .($style == "sideitem" ? "sideitem" : "homeitem3col") . "\">\n";
	$tag =($style == "sideitem" ? "h6" : "h3");
	$out .= "<$tag>";
	if($style != "sideitem" && isset($incubating) && in_array($tmp, $incubating))
	{
	$out .= '<a href="http://www.eclipse.org/projects/what-is-incubation.php"><img style="float:right"
	src="http://www.eclipse.org/modeling/images/egg-icon.png" alt="Validation (Incubation) Phase"
	border="0" /></a>';
	}
	$out .= "$nomenclature selection</$tag>\n";
	$out .= "<form action=\"" . $_SERVER["SCRIPT_NAME"] . "\" method=\"get\" id=\"subproject_form\">\n";
	$out .= "<p>\n";
	$out .= "<label for=\"project\">$nomenclature: </label>\n";

	$out .= "<select id=\"project\" name=\"project\" onchange=\"javascript:document.getElementById('subproject_form').submit()\">\n";
	foreach($projectArray as $k => $v)
	{
	$out .= "<option value=\"$v\">$k</option>\n";
	}
	$out .= "</select>\n";
	foreach($vars as $z)
	{
	if($$z !== "")
	{
	$out .= "<input type=\"hidden\" name=\"$z\" value=\"" . $$z . "\"/>\n";
	}
	}
	$out = preg_replace("#<option (value=\"$tmp\")>#", "<option selected=\"selected\" $1>", $out);
	$out .= "<input type=\"submit\" value=\"Go!\"/>\n";
	$out .= "</p>\n";
	$out .= "</form>\n";
	$out .= "</div>\n";

	return $out;
	}

	function project_name($proj)
	{
	global $projects, $PR;

	if (isset($projects))
	{
	$tmp = array_flip($projects);
	$proj = preg_replace("#^/#", "", $proj);
	return isset($tmp[$proj]) ? $tmp[$proj] :(isset($tmp[$PR]) ? $tmp[$PR] : "");
	}
	else
	{
	return strtoupper($proj);
	}

	}

	function debug($str, $level = 0)
	{
	global $debug;

	if($debug > $level)
	{
	print "<div class=\"debug\">$str</div>\n";
	}
	}

	function debug_r($str, $header = "", $footer = "", $level = 0, $isPreformatted = false)
	{
	global $debug;

	if($debug > $level)
	{
	if($header)
	{
	print "<div class=\"debug\">";
	print $header;
	print "</div>\n";
	}
	print "<div class=\"debug\">";
	print $isPreformatted ? "<pre><small>" : "";
	print_r($str);
	print $isPreformatted ? "</small></pre>" : "";
	print "</div>\n";
	if($footer)
	{
	print "<div class=\"debug\">";
	print $footer;
	print "</div>\n";
	}
	}
	}

	function domainSuffix($domain)
	{
	return preg_replace("/.*([^\.]+\.[^\.]+)$/", "$1", $domain);
	}

	/* convert a wiki category page into a series of <li> items */
	function wikiCategoryToListItems($category)
	{
	$wiki_contents = "";

	// insert wiki content
	$host = "wiki.eclipse.org";
	$url = "/Category:" . $category;

	$header = "Host: $host\r\n";
	$header .= "User-Agent: PHP Script\r\n";
	$header .= "Connection: close\r\n\r\n";

	$fp = fsockopen($host, 80, $errno, $errstr, 30);
	if(!$fp)
	{
	$out .= "<li><i>$errstr ($errno)</i></li>\n";
	}
	else
	{
	fputs($fp, "GET $url HTTP/1.1\r\n");
	fputs($fp, $header);
	while(!feof($fp))
	{
	$wiki_contents .= fgets($fp, 128);
	}
	fclose($fp);
	}

	$out = "";
	if($wiki_contents)
	{
	$m = null;
	if(preg_match("#<div id=\"mw-pages\">(.+)</div>[ \t\n]*<div class=\"printfooter\">#s", $wiki_contents, $m))
	{
	$links = null;
	if(preg_match_all("#<a href=\"([^\"]+)\" title=\"([^\"]+)\">([^<]+)</a>#", $m[1], $links, PREG_SET_ORDER))
	{
	foreach($links as $z)
	{
	$out .= "<li><a href=\"http://wiki.eclipse.org/$z[1]\" title=\"$z[2]\">$z[3]</a></li>\n";
	}
	}
	}
	}
	return $out;
	}

	function getProjectFromPath($PR)
	{
	$m = null;
	return preg_match("#/" . $PR . "/([^/]+)/build/.+#", $_SERVER["PHP_SELF"], $m) ? $m[1] :(preg_match("#/(" .
	$PR . ")/build/.+#", $_SERVER["PHP_SELF"], $m) ? $m[1] : "");
	}

	function cvsminus($rev)
	{
	if(preg_match("/^1\.1$/", $rev)) // "1.10" == "1.1" returns true, curiously enough
	{
	return $rev;
	}
	else
	{
	if(preg_match("/\.1$/", $rev))
	{
	return preg_replace("/^(\d+\.\d+)\..+$/", "$1", $rev);
	}
	else
	{
	return preg_replace("/^(.+\.)(\d+)$/e", "\"$1\" . ($2 - 1);", $rev);
	}
	}
	}

	function changesetForm($bugid = "")
	{
	?>
	<form action="http://www.eclipse.org/modeling/emf/news/changeset.php"
	method="get" target="_blank">
	<p>
	<label for="bugid">Bug ID: </label><input size="7" type="text"
	name="bugid" id="bugid" value="<?php print $bugid; ?>" /> <input
	type="submit" value="Go!" />
	</p>
	<p>
	<a href="javascript:void(0)"
	onclick="javascript:this.style.display = 'none'; document.getElementById('changesetinfo').style.display = 'block';">How
	does this work?</a>
	</p>
	<div id="changesetinfo" style="display: none">
	<p>Use this form to generate a bash shell script which can be run
	against the projects and plugins in your workspace to produce a patch
	file showing all changes for a given bug.</p>
	<p>
	The requested bug must be indexed in the <a
	href="http://www.eclipse.org/modeling/searchcvs.php?q=190525">Search
	CVS</a> database. Download the generated script for more
	information. If the script is empty, then the bug was not found.
	</p>
	</div>
	</form>
	<?php

	}

	function tokenize($in) # split a shell command into flag/value pairs
	{
	/* 17722 ? Ss 0:00 /bin/bash /home/www-data/build/modeling/scripts/start.sh -proj gmf
	* -sub gmf -version 2.1.0 -branch HEAD
	* -URL http://download.eclipse.org/eclipse/downloads/drops/S-3.4M7-200805020100/eclipse-SDK-3.4M7-linux-gtk.tar.gz
	* -URL http://download.eclipse.org/modeling/emf/emf/downloads/drops/2.4.0/S200805052017/emf-sdo-xsd-SDK-2.4.0M7.zip
	* -URL http://download.eclipse.org/modeling/mdt/uml2/downloads/drops/2.2.0/S200805052208/mdt-uml2-SDK-2.2.0M7.zip
	* -URL http://download.eclipse.org/tools/orbit/downloads/drops/S20080427194908/orbitBundles-S20080427194908.map
	* -URL http://emft.eclipse.org/modeling/mdt/ocl/downloads/drops/1.2.0/S200805061053/mdt-ocl-SDK-1.2.0M7.zip
	* -URL http://emft.eclipse.org/modeling/emf/query/downloads/drops/1.2.0/S200805061125/emf-query-SDK-1.2.0M7.zip
	* -URL http://download.eclipse.org/modeling/emf/transaction/downloads/drops/1.2.0/S200805061205/emf-transaction-SDK-1.2.0M7.zip
	* -URL http://emft.eclipse.org/modeling/emf/validation/downloads/drops/1.2.0/S200805061125/emf-validation-SDK-1.2.0M7.zip
	* -URL http://download.eclipse.org/tools/gef/downloads/drops/3.4.0/S200804291800/GEF-ALL-3.4.0M7.zip -antTarget run
	* -mapfileRule use-false -buildType I -javaHome /opt/sun-java2-5.0 -downloadsDir /home/www-data/build/downloads
	* -buildDir /home/www-data/build/modeling/gmf/gmf/downloads/drops/2.1.0/I200805072353
	* -email gmf-releng@eclipse.org,nickboldt@gmail.com,max.feldman@borland.com,anthonyh@ca.ibm.com
	* -basebuilderBranch RC1_34
	*/
	$bits = explode(" -", $in);
	$pairs["cmd"] = $bits[0];
	for($i = 1; $i < sizeof($bits); $i++)
	{
	$pair = explode(" ", $bits[$i]);
	if(isset($pair[0]) && isset($pair[1]))
	{
	$pairs[$pair[0]] = $pair[1];
	}
	else
	if(isset($pair[0]))
	{
	$pairs[$pair[0]] = "";
	}
	}
	return $pairs;
	}

	function addGoogleAnalyticsTrackingCodeToHeader($UA = "UA-2566337-8")
	{
	# http://wiki.eclipse.org/Using_Phoenix#Google_Analytics
	global $App;
	$App->SetGoogleAnalyticsTrackingCode("$UA");
	}

	function getDownloadScript($PR)
	{
	//global $PR;
	if(strstr($PR, "/") !== false)
	{
	list($topProj, $parentProj) = explode("/", $PR); # modeling, emf
	}
	else
	{
	list($topProj, $parentProj) = array("NONE", $PR); # NONE, gef
	}

	# if this is a Modeling page, use /modeling/download.php;
	# if this is a GEF page, use /gef/download.php
	# if /foo/download.php doesn't exist, revert to /downloads/download.php
	//$dlScriptFile = $_SERVER["DOCUMENT_ROOT"] . "/" .($topProj == "NONE" ? $parentProj : $topProj) . "/download.php";
	#print "[$dlScriptFile =? " . is_file($dlScriptFile) . "]<br>";
	if(is_file($dlScriptFile))
	{
	$downloadScript = "http://www.eclipse.org/" .($topProj == "NONE" ? $parentProj : $topProj) . "/download.php?file=";
	}
	else
	{
	$downloadScript = "http://www.eclipse.org/downloads/download.php?file=";
	}
	return $downloadScript;
	}

	/* thanks to http://www.php.net/manual/en/function.filesize.php#80995 */
	function dirsize($path)
	{
	$dirsize = exec("du -s $path");
	if($dirsize)
	{
	$dirsize = explode(" ", $dirsize);
	return($dirsize[0] - 0) * 1024;
	}
	if(!is_dir($path))
	{
	return filesize($path);
	}
	$size = 0;
	foreach(scandir($path) as $file)
	{
	if($file != '.' && $file != '..')
	{
	$size += dirsize($path . '/' . $file);
	}
	}
	return $size;
	}

	function pretty_size($bytes)
	{
	$sufs = array("B", "K", "M", "G", "T", "P"); //we shouldn't be larger than 999.9 petabytes any time soon, hopefully
	$suf = 0;

	while($bytes >= 1000)
	{
	$bytes /= 1024;
	$suf++;
	}

	return sprintf("%3.1f%s", $bytes, $sufs[$suf]);
	}

	?>