getNamespaces() ; return $ns[-1] ; } function wfSpecialMaintenance( $par=NULL ) { global $wgUser, $wgOut, $wgLang, $wgTitle, $subfunction, $wgLanguageCode, $submitmll; global $wgMiserMode; if ( $wgMiserMode ) { $wgOut->addWikiText( wfMsg( "perfdisabled" ) ); return; } if( $par ) $subfunction = $par; else $subfunction = $_REQUEST['subfunction']; if ( $subfunction == "disambiguations" ) return wfSpecialDisambiguations() ; if ( $subfunction == "doubleredirects" ) return wfSpecialDoubleRedirects() ; if ( $subfunction == "brokenredirects" ) return wfSpecialBrokenRedirects() ; if ( $subfunction == "selflinks" ) return wfSpecialSelfLinks() ; if ( $subfunction == "mispeelings" ) return wfSpecialMispeelings() ; if ( $subfunction == "missinglanguagelinks" ) return wfSpecialMissingLanguageLinks() ; if ( isset ( $submitmll ) ) return wfSpecialMissingLanguageLinks() ; $sk = $wgUser->getSkin(); $ns = $wgLang->getNamespaces() ; $r = wfMsg("maintnancepagetext") ; $r .= "\n" ; $wgOut->addHTML ( $r ) ; } function getMPL ( $x ) { global $wgUser , $wgLang; $sk = $wgUser->getSkin() ; return $sk->makeKnownLink(sns().":Maintenance",wfMsg($x),"subfunction={$x}") ; } function getMaintenancePageBacklink() { global $wgUser , $wgLang , $subfunction ; $sk = $wgUser->getSkin() ; $ns = $wgLang->getNamespaces() ; $r = $sk->makeKnownLink ( $ns[-1].":Maintenance", wfMsg("maintenancebacklink") ) ; $t = wfMsg ( $subfunction ) ; $s = "
"; $s .= "

{$t}

"; $s .= "{$r}
\n" ; return $s ; } function wfSpecialDisambiguations() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialDisambiguations"; list( $limit, $offset ) = wfCheckLimits(); $dp = wfStrencode( wfMsg("disambiguationspage") ); $sql = "SELECT la.l_from,la.l_to," . " lb.l_from AS source,lb.l_to AS dest," . " c.cur_id, c.cur_title AS dt" . " FROM links AS la, links AS lb, cur AS c, cur AS d" . " WHERE la.l_from='{$dp}'" . " AND la.l_to=lb.l_to" . " AND la.l_from<>lb.l_from" . " AND c.cur_id=lb.l_to" . " AND c.cur_namespace=0" . " AND d.cur_title=lb.l_from" . " AND d.cur_namespace=0" . " LIMIT {$offset}, {$limit}"; $res = wfQuery( $sql, DB_READ, $fname ); $sk = $wgUser->getSkin(); $top = "

".wfMsg( "disambiguationstext", $sk->makeKnownLink( $dp ) )."


\n"; $top = getMaintenancePageBacklink() . $top; $top .= wfShowingResults( $offset, $limit ); $wgOut->addHTML( "

{$top}\n" ); $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ; $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=disambiguations" , $sl ) ; $wgOut->addHTML( "
{$sl}\n" ); $s = "

    "; while ( $obj = wfFetchObject( $res ) ) { $l1 = $sk->makeKnownLink ( $obj->source , "" , "redirect=no" ) ; $l2 = $sk->makeKnownLink ( $obj->dt ) ; $l3 = $sk->makeBrokenLink ( $obj->source , "(".wfMsg("qbedit").")" , "redirect=no" ) ; $s .= "
  1. {$l1} {$l3} => {$l2}
    2. \n" ; } wfFreeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialDoubleRedirects() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialDoubleRedirects"; list( $limit, $offset ) = wfCheckLimits(); $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}" ; $res = wfQuery( $sql, DB_READ, $fname ); $top = getMaintenancePageBacklink(); $top .= "

".wfMsg("doubleredirectstext")."


\n"; $top .= wfShowingResults( $offset, $limit ); $wgOut->addHTML( "

{$top}\n" ); $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ; $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=doubleredirects" , $sl ) ; $wgOut->addHTML( "
{$sl}\n" ); $sk = $wgUser->getSkin(); $s = "

    "; while ( $obj = wfFetchObject( $res ) ) { $n = explode ( "\n" , $obj->rt ) ; $n = $n[0] ; $l1 = $sk->makeKnownLink ( $obj->l_from , "" , "redirect=no" ) ; $l2 = $sk->makeKnownLink ( $obj->ti , "" , "redirect=no" ) ; $l3 = $sk->makeBrokenLink ( $obj->l_from , "(".wfMsg("qbedit").")" , "redirect=no" ) ; $s .= "
  1. {$l1} {$l3} => {$l2} (\"{$n}\")
    2. \n" ; } wfFreeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialBrokenRedirects() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialBrokenRedirects"; list( $limit, $offset ) = wfCheckLimits(); $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}" ; $res = wfQuery( $sql, DB_READ, $fname ); $top = getMaintenancePageBacklink(); $top .= "

".wfMsg("brokenredirectstext")."


\n"; $top .= wfShowingResults( $offset, $limit ); $wgOut->addHTML( "

{$top}\n" ); $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ; $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=brokenredirects" , $sl ) ; $wgOut->addHTML( "
{$sl}\n" ); $sk = $wgUser->getSkin(); $s = "

    "; while ( $obj = wfFetchObject( $res ) ) { $l1 = $sk->makeKnownLink ( $obj->cur_title , "" , "redirect=no" ) ; $l2 = $sk->makeBrokenLink ( $obj->cur_title , "(".wfMsg("qbedit").")" , "redirect=no" ) ; $l3 = $sk->makeBrokenLink ( $obj->bl_to , "" , "redirect=no" ) ; $s .= "
  1. {$l1} {$l2} => {$l3}
    2. \n" ; } wfFreeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialSelfLinks() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialSelfLinks"; list( $limit, $offset ) = wfCheckLimits(); $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}"; $res = wfQuery( $sql, DB_READ, $fname ); $top = getMaintenancePageBacklink(); $top .= "

".wfMsg("selflinkstext")."


\n"; $top .= wfShowingResults( $offset, $limit ); $wgOut->addHTML( "

{$top}\n" ); $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ; $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=selflinks" , $sl ) ; $wgOut->addHTML( "
{$sl}\n" ); $sk = $wgUser->getSkin(); $s = "

    "; while ( $obj = wfFetchObject( $res ) ) $s .= "
  1. ".$sk->makeKnownLink ( $obj->cur_title )."
    2. \n" ; wfFreeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialMispeelings () { global $wgUser, $wgOut, $wgLang, $wgTitle; $sk = $wgUser->getSkin(); $fname = "wfSpecialMispeelings"; list( $limit, $offset ) = wfCheckLimits(); # Determine page name $ms = wfMsg ( "mispeelingspage" ) ; $mss = wfStrencode( str_replace ( " " , "_" , $ms ) ); $msp = $wgLang->getNsText(4).":".$ms ; $msl = $sk->makeKnownLink ( $msp ) ; # Load list from database $sql = "SELECT cur_text FROM cur WHERE cur_title='{$mss}' AND cur_namespace=4" ; $res = wfQuery( $sql, DB_READ, $fname ); $obj = wfFetchObject ( $res ) ; $l = $obj->cur_text ; $l = explode ( "\n" , $l ) ; $a = array () ; foreach ( $l as $x ) if ( substr ( trim ( $x ) , 0 , 1 ) == "*" ) $a[] = strtolower ( trim ( substr ( trim ( $x ) , 1 ) ) ); asort ( $a ) ; $cnt = 0 ; $b = array () ; foreach ( $a AS $x ) { if ( $cnt < $offset+$limit && $x != "" ) { $y = $x ; $x = preg_replace( '/^(\S+).*$/', '$1', $x ); #$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 ) ) . "'))" ; $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 ) ) . "'))" ; $res = wfQuery( $sql, DB_READ, $fname ); while ( $obj = wfFetchObject ( $res ) ) { if ( $cnt >= $offset AND $cnt < $offset+$limit ) { if ( $y != "" ) { if ( count ( $b ) > 0 ) $b[] = "\n" ; $b[] = "

{$y}

\n
    \n" ; $y = "" ; } $b[] = "
  1. ". $sk->makeKnownLink ( $obj->cur_title ). " (". $sk->makeBrokenLink ( $obj->cur_title , wfMsg ( "qbedit" ) ). ")
    2. \n" ; } $cnt++ ; } } } $top = getMaintenancePageBacklink(); $top .= "

    ".wfMsg( "mispeelingstext", $msl )."


    \n"; $top .= wfShowingResults( $offset, $limit ); $wgOut->addHTML( "

    {$top}\n" ); $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ; $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=mispeelings" , $sl ) ; $wgOut->addHTML( "
    {$sl}\n" ); $s = implode ( "" , $b ) ; if ( count ( $b ) > 0 ) $s .= "

"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialMissingLanguageLinks() { global $wgUser, $wgOut, $wgLang, $wgTitle, $thelang, $subfunction; $fname = "wfSpecialMissingLanguageLinks"; $subfunction = "missinglanguagelinks" ; if ( $thelang == "w" ) $thelang = "en" ; # Fix for international wikis list( $limit, $offset ) = wfCheckLimits(); $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}"; $res = wfQuery( $sql, DB_READ, $fname ); $mll = wfMsg( "missinglanguagelinkstext", $wgLang->getLanguageName($thelang) ); $top = getMaintenancePageBacklink(); $top .= "

$mll


"; $top .= wfShowingResults( $offset, $limit ); $wgOut->addHTML( "

{$top}\n" ); $sl = wfViewPrevNext( $offset, $limit, "REPLACETHIS" ) ; $sl = str_replace ( "REPLACETHIS" , sns().":Maintenance&subfunction=missinglanguagelinks&thelang={$thelang}" , $sl ) ; $wgOut->addHTML( "
{$sl}\n" ); $sk = $wgUser->getSkin(); $s = "

    "; while ( $obj = wfFetchObject( $res ) ) $s .= "
  1. ".$sk->makeKnownLink ( $obj->cur_title )."
    2. \n" ; wfFreeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } ?>