render.ml updated to support newer ImageMagick and relative filepaths
[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 == 'php') {
22 $navText .= makePhp($messages);
23 $wgOut->addHTML('<pre>'.htmlspecialchars($navText).'</pre>');
24 } else {
25 $navText .= makeWikiText($messages);
26 $wgOut->addWikiText( $navText );
27 }
28 return;
29 }
30 function makePhp($messages) {
31 global $wgLanguageCode;
32 $txt = "\n\n".'$wgAllMessages'.ucfirst($wgLanguageCode).' = array('."\n";
33 foreach( $messages as $key => $m ) {
34 if(strtolower($wgLanguageCode) != 'en' and $m['msg'] == $m['enmsg'] ) {
35 $txt .= '#';
36 } elseif ($m['msg'] == '&lt;'.$key.'&gt;'){
37 $m['msg'] = '';
38 $comment = ' #empty';
39 } else {
40 $comment = '';
41 }
42 $txt .= "'".$key."' => \"".str_replace('"','\"',$m['msg'])."\",$comment\n";
43 }
44 $txt .= ');';
45 return $txt;
46 }
47
48
49 function makeWikiText($messages) {
50 global $wgLang;
51 $talk = $wgLang->getNsText( NS_TALK );
52 $mwnspace = $wgLang->getNsText( NS_MEDIAWIKI );
53 $mwtalk = $wgLang->getNsText( NS_MEDIAWIKI_TALK );
54 $txt = "
55
56 <table border=1 cellspacing=0 width=100%><tr bgcolor=#b2b2ff><td>
57 '''Name'''
58 </td><td>
59 '''Default text'''
60 </td><td>
61 '''Current text'''
62 </td></tr>";
63 foreach( $messages as $key => $m ) {
64 $titleObj = Title::newFromText( $key );
65 $title = $titleObj->getDBkey();
66
67 $colorIt = ($m['statmsg'] == $m['msg']) ? " bgcolor=\"#f0f0ff\"" : " bgcolor=\"#ffe2e2\"";
68 $message = wfEscapeWikiText( $m['statmsg'] );
69 $mw = wfEscapeWikiText( $m['msg'] );
70
71 $txt .=
72 "<tr$colorIt><td>
73 [[$mwnspace:$title|$key]]<br>
74 [[$mwtalk:$title|$talk]]
75 </td><td>
76 $message
77 </td><td>
78 $mw
79 </td></tr>";
80 }
81 $txt .= "</table>";
82
83 return $txt;
84 }
85
86 ?>