| <?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]); |
| } |
| |
| ?> |