13 if ( !function_exists(
'dbg_error_log') ) {
29 function dbg_error_log() {
31 $args = func_get_args();
33 $component = array_shift($args);
34 if ( substr( $component, 0, 3) ==
"LOG" ) {
37 $component = substr($component,4);
39 else if ( $component ==
"ERROR" ) {
42 else if ( isset($c->dbg[
"ALL"]) ) {
45 else if ( !isset($c->dbg[strtolower($component)]) )
return;
48 if ( isset($c->dbg[strtolower($component)]) && $c->dbg[strtolower($component)] === 0 )
return;
51 if ( isset($c->dbg_filter[
"remoteIP"]) && !in_array($_SERVER[
'REMOTE_ADDR'], $c->dbg_filter[
"remoteIP"]) )
return;
52 if ( isset($c->dbg_filter[
"authenticatedUser"]) ) {
53 if ( !isset($session->username) )
return;
54 if ( !in_array($session->username, $c->dbg_filter[
"authenticatedUser"]) )
return;
57 $argc = func_num_args();
59 $format = array_shift($args);
64 @error_log( $c->sysabbr.
": $type: $component:". vsprintf( $format, $args ) );
69 if ( !function_exists(
'fatal') ) {
72 $args = func_get_args();
73 $argc = func_num_args();
75 $format = array_shift($args);
80 @error_log( $c->sysabbr.
": FATAL: $component:". vsprintf( $format, $args ) );
82 @error_log(
"================= Stack Trace ===================" );
84 $trace = array_reverse(debug_backtrace());
86 foreach( $trace AS $k => $v ) {
87 @error_log( sprintf(
" ===> %s[%d] calls %s%s%s()",
90 (isset($v[
'class'])?$v[
'class']:
''),
91 (isset($v[
'type'])?$v[
'type']:
''),
92 (isset($v[
'function'])?$v[
'function']:
'')
101 if ( !function_exists(
'trace_bug') ) {
105 function trace_bug() {
107 $args = func_get_args();
108 $argc = func_num_args();
110 $format = array_shift($args);
115 @error_log( $c->sysabbr.
": BUG: $component:". vsprintf( $format, $args ) );
117 @error_log(
"================= Stack Trace ===================" );
119 $trace = array_reverse(debug_backtrace());
121 foreach( $trace AS $k => $v ) {
122 @error_log( sprintf(
" ===> %s[%d] calls %s%s%s()",
125 (isset($v[
'class'])?$v[
'class']:
''),
126 (isset($v[
'type'])?$v[
'type']:
''),
127 (isset($v[
'function'])?$v[
'function']:
'')
134 if ( !function_exists(
'apache_request_headers') ) {
140 function apache_request_headers() { 141 foreach($_SERVER as $key=>$value) { 142 if (substr($key,0,5)=="HTTP_") { 143 $key=str_replace(" ","-",ucwords(strtolower(str_replace("_"," ",substr($key,5))))); 154 if ( !function_exists(
'dbg_log_array') ) {
163 function dbg_log_array( $component, $name, $arr, $recursive =
false ) {
164 if ( !isset($arr) || (gettype($arr) !=
'array' && gettype($arr) !=
'object') ) {
165 dbg_error_log( $component,
"%s: array is not set, or is not an array!", $name);
168 foreach ($arr as $key => $value) {
169 dbg_error_log( $component,
"%s: >>%s<< = >>%s<<", $name, $key,
170 (gettype($value) ==
'array' || gettype($value) ==
'object' ? gettype($value) : $value) );
171 if ( $recursive && (gettype($value) ==
'array' || (gettype($value) ==
'object' &&
"$key" !=
'self' &&
"$key" !=
'parent') ) ) {
172 dbg_log_array( $component,
"$name".
"[$key]", $value, $recursive );
180 if ( !function_exists(
"session_simple_md5") ) {
187 function session_simple_md5( $instr ) {
189 if ( isset($c->dbg[
'password']) ) dbg_error_log(
"Login",
"Making plain MD5: instr=$instr, md5($instr)=".md5($instr) );
190 return (
'*MD5*'. md5($instr) );
196 if ( !function_exists(
"session_salted_md5") ) {
206 function session_salted_md5( $instr, $salt =
"" ) {
207 if ( $salt ==
"" ) $salt = substr( md5(rand(100000,999999)), 2, 8);
209 if ( isset($c->dbg[
'password']) ) dbg_error_log(
"Login",
"Making salted MD5: salt=$salt, instr=$instr, md5($salt$instr)=".md5($salt . $instr) );
210 return ( sprintf(
"*%s*%s", $salt, md5($salt . $instr) ) );
216 if ( !function_exists(
"session_salted_sha1") ) {
230 function session_salted_sha1( $instr, $salt =
"" ) {
231 if ( $salt ==
"" ) $salt = substr( str_replace(
'*',
'',base64_encode(sha1(rand(100000,9999999),
true))), 2, 9);
233 if ( isset($c->dbg[
'password']) ) dbg_error_log(
"Login",
"Making salted SHA1: salt=$salt, instr=$instr, encoded($instr$salt)=".base64_encode(sha1($instr . $salt,
true).$salt) );
234 return ( sprintf(
"*%s*{SSHA}%s", $salt, base64_encode(sha1($instr.$salt,
true) . $salt ) ) );
239 if ( !function_exists(
"session_validate_password") ) {
247 function session_validate_password( $they_sent, $we_have ) {
249 if ( preg_match(
'/^\*\*.+$/', $we_have ) ) {
251 return (
"**$they_sent" == $we_have );
254 if ( isset($c->wp_includes) && substring($we_have,0,1) ==
'$' ) {
256 @require_once($c->wp_includes .
'/class-phpass.php');
258 if ( class_exists(
'PasswordHash') ) {
259 $wp_hasher =
new PasswordHash(8,
true);
260 return $wp_hasher->CheckPassword($password, $hash);
264 if ( preg_match(
'/^\*(.+)\*{[A-Z]+}.+$/', $we_have, $regs ) ) {
265 if ( function_exists(
"session_salted_sha1") ) {
268 $sha1_sent = session_salted_sha1( $they_sent, $salt ) ;
269 return ( $sha1_sent == $we_have );
272 dbg_error_log(
"ERROR",
"Password is salted SHA-1 but you are using PHP4!" );
276 <title>Salted SHA1 Password format not supported with PHP4</title>
279 <h1>Salted SHA1 Password format not supported with PHP4</h1>
280 <p>At some point you have used PHP5 to
set the password
for this user and now you are
281 using PHP4. You will need to assign a
new password to
this user
using PHP4, or ensure
282 you use PHP5 everywhere (recommended).</p>
283 <p>AWL has now switched to
using salted SHA-1 passwords by preference in a format
284 compatible with OpenLDAP.</p>
292 if ( preg_match(
'/^\*MD5\*.+$/', $we_have, $regs ) ) {
294 $md5_sent = session_simple_md5( $they_sent ) ;
295 return ( $md5_sent == $we_have );
297 else if ( preg_match(
'/^\*(.+)\*.+$/', $we_have, $regs ) ) {
300 $md5_sent = session_salted_md5( $they_sent, $salt ) ;
301 return ( $md5_sent == $we_have );
312 if ( !function_exists(
"replace_uri_params") ) {
320 function replace_uri_params( $uri, $replacements ) {
322 foreach( $replacements AS $param => $new_value ) {
323 $rxp = preg_replace(
'/([\[\]])/',
'\\\\$1', $param );
324 $regex =
"/([&?])($rxp)=([^&]+)/";
325 dbg_error_log(
"core",
"Looking for [%s] to replace with [%s] regex is %s and searching [%s]", $param, $new_value, $regex, $replaced );
326 if ( preg_match( $regex, $replaced ) )
327 $replaced = preg_replace( $regex,
"\$1$param=$new_value", $replaced);
329 $replaced .=
"&$param=$new_value";
331 if ( ! preg_match(
'/\?/', $replaced ) ) {
332 $replaced = preg_replace(
"/&(.+)$/",
"?\$1", $replaced);
334 $replaced = str_replace(
"&",
"--AmPeRsAnD--", $replaced);
335 $replaced = str_replace(
"&",
"&", $replaced);
336 $replaced = str_replace(
"--AmPeRsAnD--",
"&", $replaced);
337 dbg_error_log(
"core",
"URI <<$uri>> morphed to <<$replaced>>");
343 if ( !function_exists(
"uuid") ) {
377 return sprintf(
'%04x%04x-%04x-%03x4-%04x-%04x%04x%04x',
378 mt_rand(0, 65535), mt_rand(0, 65535),
381 bindec(substr_replace(sprintf(
'%016b', mt_rand(0, 65535)),
'01', 6, 2)),
385 mt_rand(0, 65535), mt_rand(0, 65535), mt_rand(0, 65535)
390 if ( !function_exists(
"translate") ) {
391 require(
"Translation.php");
394 if ( !function_exists(
"clone") && version_compare(phpversion(),
'5.0') < 0) {
400 eval(
'function clone($object) { return $object; }' );
403 if ( !function_exists(
"quoted_printable_encode") ) {
409 function quoted_printable_encode($string) {
410 return preg_replace(
'/[^\r\n]{73}[^=\r\n]{2}/',
"$0=\r\n", str_replace(
"%",
"=",str_replace(
"%20",
" ",rawurlencode($string))));
415 if ( !function_exists(
"check_by_regex") ) {
421 function check_by_regex( $val, $regex ) {
422 if ( is_null($val) )
return null;
424 case 'int': $regex =
'#^\d+$#';
break;
426 if ( is_array($val) ) {
427 foreach( $val AS $k => $v ) {
428 $val[$k] = check_by_regex($v,$regex);
431 else if ( ! is_object($val) ) {
432 if ( preg_match( $regex, $val, $matches) ) {
444 if ( !function_exists(
"param_to_global") ) {
455 function param_to_global( ) {
456 $args = func_get_args();
458 $varname = array_shift($args);
459 $GLOBALS[$varname] = null;
462 $argc = func_num_args();
464 $match_regex = array_shift($args);
468 foreach( $args AS $k => $name ) {
469 if ( isset($_POST[$name]) ) {
470 $result = $_POST[$name];
473 else if ( isset($_GET[$name]) ) {
474 $result = $_GET[$name];
478 if ( !isset($result) )
return null;
480 if ( isset($match_regex) ) {
481 $result = check_by_regex( $result, $match_regex );
484 $GLOBALS[$varname] = $result;
490 if ( !function_exists(
"awl_get_fields") ) {
494 $_AWL_field_cache = array();
501 function awl_get_fields( $tablename ) {
502 global $_AWL_field_cache;
504 if ( !isset($_AWL_field_cache[$tablename]) ) {
505 dbg_error_log(
"core",
":awl_get_fields: Loading fields for table '$tablename'" );
507 $db = $qry->GetConnection();
508 $qry->SetSQL($db->GetFields($tablename));
511 while( $row = $qry->Fetch() ) {
512 $fields[$row->fieldname] = $row->typename . ($row->precision >= 0 ? sprintf(
'(%d)',$row->precision) :
'');
514 $_AWL_field_cache[$tablename] = $fields;
516 return $_AWL_field_cache[$tablename];
521 if ( !function_exists(
"force_utf8") ) {
522 function define_byte_mappings() {
523 global $byte_map, $nibble_good_chars;
525 # Needed for using Grant McLean's byte mappings code 526 $ascii_char =
'[\x00-\x7F]';
527 $cont_byte =
'[\x80-\xBF]';
529 $utf8_2 =
'[\xC0-\xDF]' . $cont_byte;
530 $utf8_3 =
'[\xE0-\xEF]' . $cont_byte .
'{2}';
531 $utf8_4 =
'[\xF0-\xF7]' . $cont_byte .
'{3}';
532 $utf8_5 =
'[\xF8-\xFB]' . $cont_byte .
'{4}';
534 $nibble_good_chars =
"/^($ascii_char+|$utf8_2|$utf8_3|$utf8_4|$utf8_5)(.*)$/s";
536 # From http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT 538 "\x80" =>
"\xE2\x82\xAC", # EURO SIGN
539 "\x82" =>
"\xE2\x80\x9A", # SINGLE LOW-9 QUOTATION MARK
540 "\x83" =>
"\xC6\x92", # LATIN SMALL LETTER F WITH HOOK
541 "\x84" =>
"\xE2\x80\x9E", # DOUBLE LOW-9 QUOTATION MARK
542 "\x85" =>
"\xE2\x80\xA6", # HORIZONTAL ELLIPSIS
543 "\x86" =>
"\xE2\x80\xA0", # DAGGER
544 "\x87" =>
"\xE2\x80\xA1", # DOUBLE DAGGER
545 "\x88" =>
"\xCB\x86", # MODIFIER LETTER CIRCUMFLEX ACCENT
546 "\x89" =>
"\xE2\x80\xB0", # PER MILLE SIGN
547 "\x8A" =>
"\xC5\xA0", # LATIN CAPITAL LETTER S WITH CARON
548 "\x8B" =>
"\xE2\x80\xB9", # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
549 "\x8C" =>
"\xC5\x92", # LATIN CAPITAL LIGATURE OE
550 "\x8E" =>
"\xC5\xBD", # LATIN CAPITAL LETTER Z WITH CARON
551 "\x91" =>
"\xE2\x80\x98", # LEFT SINGLE QUOTATION MARK
552 "\x92" =>
"\xE2\x80\x99", # RIGHT SINGLE QUOTATION MARK
553 "\x93" =>
"\xE2\x80\x9C", # LEFT DOUBLE QUOTATION MARK
554 "\x94" =>
"\xE2\x80\x9D", # RIGHT DOUBLE QUOTATION MARK
555 "\x95" =>
"\xE2\x80\xA2", # BULLET
556 "\x96" =>
"\xE2\x80\x93", # EN DASH
557 "\x97" =>
"\xE2\x80\x94", # EM DASH
558 "\x98" =>
"\xCB\x9C", # SMALL TILDE
559 "\x99" =>
"\xE2\x84\xA2", # TRADE MARK SIGN
560 "\x9A" =>
"\xC5\xA1", # LATIN SMALL LETTER S WITH CARON
561 "\x9B" =>
"\xE2\x80\xBA", # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
562 "\x9C" =>
"\xC5\x93", # LATIN SMALL LIGATURE OE
563 "\x9E" =>
"\xC5\xBE", # LATIN SMALL LETTER Z WITH CARON
564 "\x9F" =>
"\xC5\xB8", # LATIN CAPITAL LETTER Y WITH DIAERESIS
567 for( $i=160; $i < 256; $i++ ) {
569 $byte_map[$ch] = iconv(
'ISO-8859-1',
'UTF-8', $ch);
572 define_byte_mappings();
574 function force_utf8( $input ) {
575 global $byte_map, $nibble_good_chars;
580 while( $input !=
'' ) {
581 if ( preg_match( $nibble_good_chars, $input, $matches ) ) {
582 $output .= $matches[1];
586 preg_match(
'/^(.)(.*)$/s', $input, $matches );
589 if ( isset($byte_map[$char]) ) {
590 $output .= $byte_map[$char];
593 # Must be valid UTF8 already 608 function olson_from_tzstring( $tzstring ) {
611 if ( function_exists(
'timezone_identifiers_list') && in_array($tzstring,timezone_identifiers_list()) )
return $tzstring;
612 if ( preg_match(
'{((Antarctica|America|Africa|Atlantic|Asia|Australia|Indian|Europe|Pacific)/(([^/]+)/)?[^/]+)$}', $tzstring, $matches ) ) {
616 switch( $tzstring ) {
617 case 'New Zealand Standard Time':
case 'New Zealand Daylight Time':
618 return 'Pacific/Auckland';
620 case 'Central Standard Time':
case 'Central Daylight Time':
case 'US/Central':
621 return 'America/Chicago';
623 case 'Eastern Standard Time':
case 'Eastern Daylight Time':
case 'US/Eastern':
624 case '(UTC-05:00) Eastern Time (US & Canada)':
625 return 'America/New_York';
627 case 'Pacific Standard Time':
case 'Pacific Daylight Time':
case 'US/Pacific':
628 return 'America/Los_Angeles';
630 case 'Mountain Standard Time':
case 'Mountain Daylight Time':
case 'US/Mountain':
case 'Mountain Time':
631 return 'America/Denver';
635 case '(GMT-07.00) Arizona':
636 return 'America/Phoenix';
639 if ( isset($c->timezone_translations) && is_array($c->timezone_translations)
640 && !empty($c->timezone_translations[$tzstring]) )
641 return $c->timezone_translations[$tzstring];
646 if ( !function_exists(
"deprecated") ) {
647 function deprecated( $method ) {
649 if ( isset($c->dbg[
'ALL']) || isset($c->dbg[
'deprecated']) ) {
650 $stack = debug_backtrace();
652 if ( preg_match(
'{/inc/iCalendar.php$}', $stack[0][
'file'] ) && $stack[0][
'line'] > __LINE__ )
return;
653 @error_log( sprintf( $c->sysabbr.
':DEPRECATED: Call to deprecated method "%s"', $method));
654 foreach( $stack AS $k => $v ) {
655 @error_log( sprintf( $c->sysabbr.
': ==> called from line %4d of %s', $v[
'line'], $v[
'file']));
662 if ( !function_exists(
"gzdecode") ) {
663 function gzdecode( $instring ) {
665 if ( !isset($c->use_pipe_gunzip) || $c->use_pipe_gunzip ) {
666 $descriptorspec = array(
667 0 => array(
"pipe",
"r"),
668 1 => array(
"pipe",
"w"),
669 2 => array(
"file",
"/dev/null",
"a")
671 $process = proc_open(
'gunzip',$descriptorspec, $pipes);
672 if ( is_resource($process) ) {
673 fwrite($pipes[0],$instring);
676 $outstring = stream_get_contents($pipes[1]);
679 proc_close($process);
685 $g=tempnam(
'./',
'gz');
686 file_put_contents($g,$instring);
699 function awl_version() {
701 $c->awl_library_version = 0.60;
702 return $c->awl_library_version;