+++ /dev/null
-#!/usr/bin/php
-<?php
-ini_set("include_path", "/etc/diogenes:/usr/share/diogenes/include:/usr/share/php");
-require_once("diogenes.common.inc.php");
-require_once("diogenes.script.inc.php");
-require_once("System.php");
-require_once("Barrel.php");
-
-/** Import a single Perl POD file.
- *
- * @param $caller
- * @param $pod
- * @param $docdir
- * @param $docbase
- * @param $template
- */
-function importPod(&$caller, $pod, $docdir, $docbase, $template = '')
-{
- global $globals;
- $barrel =& $caller->barrel;
-
- $pid = $barrel->makePath($docdir, $caller);
- $page = Diogenes_Barrel_Page::fromDb($barrel, $pid);
- if (!$page->props['PID']) {
- echo "failed to get Page $pid\n";
- exit(1);
- }
-
- # produce HTML from POD
- $pod = realpath($pod);
- if (($tmpdir = System::mktemp('-d')) == false) {
- $this->kill("Error : could not create temporary directory!");
- }
- $content = shell_exec("cd $tmpdir && pod2html --htmlroot=FOODOCBASE --infile=".escapeshellarg($pod));
- $content = str_replace('<hr />', '', $content);
- $content = preg_replace('/FOODOCBASE(.*).html/', "/$docbase$1/", $content);
-
- # extract title
- if (preg_match("/<title>(.*)<\/title>/si", $content, $matches))
- {
- $page->props['title'] = addslashes($matches[1]);
- if ($template)
- $page->props['template'] = $template;
- $page->toDb(0, $caller);
- }
-
- # strip un-needed info
- $rcs = $caller->getRcs();
- $content = $rcs->importHtmlString($content);
- if (preg_match("/<h1><a name=\"synopsis\">.*/si", $content, $matches))
- $content = $matches[0];
-
- $content = str_replace("h1>", "h2>", $content);
- $rcs->commit($pid,$globals->htmlfile,$content,"automatic import");
-}
-
-
-/** Import a set of Perl POD files.
- *
- * @param $caller
- * @param $docarray
- * @param $docbase
- * @param $template
- */
-function importPods(&$caller, $docarray, $docbase, $template = '')
-{
- foreach ($docarray as $pod => $docdir)
- {
- importPod($caller, $pod, $docdir, $docbase, $template);
- }
-}
-
-
-/** Print program usage and exit.
- */
-function usage()
-{
- echo "Usage : pod2diogenes.php
- exit(1);
-}
-
-
-function main()
-{
- $alias = "umts_tools";
- $script = new Diogenes_Script($alias, "sharky");
- $podmap = array();
- importPods($script, $docs, "docs", "barrel:pod.tpl");
-}
-
-main();
-?>