FS/bin/freeside-pod2html

   1 #!/usr/bin/env perl
   2
   3 =head1 NAME
   4
   5 pod2html.pl
   6
   7 =head1 DESCRIPTION
   8
   9 Generate HTML from POD documentation
  10
  11 =head1 SEE ALSO
  12
  13 L<FS::Misc::Pod2Html>
  14
  15 =cut
  16
  17 use strict;
  18 use warnings;
  19 use v5.10;
  20
  21 use FS::Misc::Pod2Html 'fs_pod2html';
  22 use FS::UID qw( checkuid );
  23
  24 die 'Not running uid freeside!'
  25   unless checkuid();
  26
  27 my $html_dir = shift @ARGV
  28   or HELP_MESSAGE('Please specify an OUTPUT_DIRECTORY');
  29
  30 HELP_MESSAGE("Directory $html_dir: No write access!")
  31   unless -w $html_dir;
  32
  33 fs_pod2html( $html_dir );
  34
  35 sub HELP_MESSAGE {
  36   my $error = shift;
  37   print " ERROR: $error \n"
  38     if $error;
  39   print "
  40     Generate HTML from Freeside POD documentation
  41
  42     Usage: pod2html.pl OUTPUT_DIRECTORY
  43
  44   ";
  45   exit;
  46 }
  47