> * * @author: Lea Viljanen */ class WikiPlugin_CreateBib extends WikiPlugin { function getDescription() { return _("Automatically create a Bibtex file from linked pages."); } function getDefaultArguments() { return array('pagename' => '[pagename]', // The page from which the BibTex file is generated ); } // Have to include the $starttag and $endtag to the regexps... function extractBibTeX(&$content, $starttag, $endtag) { $bib = array(); $start = false; $stop = false; for ($i = 0; $i < count($content); $i++) { // $starttag shows when to start if (preg_match('/^@/', $content[$i], $match)) { $start = true; } // $endtag shows when to stop else if (preg_match('/^\}/', $content[$i], $match)) { $stop = true; } if ($start) { $bib[] = $content[$i]; if ($stop) $start = false; } } return $bib; } // Extract article links. Current markup is by * characters... // Assume straight list function extractArticles(&$content) { $articles = array(); for ($i = 0; $i < count($content); $i++) { // Should match "* [WikiPageName] whatever" //if (preg_match('/^\s*\*\s+(\[.+\])/',$content[$i],$match)) if (preg_match('/^\s*\*\s+\[(.+)\]/', $content[$i], $match)) { $articles[] = $match[1]; } } return $articles; } function dumpFile(&$thispage, $filename) { include_once 'lib/loadsave.php'; $mailified = MailifyPage($thispage); $attrib = array('mtime' => $thispage->get('mtime'), 'is_ascii' => 1); $zip = new ZipWriter("Created by PhpWiki " . PHPWIKI_VERSION, $filename); $zip->addRegularFile(FilenameForPage($thispage->getName()), $mailified, $attrib); $zip->finish(); } function run($dbi, $argstr, $request, $basepage) { extract($this->getArgs($argstr, $request)); if ($pagename) { // Expand relative page names. $page = new WikiPageName($pagename, $basepage); $pagename = $page->name; } if (!$pagename) { return $this->error(sprintf(_("A required argument “%s” is missing."), 'pagename')); } // Get the links page contents $page = $dbi->getPage($pagename); $current = $page->getCurrentRevision(); $content = $current->getContent(); // Prepare the button to trigger dumping $dump_url = $request->getURLtoSelf(array("file" => "tube.bib")); global $WikiTheme; $dump_button = $WikiTheme->makeButton("To File", $dump_url, 'foo'); $html = HTML::div(array('class' => 'bib', 'align' => 'left')); $html->pushContent($dump_button, ' '); $list = HTML::pre(array('id' => 'biblist', 'class' => 'bib')); // Let's find the subpages if ($articles = $this->extractArticles($content)) { foreach ($articles as $h) { // Now let's get the bibtex information from that subpage $subpage = $dbi->getPage($h); $subversion = $subpage->getCurrentRevision(); $subcontent = $subversion->getContent(); $bib = $this->extractBibTeX($subcontent, "@", "}"); // ...and finally just push the bibtex data to page $foo = implode("\n", $bib); $bar = $foo . "\n\n"; $list->pushContent(HTML::raw($bar)); } } $html->pushContent($list); if ($request->getArg('file')) { // Yes, we want to dump this somewhere // Get the contents of this page $p = $dbi->getPage($pagename); return $this->dumpFile($p, $request->getArg('file')); } return $html; } } // Local Variables: // mode: php // tab-width: 8 // c-basic-offset: 4 // c-hanging-comment-ender-p: nil // indent-tabs-mode: nil // End: