Rev 2 | Rev 23 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/* @section Helper functions *//*** Retrieves the value of an element of an associative array.** This is designed for $_GET and other HTTP variables but* also works for common associative arrays.** @param $key: string* Key identifier. The default is the empty string.* @param $array: string* Array identifier. The default is '_GET'. If there is* no such array, the identifier is prefixed with 'HTTP'* and suffixed with '_VARS' (to support the deprecated* HTTP_GET_VARS etc. arrays as of PHP < 4.1). If* there is still no array with that identifier, return* the empty string.* @param $default: string* Default return value if the element specified with* $key is not available in the array. The default* is the empty string.* @return* The value of the element of that array with that key or* the empty string if there is no such element or array.* @author* Copyright (C) 2004, 2005 Thomas Lahn <php@PointedEars.de>*/function getVars($key = '', $array = '_GET', $default = '', $noEntities = false){global ${$array};if (!isset(${'HTTP'.$array.'_VARS'})) global ${'HTTP'.$array.'_VARS'};/*echo "<pre>getVars: \$$array"."['$key']: return '".(isset(${$array}) && isset(${$array}[$key])? ${$array}[$key]: (isset(${'HTTP'.$array.'_VARS'}) && isset(${'HTTP'.$array.'_VARS'}[$key])? ${'HTTP'.$array.'_VARS'}[$key]: $default)) . "'</pre><br>\n";*/$result = (isset(${$array}) && isset(${$array}[$key])? ${$array}[$key]: (isset(${'HTTP'.$array.'_VARS'}) && isset(${'HTTP'.$array.'_VARS'}[$key])? ${'HTTP'.$array.'_VARS'}[$key]: $default));// TODO: Escape HTML entities/*if (!$noEntities){$result = htmlentities($result);}*/return $result;}/*** Converts the argument to a visible (X)HTML hyperlink* where its URI target is created from the argument.* Supported are e-mail addresses, domain names with* optional paths, and valid URIs.** @param $text* Argument to be converted.* @return* The converted argument if it applies to a supported* scheme, the unconverted argument otherwise.** @author (C) 2001-04-04T02:03* mark.young@vdhinc.com at http://php.net/manual/en/ref.strings.php** Minor correction to my HTMLEncode function.** @author 2002-08-29T09:00* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Added target="_blank"* - Added support for ftp(s)-URIs: (ht|f)* - Added support for search strings (?...=...&...=...), either* with or without HTML entities: \?=(&\w;|&)* - Removed enclosing nl2br call because of preformatted display** @author 2003-12-30T14:18* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Removed target="_blank".* - Added PHPdoc.** @author 2004-01-12T12:45* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Added support for #fragment_identifiers in URIs.* - Added support for bugs and comments.** @author 2004-01-13T01:29* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Added support for bug aliases.** @author 2004-01-26T20:43* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Do not convert URIs in A elements.* - Do not allow URIs with "&" before search-string.* - camelCased function identifier. Only classes* and constructors should start with uppercase.** @author 2004-01-27T14:07* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Allow to convert URIs preceded by ">" but not followed by "</a>".* - Allow ";" to be part of the search string** @author 2004-01-29T14:10* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Require valid domain name for "bar" on conversion of "foo@bar" and* "www.bar".* - Be case-insensitive except of bug aliases* - Escaped "-" in character classes if not meant as range metacharacter.* - Corrected year.** @author 2004-02-14T17:37* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Accept only valid Internet domain names* - Accept "%" within path and query part (to escape ASCII characters)** @author 2004-02-27T19:21* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Allow unescaped ":" in URI components, since it apparently does not* "conflict with the reserved purpose" (RFC 2396, section 2.2.; here:* scheme component)* - Allow slashes, dots and dashes in URI components* - Removed invalid [...(...|...)...]** @author 2004-03-01T21:48* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Allow IPv4 addresses** @author 2004-03-08T02:20* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Allow "+" and "," in query part* - Optimized character classes** @author (C) 2004-04-23T10:03* Thomas Lahn <PointedEars@selfhtml.de> at localhost** - Rewrite to use RFC 2822 and 2369 syntax*/function htmlEncode($text){// see RFC 2822 "Internet Message Format"$local_part = '[^()<>@,;:\\"\-\[\] \x00-\x1A\x7F]+';// see RFC 2396 "Uniform Resource Identifiers (URI): Generic Syntax"// $digit = '\d'; // 0-9; def. not required// $hex = '\da-f'; // "hex" for case-insensitive match; def. N/R$alpha = 'a-z'; // "alpha" for case-insensitive match$alphanum = $alpha.'\d'; // "alphanum" for case-insensitive match$mark = "\-_.!~*\'()";$reserved = ';/?:@&=+$,';$unreserved = $alphanum.$mark;$escaped = '%[\da-f]'; // contains $hex// added (?!gt;) to allow "<URI>"$uric = '(['.$reserved.$alphanum.$mark.'](?!gt;)|'.$escaped.')';$uric_no_slash = '(['.$unreserved.';\?:@&=+$,](?!gt;)|'.$escaped.')';$pchar = '(['.$unreserved.':@&=+$,](?!gt;)|'.$escaped.')';$param = $pchar;$segment = $pchar.'*(;'.$param.')*';$abs_path = '/' . $segment . '(/'.$segment.')*';$userinfo = '(['.$unreserved.';:&=+$,](?!gt;)|'.$escaped.')*';$domainlabel = '(['.$alphanum.']'. '|['.$alphanum.'](['.$alphanum.']|-)*['.$alphanum.']'. ')';$toplabel = '(['.$alpha.']'. '|['.$alpha.'](['.$alphanum.']|-)*['.$alphanum. '])';$hostname = '('.$domainlabel. '\.)*' . $toplabel . '\.?';$ipv4_address = '\d+\.\d+\.\d+\.\d+';$host = '(' . $hostname . '|' . $ipv4_address . ')';$port = '\d*';$hostport = $host . '(:' . $port . ')?';$server_req = '(' . $userinfo . ')?' . $hostport; // server is required$reg_name = '([' . $unreserved . '$,;:@&=+](?!gt;)|' . $escaped . ')+';$authority = '(' . $server_req . '|' . $reg_name . ')';$net_path = '//' . $authority . '('.$abs_path.')?';$query = $uric.'*';$scheme = '(ht|f)tps?';$hier_part = '(' . $net_path .'|' . $abs_path . ')(\?' . $query . ')?';$opaque_part = $uric_no_slash . $uric.'*';$absolute_uri = $scheme . ':(' . $hier_part . '|' . $opaque_part . ')';$fragment = $uric.'*';// absolute URIs only$uri_reference = $absolute_uri . '(#' . $fragment . ')?';// echo '<br>'.htmlentities($local_part . '@' . $host).'<br>';$searcharray = array("'(?i)(" . $local_part . '@' . $host . ")'i","'(?i)((?:(?!://).{3}|^.{0,2}))(www\." . $hostname. '|' . $ipv4_address . ")'i","'(?i)(?<!href=\")(" . $uri_reference . ")(?!</a>)'i","'(((?i)bug)\s+#?([\dA-Z_]+)\s+((?i)comment|Kommentar)\s+#?(\d+))'","'(((?i)bug)\s+#?([\dA-Z_]+))'","'(((?i)comment|Kommentar)\s+#?(\d+))'");$replacearray = array("<a href=\"mailto:\\1\">\\1</a>","\\1http://\\2","<a href=\"\\1\">\\1</a>","<a href=\"./?bug=\\3#c\\5\">\\1</a>","<a href=\"./?bug=\\3#details\">\\1</a>","<a href=\"#c\\3\">\\1</a>");return preg_replace($searcharray, $replacearray, $text);}/*** Converts the argument into a visible (X)HTML hyperlink if a condition* applies.** @author* (C) 2003, 2004 Thomas Lahn <selfhtml.de@PointedEars.de>* @param $s* Content to be converted. Required.* @param $sCond* Condition to be true for the content to be converted.* The default is <code>true</code>.* @param $sURI* Target URI of the hyperlink. The default is the* value of $s.* @param $sName* Value of the <code>name</code> attribute of the* <code>a</code> element. Unused if not provided* or empty.* @param $sTitle* Value of the <code>title</code> attribute of the* <code>a</code> element. Unused if not provided* or empty.* @param $sClass* Value of the <code>class</code> attribute of the* <code>a</code> element. Unused if not provided* or empty.* @return* The converted argument if the condition applies,* the unconverted argument otherwise.*/function makeLinkIf($s,$sCond = true,$sURI = NULL,$sTarget = '',$sName = '',$sTitle = '',$sClass = ''){return ($sCond || $sName? '<a' . ($sCond? " href=\"" . (is_null($sURI) ? $s : $sURI). "\"".($sTarget ? " target=\"$sTarget\"" : ''): ''). ($sName ? " name=\"$sName\"" : ''). ($sTitle ? " title=\"$sTitle\"" : ''). ($sClass ? " class=\"$sClass\"" : ''). '>': ''). $s. ($sCond || $sName ? '</a>' : '');}/*** Returns a visible (X)HTML hyperlink that uses the mailto: URI scheme.** @author (C) 2003 Thomas Lahn <selfhtml.de@PointedEars.de>** @author (C) 2003-12-30 Thomas Lahn <selfhtml.de@PointedEars.de>* - Corrected `$email ($name)'.* - Now uses rawurlencode(...).* - Added PHPdoc.** @author (C) 2004-11-30 Thomas Lahn <selfhtml.de@PointedEars.de>* - Don't rawurlencode(...) parens for comments.** @param $sAddress* E-mail address. The default is <selfhtml.de@PointedEars.de>.* @param $sTitle* Value of the <code>title</code> attribute of the* <code>a</code> element. Unused if not provided* or empty. The default is 'PointedEars'.* @param $sToName* Name to be used in the To header of the e-mail.* Note that @link{rawurlencode()} is used to escape* special characters automatically.* The default is "Thomas 'PointedEars' Lahn".** @return* The converted argument if the condition applies,* the unconverted argument otherwise.*/function mailto_link($sAddress = 'selfhtml.de@PointedEars.de',$sTitle = 'PointedEars',$sToName = "Thomas 'PointedEars' Lahn",$sSubject = 'SELFbug',$sImgPath = '../../media/mail.gif'){//width="14" height="15" // image size detection not yet implementedreturn ($sImgPath != ''? '<img src="' . $sImgPath . '" border="0" alt="@"> ': ''). '<a href="mailto:'. ($sAddress != ''? $sAddress: 'selfhtml.de@PointedEars.de'). ($sToName != ''? ' (' . rawurlencode($sToName) . ')': ''). ($sSubject != ''? '?subject=' . rawurlencode($sSubject): ''). '">' . (($sTitle != '') ? $sTitle : $sAddress) . '</a>';}// map bug states to numbers so that they become comparablefunction array_values_to_keys($a){$aNew = array();foreach ($a as $key => $value){$aNew[$value] = count($aNew);}return $aNew;}/*** Converts a string or an array of strings to an associative* bitmask array with the string(s) as key(s).** Converts the argument to a bitmask array where each member's* value is a power of 2, so that arbitrary member values can be* added to an integer on which bitwise operations with the member* value or a combination of member values are possible.** @author (c) 2003 Thomas Lahn <SELFbug@PointedEars.de>* @param $aArray* String or array of strings to be converted.*/function getBitmaskArray($aArray){$a = array();if (is_array($aArray)){for ($i = 0; $i < count($aArray); $i++){$a[$aArray[$i]] = pow(2, $i);}}else$a[$aArray] = 1;return $a;}/*** Returns the contents of a file as if include() was used.** @param string $filename Path of the file to retrieve* @return string File contents*/function get_include_content($filename){if (is_file($filename)){ob_start();include $filename;$contents = ob_get_contents();ob_end_clean();return $contents;}return '';}/*** Replaces each group of expressions in a string with the same* corresponding string.** @param Array[Array[string] | string, string] $map* @param string $subject* @return string* A copy of $subject with the provided mapping applied.*/function preg_replace_group($map = array(), $subject = ''){if ($subject){for ($i = 0, $len = count($map); $i < $len; $i++){$subject = preg_replace($map[$i][0], $map[$i][1], $subject);}}return $subject;}/*** Randomly encodes a string of characters.** @param string $s* String to be encoded* @param string $format = 'sgml'* Encoding format. Currently only SGML-based encoding of* ASCII characters with character references is supported.* @return string*/function randomEsc($s = '', $format = 'sgml'){$f = function_exists('mt_rand') ? 'mt_rand' : 'rand';return preg_replace_callback('/[\\x00-\\x7F]/',create_function('$m', "return $f(0, 1)" . '? $m[0] : "&#" . ord($m[0]) . ";";'),$s);}/*** Reduces sequences of two or more consecutive white-space characters* in an input to a single space.** @param string $s* @return string*/function reduceWhitespace($s){return preg_replace('/\s{2,}/', ' ', $s);}?>