From 1e03e58b598ec7b708291909f6f984fd895fc2df Mon Sep 17 00:00:00 2001
From: Brion Vibber <brion@users.mediawiki.org>
Date: Mon, 15 Sep 2003 00:01:11 +0000
Subject: [PATCH] Preliminary export of individual pages/page histories
 packaged in some simple XML: Special:Export. Special:Import should follow...

---
 includes/SpecialExport.php | 115 +++++++++++++++++++++++++++++++++++++
 languages/Language.php     |  10 +++-
 2 files changed, 124 insertions(+), 1 deletion(-)
 create mode 100644 includes/SpecialExport.php

diff --git a/includes/SpecialExport.php b/includes/SpecialExport.php
new file mode 100644
index 0000000000..150ab4fe63
--- /dev/null
+++ b/includes/SpecialExport.php
@@ -0,0 +1,115 @@
+<?
+
+function wfSpecialExport( $page = "" ) {
+	global $wgOut, $wgLang;
+	
+	if( $_REQUEST['action'] == 'submit') {
+		$page = $_REQUEST['pages'];
+		$curonly = isset($_REQUEST['curonly']) ? true : false;
+	} else {
+		$curonly = true;
+	}
+	
+	if( $page != "" ) {
+		header( "Content-type: application/xml; charset=utf-8" );
+		$pages = explode( "\n", $page );
+		$xml = pages2xml( $pages, $curonly );
+		echo $xml;
+		exit(1);
+	}
+	
+	$wgOut->addWikiText( wfMsg( "exporttext" ) );
+	$action = wfLocalUrlE( $wgLang->SpecialPage( "Export" ) );
+	$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 />
+" . wfMsg( "exportcuronly" ) . "</label><br />
+<input type='submit' />
+</form>
+" );
+}
+
+function pages2xml( $pages, $curonly = false ) {
+	global $wgLanguageCode, $wgInputEncoding, $wgLang;
+	$xml = "<mediawiki version=\"0.1\" xml:ns=\"$wgLanguageCode\">\n";
+	foreach( $pages as $page ) {
+		$xml .= page2xml( $page, $curonly );
+	}
+	$xml .= "</mediawiki>\n";
+	if($wgInputEncoding != "utf-8")
+		$xml = $wgLang->iconv( $wgInputEncoding, "utf-8", $xml );
+	return $xml;
+}
+
+function page2xml( $page, $curonly, $full = false ) {
+	global $wgInputCharset, $wgLang;
+	$title = Title::NewFromText( $page );
+	$t = wfStrencode( $title->getDBKey() );
+	$ns = $title->getNamespace();
+	$sql = "SELECT cur_id as id,cur_timestamp as timestamp,cur_user as user,cur_user_text as user_text," .
+		"cur_restrictions as restrictions,cur_comment as comment,cur_text as text FROM cur " .
+		"WHERE cur_namespace=$ns AND cur_title='$t'";
+	$res = wfQuery( $sql );
+	if( $s = wfFetchObject( $res ) ) {
+		$tl = htmlspecialchars( $title->getPrefixedText() );
+		$xml = "  <page>\n";
+		$xml .= "    <title>$tl</title>\n";
+		if( $full ) {
+			$xml .= "    <id>$s->id</id>\n";
+		}
+		if( $s->restrictions ) {
+			$xml .= "    <restrictions>$s->restrictions</restrictions>\n";
+		}
+		if( !$curonly ) {
+			$sql = "SELECT old_id as id,old_timestamp as timestamp, old_user as user, old_user_text as user_text," .
+				"old_comment as comment, old_text as text FROM old " .
+				"WHERE old_namespace=$ns AND old_title='$t' ORDER BY old_timestamp";
+			$res = wfQuery( $sql );
+
+			while( $s = wfFetchObject( $res ) ) {
+				$xml .= revision2xml( $s, $full, false );
+			}
+		}
+		$xml .= revision2xml( $s, $full, true );
+		$xml .= "  </page>\n";
+		return $xml;
+	} else {
+		return "";
+	}
+}
+
+function revision2xml( $s, $full, $cur ) {
+	$ts = wfTimestamp2ISO8601( $s->timestamp );
+	$xml = "    <revision>\n";
+	if($full && !$cur)
+		$xml .= "    <id>$s->id</id>\n";
+	$xml .= "      <timestamp>$ts</timestamp>\n";
+	if($s->user) {
+		$u = "<username>" . htmlspecialchars( $s->user_text ) . "</username>";
+		if($full)
+			$u .= "<id>$s->user</id>";
+	} else {
+		$u = "<ip>" . htmlspecialchars( $s->user_text ) . "</ip>";
+	}
+	$xml .= "      <contributor>$u</contributor>\n";
+	if($s->minor) {
+		$xml .= "      <minor/>\n";
+	}
+	if($s->comment != "") {
+		$c = htmlspecialchars( $s->comment );
+		$xml .= "      <comment>$c</comment>\n";
+	}
+	$t = htmlspecialchars( $s->text );
+	$xml .= "      <text>$t</text>\n";
+	$xml .= "    </revision>\n";
+	return $xml;
+}
+
+function wfTimestamp2ISO8601( $ts ) {
+	#2003-08-05T18:30:02Z
+	return preg_replace( '/^(....)(..)(..)(..)(..)(..)$/', '$1-$2-$3T$4:$5:$6Z', $ts );
+}
+
+?>
diff --git a/languages/Language.php b/languages/Language.php
index 751d462a6d..b4db3d3085 100644
--- a/languages/Language.php
+++ b/languages/Language.php
@@ -323,7 +323,8 @@ this</a> (alternative: like this<a href=\"\" class=\"internal\">?</a>).",
 	"Recentchangeslinked" => "",
 	"Movepage"		=> "",
 	"Booksources"	=> "External book sources",
-"Categories" => "Page categories"
+"Categories" => "Page categories",
+"Export"	=> ""
 );
 
 /* private */ $wgSysopSpecialPagesEn = array(
@@ -1210,6 +1211,13 @@ title. Please merge them manually.",
 "talkpagemoved" => "The corresponding talk page was also moved.",
 "talkpagenotmoved" => "The corresponding talk page was <strong>not</strong> moved.",
 
+"export"		=> "Export pages",
+"exporttext"	=> "You can export the text and editing history of a particular
+page or set of pages wrapped in some XML; this can then be imported into another
+wiki running MediaWiki softwore, transformed, or just kept for your private
+amusement.",
+"exportcuronly"	=> "Include only the current revision, not the full history",
+
 );
 
 #--------------------------------------------------------------------------
-- 
2.20.1