62 lines
938 B
Plaintext
62 lines
938 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
siteGenerator - HPR Site Generator
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
siteGenerator [OPTION]... PAGE...
|
||
|
|
|
||
|
|
-v, --verbose use verbose mode
|
||
|
|
--help print this help message
|
||
|
|
|
||
|
|
Where I<PAGE> is a file name of a web page.
|
||
|
|
|
||
|
|
Examples:
|
||
|
|
|
||
|
|
Generate two specific pages:
|
||
|
|
siteGenerator index about
|
||
|
|
|
||
|
|
Generate the whole site:
|
||
|
|
siteGenerator ALL
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
This is a site generator based upon the Perl Templates Toolkit.
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
Roan Horning <roan.horning@no-spam.gmail.com>
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Getopt::Long qw(:config auto_help);
|
||
|
|
use Pod::Usage;
|
||
|
|
use Config::Std;
|
||
|
|
|
||
|
|
exit main();
|
||
|
|
|
||
|
|
sub main {
|
||
|
|
|
||
|
|
# Argument parsing
|
||
|
|
my $verbose;
|
||
|
|
GetOptions(
|
||
|
|
'verbose' => \$verbose,
|
||
|
|
) or pod2usage(1);
|
||
|
|
pod2usage(1) unless @ARGV;
|
||
|
|
my (@pages) = @ARGV;
|
||
|
|
|
||
|
|
# Load config file
|
||
|
|
read_config "site.cfg" => my %config;
|
||
|
|
|
||
|
|
use Data::Dumper 'Dumper';
|
||
|
|
warn Dumper [ \%config ];
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|