* author: Joe Edelman */ class WikiPlugin_IncludePage extends WikiPlugin { function getName() { return _("IncludePage"); } function getDescription() { return _("Include text from another wiki page."); } function getVersion() { return preg_replace("/[Revision: $]/", '', "\$Revision: 1.22 $"); } function getDefaultArguments() { return array( 'page' => false, // the page to include 'rev' => false, // the revision (defaults to most recent) 'quiet' => false, // if set, inclusion appears as normal content 'words' => false, // maximum number of words to include 'lines' => false, // maximum number of lines to include 'section' => false, // include a named section 'sectionhead' => false // when including a named section show the heading ); } function firstNWordsOfContent( $n, $content ) { $wordcount = 0; $new = array( ); foreach ($content as $line) { $words = explode(' ', $line); if ($wordcount + count($words) > $n) { $new[] = implode(' ', array_slice($words, 0, $n - $wordcount)) . "... (first $n words)"; return $new; } else { $wordcount += count($words); $new[] = $line; } } return $new; } function extractSection ($section, $content, $page, $quiet, $sectionhead) { $qsection = preg_replace('/\s+/', '\s+', preg_quote($section, '/')); if (preg_match("/ ^(!{1,})\\s*$qsection" // section header . " \\s*$\\n?" // possible blank lines . " ( (?: ^.*\\n? )*? )" // some lines . " (?= ^\\1 | \\Z)/xm", // sec header (same or higher level) (or EOF) implode("\n", $content), $match)) { // Strip trailing blanks lines and ----

---

s $text = preg_replace("/\\s*^-{4,}\\s*$/m", "", $match[2]); if ($sectionhead) $text = $match[1] . $section ."\n". $text; return explode("\n", $text); } if ($quiet) $mesg = $page ." ". $section; else $mesg = $section; return array(sprintf(_("<%s: no such section>"), $mesg)); } function getWikiPageLinks($argstr, $basepage) { extract($this->getArgs($argstr)); print "PAGE: $page
\n"; if ($page) { // Expand relative page names. $page = new WikiPageName($page, $basepage); } if (!$page or !$page->name) return false; return array($page->name); } function run($dbi, $argstr, $request, $basepage) { extract($this->getArgs($argstr, $request)); if ($page) { // Expand relative page names. $page = new WikiPageName($page, $basepage); $page = $page->name; } if (!$page) { return $this->error(_("no page specified")); } // A page can include itself once (this is needed, e.g., when editing // TextFormattingRules). static $included_pages = array(); if (in_array($page, $included_pages)) { return $this->error(sprintf(_("recursive inclusion of page %s"), $page)); } $p = $dbi->getPage($page); if ($rev) { $r = $p->getRevision($rev); if (!$r) { return $this->error(sprintf(_("%s(%d): no such revision"), $page, $rev)); } } else { $r = $p->getCurrentRevision(); } $c = $r->getContent(); if ($section) $c = $this->extractSection($section, $c, $page, $quiet, $sectionhead); if ($lines) $c = array_slice($c, 0, $lines); if ($words) $c = $this->firstNWordsOfContent($words, $c); array_push($included_pages, $page); include_once('lib/BlockParser.php'); $content = TransformText(implode("\n", $c), $r->get('markup'), $page); array_pop($included_pages); if ($quiet) return $content; return HTML(HTML::p(array('class' => 'transclusion-title'), fmt("Included from %s", WikiLink($page))), HTML::div(array('class' => 'transclusion'), false, $content)); } }; // This is an excerpt from the css file I use: // // .transclusion-title { // font-style: oblique; // font-size: 0.75em; // text-decoration: underline; // text-align: right; // } // // DIV.transclusion { // background: lightgreen; // border: thin; // border-style: solid; // padding-left: 0.8em; // padding-right: 0.8em; // padding-top: 0px; // padding-bottom: 0px; // margin: 0.5ex 0px; // } // KNOWN ISSUES: // - line & word limit doesn't work if the included page itself // includes a plugin // $Log: not supported by cvs2svn $ // Revision 1.21 2003/02/21 04:12:06 dairiki // Minor fixes for new cached markup. // // Revision 1.20 2003/01/18 21:41:02 carstenklapp // Code cleanup: // Reformatting & tabs to spaces; // Added copyleft, getVersion, getDescription, rcs_id. // // For emacs users // Local Variables: // mode: php // tab-width: 8 // c-basic-offset: 4 // c-hanging-comment-ender-p: nil // indent-tabs-mode: nil // End: ?>