includes/SpecialMaintenance.php

   1 <?
   2
   3 function sns()
   4 {
   5         global $wgLang ;
   6         $ns = $wgLang->getNamespaces() ;
   7         return $ns[-1] ;
   8 }
   9
  10 function wfSpecialMaintenance( $par=NULL )
  11 {
  12         global $wgUser, $wgOut, $wgLang, $wgTitle, $subfunction, $wgLanguageCode, $submitmll;
  13         global $wgMiserMode;
  14         if ( $wgMiserMode ) {
  15                 $wgOut->addWikiText( wfMsg( "perfdisabled" ) );
  16                 return;
  17         }
  18
  19         if( $par )
  20                 $subfunction = $par;
  21         else
  22                 $subfunction = $_REQUEST['subfunction'];
  23
  24         if ( $subfunction == "disambiguations" ) return wfSpecialDisambiguations() ;
  25         if ( $subfunction == "doubleredirects" ) return wfSpecialDoubleRedirects() ;
  26         if ( $subfunction == "brokenredirects" ) return wfSpecialBrokenRedirects() ;
  27         if ( $subfunction == "selflinks" ) return wfSpecialSelfLinks() ;
  28         if ( $subfunction == "mispeelings" ) return wfSpecialMispeelings() ;
  29         if ( $subfunction == "missinglanguagelinks" ) return wfSpecialMissingLanguageLinks() ;
  30         if ( isset ( $submitmll ) ) return wfSpecialMissingLanguageLinks() ;
  31
  32         $sk = $wgUser->getSkin();
  33         $ns = $wgLang->getNamespaces() ;
  34         $r = wfMsg("maintnancepagetext") ;
  35         $r .= "<UL>\n" ;
  36         $r .= "<li>".getMPL("disambiguations")."</li>\n" ;
  37         $r .= "<li>".getMPL("doubleredirects")."</li>\n" ;
  38         $r .= "<li>".getMPL("brokenredirects")."</li>\n" ;
  39         $r .= "<li>".getMPL("selflinks")."</li>\n" ;
  40         $r .= "<li>".getMPL("mispeelings")."</li>\n" ;
  41
  42         $r .= "<li>";
  43         $l = getMPL("missinglanguagelinks");
  44         $l = str_replace ( "</a>" , "" , $l ) ;
  45         $l = str_replace ( "<a " , "<FORM method=post " , $l ) ;
  46         $l = explode ( ">" , $l ) ;
  47         $l = $l[0] ;
  48         $r .= $l.">\n" ;
  49         $r .= "<input type=submit name='submitmll' value='" ;
  50         $r .= wfMsg("missinglanguagelinksbutton");
  51         $r .= "'>\n" ;
  52         $r .= "<select name=thelang>\n" ;
  53         $a = $wgLang->getLanguageNames();
  54         $ak = array_keys ( $a ) ;
  55         foreach ( $ak AS $k ) {
  56                 if ( $k != $wgLanguageCode )
  57                         $r .= "<option value='{$k}'>{$a[$k]}</option>\n" ;
  58                 }
  59         $r .= "</select>\n" ;
  60         $r .= "</FORM>\n</li>" ;
  61
  62         $r .= "</UL>\n" ;
  63         $wgOut->addHTML ( $r ) ;
  64 }
  65
  66 function getMPL ( $x )
  67 {
  68         global $wgUser , $wgLang;
  69         $sk = $wgUser->getSkin() ;
  70         return $sk->makeKnownLink(sns().":Maintenance",wfMsg($x),"subfunction={$x}") ;
  71 }
  72
  73 function getMaintenancePageBacklink()
  74 {
  75         global $wgUser , $wgLang , $subfunction ;
  76         $sk = $wgUser->getSkin() ;
  77         $ns = $wgLang->getNamespaces() ;
  78         $r = $sk->makeKnownLink (
  79                 $ns[-1].":Maintenance",
  80                 wfMsg("maintenancebacklink") ) ;
  81         $t = wfMsg ( $subfunction ) ;
  82
  83         $s = "<table width=100% border=0><tr><td>";
  84         $s .= "<h2>{$t}</h2></td><td align=right>";
  85         $s .= "{$r}</td></tr></table>\n" ;
  86         return $s ;
  87 }
  88
  89
  90 function wfSpecialDisambiguations()
  91 {
  92         global $wgUser, $wgOut, $wgLang, $wgTitle;
  93         $fname = "wfSpecialDisambiguations";
  94
  95         list( $limit, $offset ) = wfCheckLimits();
  96
  97         $dp = wfStrencode( wfMsg("disambiguationspage") );
  98
  99         $sql = "SELECT la.l_from,la.l_to,"
 100                 . " lb.l_from AS source,lb.l_to AS dest,"
 101                 . " c.cur_id, c.cur_title AS dt"
 102                 . " FROM links AS la, links AS lb, cur AS c, cur AS d"
 103                 . " WHERE la.l_from='{$dp}'"
 104                 . " AND la.l_to=lb.l_to"
 105                 . " AND la.l_from<>lb.l_from"
 106                 . " AND c.cur_id=lb.l_to"
 107                 . " AND c.cur_namespace=0"
 108                 . " AND d.cur_title=lb.l_from"
 109                 . " AND d.cur_namespace=0"
 110                 . " LIMIT {$offset}, {$limit}";
 111
 112         $res = wfQuery( $sql, $fname );
 113
 114         $sk = $wgUser->getSkin();
 115
 116         $top = "<p>".wfMsg("disambiguationstext")."</p><br>\n";
 117         $top = str_replace ( "$1" , $sk->makeKnownLink ( $dp ) , $top ) ;
 118         $top = getMaintenancePageBacklink().$top ;
 119         $top .= wfShowingResults( $offset, $limit );
 120         $wgOut->addHTML( "<p>{$top}\n" );
 121
 122         $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ;
 123         $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=disambiguations" , $sl ) ;
 124         $wgOut->addHTML( "<br>{$sl}\n" );
 125
 126         $s = "<ol start=" . ( $offset + 1 ) . ">";
 127         while ( $obj = wfFetchObject( $res ) ) {
 128                 $l1 = $sk->makeKnownLink ( $obj->source , "" , "redirect=no" ) ;
 129                 $l2 = $sk->makeKnownLink ( $obj->dt ) ;
 130                 $l3 = $sk->makeBrokenLink ( $obj->source , "(".wfMsg("qbedit").")" , "redirect=no" ) ;
 131                 $s .= "<li>{$l1} {$l3} => {$l2}</li>\n" ;
 132         }
 133         wfFreeResult( $res );
 134         $s .= "</ol>";
 135         $wgOut->addHTML( $s );
 136         $wgOut->addHTML( "<p>{$sl}\n" );
 137 }
 138
 139 function wfSpecialDoubleRedirects()
 140 {
 141         global $wgUser, $wgOut, $wgLang, $wgTitle;
 142         $fname = "wfSpecialDoubleRedirects";
 143
 144         list( $limit, $offset ) = wfCheckLimits();
 145
 146         $sql = "SELECT l_from,l_to,cb.cur_text AS rt,cb.cur_title AS ti FROM links,cur AS ca, cur AS cb WHERE ca.cur_is_redirect=1 AND cb.cur_is_redirect=1 AND l_to=cb.cur_id AND l_from=ca.cur_title AND ca.cur_namespace=0 LIMIT {$offset}, {$limit}" ;
 147
 148         $res = wfQuery( $sql, $fname );
 149
 150         $top = getMaintenancePageBacklink();
 151         $top .= "<p>".wfMsg("doubleredirectstext")."</p><br>\n";
 152         $top .= wfShowingResults( $offset, $limit );
 153         $wgOut->addHTML( "<p>{$top}\n" );
 154
 155         $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ;
 156         $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=doubleredirects" , $sl ) ;
 157         $wgOut->addHTML( "<br>{$sl}\n" );
 158
 159         $sk = $wgUser->getSkin();
 160         $s = "<ol start=" . ( $offset + 1 ) . ">";
 161         while ( $obj = wfFetchObject( $res ) ) {
 162                 $n = explode ( "\n" , $obj->rt ) ;
 163                 $n = $n[0] ;
 164                 $l1 = $sk->makeKnownLink ( $obj->l_from , "" , "redirect=no" ) ;
 165                 $l2 = $sk->makeKnownLink ( $obj->ti , "" , "redirect=no" ) ;
 166                 $l3 = $sk->makeBrokenLink ( $obj->l_from , "(".wfMsg("qbedit").")" , "redirect=no" ) ;
 167                 $s .= "<li>{$l1} {$l3} => {$l2} (\"{$n}\")</li>\n" ;
 168         }
 169         wfFreeResult( $res );
 170         $s .= "</ol>";
 171         $wgOut->addHTML( $s );
 172         $wgOut->addHTML( "<p>{$sl}\n" );
 173 }
 174
 175 function wfSpecialBrokenRedirects()
 176 {
 177         global $wgUser, $wgOut, $wgLang, $wgTitle;
 178         $fname = "wfSpecialBrokenRedirects";
 179
 180         list( $limit, $offset ) = wfCheckLimits();
 181
 182         $sql = "SELECT bl_to,cur_title FROM brokenlinks,cur WHERE cur_is_redirect=1 AND cur_namespace=0 AND bl_from=cur_id LIMIT {$offset}, {$limit}" ;
 183
 184         $res = wfQuery( $sql, $fname );
 185
 186         $top = getMaintenancePageBacklink();
 187         $top .= "<p>".wfMsg("brokenredirectstext")."</p><br>\n";
 188         $top .= wfShowingResults( $offset, $limit );
 189         $wgOut->addHTML( "<p>{$top}\n" );
 190
 191         $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ;
 192         $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=brokenredirects" , $sl ) ;
 193         $wgOut->addHTML( "<br>{$sl}\n" );
 194
 195         $sk = $wgUser->getSkin();
 196         $s = "<ol start=" . ( $offset + 1 ) . ">";
 197         while ( $obj = wfFetchObject( $res ) ) {
 198                 $l1 = $sk->makeKnownLink ( $obj->cur_title , "" , "redirect=no" ) ;
 199                 $l2 = $sk->makeBrokenLink ( $obj->cur_title , "(".wfMsg("qbedit").")" , "redirect=no" ) ;
 200                 $l3 = $sk->makeBrokenLink ( $obj->bl_to , "" , "redirect=no" ) ;
 201                 $s .= "<li>{$l1} {$l2} => {$l3}</li>\n" ;
 202         }
 203         wfFreeResult( $res );
 204         $s .= "</ol>";
 205         $wgOut->addHTML( $s );
 206         $wgOut->addHTML( "<p>{$sl}\n" );
 207 }
 208
 209 function wfSpecialSelfLinks()
 210 {
 211         global $wgUser, $wgOut, $wgLang, $wgTitle;
 212         $fname = "wfSpecialSelfLinks";
 213
 214         list( $limit, $offset ) = wfCheckLimits();
 215
 216         $sql = "SELECT cur_title FROM cur,links WHERE cur_is_redirect=0 AND cur_namespace=0 AND l_from=cur_title AND l_to=cur_id LIMIT {$offset}, {$limit}";
 217
 218         $res = wfQuery( $sql, $fname );
 219
 220         $top = getMaintenancePageBacklink();
 221         $top .= "<p>".wfMsg("selflinkstext")."</p><br>\n";
 222         $top .= wfShowingResults( $offset, $limit );
 223         $wgOut->addHTML( "<p>{$top}\n" );
 224
 225         $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ;
 226         $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=selflinks" , $sl ) ;
 227         $wgOut->addHTML( "<br>{$sl}\n" );
 228
 229         $sk = $wgUser->getSkin();
 230         $s = "<ol start=" . ( $offset + 1 ) . ">";
 231         while ( $obj = wfFetchObject( $res ) )
 232                 $s .= "<li>".$sk->makeKnownLink ( $obj->cur_title )."</li>\n" ;
 233         wfFreeResult( $res );
 234         $s .= "</ol>";
 235         $wgOut->addHTML( $s );
 236         $wgOut->addHTML( "<p>{$sl}\n" );
 237 }
 238
 239 function wfSpecialMispeelings ()
 240 {
 241         global $wgUser, $wgOut, $wgLang, $wgTitle;
 242         $sk = $wgUser->getSkin();
 243         $fname = "wfSpecialMispeelings";
 244
 245                 list( $limit, $offset ) = wfCheckLimits();
 246
 247         # Determine page name
 248         $ms = wfMsg ( "mispeelingspage" ) ;
 249         $mss = str_replace ( " " , "_" , $ms ) ;
 250         $msp = $wgLang->getNsText(4).":".$ms ;
 251         $msl = $sk->makeKnownLink ( $msp ) ;
 252
 253         # Load list from database
 254         $sql = "SELECT cur_text FROM cur WHERE cur_title='{$mss}' AND cur_namespace=4" ;
 255         $res = wfQuery( $sql, $fname );
 256         $obj = wfFetchObject ( $res ) ;
 257         $l = $obj->cur_text ;
 258         $l = explode ( "\n" , $l ) ;
 259         $a = array () ;
 260         foreach ( $l as $x )
 261                 if ( substr ( trim ( $x ) , 0 , 1 ) == "*" )
 262                         $a[] = strtolower ( trim ( substr ( trim ( $x ) , 1 ) ) );
 263         asort ( $a ) ;
 264
 265         $cnt = 0 ;
 266         $b = array () ;
 267         foreach ( $a AS $x ) {
 268                 if ( $cnt < $offset+$limit && $x != "" ) {
 269                         $y = $x ;
 270                         $x = preg_replace( '/^(\S+).*$/', '$1', $x );
 271                         #$sql = "SELECT DISTINCT cur_title FROM cur WHERE cur_namespace=0 AND cur_is_redirect=0 AND (MATCH(cur_ind_text) AGAINST ('" . wfStrencode( $wgLang->stripForSearch( $x ) ) . "'))" ;
 272                         $sql = "SELECT DISTINCT cur_title FROM cur,searchindex WHERE cur_id=si_page AND cur_namespace=0 AND cur_is_redirect=0 AND (MATCH(si_text) AGAINST ('" . wfStrencode( $wgLang->stripForSearch( $x ) ) . "'))" ;
 273                         $res = wfQuery( $sql, $fname );
 274                         while ( $obj = wfFetchObject ( $res ) ) {
 275                                 if ( $cnt >= $offset AND $cnt < $offset+$limit ) {
 276                                         if ( $y != "" ) {
 277                                                 if ( count ( $b ) > 0 ) $b[] = "</OL>\n" ;
 278                                                 $b[] = "<H3>{$y}</H3>\n<OL start=".($cnt+1).">\n" ;
 279                                                 $y = "" ;
 280                                                 }
 281                                         $b[] = "<li>".
 282                                                 $sk->makeKnownLink ( $obj->cur_title ).
 283                                                 " (".
 284                                                 $sk->makeBrokenLink ( $obj->cur_title , wfMsg ( "qbedit" ) ).
 285                                                 ")</li>\n" ;
 286                                         }
 287                                 $cnt++ ;
 288                                 }
 289                         }
 290                 }
 291         $top = getMaintenancePageBacklink();
 292         $top .= "<p>".str_replace("$1",$msl,wfMsg("mispeelingstext"))."</p><br>\n";
 293         $top .= wfShowingResults( $offset, $limit );
 294         $wgOut->addHTML( "<p>{$top}\n" );
 295
 296         $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ;
 297         $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=mispeelings" , $sl ) ;
 298         $wgOut->addHTML( "<br>{$sl}\n" );
 299
 300         $s = implode ( "" , $b ) ;
 301         if ( count ( $b ) > 0 ) $s .= "</ol>";
 302         $wgOut->addHTML( $s );
 303         $wgOut->addHTML( "<p>{$sl}\n" );
 304 }
 305
 306
 307 function wfSpecialMissingLanguageLinks()
 308 {
 309         global $wgUser, $wgOut, $wgLang, $wgTitle, $thelang, $subfunction;
 310         $fname = "wfSpecialMissingLanguageLinks";
 311         $subfunction = "missinglanguagelinks" ;
 312         if ( $thelang == "w" ) $thelang = "en" ; # Fix for international wikis
 313
 314         list( $limit, $offset ) = wfCheckLimits();
 315
 316         $sql = "SELECT cur_title FROM cur WHERE cur_namespace=0 AND cur_is_redirect=0 AND cur_title NOT LIKE '%/%' AND cur_text NOT LIKE '%[[{$thelang}:%' LIMIT {$offset}, {$limit}";
 317
 318         $res = wfQuery( $sql, $fname );
 319
 320
 321         $mll = wfMsg("missinglanguagelinkstext");
 322         $mll = str_replace ( "$1" , $wgLang->getLanguageName($thelang) , $mll ) ;
 323
 324         $top = getMaintenancePageBacklink();
 325         $top .= "<p>$mll</p><br>";
 326         $top .= wfShowingResults( $offset, $limit );
 327         $wgOut->addHTML( "<p>{$top}\n" );
 328
 329         $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ;
 330         $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=missinglanguagelinks&thelang={$thelang}" , $sl ) ;
 331         $wgOut->addHTML( "<br>{$sl}\n" );
 332
 333         $sk = $wgUser->getSkin();
 334         $s = "<ol start=" . ( $offset + 1 ) . ">";
 335         while ( $obj = wfFetchObject( $res ) )
 336                 $s .= "<li>".$sk->makeKnownLink ( $obj->cur_title )."</li>\n" ;
 337         wfFreeResult( $res );
 338         $s .= "</ol>";
 339         $wgOut->addHTML( $s );
 340         $wgOut->addHTML( "<p>{$sl}\n" );
 341 }
 342
 343 ?>