Tagged 0.7.5

[scuttle] / includes / utf8 / docs / makeDocs.pl

diff --git a/includes/utf8/docs/makeDocs.pl b/includes/utf8/docs/makeDocs.pl
new file mode 100755 (executable)
index 0000000..f7c0488
--- /dev/null
+++ b/includes/utf8/docs/makeDocs.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Pod::Xhtml;
+use File::Basename;
+
+my $filename = 'phputf8.pod';
+
+my $basename = basename($filename);
+$basename =~ s/.[a-z]{3}$//;
+
+
+my $POD = Pod::Xhtml->new();
+
+$POD->addHeadText('<meta http-equiv="Content-Type"
+    content="text/html; charset=UTF-8" />');
+$POD->addHeadText('<link rel="stylesheet" media="screen" type="text/css" href="screen.css" />');
+$POD->addHeadText('<link rel="stylesheet" media="print" type="text/css" href="print.css" />');
+$POD->addBodyOpenText('<div id="header">');
+$POD->addBodyOpenText('<h1 class="title">'.$basename.'</h1>');
+$POD->addBodyOpenText('</div>');
+$POD->addBodyOpenText('<div id="nav">');
+$POD->addBodyOpenText('[ <a href="http://phputf8.sourceforge.net/api/">API docs</a> ]');
+$POD->addBodyOpenText('</div>');
+
+$POD->parse_from_file('phputf8.pod');
+