SimpleWebPresenter: common-functions.inc annotate

annotate common-functions.inc @ 52:3898353ed1d8

Include fixes. sitemap don't print before everything has been processed. Make a class of accept-language.

author	Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
date	Thu, 11 Oct 2012 00:48:46 +0200
parents	15879e2aab65
children	2e6ba7259281

rev	line source
4 74196528fc64 Refac to use xml as input, and remove filters and helper-functions from Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	1 <?php
39 bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	2 include_once 'CacheTimeCheck.inc';
bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	3
52 3898353ed1d8 Include fixes. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 46 diff changeset	4 $baseDir = dirname(__FILE__);
3898353ed1d8 Include fixes. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 46 diff changeset	5
39 bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	6 $cache = CacheTimeCheck::instance(__FILE__);
52 3898353ed1d8 Include fixes. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 46 diff changeset	7 $cache->includeOnce('http-response-status-codes.inc', $baseDir);
39 bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	8
46 15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	9 function repMapString($map)
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	10 {
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	11 $opt = 'array(';
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	12 $start = True;
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	13
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	14 foreach($map as $param => $value) {
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	15 if ($start) {
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	16 $start = False;
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	17 $opt .= "\"${param}\" => \"${value}\"";
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	18 }
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	19 else {
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	20 $opt .= ", \"${param}\" => \"${value}\"";
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	21 }
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	22 }
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	23 $opt .= ')';
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	24 return $opt;
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	25 }
15879e2aab65 Function for converting a stringmap to EVALable function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 45 diff changeset	26
39 bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	27 function basePath()
bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	28 {
bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	29 $l = strrpos($_SERVER['SCRIPT_FILENAME'], $_SERVER['SCRIPT_NAME']);
bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	30 return substr($_SERVER['SCRIPT_FILENAME'], 0, $l);
bd82b719a0de Make CacheTimeCheck a singleton. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 34 diff changeset	31 }
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	32
4 74196528fc64 Refac to use xml as input, and remove filters and helper-functions from Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	33 function loadFile($sFilename, $sCharset = 'UTF-8')
74196528fc64 Refac to use xml as input, and remove filters and helper-functions from Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	34 {
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	35 if (floatval(phpversion()) >= 4.3) {
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	36 if (!file_exists($sFilename))
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	37 return -3;
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	38 $sData = file_get_contents($sFilename);
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	39 }
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	40 else {
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	41 if (!file_exists($sFilename))
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	42 return -3;
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	43 $rHandle = fopen($sFilename, 'r');
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	44 if (!$rHandle)
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	45 return -2;
34 ca76d31b7d48 Whitespace clean. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 33 diff changeset	46
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	47 $sData = '';
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	48 while(!feof($rHandle))
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	49 $sData .= fread($rHandle, filesize($sFilename));
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	50 fclose($rHandle);
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	51 }
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	52 if ($sEncoding = mb_detect_encoding($sData, 'auto', true) != $sCharset) {
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	53 if ($sEncoding != 1) {
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	54 $sData = mb_convert_encoding($sData, $sCharset, $sEncoding);
4 74196528fc64 Refac to use xml as input, and remove filters and helper-functions from Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	55 }
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	56 }
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	57 return $sData;
4 74196528fc64 Refac to use xml as input, and remove filters and helper-functions from Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	58 }
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	59
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	60 function errorPage($errorText, $errorCode = 403)
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	61 {
18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	62 header(StatusCodes::httpHeaderFor($errorCode));
18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	63 print "<div id=\"page\"><h1>${errorText}</h1></div>";
18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	64 exit;
18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	65 }
18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	66
45 6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	67 function genUrl($urlParams, $keys = array(), $nonQueryParams = array()) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	68 $out = '';
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	69 $first = 1;
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	70 $new_params = $urlParams;
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	71 foreach($keys as $param => $val) {
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	72 $new_params[$param] = $val;
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	73 }
45 6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	74
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	75 foreach($nonQueryParams as $nqp) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	76 if (array_key_exists($nqp, $new_params)) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	77 $val = $new_params[$nqp];
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	78 if ($val)
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	79 $out .= "/${val}";
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	80 unset($new_params[$nqp]);
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	81 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	82 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	83
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	84 foreach($new_params as $param => $val) {
45 6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	85 if ($val) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	86 if($first) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	87 $first = 0;
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	88 $out .= "?";
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	89 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	90 else
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	91 $out .= "&";
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	92 $out .= urlencode($param) . '=' . urlencode($val);
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	93 }
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	94 }
45 6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	95
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	96 return $out;
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	97 }
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	98
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	99 function getElementByTagName($obj, $name) {
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	100 $elems = $obj->getElementsByTagName($name);
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	101 if ($elems->length != 1) {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	102 exit;
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	103 }
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	104 $elem = $elems->item(0);
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	105 return $elem;
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	106 }
8 19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	107
19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	108 function getXmlContent($node)
19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	109 {
33 511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	110 $text = $node->ownerDocument->saveXml($node);
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	111 $pattern = "/^<" . $node->tagName."[^>]*>/is";
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	112 $text = preg_replace($pattern, '' , $text);
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	113 $pattern = '/<\/' . $node->tagName . '[^>]*>$/is';
511b6514823f Remove more globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 13 diff changeset	114 $text = preg_replace($pattern, '' , $text);
8 19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	115
19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	116 return $text;
19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	117 }
19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	118
45 6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	119 function startswith($haystack, $needle)
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	120 {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	121 return strpos($haystack, $needle) === 0;
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	122 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	123
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	124 function endsWith($haystack, $needle)
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	125 {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	126 $l = strlen($haystack) - strlen($needle);
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	127 return strrpos($haystack, $needle) === $l;
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	128 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	129
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	130 function getHeaders($url)
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	131 {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	132 $response = http_head($url, array("timeout"=>1), $info);
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	133 $headers = array();
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	134 $str = explode("\n", $response);
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	135 foreach($str as $kv) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	136 $p = strpos($kv, ":");
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	137 if ($p) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	138 $key = substr($kv, 0, $p);
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	139 $value = trim(substr($kv, $p + 1));
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	140 $headers[$key] = $value;
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	141 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	142 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	143 return $headers;
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	144 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	145
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	146 function opttostring($opts)
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	147 {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	148 $str = '';
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	149 foreach (array_keys($opts) as $key) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	150 $value = $opts[$key];
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	151 if ($str) {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	152 $str .= "&${key}=${value}";
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	153 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	154 else {
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	155 $str = "?${key}=${value}";
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	156 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	157 }
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	158 return $str;
6c2c6acba30c Support for hardcoding parameters. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 40 diff changeset	159 }
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	160 ?>

Mercurial > SimpleWebPresenter

annotate common-functions.inc @ 52:3898353ed1d8