projects.mako.cc - scuttle/blob - 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