default to php as it's faster. TODO: add link to \&ot=html version
[lhc/web/wiklou.git] / includes / SpecialAllmessages.php
1 <?php
2
3 function wfSpecialAllmessages()
4 {
5 global $wgOut, $wgAllMessagesEn, $wgRequest, $wgMessageCache;
6 $ot = $wgRequest->getText('ot');
7 $mwMsg =& MagicWord::get( MAG_MSG );
8 set_time_limit(0);
9 $navText = str_replace( "$1", $mwMsg->getSynonym( 0 ), wfMsg("allmessagestext" ) );
10
11 $first = true;
12 $sortedArray = $wgAllMessagesEn;
13 ksort( $sortedArray );
14 $messages = array();
15 $wgMessageCache->disableTransform();
16 foreach ( $sortedArray as $key => $enMsg ) {
17 $messages[$key]['enmsg'] = $enMsg;
18 $messages[$key]['statmsg'] = wfMsgNoDb( $key );
19 $messages[$key]['msg'] = wfMsg ( $key );
20 }
21 if ($ot == 'html') {
22 $navText .= makeWikiText($messages);
23 $wgOut->addWikiText( $navText );
24 } else {
25 $navText .= makePhp($messages);
26 $wgOut->addHTML('<pre>'.htmlspecialchars($navText).'</pre>');
27 return;
28 }
29 function makePhp($messages) {
30 global $wgLanguageCode;
31 $txt = "\n\n".'$wgAllMessages'.ucfirst($wgLanguageCode).' = array('."\n";
32 foreach( $messages as $key => $m ) {
33 if(strtolower($wgLanguageCode) != 'en' and $m['msg'] == $m['enmsg'] ) {
34 $txt .= '#';
35 } elseif ($m['msg'] == '&lt;'.$key.'&gt;'){
36 $m['msg'] = '';
37 $comment = ' #empty';
38 } else {
39 $comment = '';
40 }
41 $txt .= "'".$key."' => \"".str_replace('"','\"',$m['msg'])."\",$comment\n";
42 }
43 $txt .= ');';
44 return $txt;
45 }
46
47
48 function makeWikiText($messages) {
49 global $wgLang;
50 $talk = $wgLang->getNsText( NS_TALK );
51 $mwnspace = $wgLang->getNsText( NS_MEDIAWIKI );
52 $mwtalk = $wgLang->getNsText( NS_MEDIAWIKI_TALK );
53 $txt = "
54
55 <table border=1 cellspacing=0 width=100%><tr bgcolor=#b2b2ff><td>
56 '''Name'''
57 </td><td>
58 '''Default text'''
59 </td><td>
60 '''Current text'''
61 </td></tr>";
62 foreach( $messages as $key => $m ) {
63 $titleObj = Title::newFromText( $key );
64 $title = $titleObj->getDBkey();
65
66 $colorIt = ($m['statmsg'] == $m['msg']) ? " bgcolor=\"#f0f0ff\"" : " bgcolor=\"#ffe2e2\"";
67 $message = wfEscapeWikiText( $m['statmsg'] );
68 $mw = wfEscapeWikiText( $m['msg'] );
69
70 $txt .=
71 "<tr$colorIt><td>
72 [[$mwnspace:$title|$key]]<br>
73 [[$mwtalk:$title|$talk]]
74 </td><td>
75 $message
76 </td><td>
77 $mw
78 </td></tr>";
79 }
80 $txt .= "</table>";
81
82 return $txt;
83 }
84
85 ?>