X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fpod2html.pl;fp=bin%2Fpod2html.pl;h=0000000000000000000000000000000000000000;hp=935ff11989172f7907c209e84f1fa9128af34b16;hb=931c20661727c674528b956965366657566265ba;hpb=9a74b15fe926c37f00added2d034d34bf6c95d7f diff --git a/bin/pod2html.pl b/bin/pod2html.pl deleted file mode 100755 index 935ff1198..000000000 --- a/bin/pod2html.pl +++ /dev/null @@ -1,114 +0,0 @@ -#!/usr/bin/env perl - -=head1 NAME - -pod2html.pl - -=head1 DESCRIPTION - -Generate HTML from POD documentation - -Search directories /usr/local/share/perl and /usr/local/bin - -Output HTML to /var/www/html/freeside-doc - -=cut - -use strict; -use warnings; -use v5.10; - -use Pod::Simple::Search; -use Pod::Simple::HTML; -use Pod::Simple::HTMLBatch; - -# Disable this to only build docs for Freeside modules -# This will cause links to non-freeside packages to be broken, -# but save 30-60secs during build process -my $include_system_perl_modules = 1; - - -my $html_dir = shift @ARGV - or HELP_MESSAGE('Please specify an OUTPUT_DIRECTORY'); - -HELP_MESSAGE("Directory $html_dir: No write access!") - unless -w $html_dir; - - -my $parser = Pod::Simple::HTMLBatch->new; - -# Uncomment to suppress status output to STDIN -# $parser->verbose(0); - -$parser->search_class('Inline::Pod::Simple::Search'); -$parser->html_render_class('Inline::Pod::Simple::HTML'); - -# Customized HTML output -our $html_before_title = q{ - <% include( '/elements/header.html', 'Developer Documentation' ) %> - <& /elements/menubar.html, - 'Freeside Perl Modules' => $fsurl.'docs/library/FS.html', - 'Complete Index' => $fsurl.'docs/library/index.html', - &> - -