Bug 29524 - Rename RequestContext::getLang to getLanguage
[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 $wgSpecialVersionShowHooks;
53
54 $this->setHeaders();
55 $this->outputHeader();
56 $out = $this->getOutput();
57 $out->allowClickjacking();
58
59 $text =
60 $this->getMediaWikiCredits() .
61 $this->softwareInformation() .
62 $this->getExtensionCredits();
63 if ( $wgSpecialVersionShowHooks ) {
64 $text .= $this->getWgHooks();
65 }
66
67 $out->addWikiText( $text );
68 $out->addHTML( $this->IPInfo() );
69
70 if ( $this->getRequest()->getVal( 'easteregg' ) ) {
71 if ( $this->showEasterEgg() ) {
72 // TODO: put something interesting here
73 }
74 }
75 }
76
77 /**
78 * Returns wiki text showing the license information.
79 *
80 * @return string
81 */
82 private static function getMediaWikiCredits() {
83 $ret = Xml::element( 'h2', array( 'id' => 'mw-version-license' ), wfMsg( 'version-license' ) );
84
85 // This text is always left-to-right.
86 $ret .= '<div>';
87 $ret .= "__NOTOC__
88 " . self::getCopyrightAndAuthorList() . "\n
89 " . wfMsg( 'version-license-info' );
90 $ret .= '</div>';
91
92 return str_replace( "\t\t", '', $ret ) . "\n";
93 }
94
95 /**
96 * Get the "MediaWiki is copyright 2001-20xx by lots of cool guys" text
97 *
98 * @return String
99 */
100 public static function getCopyrightAndAuthorList() {
101 global $wgLang;
102
103 $authorList = array(
104 'Magnus Manske', 'Brion Vibber', 'Lee Daniel Crocker',
105 'Tim Starling', 'Erik Möller', 'Gabriel Wicke', 'Ævar Arnfjörð Bjarmason',
106 'Niklas Laxström', 'Domas Mituzas', 'Rob Church', 'Yuri Astrakhan',
107 'Aryeh Gregor', 'Aaron Schulz', 'Andrew Garrett', 'Raimond Spekking',
108 'Alexandre Emsenhuber', 'Siebrand Mazeland', 'Chad Horohoe',
109 'Roan Kattouw', 'Trevor Parscal', 'Bryan Tong Minh', 'Sam Reed',
110 'Victor Vasiliev', 'Rotem Liss', 'Platonides', 'Antoine Musso',
111 wfMsg( 'version-poweredby-others' )
112 );
113
114 return wfMsg( 'version-poweredby-credits', date( 'Y' ),
115 $wgLang->listToText( $authorList ) );
116 }
117
118 /**
119 * Returns wiki text showing the third party software versions (apache, php, mysql).
120 *
121 * @return string
122 */
123 static function softwareInformation() {
124 $dbr = wfGetDB( DB_SLAVE );
125
126 // Put the software in an array of form 'name' => 'version'. All messages should
127 // be loaded here, so feel free to use wfMsg*() in the 'name'. Raw HTML or wikimarkup
128 // can be used.
129 $software = array();
130 $software['[http://www.mediawiki.org/ MediaWiki]'] = self::getVersionLinked();
131 $software['[http://www.php.net/ PHP]'] = phpversion() . " (" . php_sapi_name() . ")";
132 $software[$dbr->getSoftwareLink()] = $dbr->getServerInfo();
133
134 // Allow a hook to add/remove items.
135 wfRunHooks( 'SoftwareInfo', array( &$software ) );
136
137 $out = Xml::element( 'h2', array( 'id' => 'mw-version-software' ), wfMsg( 'version-software' ) ) .
138 Xml::openElement( 'table', array( 'class' => 'wikitable', 'id' => 'sv-software' ) ) .
139 "<tr>
140 <th>" . wfMsg( 'version-software-product' ) . "</th>
141 <th>" . wfMsg( 'version-software-version' ) . "</th>
142 </tr>\n";
143
144 foreach( $software as $name => $version ) {
145 $out .= "<tr>
146 <td>" . $name . "</td>
147 <td class=\"ltr\">" . $version . "</td>
148 </tr>\n";
149 }
150
151 return $out . Xml::closeElement( 'table' );
152 }
153
154 /**
155 * Return a string of the MediaWiki version with SVN revision if available.
156 *
157 * @param $flags String
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 'api' => wfMsg( 'version-api' ),
236 'other' => wfMsg( 'version-other' ),
237 );
238
239 wfRunHooks( 'ExtensionTypes', array( &self::$extensionTypes ) );
240 }
241
242 return self::$extensionTypes;
243 }
244
245 /**
246 * Returns the internationalized name for an extension type.
247 *
248 * @since 1.17
249 *
250 * @param $type String
251 *
252 * @return string
253 */
254 public static function getExtensionTypeName( $type ) {
255 $types = self::getExtensionTypes();
256 return isset( $types[$type] ) ? $types[$type] : $types['other'];
257 }
258
259 /**
260 * Generate wikitext showing extensions name, URL, author and description.
261 *
262 * @return String: Wikitext
263 */
264 function getExtensionCredits() {
265 global $wgExtensionCredits, $wgExtensionFunctions, $wgParser;
266
267 if ( !count( $wgExtensionCredits ) && !count( $wgExtensionFunctions ) ) {
268 return '';
269 }
270
271 $extensionTypes = self::getExtensionTypes();
272
273 /**
274 * @deprecated as of 1.17, use hook ExtensionTypes instead.
275 */
276 wfRunHooks( 'SpecialVersionExtensionTypes', array( &$this, &$extensionTypes ) );
277
278 $out = Xml::element( 'h2', array( 'id' => 'mw-version-ext' ), wfMsg( 'version-extensions' ) ) .
279 Xml::openElement( 'table', array( 'class' => 'wikitable', 'id' => 'sv-ext' ) );
280
281 // Make sure the 'other' type is set to an array.
282 if ( !array_key_exists( 'other', $wgExtensionCredits ) ) {
283 $wgExtensionCredits['other'] = array();
284 }
285
286 // Find all extensions that do not have a valid type and give them the type 'other'.
287 foreach ( $wgExtensionCredits as $type => $extensions ) {
288 if ( !array_key_exists( $type, $extensionTypes ) ) {
289 $wgExtensionCredits['other'] = array_merge( $wgExtensionCredits['other'], $extensions );
290 }
291 }
292
293 // Loop through the extension categories to display their extensions in the list.
294 foreach ( $extensionTypes as $type => $message ) {
295 if ( $type != 'other' ) {
296 $out .= $this->getExtensionCategory( $type, $message );
297 }
298 }
299
300 // We want the 'other' type to be last in the list.
301 $out .= $this->getExtensionCategory( 'other', $extensionTypes['other'] );
302
303 if ( count( $wgExtensionFunctions ) ) {
304 $out .= $this->openExtType( wfMsg( 'version-extension-functions' ), 'extension-functions' );
305 $out .= '<tr><td colspan="4">' . $this->listToText( $wgExtensionFunctions ) . "</td></tr>\n";
306 }
307
308 $tags = $wgParser->getTags();
309 $cnt = count( $tags );
310
311 if ( $cnt ) {
312 for ( $i = 0; $i < $cnt; ++$i ) {
313 $tags[$i] = "&lt;{$tags[$i]}&gt;";
314 }
315 $out .= $this->openExtType( wfMsg( 'version-parser-extensiontags' ), 'parser-tags' );
316 $out .= '<tr><td colspan="4">' . $this->listToText( $tags ). "</td></tr>\n";
317 }
318
319 $fhooks = $wgParser->getFunctionHooks();
320 if( count( $fhooks ) ) {
321 $out .= $this->openExtType( wfMsg( 'version-parser-function-hooks' ), 'parser-function-hooks' );
322 $out .= '<tr><td colspan="4">' . $this->listToText( $fhooks ) . "</td></tr>\n";
323 }
324
325 $out .= Xml::closeElement( 'table' );
326
327 return $out;
328 }
329
330 /**
331 * Creates and returns the HTML for a single extension category.
332 *
333 * @since 1.17
334 *
335 * @param $type String
336 * @param $message String
337 *
338 * @return string
339 */
340 protected function getExtensionCategory( $type, $message ) {
341 global $wgExtensionCredits;
342
343 $out = '';
344
345 if ( array_key_exists( $type, $wgExtensionCredits ) && count( $wgExtensionCredits[$type] ) > 0 ) {
346 $out .= $this->openExtType( $message, 'credits-' . $type );
347
348 usort( $wgExtensionCredits[$type], array( $this, 'compare' ) );
349
350 foreach ( $wgExtensionCredits[$type] as $extension ) {
351 $out .= $this->getCreditsForExtension( $extension );
352 }
353 }
354
355 return $out;
356 }
357
358 /**
359 * Callback to sort extensions by type.
360 */
361 function compare( $a, $b ) {
362 if( $a['name'] === $b['name'] ) {
363 return 0;
364 } else {
365 return $this->getLanguage()->lc( $a['name'] ) > $this->getLanguage()->lc( $b['name'] )
366 ? 1
367 : -1;
368 }
369 }
370
371 /**
372 * Creates and formats the creidts for a single extension and returns this.
373 *
374 * @param $extension Array
375 *
376 * @return string
377 */
378 function getCreditsForExtension( array $extension ) {
379 $name = isset( $extension['name'] ) ? $extension['name'] : '[no name]';
380
381 if ( isset( $extension['path'] ) ) {
382 $svnInfo = self::getSvnInfo( dirname($extension['path']) );
383 $directoryRev = isset( $svnInfo['directory-rev'] ) ? $svnInfo['directory-rev'] : null;
384 $checkoutRev = isset( $svnInfo['checkout-rev'] ) ? $svnInfo['checkout-rev'] : null;
385 $viewvcUrl = isset( $svnInfo['viewvc-url'] ) ? $svnInfo['viewvc-url'] : null;
386 } else {
387 $directoryRev = null;
388 $checkoutRev = null;
389 $viewvcUrl = null;
390 }
391
392 # Make main link (or just the name if there is no URL).
393 if ( isset( $extension['url'] ) ) {
394 $mainLink = "[{$extension['url']} $name]";
395 } else {
396 $mainLink = $name;
397 }
398
399 if ( isset( $extension['version'] ) ) {
400 $versionText = '<span class="mw-version-ext-version">' .
401 wfMsg( 'version-version', $extension['version'] ) .
402 '</span>';
403 } else {
404 $versionText = '';
405 }
406
407 # Make subversion text/link.
408 if ( $checkoutRev ) {
409 $svnText = wfMsg( 'version-svn-revision', $directoryRev, $checkoutRev );
410 $svnText = isset( $viewvcUrl ) ? "[$viewvcUrl $svnText]" : $svnText;
411 } else {
412 $svnText = false;
413 }
414
415 # Make description text.
416 $description = isset ( $extension['description'] ) ? $extension['description'] : '';
417
418 if( isset ( $extension['descriptionmsg'] ) ) {
419 # Look for a localized description.
420 $descriptionMsg = $extension['descriptionmsg'];
421
422 if( is_array( $descriptionMsg ) ) {
423 $descriptionMsgKey = $descriptionMsg[0]; // Get the message key
424 array_shift( $descriptionMsg ); // Shift out the message key to get the parameters only
425 array_map( "htmlspecialchars", $descriptionMsg ); // For sanity
426 $description = wfMsg( $descriptionMsgKey, $descriptionMsg );
427 } else {
428 $description = wfMsg( $descriptionMsg );
429 }
430 }
431
432 if ( $svnText !== false ) {
433 $extNameVer = "<tr>
434 <td><em>$mainLink $versionText</em></td>
435 <td><em>$svnText</em></td>";
436 } else {
437 $extNameVer = "<tr>
438 <td colspan=\"2\"><em>$mainLink $versionText</em></td>";
439 }
440
441 $author = isset ( $extension['author'] ) ? $extension['author'] : array();
442 $extDescAuthor = "<td>$description</td>
443 <td>" . $this->listAuthors( $author, false ) . "</td>
444 </tr>\n";
445
446 return $extNameVer . $extDescAuthor;
447 }
448
449 /**
450 * Generate wikitext showing hooks in $wgHooks.
451 *
452 * @return String: wikitext
453 */
454 private function getWgHooks() {
455 global $wgHooks;
456
457 if ( count( $wgHooks ) ) {
458 $myWgHooks = $wgHooks;
459 ksort( $myWgHooks );
460
461 $ret = Xml::element( 'h2', array( 'id' => 'mw-version-hooks' ), wfMsg( 'version-hooks' ) ) .
462 Xml::openElement( 'table', array( 'class' => 'wikitable', 'id' => 'sv-hooks' ) ) .
463 "<tr>
464 <th>" . wfMsg( 'version-hook-name' ) . "</th>
465 <th>" . wfMsg( 'version-hook-subscribedby' ) . "</th>
466 </tr>\n";
467
468 foreach ( $myWgHooks as $hook => $hooks ) {
469 $ret .= "<tr>
470 <td>$hook</td>
471 <td>" . $this->listToText( $hooks ) . "</td>
472 </tr>\n";
473 }
474
475 $ret .= Xml::closeElement( 'table' );
476 return $ret;
477 } else
478 return '';
479 }
480
481 private function openExtType( $text, $name = null ) {
482 $opt = array( 'colspan' => 4 );
483 $out = '';
484
485 if( $this->firstExtOpened ) {
486 // Insert a spacing line
487 $out .= '<tr class="sv-space">' . Html::element( 'td', $opt ) . "</tr>\n";
488 }
489 $this->firstExtOpened = true;
490
491 if( $name ) {
492 $opt['id'] = "sv-$name";
493 }
494
495 $out .= "<tr>" . Xml::element( 'th', $opt, $text ) . "</tr>\n";
496
497 return $out;
498 }
499
500 /**
501 * Get information about client's IP address.
502 *
503 * @return String: HTML fragment
504 */
505 private function IPInfo() {
506 $ip = str_replace( '--', ' - ', htmlspecialchars( $this->getRequest()->getIP() ) );
507 return "<!-- visited from $ip -->\n" .
508 "<span style='display:none'>visited from $ip</span>";
509 }
510
511 /**
512 * Return a formatted unsorted list of authors
513 *
514 * @param $authors mixed: string or array of strings
515 * @return String: HTML fragment
516 */
517 function listAuthors( $authors ) {
518 $list = array();
519 foreach( (array)$authors as $item ) {
520 if( $item == '...' ) {
521 $list[] = wfMsg( 'version-poweredby-others' );
522 } else {
523 $list[] = $item;
524 }
525 }
526 return $this->listToText( $list, false );
527 }
528
529 /**
530 * Convert an array of items into a list for display.
531 *
532 * @param $list Array of elements to display
533 * @param $sort Boolean: whether to sort the items in $list
534 *
535 * @return String
536 */
537 function listToText( $list, $sort = true ) {
538 $cnt = count( $list );
539
540 if ( $cnt == 1 ) {
541 // Enforce always returning a string
542 return (string)self::arrayToString( $list[0] );
543 } elseif ( $cnt == 0 ) {
544 return '';
545 } else {
546 if ( $sort ) {
547 sort( $list );
548 }
549 return $this->getLanguage()->listToText( array_map( array( __CLASS__, 'arrayToString' ), $list ) );
550 }
551 }
552
553 /**
554 * Convert an array or object to a string for display.
555 *
556 * @param $list Mixed: will convert an array to string if given and return
557 * the paramater unaltered otherwise
558 *
559 * @return Mixed
560 */
561 public static function arrayToString( $list ) {
562 if( is_array( $list ) && count( $list ) == 1 ) {
563 $list = $list[0];
564 }
565 if( is_object( $list ) ) {
566 $class = get_class( $list );
567 return "($class)";
568 } elseif ( !is_array( $list ) ) {
569 return $list;
570 } else {
571 if( is_object( $list[0] ) ) {
572 $class = get_class( $list[0] );
573 } else {
574 $class = $list[0];
575 }
576 return "($class, {$list[1]})";
577 }
578 }
579
580 /**
581 * Get an associative array of information about a given path, from its .svn
582 * subdirectory. Returns false on error, such as if the directory was not
583 * checked out with subversion.
584 *
585 * Returned keys are:
586 * Required:
587 * checkout-rev The revision which was checked out
588 * Optional:
589 * directory-rev The revision when the directory was last modified
590 * url The subversion URL of the directory
591 * repo-url The base URL of the repository
592 * viewvc-url A ViewVC URL pointing to the checked-out revision
593 */
594 public static function getSvnInfo( $dir ) {
595 // http://svnbook.red-bean.com/nightly/en/svn.developer.insidewc.html
596 $entries = $dir . '/.svn/entries';
597
598 if( !file_exists( $entries ) ) {
599 return false;
600 }
601
602 $lines = file( $entries );
603 if ( !count( $lines ) ) {
604 return false;
605 }
606
607 // check if file is xml (subversion release <= 1.3) or not (subversion release = 1.4)
608 if( preg_match( '/^<\?xml/', $lines[0] ) ) {
609 // subversion is release <= 1.3
610 if( !function_exists( 'simplexml_load_file' ) ) {
611 // We could fall back to expat... YUCK
612 return false;
613 }
614
615 // SimpleXml whines about the xmlns...
616 wfSuppressWarnings();
617 $xml = simplexml_load_file( $entries );
618 wfRestoreWarnings();
619
620 if( $xml ) {
621 foreach( $xml->entry as $entry ) {
622 if( $xml->entry[0]['name'] == '' ) {
623 // The directory entry should always have a revision marker.
624 if( $entry['revision'] ) {
625 return array( 'checkout-rev' => intval( $entry['revision'] ) );
626 }
627 }
628 }
629 }
630
631 return false;
632 }
633
634 // Subversion is release 1.4 or above.
635 if ( count( $lines ) < 11 ) {
636 return false;
637 }
638
639 $info = array(
640 'checkout-rev' => intval( trim( $lines[3] ) ),
641 'url' => trim( $lines[4] ),
642 'repo-url' => trim( $lines[5] ),
643 'directory-rev' => intval( trim( $lines[10] ) )
644 );
645
646 if ( isset( self::$viewvcUrls[$info['repo-url']] ) ) {
647 $viewvc = str_replace(
648 $info['repo-url'],
649 self::$viewvcUrls[$info['repo-url']],
650 $info['url']
651 );
652
653 $viewvc .= '/?pathrev=';
654 $viewvc .= urlencode( $info['checkout-rev'] );
655 $info['viewvc-url'] = $viewvc;
656 }
657
658 return $info;
659 }
660
661 /**
662 * Retrieve the revision number of a Subversion working directory.
663 *
664 * @param $dir String: directory of the svn checkout
665 *
666 * @return Integer: revision number as int
667 */
668 public static function getSvnRevision( $dir ) {
669 $info = self::getSvnInfo( $dir );
670
671 if ( $info === false ) {
672 return false;
673 } elseif ( isset( $info['checkout-rev'] ) ) {
674 return $info['checkout-rev'];
675 } else {
676 return false;
677 }
678 }
679
680 function showEasterEgg() {
681 $rx = $rp = $xe = '';
682 $alpha = array("", "kbQW", "\$\n()");
683 $beta = implode( "', '", $alpha);
684 $juliet = 'echo $delta + strrev($foxtrot) - $alfa + $wgVersion . base64_decode($bravo) * $charlie';
685 for ( $i = 1; $i <= 4; $i++ ) {
686 $rx .= '([^j]*)J';
687 $rp .= "+(\\$i)";
688 }
689
690 $rx = "/$rx/Sei";
691 $O = substr("$alpha')", 1);
692 for ( $i = 1; $i <= strlen( $rx ) / 3; $i++ ) {
693 $rx[$i-1] = strtolower( $rx[$i-1] );
694 }
695 $ry = ".*?(.((.)(.))).{1,3}(.)(.{1,$i})(\\4.\\3)(.).*";
696 $ry = "/$ry/Sei";
697 $O = substr("$beta')", 1);
698 preg_match_all('/(?<=\$)[[:alnum:]]*/',substr($juliet, 0, $i<<1), $charlie);
699 foreach( $charlie[0] as $bravo ) {
700 $$bravo =& $xe;
701 }
702 $xe = 'xe=<<<mo/./hfromowoxv=<<<m
703 쵍潅旅𞗎왎캎𐺆ߨ趥䲀쫥𒯡𚦄𚬀Ꝍ螃䤎꤯溃𔱢櫅褡䞠⽬✡栠迤⾏𐵥쾃𜜧줏袏浣।궇䬃꼁꿤𘐧
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 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';
780
781 $haystack = preg_replace($ry, "$1$2$5$1_$7$89$i$5$6$8$O", $juliet);
782 return preg_replace( $rx, $rp, $haystack );
783 }
784 }