getNamespaces() ; return $ns[-1] ; } function wfSpecialMaintenance( $par=NULL ) { global $wgUser, $wgOut, $wgLang, $wgTitle, $wgRequest, $wgLanguageCode; global $wgMiserMode; if ( $wgMiserMode ) { $wgOut->addWikiText( wfMsg( "perfdisabled" ) ); return; } $submitmll = $wgRequest->getVal( 'submitmll' ); if( $par ) $subfunction = $par; else $subfunction = $wgRequest->getText( '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 ( !is_null( $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( $subfunction ) { global $wgUser , $wgLang; $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 ; } # Broken function # Suggest deprecating this in favour of a Special:Whatlinkshere with prev/next links [TS] function wfSpecialDisambiguations() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialDisambiguations"; list( $limit, $offset ) = wfCheckLimits(); $dbr =& wfGetDB( DB_SLAVE ); extract( $dbr->tableNames( 'links', 'cur' ) ); $dp = $dbr->strencode( wfMsg("disambiguationspage") ); die( "wfSpecialDisambiguation is broken. Link tables have changed...\n" ); $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 = $dbr->query( $sql, $fname ); $sk = $wgUser->getSkin(); $top = "

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


\n"; $top = getMaintenancePageBacklink( "disambiguations" ) . $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 = $dbr->fetchObject( $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" ; } $dbr->freeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialDoubleRedirects() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialDoubleRedirects"; list( $limit, $offset ) = wfCheckLimits(); $dbr =& wfGetDB( DB_SLAVE ); extract( $dbr->tableNames( 'cur', 'links' ) ); $sql = "SELECT ca.cur_namespace as ns_a, ca.cur_title as title_a," . " cb.cur_namespace as ns_b, cb.cur_title as title_b," . " cb.cur_text AS rt " . "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_id LIMIT {$offset}, {$limit}" ; $res = $dbr->query( $sql, $fname ); $top = getMaintenancePageBacklink( "doubleredirects" ); $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 = $dbr->fetchObject( $res ) ) { $n = explode ( "\n" , $obj->rt ) ; $n = $n[0] ; $sourceTitle = Title::makeTitle( $obj->ns_a, $obj->title_a ); $destTitle = Title::makeTitle( $obj->ns_b, $obj->title_b ); $l1 = $sk->makeKnownLinkObj( $sourceTitle , "" , "redirect=no" ) ; $l2 = $sk->makeKnownLinkObj( $destTitle , "" , "redirect=no" ) ; $l3 = $sk->makeBrokenLinkObj( $sourceTitle , "(".wfMsg("qbedit").")" , "redirect=no" ) ; $s .= "
  1. {$l1} {$l3} => {$l2} (\"{$n}\")
    2. \n" ; } $dbr->freeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } function wfSpecialBrokenRedirects() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialBrokenRedirects"; list( $limit, $offset ) = wfCheckLimits(); $dbr =& wfGetDB( DB_SLAVE ); extract( $dbr->tableNames( 'cur', 'brokenlinks' ) ); $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 = $dbr->query( $sql, $fname ); $top = getMaintenancePageBacklink( "brokenredirects" ); $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 = $dbr->fetchObject( $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" ; } $dbr->freeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

{$sl}\n" ); } # This doesn't really work anymore, because self-links are now displayed as # unlinked bold text, and are not entered into the link table. function wfSpecialSelfLinks() { global $wgUser, $wgOut, $wgLang, $wgTitle; $fname = "wfSpecialSelfLinks"; list( $limit, $offset ) = wfCheckLimits(); $sql = "SELECT cur_namespace,cur_title FROM cur,links " . "WHERE l_from=l_to AND l_to=cur_id " . "LIMIT {$offset}, {$limit}"; $res = wfQuery( $sql, DB_SLAVE, $fname ); $top = getMaintenancePageBacklink( "selflinks" ); $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 ) ) { $title = Title::makeTitle( $obj->cur_namespace, $obj->cur_title ); $s .= "
  1. ".$sk->makeKnownLinkObj( $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(); $dbr =& wfGetDB( DB_SLAVE ); extract( $dbr->tableNames( 'cur', 'searchindex' ) ); # Determine page name $ms = wfMsg ( "mispeelingspage" ) ; $mss = str_replace ( " " , "_" , $ms ); $msp = $wgLang->getNsText(4).":".$ms ; $msl = $sk->makeKnownLink ( $msp ) ; # Load list from database $l = $dbr->selectField( 'cur', 'cur_text', array( 'cur_title' => $mss, 'cur_namespace' => 4 ), $fname ); $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,$searchindex WHERE cur_id=si_page AND ". "cur_namespace=0 AND cur_is_redirect=0 AND " . "(MATCH(si_text) AGAINST ('" . $dbr->strencode( $wgLang->stripForSearch( $x ) ) . "'))" ; $res = $dbr->query( $sql, $fname ); while ( $obj = $dbr->fetchObject ( $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( "mispeelings" ); $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, $wgRequest; $fname = "wfSpecialMissingLanguageLinks"; $thelang = $wgRequest->getText( 'thelang' ); if ( $thelang == "w" ) $thelang = "en" ; # Fix for international wikis list( $limit, $offset ) = wfCheckLimits(); $dbr =& wfGetDB( DB_SLAVE ); $cur = $dbr->tableName( 'cur' ); $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 = $dbr->query( $sql, $fname ); $mll = wfMsg( "missinglanguagelinkstext", $wgLang->getLanguageName($thelang) ); $top = getMaintenancePageBacklink( "missinglanguagelinks" ); $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 = $dbr->fetchObject( $res ) ) $s .= "
  1. ".$sk->makeKnownLink ( $obj->cur_title )."
    2. \n" ; $dbr->freeResult( $res ); $s .= "
"; $wgOut->addHTML( $s ); $wgOut->addHTML( "

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