<?php
# Copyright (C) 2003 Brion Vibber <brion@pobox.com>
# http://www.mediawiki.org/
-#
+#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
+# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
-#
+#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
-#
+#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
-# 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# http://www.gnu.org/copyleft/gpl.html
/**
*
*/
/** */
-require_once( 'Revision.php' );
+require_once( 'Export.php' );
/**
*
*/
function wfSpecialExport( $page = '' ) {
- global $wgOut, $wgLang, $wgRequest;
-
+ global $wgOut, $wgRequest, $wgExportAllowListContributors;
+ global $wgExportAllowHistory;
+
if( $wgRequest->getVal( 'action' ) == 'submit') {
$page = $wgRequest->getText( 'pages' );
- $curonly = $wgRequest->getCheck( 'curonly' );
+ if( $wgExportAllowHistory ) {
+ $curonly = $wgRequest->getCheck( 'curonly' );
+ } else {
+ $curonly = true;
+ }
} else {
# Pre-check the 'current version only' box in the UI
$curonly = true;
}
+ $list_authors = $wgRequest->getCheck( 'listauthors' );
+ if ( !$curonly || !$wgExportAllowListContributors ) $list_authors = false ;
+
if( $page != '' ) {
$wgOut->disable();
header( "Content-type: application/xml; charset=utf-8" );
$pages = explode( "\n", $page );
- $xml = pages2xml( $pages, $curonly );
- echo $xml;
+
+ $db =& wfGetDB( DB_SLAVE );
+ $history = $curonly ? MW_EXPORT_CURRENT : MW_EXPORT_FULL;
+ $exporter = new WikiExporter( $db, $history );
+ $exporter->list_authors = $list_authors ;
+ $exporter->openStream();
+ $exporter->pagesByName( $pages );
+ $exporter->closeStream();
return;
}
-
+
$wgOut->addWikiText( wfMsg( "exporttext" ) );
$titleObj = Title::makeTitle( NS_SPECIAL, "Export" );
$action = $titleObj->escapeLocalURL( 'action=submit' );
+ if( $wgExportAllowHistory ) {
+ $checkbox = "<label><input type='checkbox' name='curonly' value='true' checked='checked' />
+" . wfMsgHtml( 'exportcuronly' ) . "</label><br />";
+ } else {
+ $checkbox = "";
+ $wgOut->addWikiText( wfMsg( "exportnohistory" ) );
+ }
$wgOut->addHTML( "
<form method='post' action=\"$action\">
<input type='hidden' name='action' value='submit' />
<textarea name='pages' cols='40' rows='10'></textarea><br />
-<label><input type='checkbox' name='curonly' value='true' checked='checked' />
-" . wfMsg( "exportcuronly" ) . "</label><br />
+$checkbox
<input type='submit' />
</form>
" );
}
-function pages2xml( $pages, $curonly = false ) {
- $fname = 'pages2xml';
- wfProfileIn( $fname );
-
- global $wgContLanguageCode, $wgInputEncoding, $wgContLang;
- $xml = "<" . "?xml version=\"1.0\" encoding=\"UTF-8\" ?" . ">\n" .
- "<mediawiki version=\"0.1\" xml:lang=\"$wgContLanguageCode\">\n";
- foreach( $pages as $page ) {
- $xml .= page2xml( $page, $curonly );
- }
- $xml .= "</mediawiki>\n";
- if($wgInputEncoding != "utf-8")
- $xml = $wgContLang->iconv( $wgInputEncoding, "utf-8", $xml );
-
- wfProfileOut( $fname );
- return $xml;
-}
-
-function page2xml( $page, $curonly, $full = false ) {
- global $wgLang;
- $fname = 'page2xml';
- wfProfileIn( $fname );
-
- $title = Title::NewFromText( $page );
- if( !$title ) {
- wfProfileOut( $fname );
- return "";
- }
-
- $dbr =& wfGetDB( DB_SLAVE );
- $s = $dbr->selectRow( 'page',
- array( 'page_id', 'page_restrictions' ),
- array( 'page_namespace' => $title->getNamespace(),
- 'page_title' => $title->getDbkey() ) );
- if( $s ) {
- $tl = xmlsafe( $title->getPrefixedText() );
- $xml = " <page>\n";
- $xml .= " <title>$tl</title>\n";
-
- if( $full ) {
- $xml .= " <id>$s->page_id</id>\n";
- }
- if( $s->page_restrictions ) {
- $xml .= " <restrictions>" . xmlsafe( $s->page_restrictions ) . "</restrictions>\n";
- }
-
- if( $curonly ) {
- $res = Revision::fetchRevision( $title );
- } else {
- $res = Revision::fetchAllRevisions( $title );
- }
- if( $res ) {
- while( $s = $res->fetchObject() ) {
- $rev = new Revision( $s );
- $xml .= revision2xml( $rev, $full, false );
- }
- $res->free();
- }
-
- $xml .= " </page>\n";
- wfProfileOut( $fname );
- return $xml;
- } else {
- wfProfileOut( $fname );
- return "";
- }
-}
-
-/**
- * @return string
- * @param Revision $rev
- * @param bool $full
- * @access private
- */
-function revision2xml( $rev, $full ) {
- $fname = 'revision2xml';
- wfProfileIn( $fname );
-
- $xml = " <revision>\n";
- if( $full )
- $xml .= " <id>" . $rev->getId() . "</id>\n";
-
- $ts = wfTimestamp2ISO8601( $rev->getTimestamp() );
- $xml .= " <timestamp>$ts</timestamp>\n";
-
- if( $rev->getUser() ) {
- $u = "<username>" . xmlsafe( $rev->getUserText() ) . "</username>";
- if( $full )
- $u .= "<id>" . $rev->getUser() . "</id>";
- } else {
- $u = "<ip>" . xmlsafe( $rev->getUserText() ) . "</ip>";
- }
- $xml .= " <contributor>$u</contributor>\n";
-
- if( $rev->isMinor() ) {
- $xml .= " <minor/>\n";
- }
- if($rev->getComment() != "") {
- $c = xmlsafe( $rev->getComment() );
- $xml .= " <comment>$c</comment>\n";
- }
-
- $t = xmlsafe( $rev->getText() );
-
- $xml .= " <text>$t</text>\n";
- $xml .= " </revision>\n";
- wfProfileOut( $fname );
- return $xml;
-}
-
-function wfTimestamp2ISO8601( $ts ) {
- #2003-08-05T18:30:02Z
- return preg_replace( '/^(....)(..)(..)(..)(..)(..)$/', '$1-$2-$3T$4:$5:$6Z', $ts );
-}
-
-function xmlsafe( $string ) {
- $fname = 'xmlsafe';
- wfProfileIn( $fname );
-
- /**
- * The page may contain old data which has not been properly normalized.
- * Invalid UTF-8 sequences or forbidden control characters will make our
- * XML output invalid, so be sure to strip them out.
- */
- $string = UtfNormal::cleanUp( $string );
-
- $string = htmlspecialchars( $string );
- wfProfileOut( $fname );
- return $string;
-}
-?>
\ No newline at end of file
+?>
dépôts / lhc / web / wiklou.git / blobdiff