Backtrace:
\n$backtrace"; } - } - echo $msg; - die( -1 ); + } + echo $msg; + echo wfReportTime()."\n"; + die( -1 ); } + /** + * Returns a HTML comment with the elapsed time since request. + * This method has no side effects. + * @return string + */ + function wfReportTime() { + global $wgRequestTime; + + $now = wfTime(); + list( $usec, $sec ) = explode( ' ', $wgRequestTime ); + $start = (float)$sec + (float)$usec; + $elapsed = $now - $start; + + # Use real server name if available, so we know which machine + # in a server farm generated the current page. + if ( function_exists( 'posix_uname' ) ) { + $uname = @posix_uname(); + } else { + $uname = false; + } + if( is_array( $uname ) && isset( $uname['nodename'] ) ) { + $hostname = $uname['nodename']; + } else { + # This may be a virtual server. + $hostname = $_SERVER['SERVER_NAME']; + } + $com = sprintf( "", + $hostname, $elapsed ); + return $com; + } + function wfBacktrace() { global $wgCommandLineMode; if ( !function_exists( 'debug_backtrace' ) ) { return false; } - + if ( $wgCommandLineMode ) { $msg = ''; } else { @@ -510,16 +654,16 @@ function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false ) { $fmtLimit = $wgLang->formatNum( $limit ); $prev = wfMsg( 'prevn', $fmtLimit ); $next = wfMsg( 'nextn', $fmtLimit ); - + if( is_object( $link ) ) { $title =& $link; } else { - $title =& Title::newFromText( $link ); + $title = Title::newFromText( $link ); if( is_null( $title ) ) { return false; } } - + $sk = $wgUser->getSkin(); if ( 0 != $offset ) { $po = $offset - $limit; @@ -602,7 +746,7 @@ function wfCheckLimits( $deflimit = 50, $optionname = 'rclimit' ) { * @param string $text Text to be escaped */ function wfEscapeWikiText( $text ) { - $text = str_replace( + $text = str_replace( array( '[', '|', '\'', 'ISBN ' , '://' , "\n=", '{{' ), array( '[', '|', ''', 'ISBN ', '://' , "\n=", '{{' ), htmlspecialchars($text) ); @@ -646,7 +790,7 @@ function wfEscapeJsString( $string ) { '\'' => '\\\'', "\n" => "\\n", "\r" => "\\r", - + # To avoid closing the element or CDATA section "<" => "\\x3c", ">" => "\\x3e", @@ -732,7 +876,7 @@ function wfPurgeSquidServers ($urlArr) { /** * Windows-compatible version of escapeshellarg() - * Windows doesn't recognise single-quotes in the shell, but the escapeshellarg() + * Windows doesn't recognise single-quotes in the shell, but the escapeshellarg() * function puts single quotes in regardless of OS */ function wfEscapeShellArg( ) { @@ -745,7 +889,7 @@ function wfEscapeShellArg( ) { } else { $first = false; } - + if ( wfIsWindows() ) { $retVal .= '"' . str_replace( '"','\"', $arg ) . '"'; } else { @@ -765,6 +909,7 @@ function wfMerge( $old, $mine, $yours, &$result ){ # This check may also protect against code injection in # case of broken installations. if(! file_exists( $wgDiff3 ) ){ + wfDebug( "diff3 not found\n" ); return false; } @@ -779,7 +924,7 @@ function wfMerge( $old, $mine, $yours, &$result ){ fwrite( $yourtextFile, $yours ); fclose( $yourtextFile ); # Check for a conflict - $cmd = wfEscapeShellArg( $wgDiff3 ) . ' -a --overlap-only ' . + $cmd = $wgDiff3 . ' -a --overlap-only ' . wfEscapeShellArg( $mytextName ) . ' ' . wfEscapeShellArg( $oldtextName ) . ' ' . wfEscapeShellArg( $yourtextName ); @@ -793,7 +938,7 @@ function wfMerge( $old, $mine, $yours, &$result ){ pclose( $handle ); # Merge differences - $cmd = wfEscapeShellArg( $wgDiff3 ) . ' -a -e --merge ' . + $cmd = $wgDiff3 . ' -a -e --merge ' . wfEscapeShellArg( $mytextName, $oldtextName, $yourtextName ); $handle = popen( $cmd, 'r' ); $result = ''; @@ -806,6 +951,11 @@ function wfMerge( $old, $mine, $yours, &$result ){ } while ( true ); pclose( $handle ); unlink( $mytextName ); unlink( $oldtextName ); unlink( $yourtextName ); + + if ( $result === '' && $old !== '' && $conflict == false ) { + wfDebug( "Unexpected null result from diff3. Command: $cmd\n" ); + $conflict = true; + } return ! $conflict; } @@ -834,8 +984,8 @@ function wfHttpError( $code, $label, $desc ) { header( 'Content-type: text/html' ); print "" . htmlspecialchars( $desc ) . @@ -949,7 +1099,7 @@ function wfNegotiateType( $cprefs, $sprefs ) { * Array lookup * Returns an array where the values in the first array are replaced by the * values in the second array with the corresponding keys - * + * * @return array */ function wfArrayLookup( $a, $b ) { @@ -974,7 +1124,7 @@ function wfSuppressWarnings( $end = false ) { if ( $end ) { if ( $suppressCount ) { - $suppressCount --; + --$suppressCount; if ( !$suppressCount ) { error_reporting( $originalLevel ); } @@ -983,7 +1133,7 @@ function wfSuppressWarnings( $end = false ) { if ( !$suppressCount ) { $originalLevel = error_reporting( E_ALL & ~( E_WARNING | E_NOTICE ) ); } - $suppressCount++; + ++$suppressCount; } } @@ -996,7 +1146,7 @@ function wfRestoreWarnings() { # Autodetect, convert and provide timestamps of various types -/** +/** * Unix time - the number of seconds since 1970-01-01 00:00:00 UTC */ define('TS_UNIX', 0); @@ -1016,6 +1166,13 @@ define('TS_DB', 2); */ define('TS_RFC2822', 3); +/** + * ISO 8601 format with no timezone: 1986-02-09T20:00:00Z + * + * This is used by Special:Export + */ +define('TS_ISO_8601', 4); + /** * An Exif timestamp (YYYY:MM:DD HH:MM:SS) * @@ -1023,8 +1180,12 @@ define('TS_RFC2822', 3); * DateTime tag and page 36 for the DateTimeOriginal and * DateTimeDigitized tags. */ -define('TS_EXIF', 4); +define('TS_EXIF', 5); +/** + * Oracle format time. + */ +define('TS_ORACLE', 6); /** * @param mixed $outputtype A timestamp in one of the supported formats, the @@ -1033,8 +1194,9 @@ define('TS_EXIF', 4); * @return string Time in the format specified in $outputtype */ function wfTimestamp($outputtype=TS_UNIX,$ts=0) { - if ($ts==0) { - $uts=time(); + $uts = 0; + if ($ts==0) { + $uts=time(); } elseif (preg_match("/^(\d{4})\-(\d\d)\-(\d\d) (\d\d):(\d\d):(\d\d)$/",$ts,$da)) { # TS_DB $uts=gmmktime((int)$da[4],(int)$da[5],(int)$da[6], @@ -1050,13 +1212,21 @@ function wfTimestamp($outputtype=TS_UNIX,$ts=0) { } elseif (preg_match("/^(\d{1,13})$/",$ts,$datearray)) { # TS_UNIX $uts=$ts; + } elseif (preg_match('/^(\d{1,2})-(...)-(\d\d(\d\d)?) (\d\d)\.(\d\d)\.(\d\d)/', $ts, $da)) { + # TS_ORACLE + $uts = strtotime(preg_replace('/(\d\d)\.(\d\d)\.(\d\d)(\.(\d+))?/', "$1:$2:$3", + str_replace("+00:00", "UTC", $ts))); + } elseif (preg_match('/^(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})Z$/', $ts, $da)) { + # TS_ISO_8601 + $uts=gmmktime((int)$da[4],(int)$da[5],(int)$da[6], + (int)$da[2],(int)$da[3],(int)$da[1]); } else { # Bogus value; fall back to the epoch... wfDebug("wfTimestamp() fed bogus time value: $outputtype; $ts\n"); $uts = 0; } - + switch($outputtype) { case TS_UNIX: return $uts; @@ -1064,11 +1234,15 @@ function wfTimestamp($outputtype=TS_UNIX,$ts=0) { return gmdate( 'YmdHis', $uts ); case TS_DB: return gmdate( 'Y-m-d H:i:s', $uts ); + case TS_ISO_8601: + return gmdate( 'Y-m-d\TH:i:s\Z', $uts ); // This shouldn't ever be used, but is included for completeness case TS_EXIF: return gmdate( 'Y:m:d H:i:s', $uts ); case TS_RFC2822: return gmdate( 'D, d M Y H:i:s', $uts ) . ' GMT'; + case TS_ORACLE: + return gmdate( 'd-M-y h.i.s A', $uts) . ' +00:00'; default: wfDebugDieBacktrace( 'wfTimestamp() called with illegal output type.'); } @@ -1094,13 +1268,13 @@ function wfTimestampOrNull( $outputtype = TS_UNIX, $ts = null ) { * * @return bool True if it's windows, False otherwise. */ -function wfIsWindows() { - if (substr(php_uname(), 0, 7) == 'Windows') { - return true; - } else { - return false; - } -} +function wfIsWindows() { + if (substr(php_uname(), 0, 7) == 'Windows') { + return true; + } else { + return false; + } +} /** * Swap two variables @@ -1142,7 +1316,7 @@ function wfGetSiteNotice() { * * @param string $element * @param array $attribs Name=>value pairs. Values will be escaped. - * @param bool $contents NULL to make an open tag only; '' for a contentless closed tag (default) + * @param string $contents NULL to make an open tag only; '' for a contentless closed tag (default) * @return string */ function wfElement( $element, $attribs = null, $contents = '') { @@ -1173,7 +1347,7 @@ function wfElement( $element, $attribs = null, $contents = '') { * * @param string $element * @param array $attribs Name=>value pairs. Values will be escaped. - * @param bool $contents NULL to make an open tag only; '' for a contentless closed tag (default) + * @param string $contents NULL to make an open tag only; '' for a contentless closed tag (default) * @return string */ function wfElementClean( $element, $attribs = array(), $contents = '') { @@ -1186,9 +1360,53 @@ function wfElementClean( $element, $attribs = array(), $contents = '') { return wfElement( $element, $attribs, $contents ); } +// Shortcuts +function wfOpenElement( $element ) { return "<$element>"; } +function wfCloseElement( $element ) { return ""; } + +/** + * Create a namespace selector + * + * @param mixed $selected The namespace which should be selected, default '' + * @param string $allnamespaces Value of a special item denoting all namespaces. Null to not include (default) + * @return Html string containing the namespace selector + */ +function &HTMLnamespaceselector($selected = '', $allnamespaces = null) { + global $wgContLang; + if( $selected !== '' ) { + if( is_null( $selected ) ) { + // No namespace selected; let exact match work without hitting Main + $selected = ''; + } else { + // Let input be numeric strings without breaking the empty match. + $selected = intval( $selected ); + } + } + $s = "\n"; + return $s; +} + /** Global singleton instance of MimeMagic. This is initialized on demand, * please always use the wfGetMimeMagic() function to get the instance. -* +* * @private */ $wgMimeMagic= NULL; @@ -1201,7 +1419,7 @@ $wgMimeMagic= NULL; */ function &wfGetMimeMagic() { global $wgMimeMagic; - + if (!is_null($wgMimeMagic)) { return $wgMimeMagic; } @@ -1210,9 +1428,9 @@ function &wfGetMimeMagic() { #include on demand require_once("MimeMagic.php"); } - + $wgMimeMagic= new MimeMagic(); - + return $wgMimeMagic; } @@ -1244,7 +1462,7 @@ function wfTempDir() { function wfMkdirParents( $fullDir, $mode ) { $parts = explode( '/', $fullDir ); $path = ''; - $success = false; + foreach ( $parts as $dir ) { $path .= $dir . '/'; if ( !is_dir( $path ) ) { @@ -1267,4 +1485,153 @@ function wfIncrStats( $key ) { } } +/** + * @param mixed $nr The number to format + * @param int $acc The number of digits after the decimal point, default 2 + * @param bool $round Whether or not to round the value, default true + * @return float + */ +function wfPercent( $nr, $acc = 2, $round = true ) { + $ret = sprintf( "%.${acc}f", $nr ); + return $round ? round( $ret, $acc ) . '%' : "$ret%"; +} + +/** + * Encrypt a username/password. + * + * @param string $userid ID of the user + * @param string $password Password of the user + * @return string Hashed password + */ +function wfEncryptPassword( $userid, $password ) { + global $wgPasswordSalt; + $p = md5( $password); + + if($wgPasswordSalt) + return md5( "{$userid}-{$p}" ); + else + return $p; +} + +/** + * Appends to second array if $value differs from that in $default + */ +function wfAppendToArrayIfNotDefault( $key, $value, $default, &$changed ) { + if ( is_null( $changed ) ) { + wfDebugDieBacktrace('GlobalFunctions::wfAppendToArrayIfNotDefault got null'); + } + if ( $default[$key] !== $value ) { + $changed[$key] = $value; + } +} + +/** + * Since wfMsg() and co suck, they don't return false if the message key they + * looked up didn't exist but a XHTML string, this function checks for the + * nonexistance of messages by looking at wfMsg() output + * + * @param $msg The message key looked up + * @param $wfMsgOut The output of wfMsg*() + * @return bool + */ +function wfEmptyMsg( $msg, $wfMsgOut ) { + return $wfMsgOut === "<$msg>"; +} + +/** + * Find out whether or not a mixed variable exists in a string + * + * @param mixed needle + * @param string haystack + * @return bool + */ +function in_string( $needle, $str ) { + return strpos( $str, $needle ) !== false; +} + +/** + * Returns a regular expression of url protocols + * + * @return string + */ +function wfUrlProtocols() { + global $wgUrlProtocols; + + $x = array(); + foreach ($wgUrlProtocols as $protocol) + $x[] = preg_quote( $protocol, '/' ); + + return implode( '|', $x ); +} + +/** + * Check if a string is well-formed XML. + * Must include the surrounding tag. + * + * @param string $text + * @return bool + * + * @todo Error position reporting return + */ +function wfIsWellFormedXml( $text ) { + $parser = xml_parser_create( "UTF-8" ); + + # case folding violates XML standard, turn it off + xml_parser_set_option( $parser, XML_OPTION_CASE_FOLDING, false ); + + if( !xml_parse( $parser, $text, true ) ) { + $err = xml_error_string( xml_get_error_code( $parser ) ); + $position = xml_get_current_byte_index( $parser ); + //$fragment = $this->extractFragment( $html, $position ); + //$this->mXmlError = "$err at byte $position:\n$fragment"; + xml_parser_free( $parser ); + return false; + } + xml_parser_free( $parser ); + return true; +} + +/** + * Check if a string is a well-formed XML fragment. + * Wraps fragment in an bit and doctype, so it can be a fragment + * and can use HTML named entities. + * + * @param string $text + * @return bool + */ +function wfIsWellFormedXmlFragment( $text ) { + $html = + '' . + '' . + $text . + ''; + return wfIsWellFormedXml( $html ); +} + +/** + * shell_exec() with time and memory limits mirrored from the PHP configuration, + * if supported. + */ +function wfShellExec( $cmd ) +{ + global $IP; + + if ( php_uname( 's' ) == 'Linux' ) { + $time = ini_get( 'max_execution_time' ); + $mem = ini_get( 'memory_limit' ); + if( preg_match( '/^([0-9]+)[Mm]$/', trim( $mem ), $m ) ) { + $mem = intval( $m[1] * (1024*1024) ); + } + if ( $time > 0 && $mem > 0 ) { + $script = "$IP/bin/ulimit.sh"; + if ( is_executable( $script ) ) { + $memKB = intval( $mem / 1024 ); + $cmd = escapeshellarg( $script ) . " $time $memKB $cmd"; + } + } + } + return shell_exec( $cmd ); +} + ?>