2022-06-28 09:25:36 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
|
2022-07-03 21:14:58 +00:00
|
|
|
site-generator - HPR Site Generator
|
2022-06-28 09:25:36 +00:00
|
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
|
2022-07-29 02:04:15 +00:00
|
|
|
site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>...
|
2022-06-28 09:25:36 +00:00
|
|
|
|
2022-07-03 21:14:58 +00:00
|
|
|
-p, --preview print generated pages to standard out
|
2022-06-28 09:25:36 +00:00
|
|
|
-v, --verbose use verbose mode
|
|
|
|
--help print this help message
|
|
|
|
|
2022-07-02 02:02:25 +00:00
|
|
|
Where I<PAGE> is a file name of a web page
|
2022-07-29 02:04:15 +00:00
|
|
|
or the special I<ALL> (to generate all pages).
|
2022-06-28 09:25:36 +00:00
|
|
|
|
|
|
|
Examples:
|
|
|
|
|
|
|
|
Generate two specific pages:
|
2022-07-02 16:52:50 +00:00
|
|
|
site-generator index about
|
2022-06-28 09:25:36 +00:00
|
|
|
|
|
|
|
Generate the whole site:
|
2022-07-02 16:52:50 +00:00
|
|
|
site-generator ALL
|
2022-06-28 09:25:36 +00:00
|
|
|
|
2022-07-29 02:04:15 +00:00
|
|
|
Generate pages based on the same template:
|
|
|
|
site-generator correspondent=1,3,5..10
|
|
|
|
|
2022-06-28 09:25:36 +00:00
|
|
|
=head1 DESCRIPTION
|
|
|
|
|
2022-07-02 16:52:50 +00:00
|
|
|
This is a site generator for the Hacker Public Radio website based upon the Perl Templates Toolkit.
|
|
|
|
|
|
|
|
=head1 INSTALLATION
|
|
|
|
|
|
|
|
* Create the sqlite3 database from the files in the _sql directory. The default name for the
|
|
|
|
database file is "hpr.db" and should be located in the root of the project directory. The
|
|
|
|
name and location can be set in the site.cfg file.
|
2022-07-03 23:03:14 +00:00
|
|
|
* Two sql helper scripts are available to generate an empty database or a database filled with test data.
|
|
|
|
- For an empty database: `cat Create_Database_Empty.sql | sqlite3 hpr.db`
|
|
|
|
- For a database with test data: `cat Create_Database_Test.sql | sqlite3 hpr.db`
|
2022-07-02 16:52:50 +00:00
|
|
|
* Install the needed Perl modules using preferred method (distribution packages, CPAN, etc.)
|
|
|
|
* GetOpt
|
|
|
|
* Pod::Usage
|
|
|
|
* Config::Std
|
|
|
|
* Template
|
|
|
|
* DBI
|
2022-07-18 22:25:25 +00:00
|
|
|
* Date::Calc
|
2022-06-28 09:25:36 +00:00
|
|
|
|
|
|
|
=head1 AUTHOR
|
|
|
|
|
2022-07-03 21:14:58 +00:00
|
|
|
Roan Horning <roan.horning@no-spam.gmail.com>
|
2022-06-28 09:25:36 +00:00
|
|
|
|
2022-07-14 03:16:44 +00:00
|
|
|
=head1 LICENSE
|
|
|
|
|
|
|
|
site-generator -- a static website generator for HPR
|
|
|
|
Copyright (C) 2022 Roan Horning
|
|
|
|
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU Affero General Public License as published by
|
|
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU Affero General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU Affero General Public License
|
|
|
|
along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
2022-06-28 09:25:36 +00:00
|
|
|
=cut
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
use Getopt::Long qw(:config auto_help);
|
|
|
|
use Pod::Usage;
|
|
|
|
use Config::Std;
|
2022-06-28 14:46:52 +00:00
|
|
|
use Template;
|
2022-07-03 21:14:58 +00:00
|
|
|
use Data::Dumper;
|
2022-06-28 09:25:36 +00:00
|
|
|
|
|
|
|
exit main();
|
|
|
|
|
|
|
|
sub main {
|
|
|
|
|
2022-07-03 21:14:58 +00:00
|
|
|
# Argument parsing
|
|
|
|
my $preview;
|
|
|
|
my $verbose;
|
|
|
|
GetOptions(
|
|
|
|
'preview' => \$preview,
|
|
|
|
'verbose' => \$verbose,
|
|
|
|
) or pod2usage(1);
|
|
|
|
pod2usage(1) unless @ARGV;
|
2022-07-29 01:59:38 +00:00
|
|
|
my (@page_args) = @ARGV;
|
2022-06-28 09:25:36 +00:00
|
|
|
|
2022-07-02 02:02:25 +00:00
|
|
|
# Set flag indicating whether or not to generate all pages.
|
|
|
|
# The flag is set to true if the special argument ALL is
|
|
|
|
# passed into the generator
|
2022-07-29 01:59:38 +00:00
|
|
|
my $ALL = grep { $_ eq 'ALL' } @page_args;
|
2022-07-02 02:02:25 +00:00
|
|
|
|
2022-06-28 09:25:36 +00:00
|
|
|
# Load config file
|
|
|
|
read_config "site.cfg" => my %config;
|
|
|
|
|
2022-06-29 14:42:10 +00:00
|
|
|
my $tt = get_template_html($config{DBI});
|
2022-06-28 09:25:36 +00:00
|
|
|
|
2022-07-02 02:02:25 +00:00
|
|
|
if ($ALL) {
|
2022-07-29 01:59:38 +00:00
|
|
|
@page_args = keys %config;
|
2022-07-02 02:02:25 +00:00
|
|
|
|
|
|
|
# Remove non page sections of the configuration file
|
|
|
|
# from the generated list of pages.
|
2022-07-29 02:04:15 +00:00
|
|
|
@page_args= grep { $_ ne 'DBI' } @page_args;
|
2022-07-29 01:59:38 +00:00
|
|
|
@page_args= grep { $_ ne 'root_template' } @page_args;
|
2022-07-02 02:02:25 +00:00
|
|
|
};
|
2022-07-29 01:59:38 +00:00
|
|
|
foreach my $page_arg (@page_args) {
|
2022-07-29 02:04:15 +00:00
|
|
|
my %parsed_arg = parse_page_arg($page_arg);
|
|
|
|
if (exists($config{$parsed_arg{'page'}})) {
|
|
|
|
my $page_config = $config{$parsed_arg{'page'}};
|
|
|
|
$page_config->{'page'} = $parsed_arg{'page'};
|
2022-07-29 01:59:38 +00:00
|
|
|
|
2022-07-29 02:04:15 +00:00
|
|
|
if ($page_config->{'multipage'} && $page_config->{'multipage'} eq 'true') {
|
|
|
|
if (scalar @{$parsed_arg{'ids'}} == 1) {
|
|
|
|
@{$parsed_arg{'ids'}} = get_ids_from_db($tt, \$page_config);
|
|
|
|
}
|
|
|
|
foreach my $id (@{$parsed_arg{'ids'}}) {
|
2022-07-29 01:59:38 +00:00
|
|
|
$page_config->{'id'} = $id;
|
2022-07-29 02:04:15 +00:00
|
|
|
verbose ($verbose, "Generating page: $page_config->{'page'} with id: $id");
|
|
|
|
generate_page($tt, $config{root_template}{content}, \$page_config, $preview);
|
|
|
|
print "$page_config->{'page'} $page_config->{'id'}\n";
|
2022-07-22 03:58:30 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
2022-07-29 01:59:38 +00:00
|
|
|
verbose ($verbose, "Generating page: $page_config->{'page'}");
|
|
|
|
generate_page($tt, $config{root_template}{content}, \$page_config, $preview);
|
2022-07-22 03:58:30 +00:00
|
|
|
}
|
2022-07-02 02:02:25 +00:00
|
|
|
}
|
|
|
|
else {
|
2022-07-29 02:04:15 +00:00
|
|
|
verbose (1, "\nWarning: Page $parsed_arg{'page'} is not defined in the configuration file.");
|
2022-07-02 02:02:25 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
verbose (1, "\nFinished processing the files.");
|
2022-06-28 09:25:36 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2022-06-29 14:42:10 +00:00
|
|
|
sub get_template_html (\%@) {
|
2022-06-28 14:46:52 +00:00
|
|
|
# For an HTML based Template file, define the
|
|
|
|
# template start and end tags to also function as
|
|
|
|
# HTML comments to make the template file valid HTML.
|
|
|
|
#
|
|
|
|
return Template->new({
|
2022-07-03 21:14:58 +00:00
|
|
|
INCLUDE_PATH => './templates',
|
|
|
|
OUTPUT_PATH => './public_html',
|
|
|
|
EVAL_PERL => 1,
|
|
|
|
START_TAG => '<!--%',
|
|
|
|
END_TAG => '%-->',
|
2022-07-18 01:16:42 +00:00
|
|
|
PRE_CHOMP => 1,
|
|
|
|
POST_CHOMP => 1,
|
2022-07-03 21:14:58 +00:00
|
|
|
CONSTANTS => {
|
|
|
|
driver => $_[0]{driver},
|
|
|
|
user => $_[0]{user},
|
|
|
|
password => $_[0]{password},
|
|
|
|
}
|
|
|
|
}) || die $Template::ERROR, "\n";
|
2022-06-28 14:46:52 +00:00
|
|
|
|
|
|
|
}
|
|
|
|
|
2022-06-29 15:03:32 +00:00
|
|
|
sub generate_page {
|
2022-07-29 01:59:38 +00:00
|
|
|
my ($tt, $root_template, $config, $preview) = @_;
|
2022-07-03 21:14:58 +00:00
|
|
|
my $html;
|
|
|
|
if (!$preview) {
|
2022-07-29 01:59:38 +00:00
|
|
|
$html = get_filename($$config);
|
2022-07-03 21:14:58 +00:00
|
|
|
}
|
2022-07-29 01:59:38 +00:00
|
|
|
$tt->process($root_template, $$config, $html)
|
2022-07-03 21:14:58 +00:00
|
|
|
|| die $tt->error(), "\n";
|
2022-06-28 14:46:52 +00:00
|
|
|
|
|
|
|
}
|
|
|
|
|
2022-07-02 02:02:25 +00:00
|
|
|
sub verbose {
|
|
|
|
my ($verbose, $message) = @_;
|
|
|
|
if ($verbose) {
|
|
|
|
print "$message\n";
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
print ".";
|
|
|
|
};
|
|
|
|
}
|
2022-07-22 03:58:30 +00:00
|
|
|
|
2022-07-29 01:59:38 +00:00
|
|
|
sub parse_page_arg {
|
|
|
|
my ($page_arg) = @_;
|
2022-07-22 03:58:30 +00:00
|
|
|
# Split page name from page ids if available.
|
2022-07-29 01:59:38 +00:00
|
|
|
my ($page, $ids) = split(/=/, $page_arg);
|
2022-07-22 03:58:30 +00:00
|
|
|
my @ids = [];
|
|
|
|
|
|
|
|
if(!$ids) {
|
|
|
|
$ids = "";
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
# Parse the page ids and push them onto @ids array
|
|
|
|
my @ids_by_comma = split(/\,/, $ids);
|
|
|
|
foreach my $id_by_comma (@ids_by_comma) {
|
|
|
|
my @ids_for_range = split(/\.\./, $id_by_comma);
|
|
|
|
if ((scalar @ids_for_range) == 2) {
|
|
|
|
push @ids, $ids_for_range[0]..$ids_for_range[1];
|
|
|
|
}
|
|
|
|
elsif ((scalar @ids_for_range) == 1) {
|
|
|
|
push @ids, $ids_for_range[0];
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
verbose (1, "\nWarning: Page $page id range $id_by_comma could not be parsed.");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2022-07-29 02:04:15 +00:00
|
|
|
return ('page' => $page, 'ids' => [@ids]);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub get_ids_from_db {
|
|
|
|
# Use a template to generate a string of page identifiers.
|
|
|
|
# The template should return the string in the form of
|
|
|
|
# <comma><identifier><comma><identifier>...
|
|
|
|
#
|
|
|
|
my ($tt, $config) = @_;
|
|
|
|
my $selected_ids = "";
|
|
|
|
my $id_template = "ids-$$config->{'page'}.tpl.html";
|
|
|
|
|
|
|
|
$tt->process($id_template, $$config, \$selected_ids)
|
|
|
|
|| die $tt->error(), "\n";
|
|
|
|
|
|
|
|
return split(/,/, substr($selected_ids, 1));
|
2022-07-22 03:58:30 +00:00
|
|
|
}
|
|
|
|
|
2022-07-29 01:59:38 +00:00
|
|
|
sub get_filename {
|
|
|
|
my ($config) = @_;
|
|
|
|
my $filename = "output.html";
|
|
|
|
my $base_path = "";
|
|
|
|
|
|
|
|
if ($$config{'filename'}) {
|
|
|
|
if (substr($$config{'filename'}, -1) eq '/') {
|
|
|
|
$base_path = $$config{'filename'};
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$filename = $$config{'filename'};
|
2022-07-31 19:14:03 +00:00
|
|
|
my $padded_index = "";
|
|
|
|
if ($$config{'id'}) {
|
|
|
|
$padded_index = sprintf("%04d", $$config{'id'});
|
|
|
|
}
|
2022-07-29 01:59:38 +00:00
|
|
|
$filename =~ s/\[id\]/$padded_index/;
|
|
|
|
return $filename;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
# Default naming if full filename configuration is not supplied.
|
|
|
|
if ($$config{'multipage'} && $$config{'multipage'} eq 'true') {
|
|
|
|
my $padded_index = sprintf("%04d", $$config{'id'});
|
|
|
|
$filename = "$base_path$$config{'page'}${padded_index}.html";
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$filename = "$base_path$$config{'page'}.html";
|
|
|
|
}
|
|
|
|
return $filename;
|
|
|
|
}
|