setHeaders();
$langlist = array_map( 'trim', file( '/home/wikipedia/common/langlist' ) );
sort( $langlist );
$xLanglist = array_flip( $langlist );
$sites = array( 'wiki', 'wiktionary', 'wikibooks', 'wikiquote' );
$names = array(
'wiki' => 'Wikipedia
w',
'wiktionary' => 'Wiktionary
wikt',
'wikibooks' => 'Wikibooks
b',
'wikiquote' => 'Wikiquote
q'
);
$hosts = array(
'wiki' => 'wikipedia.org',
'wiktionary' => 'wiktionary.org',
'wikibooks' => 'wikibooks.org',
'wikiquote' => 'wikiquote.org'
);
# Tabulate the matrix
$specials = array();
$matrix = array();
foreach( $wgLocalDatabases as $db ) {
# Find suffix
foreach ( $sites as $site ) {
if ( preg_match( "/(.*)$site\$/", $db, $m ) ) {
$lang = $m[1];
if ( empty( $xLanglist[$lang] ) && $site == 'wiki' ) {
$specials[] = $lang;
} else {
$matrix[$site][$lang] = 1;
}
break;
}
}
}
# Construct the HTML
# Header row
$s = "";
foreach ( $names as $name ) {
$s .= "| $name | ";
}
$s .= "
\n";
# Bulk of table
foreach ( $langlist as $lang ) {
$s .= "";
foreach ( $names as $site => $name ) {
$url = "http://$lang." . $hosts[$site] . "/";
if ( empty( $matrix[$site][$lang] ) ) {
# Non-existent wiki
$s .= "| $lang | ";
} else {
# Wiki exists
$s .= "$lang | ";
}
}
$s .= "
\n";
}
$s .= "
\n";
# Specials
$s .= "";
foreach ( $specials as $lang ) {
$s .= "- $lang
\n";
}
$s .= "
";
$wgOut->addHTML( $s );
}
}
SpecialPage::addPage( new SiteMatrixPage );
global $wgMessageCache;
$wgMessageCache->addMessage( "sitematrix", "List of Wikimedia wikis" );
} # End of extension function
?>