hpr_generator/site-generator

62 lines
938 B
Plaintext
Raw Normal View History

#!/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;
}