w/s diff. mostly eol w/s and using only tabs of width 4 to indent.
[lhc/web/wiklou.git] / includes / specials / SpecialVersion.php
1 <?php
2 /**
3 * Implements Special:Version
4 *
5 * Copyright © 2005 Ævar Arnfjörð Bjarmason
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License along
18 * with this program; if not, write to the Free Software Foundation, Inc.,
19 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20 * http://www.gnu.org/copyleft/gpl.html
21 *
22 * @file
23 * @ingroup SpecialPage
24 */
25
26 /**
27 * Give information about the version of MediaWiki, PHP, the DB and extensions
28 *
29 * @ingroup SpecialPage
30 */
31 class SpecialVersion extends SpecialPage {
32
33 protected $firstExtOpened = false;
34
35 protected static $extensionTypes = false;
36
37 protected static $viewvcUrls = array(
38 'svn+ssh://svn.wikimedia.org/svnroot/mediawiki' => 'http://svn.wikimedia.org/viewvc/mediawiki',
39 'http://svn.wikimedia.org/svnroot/mediawiki' => 'http://svn.wikimedia.org/viewvc/mediawiki',
40 # Doesn't work at the time of writing but maybe some day:
41 'https://svn.wikimedia.org/viewvc/mediawiki' => 'http://svn.wikimedia.org/viewvc/mediawiki',
42 );
43
44 public function __construct(){
45 parent::__construct( 'Version' );
46 }
47
48 /**
49 * main()
50 */
51 public function execute( $par ) {
52 global $wgOut, $wgSpecialVersionShowHooks, $wgContLang, $wgRequest;
53
54 $this->setHeaders();
55 $this->outputHeader();
56 $wgOut->allowClickjacking();
57
58 $wgOut->addHTML( Xml::openElement( 'div',
59 array( 'dir' => $wgContLang->getDir() ) ) );
60 $text =
61 $this->getMediaWikiCredits() .
62 $this->softwareInformation() .
63 $this->getExtensionCredits();
64 if ( $wgSpecialVersionShowHooks ) {
65 $text .= $this->getWgHooks();
66 }
67
68 $wgOut->addWikiText( $text );
69 $wgOut->addHTML( $this->IPInfo() );
70 $wgOut->addHTML( '</div>' );
71
72 if ( $wgRequest->getVal( 'easteregg' ) ) {
73 if ( $this->showEasterEgg() ) {
74 // TODO: put something interesting here
75 }
76 }
77 }
78
79 /**
80 * Returns wiki text showing the license information.
81 *
82 * @return string
83 */
84 private static function getMediaWikiCredits() {
85 $ret = Xml::element( 'h2', array( 'id' => 'mw-version-license' ), wfMsg( 'version-license' ) );
86
87 // This text is always left-to-right.
88 $ret .= '<div>';
89 $ret .= "__NOTOC__
90 " . self::getCopyrightAndAuthorList() . "\n
91 " . wfMsg( 'version-license-info' );
92 $ret .= '</div>';
93
94 return str_replace( "\t\t", '', $ret ) . "\n";
95 }
96
97 /**
98 * Get the "MediaWiki is copyright 2001-20xx by lots of cool guys" text
99 *
100 * @return String
101 */
102 public static function getCopyrightAndAuthorList() {
103 global $wgLang;
104
105 $authorList = array(
106 'Magnus Manske', 'Brion Vibber', 'Lee Daniel Crocker',
107 'Tim Starling', 'Erik Möller', 'Gabriel Wicke', 'Ævar Arnfjörð Bjarmason',
108 'Niklas Laxström', 'Domas Mituzas', 'Rob Church', 'Yuri Astrakhan',
109 'Aryeh Gregor', 'Aaron Schulz', 'Andrew Garrett', 'Raimond Spekking',
110 'Alexandre Emsenhuber', 'Siebrand Mazeland', 'Chad Horohoe',
111 'Roan Kattouw', 'Trevor Parscal', 'Bryan Tong Minh', 'Sam Reed',
112 wfMsg( 'version-poweredby-others' )
113 );
114
115 return wfMsg( 'version-poweredby-credits', date( 'Y' ),
116 $wgLang->listToText( $authorList ) );
117 }
118
119 /**
120 * Returns wiki text showing the third party software versions (apache, php, mysql).
121 *
122 * @return string
123 */
124 static function softwareInformation() {
125 $dbr = wfGetDB( DB_SLAVE );
126
127 // Put the software in an array of form 'name' => 'version'. All messages should
128 // be loaded here, so feel free to use wfMsg*() in the 'name'. Raw HTML or wikimarkup
129 // can be used.
130 $software = array();
131 $software['[http://www.mediawiki.org/ MediaWiki]'] = self::getVersionLinked();
132 $software['[http://www.php.net/ PHP]'] = phpversion() . " (" . php_sapi_name() . ")";
133 $software[$dbr->getSoftwareLink()] = $dbr->getServerInfo();
134
135 // Allow a hook to add/remove items.
136 wfRunHooks( 'SoftwareInfo', array( &$software ) );
137
138 $out = Xml::element( 'h2', array( 'id' => 'mw-version-software' ), wfMsg( 'version-software' ) ) .
139 Xml::openElement( 'table', array( 'class' => 'wikitable', 'id' => 'sv-software' ) ) .
140 "<tr>
141 <th>" . wfMsg( 'version-software-product' ) . "</th>
142 <th>" . wfMsg( 'version-software-version' ) . "</th>
143 </tr>\n";
144
145 foreach( $software as $name => $version ) {
146 $out .= "<tr>
147 <td>" . $name . "</td>
148 <td>" . $version . "</td>
149 </tr>\n";
150 }
151
152 return $out . Xml::closeElement( 'table' );
153 }
154
155 /**
156 * Return a string of the MediaWiki version with SVN revision if available.
157 *
158 * @return mixed
159 */
160 public static function getVersion( $flags = '' ) {
161 global $wgVersion, $IP;
162 wfProfileIn( __METHOD__ );
163
164 $info = self::getSvnInfo( $IP );
165 if ( !$info ) {
166 $version = $wgVersion;
167 } elseif( $flags === 'nodb' ) {
168 $version = "$wgVersion (r{$info['checkout-rev']})";
169 } else {
170 $version = $wgVersion . ' ' .
171 wfMsg(
172 'version-svn-revision',
173 isset( $info['directory-rev'] ) ? $info['directory-rev'] : '',
174 $info['checkout-rev']
175 );
176 }
177
178 wfProfileOut( __METHOD__ );
179 return $version;
180 }
181
182 /**
183 * Return a wikitext-formatted string of the MediaWiki version with a link to
184 * the SVN revision if available.
185 *
186 * @return mixed
187 */
188 public static function getVersionLinked() {
189 global $wgVersion, $IP;
190 wfProfileIn( __METHOD__ );
191
192 $info = self::getSvnInfo( $IP );
193
194 if ( isset( $info['checkout-rev'] ) ) {
195 $linkText = wfMsg(
196 'version-svn-revision',
197 isset( $info['directory-rev'] ) ? $info['directory-rev'] : '',
198 $info['checkout-rev']
199 );
200
201 if ( isset( $info['viewvc-url'] ) ) {
202 $version = "$wgVersion [{$info['viewvc-url']} $linkText]";
203 } else {
204 $version = "$wgVersion $linkText";
205 }
206 } else {
207 $version = $wgVersion;
208 }
209
210 wfProfileOut( __METHOD__ );
211 return $version;
212 }
213
214 /**
215 * Returns an array with the base extension types.
216 * Type is stored as array key, the message as array value.
217 *
218 * TODO: ideally this would return all extension types, including
219 * those added by SpecialVersionExtensionTypes. This is not possible
220 * since this hook is passing along $this though.
221 *
222 * @since 1.17
223 *
224 * @return array
225 */
226 public static function getExtensionTypes() {
227 if ( self::$extensionTypes === false ) {
228 self::$extensionTypes = array(
229 'specialpage' => wfMsg( 'version-specialpages' ),
230 'parserhook' => wfMsg( 'version-parserhooks' ),
231 'variable' => wfMsg( 'version-variables' ),
232 'media' => wfMsg( 'version-mediahandlers' ),
233 'antispam' => wfMsg( 'version-antispam' ),
234 'skin' => wfMsg( 'version-skins' ),
235 'other' => wfMsg( 'version-other' ),
236 );
237
238 wfRunHooks( 'ExtensionTypes', array( &self::$extensionTypes ) );
239 }
240
241 return self::$extensionTypes;
242 }
243
244 /**
245 * Returns the internationalized name for an extension type.
246 *
247 * @since 1.17
248 *
249 * @param $type String
250 *
251 * @return string
252 */
253 public static function getExtensionTypeName( $type ) {
254 $types = self::getExtensionTypes();
255 return isset( $types[$type] ) ? $types[$type] : $types['other'];
256 }
257
258 /**
259 * Generate wikitext showing extensions name, URL, author and description.
260 *
261 * @return String: Wikitext
262 */
263 function getExtensionCredits() {
264 global $wgExtensionCredits, $wgExtensionFunctions, $wgParser, $wgSkinExtensionFunctions;
265
266 if ( !count( $wgExtensionCredits ) && !count( $wgExtensionFunctions ) && !count( $wgSkinExtensionFunctions ) ) {
267 return '';
268 }
269
270 $extensionTypes = self::getExtensionTypes();
271
272 /**
273 * @deprecated as of 1.17, use hook ExtensionTypes instead.
274 */
275 wfRunHooks( 'SpecialVersionExtensionTypes', array( &$this, &$extensionTypes ) );
276
277 $out = Xml::element( 'h2', array( 'id' => 'mw-version-ext' ), wfMsg( 'version-extensions' ) ) .
278 Xml::openElement( 'table', array( 'class' => 'wikitable', 'id' => 'sv-ext' ) );
279
280 // Make sure the 'other' type is set to an array.
281 if ( !array_key_exists( 'other', $wgExtensionCredits ) ) {
282 $wgExtensionCredits['other'] = array();
283 }
284
285 // Find all extensions that do not have a valid type and give them the type 'other'.
286 foreach ( $wgExtensionCredits as $type => $extensions ) {
287 if ( !array_key_exists( $type, $extensionTypes ) ) {
288 $wgExtensionCredits['other'] = array_merge( $wgExtensionCredits['other'], $extensions );
289 }
290 }
291
292 // Loop through the extension categories to display their extensions in the list.
293 foreach ( $extensionTypes as $type => $message ) {
294 if ( $type != 'other' ) {
295 $out .= $this->getExtensionCategory( $type, $message );
296 }
297 }
298
299 // We want the 'other' type to be last in the list.
300 $out .= $this->getExtensionCategory( 'other', $extensionTypes['other'] );
301
302 if ( count( $wgExtensionFunctions ) ) {
303 $out .= $this->openExtType( wfMsg( 'version-extension-functions' ), 'extension-functions' );
304 $out .= '<tr><td colspan="4">' . $this->listToText( $wgExtensionFunctions ) . "</td></tr>\n";
305 }
306
307 $tags = $wgParser->getTags();
308 $cnt = count( $tags );
309
310 if ( $cnt ) {
311 for ( $i = 0; $i < $cnt; ++$i ) {
312 $tags[$i] = "&lt;{$tags[$i]}&gt;";
313 }
314 $out .= $this->openExtType( wfMsg( 'version-parser-extensiontags' ), 'parser-tags' );
315 $out .= '<tr><td colspan="4">' . $this->listToText( $tags ). "</td></tr>\n";
316 }
317
318 $fhooks = $wgParser->getFunctionHooks();
319 if( count( $fhooks ) ) {
320 $out .= $this->openExtType( wfMsg( 'version-parser-function-hooks' ), 'parser-function-hooks' );
321 $out .= '<tr><td colspan="4">' . $this->listToText( $fhooks ) . "</td></tr>\n";
322 }
323
324 if ( count( $wgSkinExtensionFunctions ) ) {
325 $out .= $this->openExtType( wfMsg( 'version-skin-extension-functions' ), 'skin-extension-functions' );
326 $out .= '<tr><td colspan="4">' . $this->listToText( $wgSkinExtensionFunctions ) . "</td></tr>\n";
327 }
328
329 $out .= Xml::closeElement( 'table' );
330
331 return $out;
332 }
333
334 /**
335 * Creates and returns the HTML for a single extension category.
336 *
337 * @since 1.17
338 *
339 * @param $type String
340 * @param $message String
341 *
342 * @return string
343 */
344 protected function getExtensionCategory( $type, $message ) {
345 global $wgExtensionCredits;
346
347 $out = '';
348
349 if ( array_key_exists( $type, $wgExtensionCredits ) && count( $wgExtensionCredits[$type] ) > 0 ) {
350 $out .= $this->openExtType( $message, 'credits-' . $type );
351
352 usort( $wgExtensionCredits[$type], array( $this, 'compare' ) );
353
354 foreach ( $wgExtensionCredits[$type] as $extension ) {
355 $out .= $this->getCreditsForExtension( $extension );
356 }
357 }
358
359 return $out;
360 }
361
362 /**
363 * Callback to sort extensions by type.
364 */
365 function compare( $a, $b ) {
366 global $wgLang;
367 if( $a['name'] === $b['name'] ) {
368 return 0;
369 } else {
370 return $wgLang->lc( $a['name'] ) > $wgLang->lc( $b['name'] )
371 ? 1
372 : -1;
373 }
374 }
375
376 /**
377 * Creates and formats the creidts for a single extension and returns this.
378 *
379 * @param $extension Array
380 *
381 * @return string
382 */
383 function getCreditsForExtension( array $extension ) {
384 $name = isset( $extension['name'] ) ? $extension['name'] : '[no name]';
385
386 if ( isset( $extension['path'] ) ) {
387 $svnInfo = self::getSvnInfo( dirname($extension['path']) );
388 $directoryRev = isset( $svnInfo['directory-rev'] ) ? $svnInfo['directory-rev'] : null;
389 $checkoutRev = isset( $svnInfo['checkout-rev'] ) ? $svnInfo['checkout-rev'] : null;
390 $viewvcUrl = isset( $svnInfo['viewvc-url'] ) ? $svnInfo['viewvc-url'] : null;
391 } else {
392 $directoryRev = null;
393 $checkoutRev = null;
394 $viewvcUrl = null;
395 }
396
397 # Make main link (or just the name if there is no URL).
398 if ( isset( $extension['url'] ) ) {
399 $mainLink = "[{$extension['url']} $name]";
400 } else {
401 $mainLink = $name;
402 }
403
404 if ( isset( $extension['version'] ) ) {
405 $versionText = '<span class="mw-version-ext-version">' .
406 wfMsg( 'version-version', $extension['version'] ) .
407 '</span>';
408 } else {
409 $versionText = '';
410 }
411
412 # Make subversion text/link.
413 if ( $checkoutRev ) {
414 $svnText = wfMsg( 'version-svn-revision', $directoryRev, $checkoutRev );
415 $svnText = isset( $viewvcUrl ) ? "[$viewvcUrl $svnText]" : $svnText;
416 } else {
417 $svnText = false;
418 }
419
420 # Make description text.
421 $description = isset ( $extension['description'] ) ? $extension['description'] : '';
422
423 if( isset ( $extension['descriptionmsg'] ) ) {
424 # Look for a localized description.
425 $descriptionMsg = $extension['descriptionmsg'];
426
427 if( is_array( $descriptionMsg ) ) {
428 $descriptionMsgKey = $descriptionMsg[0]; // Get the message key
429 array_shift( $descriptionMsg ); // Shift out the message key to get the parameters only
430 array_map( "htmlspecialchars", $descriptionMsg ); // For sanity
431 $description = wfMsg( $descriptionMsgKey, $descriptionMsg );
432 } else {
433 $description = wfMsg( $descriptionMsg );
434 }
435 }
436
437 if ( $svnText !== false ) {
438 $extNameVer = "<tr>
439 <td><em>$mainLink $versionText</em></td>
440 <td><em>$svnText</em></td>";
441 } else {
442 $extNameVer = "<tr>
443 <td colspan=\"2\"><em>$mainLink $versionText</em></td>";
444 }
445
446 $author = isset ( $extension['author'] ) ? $extension['author'] : array();
447 $extDescAuthor = "<td>$description</td>
448 <td>" . $this->listAuthors( $author, false ) . "</td>
449 </tr>\n";
450
451 return $extNameVer . $extDescAuthor;
452 }
453
454 /**
455 * Generate wikitext showing hooks in $wgHooks.
456 *
457 * @return String: wikitext
458 */
459 private function getWgHooks() {
460 global $wgHooks;
461
462 if ( count( $wgHooks ) ) {
463 $myWgHooks = $wgHooks;
464 ksort( $myWgHooks );
465
466 $ret = Xml::element( 'h2', array( 'id' => 'mw-version-hooks' ), wfMsg( 'version-hooks' ) ) .
467 Xml::openElement( 'table', array( 'class' => 'wikitable', 'id' => 'sv-hooks' ) ) .
468 "<tr>
469 <th>" . wfMsg( 'version-hook-name' ) . "</th>
470 <th>" . wfMsg( 'version-hook-subscribedby' ) . "</th>
471 </tr>\n";
472
473 foreach ( $myWgHooks as $hook => $hooks )
474 $ret .= "<tr>
475 <td>$hook</td>
476 <td>" . $this->listToText( $hooks ) . "</td>
477 </tr>\n";
478
479 $ret .= Xml::closeElement( 'table' );
480 return $ret;
481 } else
482 return '';
483 }
484
485 private function openExtType( $text, $name = null ) {
486 $opt = array( 'colspan' => 4 );
487 $out = '';
488
489 if( $this->firstExtOpened ) {
490 // Insert a spacing line
491 $out .= '<tr class="sv-space">' . Html::element( 'td', $opt ) . "</tr>\n";
492 }
493 $this->firstExtOpened = true;
494
495 if( $name ) {
496 $opt['id'] = "sv-$name";
497 }
498
499 $out .= "<tr>" . Xml::element( 'th', $opt, $text ) . "</tr>\n";
500
501 return $out;
502 }
503
504 /**
505 * Get information about client's IP address.
506 *
507 * @return String: HTML fragment
508 */
509 private function IPInfo() {
510 $ip = str_replace( '--', ' - ', htmlspecialchars( wfGetIP() ) );
511 return "<!-- visited from $ip -->\n" .
512 "<span style='display:none'>visited from $ip</span>";
513 }
514
515 /**
516 * Return a formatted unsorted list of authors
517 *
518 * @param $authors mixed: string or array of strings
519 * @return String: HTML fragment
520 */
521 function listAuthors( $authors ) {
522 $list = array();
523 foreach( (array)$authors as $item ) {
524 if( $item == '...' ) {
525 $list[] = wfMsg( 'version-poweredby-others' );
526 } else {
527 $list[] = $item;
528 }
529 }
530 return $this->listToText( $list, false );
531 }
532
533 /**
534 * Convert an array of items into a list for display.
535 *
536 * @param $list Array of elements to display
537 * @param $sort Boolean: whether to sort the items in $list
538 *
539 * @return String
540 */
541 function listToText( $list, $sort = true ) {
542 $cnt = count( $list );
543
544 if ( $cnt == 1 ) {
545 // Enforce always returning a string
546 return (string)self::arrayToString( $list[0] );
547 } elseif ( $cnt == 0 ) {
548 return '';
549 } else {
550 global $wgLang;
551 if ( $sort ) {
552 sort( $list );
553 }
554 return $wgLang->listToText( array_map( array( __CLASS__, 'arrayToString' ), $list ) );
555 }
556 }
557
558 /**
559 * Convert an array or object to a string for display.
560 *
561 * @param $list Mixed: will convert an array to string if given and return
562 * the paramater unaltered otherwise
563 *
564 * @return Mixed
565 */
566 static function arrayToString( $list ) {
567 if( is_array( $list ) && count( $list ) == 1 )
568 $list = $list[0];
569 if( is_object( $list ) ) {
570 $class = get_class( $list );
571 return "($class)";
572 } elseif ( !is_array( $list ) ) {
573 return $list;
574 } else {
575 if( is_object( $list[0] ) )
576 $class = get_class( $list[0] );
577 else
578 $class = $list[0];
579 return "($class, {$list[1]})";
580 }
581 }
582
583 /**
584 * Get an associative array of information about a given path, from its .svn
585 * subdirectory. Returns false on error, such as if the directory was not
586 * checked out with subversion.
587 *
588 * Returned keys are:
589 * Required:
590 * checkout-rev The revision which was checked out
591 * Optional:
592 * directory-rev The revision when the directory was last modified
593 * url The subversion URL of the directory
594 * repo-url The base URL of the repository
595 * viewvc-url A ViewVC URL pointing to the checked-out revision
596 */
597 public static function getSvnInfo( $dir ) {
598 // http://svnbook.red-bean.com/nightly/en/svn.developer.insidewc.html
599 $entries = $dir . '/.svn/entries';
600
601 if( !file_exists( $entries ) ) {
602 return false;
603 }
604
605 $lines = file( $entries );
606 if ( !count( $lines ) ) {
607 return false;
608 }
609
610 // check if file is xml (subversion release <= 1.3) or not (subversion release = 1.4)
611 if( preg_match( '/^<\?xml/', $lines[0] ) ) {
612 // subversion is release <= 1.3
613 if( !function_exists( 'simplexml_load_file' ) ) {
614 // We could fall back to expat... YUCK
615 return false;
616 }
617
618 // SimpleXml whines about the xmlns...
619 wfSuppressWarnings();
620 $xml = simplexml_load_file( $entries );
621 wfRestoreWarnings();
622
623 if( $xml ) {
624 foreach( $xml->entry as $entry ) {
625 if( $xml->entry[0]['name'] == '' ) {
626 // The directory entry should always have a revision marker.
627 if( $entry['revision'] ) {
628 return array( 'checkout-rev' => intval( $entry['revision'] ) );
629 }
630 }
631 }
632 }
633
634 return false;
635 }
636
637 // Subversion is release 1.4 or above.
638 if ( count( $lines ) < 11 ) {
639 return false;
640 }
641
642 $info = array(
643 'checkout-rev' => intval( trim( $lines[3] ) ),
644 'url' => trim( $lines[4] ),
645 'repo-url' => trim( $lines[5] ),
646 'directory-rev' => intval( trim( $lines[10] ) )
647 );
648
649 if ( isset( self::$viewvcUrls[$info['repo-url']] ) ) {
650 $viewvc = str_replace(
651 $info['repo-url'],
652 self::$viewvcUrls[$info['repo-url']],
653 $info['url']
654 );
655
656 $viewvc .= '/?pathrev=';
657 $viewvc .= urlencode( $info['checkout-rev'] );
658 $info['viewvc-url'] = $viewvc;
659 }
660
661 return $info;
662 }
663
664 /**
665 * Retrieve the revision number of a Subversion working directory.
666 *
667 * @param $dir String: directory of the svn checkout
668 *
669 * @return Integer: revision number as int
670 */
671 public static function getSvnRevision( $dir ) {
672 $info = self::getSvnInfo( $dir );
673
674 if ( $info === false ) {
675 return false;
676 } elseif ( isset( $info['checkout-rev'] ) ) {
677 return $info['checkout-rev'];
678 } else {
679 return false;
680 }
681 }
682
683 function showEasterEgg() {
684 $rx = $rp = $xe = '';
685 $alpha = array("", "kbQW", "\$\n()");
686 $beta = implode( "', '", $alpha);
687 $juliet = 'echo $delta + strrev($foxtrot) - $alfa + $wgVersion . base64_decode($bravo) * $charlie';
688 for ( $i = 1; $i <= 4; $i++ ) {
689 $rx .= '([^j]*)J';
690 $rp .= "+(\\$i)";
691 }
692
693 $rx = "/$rx/Sei"; $O = substr("$alpha')", 1);
694 for ( $i = 1; $i <= strlen( $rx ) / 3; $i++ ) {
695 $rx[$i-1] = strtolower( $rx[$i-1] );
696 }
697 $ry = ".*?(.((.)(.))).{1,3}(.)(.{1,$i})(\\4.\\3)(.).*";
698 $ry = "/$ry/Sei"; $O = substr("$beta')", 1);
699 preg_match_all('/(?<=\$)[[:alnum:]]*/',substr($juliet, 0, $i<<1), $charlie);
700 foreach( $charlie[0] as $bravo ) {
701 $$bravo =& $xe;
702 }
703 $xe = 'xe=<<<mo/./hfromowoxv=<<<m
704 쵍潅旅𞗎왎캎𐺆ߨ趥䲀쫥𒯡𚦄𚬀Ꝍ螃䤎꤯溃𔱢櫅褡䞠⽬✡栠迤⾏𐵥쾃𜜧줏袏浣।궇䬃꼁꿤𘐧
705 𞛁윥桯䦎䵎Ꞅ𚠣涁쭀讀撠蝠讄伣𞫡枮ⵇ𚥣𐡃𐭏沢𞜄𞴏𞻧⠤쳯蒣䮎𒵬컡豣ۅ𐯥⦇𐫁漅蛁꼤从楆
706 ⥀䡦𚭅沢⠬輁䲯좡梇䟇伄육较촅䥃要𞝄迯쟠꺃ⶥ栆궀撠満ꐣ𞦇좧𐠅𞫠𐠧𚮣讇輤亀➏欣첡쮧⽬
707 氀쮧跧𐫥䪀⬬⾅𞼀ⵏ괬ত櫤䭀楦𚫃𐣂괥챣𐥇楀귧읠죯쒡ۅ𐾤䳄䤄𞽀괬躏譇䮄搥𚬁䯄津䶮⾅𐫅
708 𐴂௧쮯궣輥ߡ亀𞪀氀诤𐯢⿅諃⫤𞦁䮣⦬죄椎貧𞛄ඇ쿇亏跤⦌术থۏ仆䛇枡䪄𐵇곁謠𞿯ⶏⶃ䞣
709 궥螏蝁ꤣ⟬极涇𞴧伢𞼯ଅ𚣡즡⡌浣䯇쿃ⳇ궏ས⢃曦⦥蛧갠컡楧𘬧袏⦏⢠䳠챤⽧𚠧⬣⼀潧⭅椤
710 𞟯軁종쵃䬆𞮀𞮅꤇𞣅溎楯곡⢡꾥첥쫧Ⱨ균檏辀䭮⡄𐞯쿁䱤𐠠柅迠웏𚟯⾅豠𐡀𐡅䱀轡⾯쥃⥁溆
711 䢣䞮柄ꠌⶡ𞒯𐳣𞳅蛤椏𞯀✠귬ຄ𐷡𞜠䶃𞭀毥𞡯桥ꐥ❣쳀𞾧⡧𖥢꽧죄ത𖴧ޥ歠ແ위䯎撯쬁䮣浅
712 쾇泮𐢁켄𞧧𞦏䦯꾯迡𞐯曎䢦쿣杦궯⡀䤦䷢𐭢쟁쯯⧤蟯䡏氇𒭯𔜧𞢣𞱏蝤𒬧궧ߢ𐭆䛃찃쭣沠𚬀𞿏
713 䴃𐣣䣎𐺃ꥅ轃⣄蟧⦡𒛧蟃毣洇䞎Ҡ潄仆𐲃𞧥철䢤俎譯泠쮄␥栏쾯ⳏ짡𞾯⥡𚠬߂𚥯ކ澥䲀ⵀ𞻃
714 ⵡ𚦣𒯣✬𐟯𞥥輄䱀굡榏❡첄⦄ꡥⶣ𞡤⺁𞞡ݣ𐢅𒷤⤡꿄蝡𞱁ⴄ贁𒛬氃𞞇𞶡ޅ짣߁𞱃𐫄ۥ𞰣𐱅欤
715 梢蝡柧䥏仏撣𐳣𞠅좇𞐣蒣䰤྅𚪏࿂ಇ濤䞦쮅𚬁𚭧𚬬𒴯𐵣𚥌沮潁좤澅𐻯杣棦ꤤ洯𐳃𚭀콅궧쭠𔥢
716 𞱠桎䝆겡쭄𞵁겯䥂ⶀ𐥂𚧬⽬䠇쳄❬Ⰼ𞵀䐦⿌웃𒿠첏𐛡浣涆𒯌⢤অ䭎𚜧갣𞾏䴮⡃꤯죠䰀쬯༄䫏
717 𐱂ꢅ䬦賧𐯡유辇➥佃仮귣젏𒴯⭅ꢡ각컄⒤⻠讁涅䠃跥袏佄𞝄𐳇泄껧𚮡𞱏棇满གྷ𐻯輤괅𚠬❥겠
718 𒐧䣂ꤏ襃𞼧𜰧伎襡웅𞳧걯䳣𚟡켁쭄洠컥❅⿏亂𚯧𚯯쯅𞮅⢁𐠦𒮠𚯣𞞥诤꣏辀𖥢椯겇毣濢𞝣𚢀➠
719 䮮浥겁沣졣䜦泇歏𐾄搯曯柆ۇۇ䞀泆𐾧武𚭠況꽌𐧢ꝅ軀⬠쾣𞡀榧𞣏𚦤Ⱡ䠦Ⲥ𞰯𞻥쿇䬄貃柅涢
720 갏⼁𐿧ݏౠ𐿣褀涡𘼧𞮏༅𞵡𐥆䮄𐮥➇ꝣݥ䡏䯎梢𚟇輇ꤠ䫣䵀ण漂𞬯⢡軀𚭅𐯆௦𚠤襁쫇⾡濧沤
721 䜇伢ۇ汧첏䤎잤䛯Ⰱ俇𞵃ꢧ殂궏榮ޣ𞼧涂氏𞬇滦즤蜀⠥𐺏쐣⾏껬콇漯Ꝡ柦櫇읁梠仇장滦⟠꿯
722 쮁搥櫢𐫣ꠏ𒮬椥𐛤誅栮朥迣⺄ඇ𞣣⿏䬂쾏⫠⒧✏궇襤⡁𞯇濃𚣠Ⱐ𚫤歯䛠𒛥𞫇쮠𞟤컃𞢯⬣濡䦣
723 衏貣柂𞳁森챏ಇ고𚫠蟄䤏젯𒮡⫯楀䞄䳣쮅궤轧껯𞥤𐪃𞶡潇ބ𚥣𐵇浣𐬀蝤⽧쐣쾇➣𞝀𐡦䮠䤣𐠄
724 Ꝡ𐾁蠤𞛡𞵀䬦覯搦⥯쥏梂걯𐾧ⵁ೦챁𚣌躄轡𐯣𞻥䢦𐝂財䲧𐦁䬎첁棏␣౦잧棆젥襁젃䤏⢏榀ⵁ
725 螅赡𒿯ⶣ赧꾤𚬅濁𒛏涆𐴂ॡ䳦ߢ赁䯇䢃ꠌ泄柠泡찇𐛢𞰏䪂𐝢櫇𚰧漥𐣄𞜤𐥁⟤淣ഡ䳮த谀ཡ𞾧
726 ➁血꽧蟧辧게⻣𚣣쳏ഡ䠄杮𞣠죃汦諤య毠蝅𐦄謄殯𞱄䳀ⳏ𞶁쟇ආ𐻢잏𐿡䳃ۂ𞭥䝇䦇⥌켏쥯춏
727 𖽢𐳃𒷡𚫥𚟇𐿧𚦧𐝢䥦𚯀棇潡⥄歡찁朆⻠䤆𖤧漢𜐧ꡅ⽄쾠𐥣衏𚥠𐥆䤣অ𞛇䤣𐡡𐢏䞦𖐧ߣ裏𚫁𐵤
728 ཅۄ춁䲃欆귬𐺀诀滁𞫇𐯇䝃𞧡챃첥𞭤꺏쫅𞫡䱮𞼤અ𒭤견Ф𐫁𐾧佣𖱢澢쿏𞛧⽅侮榅𐾄य쥏蜏䣣
729 𚥌𐫏쵥𚥡➤跡殃䰣䯤𞳥읤ⴏ굄𚬧⥇줡걬০켃𜼧𚧯첣䜂𞵇𚟀찃궀谀Ɽ伎䢮𒛄𚦀ꤥ⾣𐭁沅䬇䧠𐱇
730 沀濡ठ𞰄쟠𐺅ꐣ𐴂躄佇⦇毄计賀䢎澡𒮌䲄𒠧캀䟣𐷧褀𞻅蠤൯棏蜃𞮤澄❧⾥撦⽬ⶥ𐪄ய𔼧ބ躄
731 䬎챯𚫇⽯𐾠𞛠𚛧䬎Ꞅ굥𐢂𚠣⠥䝧朄𞧥࿏웥꽬གྷ浅⦁❬𐺆侢栦⧠𞛯궠ඦ𚭧趤谥此𐲂𐬃軠𚪅𐞦𞷤
732 蛄俧袥补榏읠⤁⠀豇俢쮯꤇➏𐴁ⶤ涮찣𒮇읁榠跣𜤧⦅ໃಆ𞛯䵣谠𞰅ꢯ⡧淯柤궡✠䮎괯𒮣❅朎
733 ⥅웣䯮첀𚫣꒤𐣠쭏洀蛡楆𚮣ൡ䮮ү氠𐜏濆䜢䷯潣歃䷯𞣡웁쭄椥䟂➅𒯣𒯤ૡༀ䭧ܣ죅𐯠ए軯䧣
734 Ⱔ䐢⬥檂䠮⫤䛠꜡䛆讠𚭄✠꿏欣蠡𐵆켏豣譄𞣇춣𒭯𐻢䠃䰠撦朅䮄榦溃貀𒯅䶇⾁𞬧澡𐻦䲮榀𞯧
735 𐪄䢆侄𞾏朦꜇𐮢ཏ𐯣췧꺁𞱃枠櫧桠괬枇ꜯ곇𐰂𘜧𐦄컡濦汥줠𞲡輀𞫃𐠣쥇⣃𞴏䳂⟤漇쯣껃𐾀衃
736 𚮄쯇𒼧𐝄浥洄楠৯춥蒧⾯𐫆༂ꤌ毮䤆⺄༠०袀䢂죃ⴣ𐿯梇溄毦𞼄螄櫤쳃栅満걌毠𞞏ⱌ𚮡꒧䢆
737 ꥁ泎𞭅仧궀辯諯웅𞳇津趃অ꿏伏𐵤캁⠃𐦂𐶀ꝣ䛂贤济杧𐝁撠䱤殥歡躇楄꒧꽧𞽧䡣쵧𒯃𐱆ꜯ위
738 ཀ谠諃𐬃軅␥𞰇贠撣߅꽤⠥ಡ𐝀궥윁𞳁Ⰴܯ즡歎𞷥ⵅഏ蝁𞟇구ꝧ܅䱦껡䛦߅蒯俧콣𚭅梧䛠ꡇ
739 ݧ𚮏웥Т⬠䬦榀𐢂貤𞰅𚭠謣䱦⒡췧𐥀濇⧣⤀좯殧𞬣줤⣀楏楎굏ݤ滁ۇ𘐧𚯯䒯Ⰰ𞼤ҡ䰦𚣠椯❏
740 趯𐣯豀쵅춀⳥䷠읡ۯ⺄ۅ䶏춤枂櫅ۅ𞥅䱃䭣𒳯汮澃𞢃谥ⵤ구𚣄콡曤𞣏ই߂읅蠠𜰧䞦ꞇⲏ𚮌諧
741 趯첏䬎𐡏李겠⥇𞻥曢汥𞳡浆欠躅𐦁𞲯谡𞦏袧襃棧𚦁𞡡蟀侠𒛏찇챠쪇洠܀쯤䝇螏𞿣蜏俄𞦡⼀ལ
742 谥촯䲦⥁ඤ𞛡𐐧⤃궅༡褡䭏毆濆⧡蛣Ф𞵇蠏ݤ賯꜁溅⡡ߡ𞥧䮄榆䵄求謥𐐧Ꞁ쯏⧡貇䛇䐢撦袥
743 쮇䫀𞜄দ굯𞦁⻤襇줅⬅ہఠ⻀𔠧쒠䫆𐡅梄梯輤䥣읏⤄ⶡ诃䮢譡𞻠ߤ枤櫥𐢥伦袠ꢃ쳀裣𞼅䰄𞻡
744 𒯇槥淠䯃ඏ⒯𚫣𚠯𞠣𚛄椦泮汣赃潥𚫇ദ𞛤𞿣䰏쮡𖭢蝏毁䶂䦧档䪂𞾃쟀𚪄𞞃𞳥𞼀𐿯졇웄䳎汀𐫣
745 漠𚫄ꐡଥ认꽡𐱏𐭏𚼧⦄梎આ枀䠦楇쒤ꞃꤡⴅꞅ𞯁අҡ𞞤氣즤裀𞜅𐵥櫁𐵀༦𐳃쳣𐡯桧𞿠权굁죁
746 짤𖤧蟃澀𒭏𞲯ߏ⣣⬁Ⱔ졥𚦌潆ꐡ⽤웁浥𞞃𐫄棆갤濧⼣겅쬄൧젣此潆⻯䜃꤯궠쮥𘬧曀⿅譅槣䞂
747 䝎ꡏ𚟣䰀梥⾬ܡ𞿇𞠥𐮠𞺃䢮આ䧮쮃誅櫆𚪃죯诠䵀䯀跥𐾣⻥䤆Ⰰ꜄棧枃⻇థ誃𚛁࿇贄𞡣欎⽡𞱁
748 𞲄⬏杇𐠅𐱃𞢤➁𐵤𐢄꒥즏亀쭁𚭡漆𞮇첁𐢦殎쮁滠𐠥榯𐮧𒵬⡀䮆䣠준讥𞼃䶇⪅껃泃𖱢楀갠複撮
749 ✡𐭢ແ𞮧𞛥쫃⽤規䥇沁轁𐡅ಢ䧮椁⬇𐤁𞡯杅武楥歎䟄溇䯢𒵬𐢣迃䪎䳤满ଅⱇ쭀ಥ𞥄䥆⧥𚞧좃
750 유栤༡𐰃俇Ⰵ殇蠄⽏⾠܇𒮄澄𚦅⡤䪎榮Я견濂賣쮠仠䝮䶢𞦏𐫆ݏ襅褥찯𞤤ݥ象侯쵇궥𞠃윀웧
751 𖰧殀蛡⫥亃觯潥蠀补ⴄ觧𐡇𐾆ꐯ䡣췡潏⻯⾁諏య꿧䱠𚭯찥ꞅ⪃콄즯쳣覧𞰄Ⲅ𞿣𚬧𞵤쐯⬃ඤ겤
752 ⵃ蟥𞟧谣轇䛂𐮄佀߁氣𒯧榡𒷬桇䷯觠椄챥ꠌ蒯꜌䭤➡侦䣤𚦬䲀쥁⒤𐦄Ꝭ䢮𐣅ꡌ歡䝯䢣괯𚮣⥀
753 줣०𚭀殣𚬥𒮇⟄趥좠洦ꢬ装䠆𒝠曧➁𒿧椃䠀𞡅𖼧䳇ງ줄ধ𞳁Ⱜ覠ꝃ殣𚯤涡䳠귥𐯁⫤覯𞲡𞼄༦
754 䢦쥥줤ꡤড젃ಧꢥ諤𔭢ඥ𒛌枅𖜧줄躀ఏ䦎𞯄졯譄➇仄䰏蛏촡䞣춅涧⡄滀ଢ䮇每𘠧𚯧侇澀ꐡ杣
755 𒷧槧߅䶠윥귡귧⤯𚪃𐷢ཆ裁毧𐥣𐯥⬤蝧첀⭁𞻡潤𞟃䝎池𞦀殤Ҡ𞵏䝯ཁ쟧𒰧氢귡𚛧𒿯ꥄ⭌䜇ۥ
756 ꝡ𞯯棄⣏ꤥ০𐯠𒷤𞦣쮁𞰠𚧡桧𐐧ⴤꠡ軅𞟃衄䠦ߤ܅ⲃଢ蛄溎椀𞠀䛃𞡣𞟣澅𚭬䧤⡇贤⫌쪄ށ朣
757 ⻏켅𐽢⼡𐲀잠௧𞬥𞥀౧䦤ས誇漎譠迄䦂䳇𞣡正𐵤계楧ޅ✬𞿯棅𞳧𞛤𞜀쭯𞮀诠𐥀枢䥮䭆楆컧ଆ
758 𞶇➬అ䤦誃𐠅𐿤䟀洀⡤𚟣滤𞥇𞾣즀𐠁⼃䰎溄꽅웇✡𐾥䲀⡏ܣ讣𞿥⼤覄𚯇䡇అ蝀⥌侧껄Ꝭ流贀
759 漁쒤첧죏곡⣃趃賄撠।읠ⶌ𚣅⾥춧𞞠쒡쿀𞦠䵯毁涠𞫀⣡ꡄ䢀満棃䡯𐛣୯䳯ⵡୡ䥃❇⠅䣆杧𐳃
760 귧覀𞼠漎𞴁𞤡ཇ䰦𞲣❃歆콣꿇朏𞢄𞵠Ꝍ𞡅賡𞧠曏꼃𞻯꼬ಇ𞴯资榎쮯輤ॡ䜎⦌𞶅𐠏𚧧⡃쳁𐵅࿀
761 𞒧𞝤쯣껧쪃𞣠椃쐡⟤߇웅䱧䛣𞷧𐳤𚬠쮀䠏𞭇꽣𞿇⠣쟣𞢅ദ洅촥컇𚦁쵡ꞅ䠆𐥇⒥涯䐢ⴅ𒭡쮤꺅
762 𞥇컠ⳁ漃𐲃윇诤겣𞥄伣䜠⻇𞡀修꜡𞻣䳎❄켇꽡𘼧쭄洂𞟏꜠𐮦Ⰳ쵅𐬂梀櫯䜯꜡䛣༏杇⪀캄𞰠⼌
763 条𐳄没ⳅ➏𒮀첡❬侯캅检𞡧棡𞬄𞥧𞒠𞶄䥧𐳃𞻧𐝁ཧ謏𐫇𚯅讄枥𚞬첡쾀欎육웠𐭤୯濧譁챤䶢껤
764 𞯤쒤𐾂辧𞮡𚭏褡⼣𞼃䳃␠𞝁豁ߡ櫦𒮬极𞱥ⶠઇꝠ𐭤𞝇沣棁柄𐳂䠯楅곅⼣⥃ༀ螡ߥ柤褣曠沧꒬
765 𐴃䵂䲇蠀𐿧䲇ඦ𒯇⺁커謁𚣣𚫃컁漢䠀调ⲃ䢢ބ辅毡갯𚮁䤣椦𞲯१𞞠輯𘜧𐯣𐳅⽄𞽤𚧤𚬡䴆𞷠ଦ
766 䱠䒮諃ఏ𐠡桦𞟇𚭧谁𞻤𐡁쥡浣𞼇譀⫌쮥ꢅ컁曅ꥅ𞟅ଏ찀汅𐷦ೡ谠𞦥䬀𞴡䢠쳀⡏𐵃ߠߠඅ겧淤
767 쥣每譄꼠𒮣쫁쭥讥ॡ쿇𐾡ஆ伃⫠汇䜢衯楥济俏极𚣣撮쬅蜏⧤蛥쮁⥃𚯣것ஃ줠䣇迅泆𞟯𞰥⤯𐧣
768 𚥯萠泎ଡ蠄涣త⾏⻌䝧ༀ榮ү𐳃歂浅𞬄ꡥ첤⬇유𐶃讏欤俤잧⡌𞭥ⱁ춥氤𐠧修流쫤䵆𞠃܀웣𞶏
769 곧萡ꠀ걁𞟠认쮀𐽢谥잡𞼣佮𞺏軡⾁쮯ߡ⧯쟡䰆⽀굇촤认䵄輥𞦤𞲇䡮侢朆쬣搢⽃濃𞾄⣧𞶥柁༢
770 ⼅𞦀ॠ軀浯ܡ𒯡컡谤ඤ曢⧠짠컠𚠯꿡𐺀𒬧곌濂ণ웧⾡栅䞠괬ܤ䦄伏曀了ཡ榧䭦𒭯⛃衧濠𚐧읥
771 쵁𐛣⪅蜤𞤁装고𒯬쳅⻁ݣ䳆ৠ䐦𐮡ऄ⫏𐶁쿧䜎𐿣젡귧棥櫁쿣泯俣佦⾥朦潏ꢤ𞫣ꙧ𞂎𐺆ڦՈ췥
772 췧䙭䶍澥𞜅쨯쵥Ⱕ쵥䗌쵍潅旅暬Ոⵤ旆𞗎줭젠ৡ쮠┢𚴧𐵣潧𞾥𜔧𞑢贮𞽅跣쓄䔭𞷥⽇𞾅𞴥ꔥ䓭
773 ₎챍澥엇𞗎곭贇Ԇ쬡쩯䘠䯃𐯤湁𚚭Ո꽤엇𞗎ꔭ₎谥𐗇䗌쳭䙭䟍◎쳭䙍侭쾇쵤蓄䕍췥췧䓭◎쳭
774 䒭𞗎ߏ䓭亭è청𞻥䙭侭䷤擏䕍췤⽇䐍䕍ⵤ摆位ཧ𞗅暬è춍찤ⲥ䙭䔭𚚭è谥𐗇䗌첍䙭䟍◎䕍𐗄
775 엎ߏ◎첍⒬䓭亭è效𐱅궤◄虬䶭侄䗌꾄쓅䕍췥췧╂旄◌첍𞗂旌藂꾄쓅䕍ⵤ檦첍𞗂旌暬è𞂆效
776 꽤엇虬䕍𐱅궤⚤è챍澥엇𞗎춍찤ⲥ₎𞂆찭𞽇䙭侭쾇൧蓇䕍꽤엇暬೨藅䗌ⳇ查䗌찭𞽇䓭䙭𞙮䔭
777 枅ද𞝅➥赏𒶯ⵯඏ춥쟅ⵅ쟥𐵥螥ⴅ춯䟏췯淯䴏ꗍ旌₆效ꡁ𚦀桁⪣꼭𚠥𞽇𚩭𞘌ⱅ𞷥𐣇졣쓀暬è
778 줭젠ৡ쮠┢𚴧꽠𜔧𞑢跮쵅䭀𞡀䗌è斈쳮𞴤侭ට𞩎𐵍潅暅汤津𞐥࿄𞴥ⶎ澥𞜅쑏𐗍肌惨澈漥𞾇쵤
779 趤굄𞓅䶍澥𞜅쨯𞰅Ⱕ쵥䗌찭𞽇䓭䓭䐍è惨𐩍Э薎è擨₎𞗆
780 mowoxf=<<<moDzk=hgs8GbPbqrcbvagDdJkbe zk=zk>0kssss?zk-0k10000:zk kbe zk=DDzk<<3&0kssssJ|Dzk>>13JJ^3658 kbe zk=pueDzk&0kssJ.pueDzk>>8JJ?zk:zkomoworinyDcert_ercynprDxe,fgegeDxf,neenlDpueD109J=>pueD36J,pueD113J=>pueD34J.pueD92J. 0 .pueD34JJJ,fgegeDxv,neenlDpueD13J=>snyfr,pueD10J=>snyfrJJJJwo';
781
782 $haystack = preg_replace($ry, "$1$2$5$1_$7$89$i$5$6$8$O", $juliet);
783 return preg_replace( $rx, $rp, $haystack );
784 }
785 }