]> projects.mako.cc - scuttle/blob - includes/utf8/docs/makeDocs.pl
Import Delicious private settings
[scuttle] / includes / utf8 / docs / makeDocs.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use Pod::Xhtml;
5 use File::Basename;
6
7 my $filename = 'phputf8.pod';
8
9 my $basename = basename($filename);
10 $basename =~ s/.[a-z]{3}$//;
11
12
13 my $POD = Pod::Xhtml->new();
14
15 $POD->addHeadText('<meta http-equiv="Content-Type"
16     content="text/html; charset=UTF-8" />');
17 $POD->addHeadText('<link rel="stylesheet" media="screen" type="text/css" href="screen.css" />');
18 $POD->addHeadText('<link rel="stylesheet" media="print" type="text/css" href="print.css" />');
19 $POD->addBodyOpenText('<div id="header">');
20 $POD->addBodyOpenText('<h1 class="title">'.$basename.'</h1>');
21 $POD->addBodyOpenText('</div>');
22 $POD->addBodyOpenText('<div id="nav">');
23 $POD->addBodyOpenText('[ <a href="http://phputf8.sourceforge.net/api/">API docs</a> ]');
24 $POD->addBodyOpenText('</div>');
25
26 $POD->parse_from_file('phputf8.pod');
27

Benjamin Mako Hill || Want to submit a patch?