| ';
/*
Create an associate array to pass in. I leave most of it blank
*/
$vals = array(
'vlabel'=>'',
'hlabel'=>'',
'type'=>'',
'cellpadding'=>'',
'cellspacing'=>'0',
'border'=>'',
'width'=>'',
'background'=>'',
'vfcolor'=>'',
'hfcolor'=>'',
'vbgcolor'=>'',
'hbgcolor'=>'',
'vfstyle'=>'',
'hfstyle'=>'',
'noshowvals'=>'',
'scale'=>$scale,
'namebgcolor'=>'',
'valuebgcolor'=>'',
'namefcolor'=>'',
'valuefcolor'=>'',
'namefstyle'=>'',
'valuefstyle'=>'',
'doublefcolor'=>'');
/*
This is the actual call to the HTML_Graphs class
*/
html_graph($name_string, $value_string, $bars, $vals);
echo '
|
';
echo $GLOBALS['HTML']->listTableBottom();
}
/**
* ShowResultSet() - Show a generic result set
* Very simple, plain way to show a generic result set
*
* @param int The result set ID
* @param string The title of the result set
* @param bool The option to turn URL's into links
* @param bool The option to display headers
* @param array The db field name -> label mapping
* @param array Don't display these cols
*
*/
function ShowResultSet($result,$title='',$linkify=false,$displayHeaders=true,$headerMapping=array(), $excludedCols=array()) {
global $group_id,$HTML;
if($result) {
$rows = db_numrows($result);
$cols = db_numfields($result);
echo '
* @version 1.0
* @param int bytes is the size
* @param bool base10 enable base 10 representation, otherwise
* default base 2 is used
* @param int round number of fractional digits
* @param array labels strings associated to each 2^10 or
* 10^3(base10==true) multiple of base units
*/
function human_readable_bytes ($bytes, $base10=false, $round=0, $labels=array()) {
if ($bytes == 0) {
return "0";
}
if ($bytes < 0) {
return "-" . human_readable_bytes(-$bytes, $base10, $round);
}
if ($base10) {
$labels = array(_('bytes'), _('kB'), _('MB'), _('GB'), _('TB'));
$step = 3;
$base = 10;
} else {
$labels = array(_('bytes'), _('KiB'), _('MiB'), _('GiB'), _('TiB'));
$step = 10;
$base = 2;
}
$log = (int)(log10($bytes)/log10($base));
krsort($labels);
foreach ($labels as $p=>$lab) {
$pow = $p * $step;
if ($log < $pow) {
continue;
}
if ($lab != _("bytes") and $lab != _("kB") and $lab != _("KiB")) {
$round = 2;
}
$text = round($bytes/pow($base,$pow),$round) . " " . $lab;
break;
}
return $text;
}
/**
* ls - lists a specified directory and returns an array of files
* @param string the path of the directory to list
* @param boolean whether to filter out directories and illegal filenames
* @return array array of file names.
*/
function &ls($dir,$filter=false) {
$out = array();
if (is_dir($dir) && ($h = opendir($dir))) {
while (($f = readdir($h)) !== false) {
if ($f[0] == '.')
continue;
if ($filter) {
if (!util_is_valid_filename($f) ||
!is_file($dir . "/" . $f))
continue;
}
$out[] = $f;
}
closedir($h);
}
return $out;
}
/**
* readfile_chunked() - replacement for readfile
*
* @param string The file path
* @param bool Whether to return bytes served or just a bool
*
*/
function readfile_chunked($filename, $returnBytes=true) {
$chunksize = 1*(1024*1024); // 1MB chunks
$buffer = '';
$byteCounter = 0;
$handle = fopen($filename, 'rb');
if ($handle === false) {
return false;
}
ob_start () ;
while (!feof($handle)) {
$buffer = fread($handle, $chunksize);
echo $buffer;
ob_flush() ;
flush () ;
if ($returnBytes) {
$byteCounter += strlen($buffer);
}
}
ob_end_flush () ;
$status = fclose($handle);
if ($returnBytes && $status) {
return $byteCounter; // return num. bytes delivered like readfile() does.
}
return $status;
}
/**
* util_is_root_dir() - Checks if a directory points to the root dir
* @param string Directory
* @return bool
*/
function util_is_root_dir($dir) {
return !preg_match('/[^\\/]/',$dir);
}
/**
* util_is_dot_or_dotdot() - Checks if a directory points to . or ..
* @param string Directory
* @return bool
*/
function util_is_dot_or_dotdot($dir) {
return preg_match('/^\.\.?$/',trim($dir, '/'));
}
/**
* util_containts_dot_or_dotdot() - Checks if a directory containts . or ..
* @param string Directory
* @return bool
*/
function util_containts_dot_or_dotdot($dir) {
foreach (explode('/', $dir) as $sub_dir) {
if (util_is_dot_or_dotdot($sub_dir))
return true;
}
return false;
}
/**
* util_secure_filename() - Returns a secured file name
* @param string Filename
* @return string Filename
*/
function util_secure_filename($file) {
$f = preg_replace("/[^-A-Z0-9_\.]/i", '', $file);
if (util_containts_dot_or_dotdot($f))
$f = preg_replace("/\./", '_', $f);
if (! $f)
$f = md5($file);
return $f;
}
/**
* util_strip_accents() - Remove accents from given text.
* @param string Text
* @return string
*/
function util_strip_accents($text) {
$find = utf8_decode($text);
$find = strtr($find,
utf8_decode('àáâãäçèéêëìíîïñòóôõöùúûüýÿÀÁÂÃÄÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝ'),
'aaaaaceeeeiiiinooooouuuuyyAAAAACEEEEIIIINOOOOOUUUUY');
return utf8_encode($find);
}
/**
* Constructs the forge's URL prefix out of forge_get_config('url_prefix')
*
* @return string
*/
function normalized_urlprefix() {
$prefix = forge_get_config('url_prefix') ;
$prefix = preg_replace ("/^\//", "", $prefix) ;
$prefix = preg_replace ("/\/$/", "", $prefix) ;
$prefix = "/$prefix/" ;
if ($prefix == '//')
$prefix = '/' ;
return $prefix ;
}
/**
* Construct the base URL http[s]://forge_name[:port]
*
* @return string base URL
*/
function util_make_base_url() {
if (forge_get_config('use_ssl')) {
$url = "https://" ;
} else {
$url = "http://" ;
}
$url .= forge_get_config('web_host') ;
if (forge_get_config('https_port') && (forge_get_config('https_port') != 443)) {
$url .= ":".forge_get_config('https_port') ;
}
return $url;
}
/**
* Construct full URL from a relative path
*
* @param string $path
* @return string URL
*/
function util_make_url($path = '') {
$url = util_make_base_url().util_make_uri($path) ;
return $url;
}
/**
* Find the relative URL from full URL, removing http[s]://forge_name[:port]
*
* @param string URL
*/
function util_find_relative_referer($url) {
$relative_url = str_replace(util_make_base_url(), '', $url);
//now remove previous feedback, error_msg or warning_msg
$relative_url = preg_replace('/&error_msg=.*&/', '&', $relative_url);
$relative_url = preg_replace('/&warning_msg=.*&/', '&', $relative_url);
$relative_url = preg_replace('/&feedback=.*&/', '&', $relative_url);
$relative_url = preg_replace('/&error_msg=.*/', '', $relative_url);
$relative_url = preg_replace('/&warning_msg=.*/', '', $relative_url);
$relative_url = preg_replace('/&feedback=.*/', '', $relative_url);
return $relative_url;
}
/**
* Construct proper (relative) URI (prepending prefix)
*
* @param string $path
* @return string URI
*/
function util_make_uri($path) {
$path = preg_replace('/^\//', '', $path);
$uri = normalized_urlprefix();
$uri .= $path;
return $uri;
}
function util_make_link($path, $text, $extra_params = false, $absolute = false) {
global $use_tooltips;
$ep = '';
if (is_array($extra_params)) {
foreach ($extra_params as $key => $value) {
if ($key != 'title') {
$ep .= "$key=\"$value\" ";
}
if ($key == 'title' && $use_tooltips) {
$ep .= "$key=\"$value\" ";
}
}
}
if ($absolute) {
return '' . $text . '' ;
} else {
return '' . $text . '' ;
}
}
/**
* Create an HTML link to a user's profile page
*
* @param string $username
* @param int $user_id
* @param string $text
* @return string
*/
function util_make_link_u ($username, $user_id,$text) {
return '' . $text . '';
}
/**
* Display username with link to a user's profile page
* and icon face if possible.
*
* @param string $username
* @param int $user_id
* @param string $text
* @param string $size
* @return string
*/
function util_display_user($username, $user_id, $text, $size='xs') {
// Invoke user_link_with_tooltip plugin
$hook_params = array('resource_type' => 'user', 'username' => $username, 'user_id' => $user_id, 'size' => $size, 'user_link' => '');
plugin_hook_by_reference('user_link_with_tooltip', $hook_params);
if($hook_params['user_link'] != ''){
return $hook_params['user_link'];
}
// If no plugin replaced it, then back to default standard link
// Invoke user_logo plugin (see gravatar plugin for instance)
$params = array('user_id' => $user_id, 'size' => $size, 'content' => '');
plugin_hook_by_reference('user_logo', $params);
$url = '' . $text . '';
if ($params['content']) {
return $params['content'].$url.'';
}
return $url;
}
/**
* Create URL for user's profile page
*
* @param string $username
* @param int $user_id
* @return string URL
*/
function util_make_url_u ($username, $user_id) {
if (isset ($GLOBALS['sys_noforcetype']) && $GLOBALS['sys_noforcetype']) {
return util_make_url ("/developer/?user_id=$user_id");
} else {
return util_make_url ("/users/$username/");
}
}
/**
* Create a HTML link to a project's page
* @param string $groupame
* @param int $group_id
* @param string $text
* @return string
*/
function util_make_link_g ($groupname, $group_id,$text) {
$hook_params =array();
$hook_params['resource_type'] = 'group';
$hook_params['group_name'] = $groupname;
$hook_params['group_id'] = $group_id;
$hook_params['link_text'] = $text;
$hook_params['group_link'] = '';
plugin_hook_by_reference('project_link_with_tooltip', $hook_params);
if($hook_params['group_link'] != '') {
return $hook_params['group_link'];
}
return '' . $text . '' ;
}
/**
* Create URL for a project's page
*
* @param string $groupame
* @param int $group_id
* @return string
*/
function util_make_url_g ($groupame, $group_id) {
if (isset ($GLOBALS['sys_noforcetype']) && $GLOBALS['sys_noforcetype']) {
return util_make_url ("/project/?group_id=$group_id");
} else {
return util_make_url ("/projects/$groupame/");
}
}
function util_ensure_value_in_set ($value, $set) {
if (in_array ($value, $set)) {
return $value ;
} else {
return $set[0] ;
}
}
function check_email_available($group, $email, &$response) {
// Check if a mailing list with same name already exists
$mlFactory = new MailingListFactory($group);
if (!$mlFactory || !is_object($mlFactory) || $mlFactory->isError()) {
$response .= $mlFactory->getErrorMessage();
return false;
}
$mlArray = $mlFactory->getMailingLists();
if ($mlFactory->isError()) {
$response .= $mlFactory->getErrorMessage();
return false;
}
for ($j = 0; $j < count($mlArray); $j++) {
$currentList =& $mlArray[$j];
if ($email == $currentList->getName()) {
$response .= _('Error: a mailing list with the same email address already exists.');
return false;
}
}
// Check if a forum with same name already exists
$ff = new ForumFactory($group);
if (!$ff || !is_object($ff) || $ff->isError()) {
$response .= $ff->getErrorMessage();
return false;
}
$farr = $ff->getForums();
$prefix = $group->getUnixName() . '-';
for ($j = 0; $j < count($farr); $j++) {
if (is_object($farr[$j])) {
if ($email == $prefix . $farr[$j]->getName()) {
$response .= _('Error: a forum with the same email address already exists.');
return false;
}
}
}
// Email is available
return true;
}
/**
* Adds the Javascript file to the lits to be used
* @param unknown_type $js
*/
function use_javascript($js) {
return $GLOBALS['HTML']->addJavascript($js);
}
function use_stylesheet($css, $media='') {
return $GLOBALS['HTML']->addStylesheet($css, $media);
}
// array_replace_recursive only appeared in PHP 5.3.0
if (!function_exists('array_replace_recursive')) {
/**
* Replaces elements from passed arrays into the first array recursively
* @param array $a1 The array in which elements are replaced.
* @param array $a2 The array from which elements will be extracted.
* @return Returns an array, or NULL if an error occurs.
*/
function array_replace_recursive ($a1, $a2) {
$result = $a1 ;
if (!is_array ($a2)) {
return $a2 ;
}
foreach ($a2 as $k => $v) {
if (!is_array ($v) ||
!isset ($result[$k]) || !is_array ($result[$k])) {
$result[$k] = $v ;
}
$result[$k] = array_replace_recursive ($result[$k],
$v) ;
}
return $result ;
}
}
// json_encode only appeared in PHP 5.2.0
if (!function_exists('json_encode')) {
require_once $gfcommon.'include/minijson.php' ;
function json_encode ($a1) {
return minijson_encode ($a1) ;
}
}
/* returns an integer from http://forge/foo/bar.php/123 or false */
function util_path_info_last_numeric_component() {
if (!isset($_SERVER['PATH_INFO']))
return false;
$ok = false;
foreach (str_split($_SERVER['PATH_INFO']) as $x) {
if ($x == '/') {
$rv = 0;
$ok = true;
} else if ($ok == false) {
; /* need reset using slash */
} else if ((ord($x) >= 48) && (ord($x) <= 57)) {
$rv = $rv * 10 + ord($x) - 48;
} else {
$ok = false;
}
}
if ($ok)
return $rv;
return false;
}
function get_cvs_binary_version () {
$string = `cvs --version 2>/dev/null | grep ^Concurrent.Versions.System.*client/server` ;
if (preg_match ('/^Concurrent Versions System .CVS. 1.11.[0-9]*/', $string)) {
return '1.11' ;
} elseif (preg_match ('/^Concurrent Versions System .CVS. 1.12.[0-9]*/', $string)) {
return '1.12' ;
} else {
return '' ;
}
}
/* get a backtrace as string */
function debug_string_backtrace() {
ob_start();
debug_print_backtrace();
$trace = ob_get_contents();
ob_end_clean();
// Remove first item from backtrace as it's this function
// which is redundant.
$trace = preg_replace('/^#0\s+' . __FUNCTION__ . "[^\n]*\n/", '',
$trace, 1);
// Renumber backtrace items.
$trace = preg_replace('/^#(\d+)/me', '\'#\' . ($1 - 1)', $trace);
return $trace;
}
function util_ini_get_bytes($id) {
$val = trim(ini_get($id));
$last = strtolower($val[strlen($val)-1]);
switch ($last) {
case 'g':
$val *= 1024;
case 'm':
$val *= 1024;
case 'k':
$val *= 1024;
}
return $val;
}
function util_get_maxuploadfilesize() {
$postmax = util_ini_get_bytes('post_max_size');
$maxfile = util_ini_get_bytes('upload_max_filesize');
$postfile = (int)(($postmax * 3) / 4);
if ($postfile < $maxfile)
$postfile = $maxfile;
return $postfile;
}
function util_get_compressed_file_extension() {
$m = forge_get_config('compression_method');
if (preg_match ('/^gzip\b/', $m)) {
return '.gz';
} elseif (preg_match ('/^bzip2\b/', $m)) {
return '.bzip2';
} elseif (preg_match ('/^lzma\b/', $m)) {
return '.lzma';
} elseif (preg_match ('/^xz\b/', $m)) {
return '.xz';
} elseif (preg_match ('/^cat\b/', $m)) {
return '';
} else {
return '.compressed';
}
}
/* return $1 if $1 is set, ${2:-false} otherwise */
function util_ifsetor(&$val, $default = false) {
return (isset($val) ? $val : $default);
}
function util_randbytes($num=6) {
$b = '';
// Let's try /dev/urandom first
$f = @fopen("/dev/urandom", "rb");
if ($f !== FALSE) {
$b .= @fread($f, $num);
fclose($f);
}
// Hm. No /dev/urandom? Try /dev/random.
if (strlen($b) < $num) {
$f = @fopen("/dev/random", "rb");
if ($f !== FALSE) {
$b .= @fread($f, $num);
fclose($f);
}
}
// Still no luck? Fall back to PHP's built-in PRNG
while (strlen($b) < $num) {
$b .= uniqid(mt_rand(), true);
}
$b = substr($b, 0, $num);
return ($b);
}
/* maximum: 2^31 - 1 due to PHP weakness */
function util_randnum($min=0,$max=32767) {
$ta = unpack("L", util_randbytes(4));
$n = $ta[1] & 0x7FFFFFFF;
$v = $n % (1 + $max - $min);
return ($min + $v);
}
// sys_get_temp_dir() is only available for PHP >= 5.2.1
if ( !function_exists('sys_get_temp_dir')) {
function sys_get_temp_dir() {
if ($temp=getenv('TMP')) return $temp;
if ($temp=getenv('TEMP')) return $temp;
if ($temp=getenv('TMPDIR')) return $temp;
return '/tmp';
}
}
/* convert '\n' to
or */
function util_pwrap($encoded_string) {
return str_replace("
", "",
str_replace("
", "",
str_replace("
", "
",
"
" . str_replace("
", "
",
implode("
", explode("\n",
$encoded_string))) . "
")));
}
function util_ttwrap($encoded_string) {
return str_replace("
", "",
str_replace("
", "",
str_replace("
", "
",
"
" . str_replace("
", "
",
implode("
", explode("\n",
encoded_string))) . "
")));
}
/* takes a string and returns it HTML encoded, URIs made to hrefs */
function util_uri_grabber($unencoded_string, $tryaidtid=false) {
/* escape all ^A and ^B as ^BX^B and ^BY^B, respectively */
$s = str_replace("\x01", "\x02X\x02", str_replace("\x02", "\x02Y\x02",
$unencoded_string));
/* replace all URIs with ^AURI^A */
$s = preg_replace(
'|([a-zA-Z][a-zA-Z0-9+.-]*:[#0-9a-zA-Z;/?:@&=+$,_.!~*\'()%-]+)|',
"\x01\$1\x01", $s);
if (!$s)
return htmlentities($unencoded_string, ENT_QUOTES, "UTF-8");
/* encode the string */
$s = htmlentities($s, ENT_QUOTES, "UTF-8");
/* convert 「^Afoo^A」 to 「foo」 */
$s = preg_replace('|\x01([^\x01]+)\x01|',
'$1', $s);
if (!$s)
return htmlentities($unencoded_string, ENT_QUOTES, "UTF-8");
// /* convert [#123] to links if found */
// if ($tryaidtid)
// $s = util_tasktracker_links($s);
/* convert ^BX^B and ^BY^B back to ^A and ^B, respectively */
$s = str_replace("\x02Y\x02", "\x02", str_replace("\x02X\x02", "\x01",
$s));
/* return the final result */
return $s;
}
/* secure a (possibly already HTML encoded) string */
function util_html_secure($s) {
return htmlentities(html_entity_decode($s, ENT_QUOTES, "UTF-8"),
ENT_QUOTES, "UTF-8");
}
/**
* TODO: Enter description here ...
* @param unknown_type $script
* @param unknown_type $default_content_type
* @return Ambiguous
*/
function util_negociate_alternate_content_types($script, $default_content_type) {
// Invoke plugins' hooks 'script_accepted_types' to discover which alternate content types they would accept for /users/...
$hook_params = array();
$hook_params['script'] = $script;
$hook_params['accepted_types'] = array();
plugin_hook_by_reference('script_accepted_types', $hook_params);
if (count($hook_params['accepted_types'])) {
// By default, text/html is accepted
$accepted_types = array($default_content_type);
$new_accepted_types = $hook_params['accepted_types'];
$accepted_types = array_merge($accepted_types, $new_accepted_types);
// PEAR::HTTP (for negotiateMimeType())
require_once('HTTP.php');
// negociate accepted content-type depending on the preferred ones declared by client
$http=new HTTP();
$content_type = $http->negotiateMimeType($accepted_types, false);
} else {
$content_type = $default_content_type;
}
return $content_type;
}
// Local Variables:
// mode: php
// c-file-style: "bsd"
// End:
?>