Difference between revisions of "Oo-regexp-export.php"

From Organic Design wiki
 
({{legacy}})
 
(4 intermediate revisions by the same user not shown)
Line 1: Line 1:
−
<?
+
{{legacy}}
 +
<php><?
 
# Export article to OO format
 
# Export article to OO format
 
# - only does document.php transform and its own wiki markup
 
# - only does document.php transform and its own wiki markup
 +
 +
# Returns an OO-span element from a CSS-style-span
 +
function replace_span($matches) {
 +
$oo = '';
 +
$css = preg_replace("/\\s*([:;])\\s*/m",'$1',$matches[1]);
 +
foreach (explode(';', $css) as $style) {
 +
list($att, $val) = explode(':', $style);
 +
if ($att == 'color') $oo .= " fo:color=\"$val\"";
 +
if ($att == 'font-weight') $oo .= ' fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold"';
 +
if ($att == 'font-style') $oo .= ' fo:font-style="italic" style:font-style-asian="italic" style:font-style-complex="italic"';
 +
}
 +
$oo = "<style:properties $oo/>";
 +
if (isset($GLOBALS['oo-styles'][$oo])) $tN = $GLOBALS['oo-styles'][$oo]; else {
 +
$tN = $GLOBALS['oo-styles'][$oo] = 5+count($GLOBALS['oo-styles']);
 +
$GLOBALS['oo-style-indexes'][$tN] = $oo;
 +
}
 +
return "<text:span text:style-name=\"T$tN\">";
 +
}
 +
 +
function replace_code($matches) {
 +
$text = '';
 +
foreach (preg_split('/<br *\\/>/', $matches[1]) as $line)
 +
$text .= "<text:p text:style-name=\"Code\">$line</text:p>\n";
 +
$text = preg_replace_callback('/<span style="(.*?)">/', 'replace_span', $text);
 +
$text = preg_replace('/<\\/span>/', '</text:span>', $text);
 +
return "</text:p>\n$text\n<text:p text:style-name=\"Text body\">\n";
 +
}
  
 
# Main wiki->oo parser
 
# Main wiki->oo parser
 
function ooParse($text) {
 
function ooParse($text) {
 
$script = $GLOBALS['xwScript'];
 
$script = $GLOBALS['xwScript'];
−
$bToken = ':-:'.'bullet'.':-:';
+
for ($i = 0; $i < 10; $i++) {
−
 
+
$token = "token$i";
−
# Convert problem quotes and dashes
+
$$token = ":-:$token:-:";
−
$text = str_replace('–','-',$text);
+
}
−
$text = preg_replace('/“|�/','"',$text);
+
# ;text (pre)
−
 
+
$text = preg_replace("/\\n;(.+?)\\n/m", "\n\n$token2\\1\n\n", $text);
−
# TODO ; :
 
−
 
 
 
# *text (pre)
 
# *text (pre)
−
$text = preg_replace("/\\n(\\*+) *(.+?)$/m", "$bToken\\1\\2$bToken", $text);
+
$text = preg_replace("/\\n(\\*+) *(.+?)$/m", "$token1\\1\\2$token1", $text);
−
 
+
# <pre> (pre)
 +
$text = preg_replace("/<pre>(.+?)<\\/pre>/es", '"\n\nPR$token3".htmlentities("$1")."\n\n"', $text);
 +
# no-wiki (pre)
 +
$text = preg_replace("/<[n]owiki>(.+?)<\\/nowiki>/s", "\n\nNW$token3$1\n\n", $text);
 +
# xwcode (pre)
 +
$text = preg_replace('/<!-- xwcode-start --><div class="xwcode">(.*?)<.div><!-- xwcode-end -->/s', "\n\nXW$token3$1\n\n", $text);
 
$xml = '';
 
$xml = '';
−
foreach (explode("\n\n", trim(htmlentities($text))) as $text) {
+
foreach (explode("\n\n", trim($text)) as $text) {
−
 
+
if (!ereg($token3, $text)) {
−
# '''text'''
+
$text = htmlentities($text);
−
$text = preg_replace("/'''(.+?)'''/s", "<text:span text:style-name=\"T2\">\\1</text:span>", $text);
+
# '''text'''
−
+
$text = preg_replace("/'''(.+?)'''/s", "<text:span text:style-name=\"T2\">\\1</text:span>", $text);
−
# ''text''
+
# ''text''
−
$text = preg_replace("/''(.+?)''/s", "<text:span text:style-name=\"T1\">\\1</text:span>", $text);
+
$text = preg_replace("/''(.+?)''/s", "<text:span text:style-name=\"T1\">\\1</text:span>", $text);
−
+
# [[Wikipedia:article|anchor]]
−
# [[Wikipedia:article|anchor]]
+
$text = preg_replace("/\\[\\[Wikipedia:([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"http://en.wikipedia.org/wiki/\\1\">\\2</text:a>", $text);
−
$text = preg_replace("/\\[\\[Wikipedia:([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"http://en.wikipedia.org/wiki/\\1\">\\2</text:a>", $text);
+
# [[article|anchor]]
−
+
$text = preg_replace("/\\[\\[([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\2</text:a>", $text);
−
# [[article|anchor]]
+
# [[article]]
−
$text = preg_replace("/\\[\\[([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\2</text:a>", $text);
+
$text = preg_replace("/\\[\\[([^\\]]+)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\1</text:a>", $text);
−
+
# [url anchor]
−
# [[article]]
+
$text = preg_replace("/\\[([^ \\]]+) +([^\\]]*)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\2</text:a>", $text);
−
$text = preg_replace("/\\[\\[([^\\]]+)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\1</text:a>", $text);
+
# [url]
−
+
$text = preg_replace("/\\[([^\\]]+)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\1</text:a>", $text);
−
# [url anchor]
+
# <hr> (pre)
−
$text = preg_replace("/\\[([^ \\]]+) +([^\\]]*)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\2</text:a>", $text);
+
$text = str_replace('&lt;hr&gt;', $token4, $text);
−
+
}
−
# [url]
 
−
$text = preg_replace("/\\[([^\\]]+)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\1</text:a>", $text);
 
−
 
 
$xml .= "<text:p text:style-name=\"Text body\">$text</text:p>\n";
 
$xml .= "<text:p text:style-name=\"Text body\">$text</text:p>\n";
 
}
 
}
−
 
+
# ;text (post)
 +
$xml = preg_replace("/(?<=>)$token2(.+)(?=<)/", "<text:span text:style-name=\"T2\">\\1</text:span>", $xml);
 
# *text (post)
 
# *text (post)
−
$xml= preg_replace("/$bToken\\*+(.*?)$bToken/m", "<text:list-item><text:p text:style-name=\"P12\">\\1</text:p></text:list-item>", $xml);
+
$xml= preg_replace("/$token1\\*+(.*?)$token1/m", "<text:list-item><text:p text:style-name=\"P12\">\\1</text:p></text:list-item>", $xml);
 
$xml= preg_replace("/(?<!<\\/text:list-item>)(<text:list-item>)/", "</text:p>\n<text:unordered-list text:style-name=\"L1\">\\1", $xml);
 
$xml= preg_replace("/(?<!<\\/text:list-item>)(<text:list-item>)/", "</text:p>\n<text:unordered-list text:style-name=\"L1\">\\1", $xml);
 
$xml= preg_replace("/(<\\/text:list-item>)(?!<text:list-item>)/", "\\1</text:unordered-list>\n<text:p text:style-name=\"Text body\">", $xml);
 
$xml= preg_replace("/(<\\/text:list-item>)(?!<text:list-item>)/", "\\1</text:unordered-list>\n<text:p text:style-name=\"Text body\">", $xml);
−
 
+
# no-wiki (post)
−
# <hr>
+
$xml = str_replace("NW$token3",'', $xml);
−
$xml = str_replace('&lt;hr&gt;</text:p>', "</text:p>\n<text:p text:style-name=\"P13\" />\n", $xml);
+
# <hr> (post)
−
$xml = str_replace('&lt;hr&gt;', "</text:p>\n<text:p text:style-name=\"P13\" />\n<text:p text:style-name=\"Text body\">", $xml);
+
$xml = str_replace("$token4</text:p>", "</text:p>\n<text:p text:style-name=\"P13\" />\n", $xml);
−
 
+
$xml = str_replace($token4, "</text:p>\n<text:p text:style-name=\"P13\" />\n<text:p text:style-name=\"Text body\">", $xml);
−
# &nbsp;
+
# spaces
 
$xml = str_replace('&amp;nbsp;', '&nbsp;', $xml);
 
$xml = str_replace('&amp;nbsp;', '&nbsp;', $xml);
−
 
+
$xml = str_replace('&nbsp; ', '&nbsp;&nbsp;', $xml);
 +
$xml = preg_replace("/((&nbsp;)+)/e",'"<text:s text:c=\"".(strlen("$1")/6)."\"/>"',$xml);
 +
# tables (just remove for now)
 +
$xml = preg_replace("/&lt;\\/?(center|table|tr|th|td).*?&gt;/i",'',$xml);
 +
# convert xwcode and syntax colours
 +
$xml = preg_replace_callback("/..$token3(.+?)(?=<\\/text:p>)/s", 'replace_code', $xml);
 
return $xml;
 
return $xml;
 
}
 
}
  
 
$htdocs = $GLOBALS['_SERVER']['DOCUMENT_ROOT'];
 
$htdocs = $GLOBALS['_SERVER']['DOCUMENT_ROOT'];
 +
$GLOBALS['oo-styles'] = array();
 +
$GLOBALS['oo-style-indexes'] = array();
 
$error = false;
 
$error = false;
  
−
# Create a unique working folder and copy OO doc file-template to new file in it
+
# Create a unique working folder to build zip in
 
mkdir($tmp = "$htdocs/wiki/tmp/".uniqid('export'));
 
mkdir($tmp = "$htdocs/wiki/tmp/".uniqid('export'));
−
copy("$htdocs/wiki/xmlwiki/doc-template.sxw", $sxw = "$tmp/sxw");
+
$sxw = "$tmp/sxw";
  
 
# Zip compression library - www.phpconcept.net/pclzip/
 
# Zip compression library - www.phpconcept.net/pclzip/
Line 70: Line 106:
 
require_once("$htdocs/wiki/xmlwiki/lib/pclzip/pclzip.lib.php");
 
require_once("$htdocs/wiki/xmlwiki/lib/pclzip/pclzip.lib.php");
  
−
# Get OO content template article
+
# Get OO content and styles template articles
−
$xml = xwArticleContent('oo-doc-template.xml');
+
$content = xwArticleContent('oo-doc-content.xml');
 +
$styles = xwArticleContent('oo-doc-styles.xml');
 +
$manifest = xwArticleContent('oo-doc-manifest.xml');
  
 
# Insert our document info into existing tokens
 
# Insert our document info into existing tokens
−
$xml = str_replace('Title', str_replace('_',' ',$title), $xml);
+
$content = str_replace('Title', str_replace('_',' ',$title), $content);
−
$xml = str_replace('Version', 'Exported by '.$GLOBALS['xwUserName'].' on '.date('d M Y').' at '.date('H:i:s'), $xml);
+
$content = str_replace('Version', 'Exported by '.$GLOBALS['xwUserName'].' on '.date('d M Y').' at '.date('H:i:s'), $content);
−
#$xml = str_replace('My-Header', "$script/$title", $xml); # this is in styles
+
$styles = str_replace('My-Header', "$script/$title", $styles);
  
−
# Build mian document body
+
# Preserve problem characters so they don't get converted to entities
 +
$cToken = '::--::';
 +
$specialChrs = array('…', '–', '‘', '’', '“', '�');
 +
foreach ($specialChrs as $i => $c) $article = str_replace($c, "$i$cToken", $article);
 +
 
 +
# Build main document body
 
# - the match splits the article into sections at headings, extracting heading, level & text
 
# - the match splits the article into sections at headings, extracting heading, level & text
−
$body = ''; $last = 0;
+
$body = ''; $last = 0; $toclist = array();
 
if (preg_match_all('/<h1><tmp num="(#*)" title="(.*?)" anchor="(.*?)".><.h1>/s', $article, $sections, PREG_SET_ORDER | PREG_OFFSET_CAPTURE)) {
 
if (preg_match_all('/<h1><tmp num="(#*)" title="(.*?)" anchor="(.*?)".><.h1>/s', $article, $sections, PREG_SET_ORDER | PREG_OFFSET_CAPTURE)) {
 
foreach ($sections as $m) {
 
foreach ($sections as $m) {
Line 87: Line 130:
 
if ($i = $m[0][1] - $last) $body .= ooParse(substr($article, $last, $i));
 
if ($i = $m[0][1] - $last) $body .= ooParse(substr($article, $last, $i));
 
$style = $level > 1 ? "Heading $level" : 'P11';
 
$style = $level > 1 ? "Heading $level" : 'P11';
 +
if ($level && $level < 3) $toclist[] = array('P'.($level+7), $anchor);
 
if ($anchor) $body .= "<text:h text:style-name=\"$style\" text:level=\"$level\">$anchor</text:h>\n";
 
if ($anchor) $body .= "<text:h text:style-name=\"$style\" text:level=\"$level\">$anchor</text:h>\n";
 
$last = $m[0][1] + strlen($m[0][0]);
 
$last = $m[0][1] + strlen($m[0][0]);
Line 95: Line 139:
  
 
# Insert the constructed body into the xml template
 
# Insert the constructed body into the xml template
−
$xml = str_replace('</office:body>', "\n$body\n</office:body>", $xml);
+
$content = str_replace('</office:body>', "\n$body\n</office:body>", $content);
  
−
# Dump the template to content.xml file in the working folder
+
# Recover the special characters
−
$fh = fopen($file = "$tmp/content.xml",'w+');
+
foreach ($specialChrs as $i => $c) $content = str_replace("$i$cToken", $c, $content);
−
fwrite($fh, $xml);
+
 
 +
# Insert OO'd CSS styles
 +
$ooStyles = '';
 +
foreach ($GLOBALS['oo-styles'] as $style => $i) $ooStyles .= "<style:style style:name=\"T$i\" style:family=\"text\">\n$style\n</style:style>\n";
 +
$content = str_replace('</office:automatic-styles>', "$ooStyles\n</office:automatic-styles>", $content);
 +
 
 +
# Insert TOC msg into template
 +
$toc = "<text:p text:style-name=\"P8\">Contents is out of date, please update fields from tools menu\n<text:tab-stop/>???</text:p>\n";
 +
$content = str_replace('</text:index-body>', "$toc\n</text:index-body>", $content);
 +
 
 +
# Dump the content & styles templates to files in the working folder
 +
$fh = fopen($file1 = "$tmp/content.xml",'w+');
 +
fwrite($fh, $content);
 +
fclose($fh);
 +
$fh = fopen($file2 = "$tmp/styles.xml",'w+');
 +
fwrite($fh, $styles);
 +
fclose($fh);
 +
$fh = fopen($file3 = "$tmp/manifest.xml",'w+');
 +
fwrite($fh, $manifest);
 
fclose($fh);
 
fclose($fh);
  
−
# Add content.xml to the sxw archive...
+
# Add the files to the sxw archive...
 
$zip = new PclZip($sxw);
 
$zip = new PclZip($sxw);
−
if ($zip->add($file, PCLZIP_OPT_REMOVE_ALL_PATH)) {
+
if ($zip->create(array($file1, $file2),PCLZIP_OPT_REMOVE_ALL_PATH)) {
 +
$zip->add($file3,PCLZIP_OPT_REMOVE_ALL_PATH,PCLZIP_OPT_ADD_PATH,'META-INF');
 
# ...and send as raw data back to browser as title.sxw
 
# ...and send as raw data back to browser as title.sxw
 
ob_end_clean();
 
ob_end_clean();
Line 111: Line 174:
 
@readfile($sxw);
 
@readfile($sxw);
 
# Clean up and die
 
# Clean up and die
−
@unlink("$tmp/content.xml");
+
@unlink($file1);
−
@unlink("$tmp/sxw");
+
@unlink($file2);
 +
@unlink($file3);
 +
@unlink($sxw);
 
@rmdir($tmp);
 
@rmdir($tmp);
 
die;
 
die;
Line 119: Line 184:
  
 
# Error, clean up files
 
# Error, clean up files
−
if ($error) xwMessage($error,'red');
+
xwMessage($error,'red');
−
if (!@unlink("$tmp/content.xml")) xwMessage("Couldn't remove $tmp/content.xml!",'red');
+
@unlink($file1);
−
if (!@unlink("$tmp/sxw")) xwMessage("Couldn't remove $tmp/sxw!",'red');
+
@unlink($file2);
−
if (!@rmdir($tmp)) xwMessage("Couldn't remove $tmp",'red');
+
@unlink($sxw);
−
?>
+
@rmdir($tmp);
 +
?></php>

Latest revision as of 10:00, 22 September 2007

Legacy.svg Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, this is only useful for a historic record of work done. You may find a link to the currently used concept or function in this article, if not you can contact the author to find out what has taken the place of this legacy item.

<php><?

  1. Export article to OO format
  2. - only does document.php transform and its own wiki markup

# Returns an OO-span element from a CSS-style-span function replace_span($matches) { $oo = ; $css = preg_replace("/\\s*([:;])\\s*/m",'$1',$matches[1]); foreach (explode(';', $css) as $style) { list($att, $val) = explode(':', $style); if ($att == 'color') $oo .= " fo:color=\"$val\""; if ($att == 'font-weight') $oo .= ' fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold"'; if ($att == 'font-style') $oo .= ' fo:font-style="italic" style:font-style-asian="italic" style:font-style-complex="italic"'; } $oo = "<style:properties $oo/>"; if (isset($GLOBALS['oo-styles'][$oo])) $tN = $GLOBALS['oo-styles'][$oo]; else { $tN = $GLOBALS['oo-styles'][$oo] = 5+count($GLOBALS['oo-styles']); $GLOBALS['oo-style-indexes'][$tN] = $oo; } return "<text:span text:style-name=\"T$tN\">"; }

function replace_code($matches) { $text = ; foreach (preg_split('/
/', $matches[1]) as $line) $text .= "<text:p text:style-name=\"Code\">$line</text:p>\n"; $text = preg_replace_callback('//', 'replace_span', $text); $text = preg_replace('/<\\/span>/', '</text:span>', $text); return "</text:p>\n$text\n<text:p text:style-name=\"Text body\">\n"; }

# Main wiki->oo parser function ooParse($text) { $script = $GLOBALS['xwScript']; for ($i = 0; $i < 10; $i++) { $token = "token$i"; $$token = ":-:$token:-:"; } # ;text (pre) $text = preg_replace("/\\n;(.+?)\\n/m", "\n\n$token2\\1\n\n", $text); # *text (pre) $text = preg_replace("/\\n(\\*+) *(.+?)$/m", "$token1\\1\\2$token1", $text);

# 

 (pre)
		$text = preg_replace("/
(.+?)<\\/pre>/es", '"\n\nPR$token3".htmlentities("$1")."\n\n"', $text);
		# no-wiki (pre)
		$text = preg_replace("/<[n]owiki>(.+?)<\\/nowiki>/s", "\n\nNW$token3$1\n\n", $text);
		# xwcode (pre)
		$text = preg_replace('/
(.*?)<.div>/s', "\n\nXW$token3$1\n\n", $text);
		$xml = ;
		foreach (explode("\n\n", trim($text)) as $text) {
			if (!ereg($token3, $text)) {
				$text = htmlentities($text);
				# text
				$text = preg_replace("/(.+?)/s", "<text:span text:style-name=\"T2\">\\1</text:span>", $text);
				# text
				$text = preg_replace("/(.+?)/s", "<text:span text:style-name=\"T1\">\\1</text:span>", $text);
				# anchor
				$text = preg_replace("/\\[\\[Wikipedia:([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"http://en.wikipedia.org/wiki/\\1\">\\2</text:a>", $text);
				# anchor
				$text = preg_replace("/\\[\\[([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\2</text:a>", $text);
				# article
				$text = preg_replace("/\\[\\[([^\\]]+)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\1</text:a>", $text);
				# [url anchor]
				$text = preg_replace("/\\[([^ \\]]+) +([^\\]]*)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\2</text:a>", $text);
				# [url]
				$text = preg_replace("/\\[([^\\]]+)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\1</text:a>", $text);
				# 
 (pre)
				$text = str_replace('<hr>', $token4, $text);
				}
			$xml .= "<text:p text:style-name=\"Text body\">$text</text:p>\n";
			}
		# ;text (post)
		$xml = preg_replace("/(?<=>)$token2(.+)(?=<)/", "<text:span text:style-name=\"T2\">\\1</text:span>", $xml);
		# *text (post)
		$xml= preg_replace("/$token1\\*+(.*?)$token1/m", "<text:list-item><text:p text:style-name=\"P12\">\\1</text:p></text:list-item>", $xml);
		$xml= preg_replace("/(?<!<\\/text:list-item>)(<text:list-item>)/", "</text:p>\n<text:unordered-list text:style-name=\"L1\">\\1", $xml);
		$xml= preg_replace("/(<\\/text:list-item>)(?!<text:list-item>)/", "\\1</text:unordered-list>\n<text:p text:style-name=\"Text body\">", $xml);
		# no-wiki (post)
		$xml = str_replace("NW$token3",, $xml);
		# 
 (post)
		$xml = str_replace("$token4</text:p>", "</text:p>\n<text:p text:style-name=\"P13\" />\n", $xml);
		$xml = str_replace($token4, "</text:p>\n<text:p text:style-name=\"P13\" />\n<text:p text:style-name=\"Text body\">", $xml);
		# spaces
		$xml = str_replace('&nbsp;', ' ', $xml);
		$xml = str_replace('  ', '  ', $xml);
		$xml = preg_replace("/(( )+)/e",'"<text:s text:c=\"".(strlen("$1")/6)."\"/>"',$xml);
		# tables (just remove for now)
		$xml = preg_replace("/<\\/?(center|table|tr|th|td).*?>/i",,$xml);
		# convert xwcode and syntax colours
		$xml = preg_replace_callback("/..$token3(.+?)(?=<\\/text:p>)/s", 'replace_code', $xml);
		return $xml;
		}

$htdocs = $GLOBALS['_SERVER']['DOCUMENT_ROOT'];
$GLOBALS['oo-styles'] = array();
$GLOBALS['oo-style-indexes'] = array();
$error = false;

# Create a unique working folder to build zip in
mkdir($tmp = "$htdocs/wiki/tmp/".uniqid('export'));
$sxw = "$tmp/sxw";

# Zip compression library - www.phpconcept.net/pclzip/
define('PCLZIP_TEMPORARY_DIR', "$tmp/");
require_once("$htdocs/wiki/xmlwiki/lib/pclzip/pclzip.lib.php");

# Get OO content and styles template articles
$content = xwArticleContent('oo-doc-content.xml');
$styles = xwArticleContent('oo-doc-styles.xml');
$manifest = xwArticleContent('oo-doc-manifest.xml');

# Insert our document info into existing tokens
$content = str_replace('Title', str_replace('_',' ',$title), $content);
$content = str_replace('Version', 'Exported by '.$GLOBALS['xwUserName'].' on '.date('d M Y').' at '.date('H:i:s'), $content);
$styles = str_replace('My-Header', "$script/$title", $styles);

# Preserve problem characters so they don't get converted to entities
$cToken = '::--::';
$specialChrs = array('…', '–', '‘', '’', '“', '�');
foreach ($specialChrs as $i => $c) $article = str_replace($c, "$i$cToken", $article);

# Build main document body
# - the match splits the article into sections at headings, extracting heading, level & text
$body = ; $last = 0; $toclist = array();
if (preg_match_all('/
<tmp num="(#*)" title="(.*?)" anchor="(.*?)".><.h1>/s', $article, $sections, PREG_SET_ORDER | PREG_OFFSET_CAPTURE)) {
	foreach ($sections as $m) {
		$level = strlen($m[1][0]);
		$anchor = htmlentities($m[3][0]);
		if ($i = $m[0][1] - $last) $body .= ooParse(substr($article, $last, $i));
		$style = $level > 1 ? "Heading $level" : 'P11';
		if ($level && $level < 3) $toclist[] = array('P'.($level+7), $anchor);
		if ($anchor) $body .= "<text:h text:style-name=\"$style\" text:level=\"$level\">$anchor</text:h>\n";
		$last = $m[0][1] + strlen($m[0][0]);
		}
	}
# Handle last section (or all if there were no headings
if ($i = strlen($article) - $last) $body .= ooParse(substr($article, $last, $i));

# Insert the constructed body into the xml template
$content = str_replace('</office:body>', "\n$body\n</office:body>", $content);

# Recover the special characters
foreach ($specialChrs as $i => $c) $content = str_replace("$i$cToken", $c, $content);

# Insert OO'd CSS styles
$ooStyles = ;
foreach ($GLOBALS['oo-styles'] as $style => $i) $ooStyles .= "<style:style style:name=\"T$i\" style:family=\"text\">\n$style\n</style:style>\n";
$content = str_replace('</office:automatic-styles>', "$ooStyles\n</office:automatic-styles>", $content);

# Insert TOC msg into template
$toc = "<text:p text:style-name=\"P8\">Contents is out of date, please update fields from tools menu\n<text:tab-stop/>???</text:p>\n";
$content = str_replace('</text:index-body>', "$toc\n</text:index-body>", $content);

# Dump the content & styles templates to files in the working folder
$fh = fopen($file1 = "$tmp/content.xml",'w+');
fwrite($fh, $content);
fclose($fh);
$fh = fopen($file2 = "$tmp/styles.xml",'w+');
fwrite($fh, $styles);
fclose($fh);
$fh = fopen($file3 = "$tmp/manifest.xml",'w+');
fwrite($fh, $manifest);
fclose($fh);

# Add the files to the sxw archive...
$zip = new PclZip($sxw);
if ($zip->create(array($file1, $file2),PCLZIP_OPT_REMOVE_ALL_PATH)) {
	$zip->add($file3,PCLZIP_OPT_REMOVE_ALL_PATH,PCLZIP_OPT_ADD_PATH,'META-INF');
	# ...and send as raw data back to browser as title.sxw
	ob_end_clean();
	header('Content-type: application/zip');
	header("Content-Disposition: attachment; filename=\"$title.sxw\"");
	@readfile($sxw);
	# Clean up and die
	@unlink($file1);
	@unlink($file2);
	@unlink($file3);
	@unlink($sxw);
	@rmdir($tmp);
	die;
	}
else $error = $zip->errorInfo(true);

# Error, clean up files
xwMessage($error,'red');
@unlink($file1);
@unlink($file2);
@unlink($sxw);
@rmdir($tmp);
?></php>
Retrieved from "https://organicdesign.nz/wiki/index.php?title=Oo-regexp-export.php&oldid=77017"