Allow multiple pages to be generated from one template

Feature to allow generation of host and episode pages.

site-generator

@@ -6,14 +6,14 @@
 
 =head1 SYNOPSIS
 
-	site-generator [OPTION]... PAGE...
+	site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>...
 
 	-p, --preview  print generated pages to standard out
 	-v, --verbose  use verbose mode
 	--help         print this help message
 
 	Where I<PAGE> is a file name of a web page 
-	or the special ALL (to generate all pages).
+	or the special I<ALL> (to generate all pages).
 
 	Examples:
 
@@ -23,6 +23,9 @@
 		Generate the whole site:
 		site-generator ALL
 
+		Generate pages based on the same template:
+		site-generator correspondent=1,3,5..10
+
 =head1 DESCRIPTION
 
 This is a site generator for the Hacker Public Radio website based upon the Perl Templates Toolkit.
@@ -105,20 +108,24 @@ sub main {
 
 		# Remove non page sections of the configuration file
 		# from the generated list of pages.
-		@page_args= grep { $_ ne 'DBI' } @pages_args;
+		@page_args= grep { $_ ne 'DBI' } @page_args;
 		@page_args= grep { $_ ne 'root_template' } @page_args;
 	};
 	foreach my $page_arg (@page_args) {
-		my %page_arg = parse_page_arg($page_arg);
-
-		if (exists($config{$page_arg{'page'}})) {
-			my $page_config = $config{$page_arg{'page'}}; 
-			$page_config->{'page'} = $page_arg{'page'};
+		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'};
 		
-			if ($page_config->{'multipage'}) {
-				print "multipage\n";
-				foreach my $id ($page_config->{'ids'}) {
+			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'}}) {
 					$page_config->{'id'} = $id;
+					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";
 				}
 			}
 			else {
@@ -127,7 +134,7 @@ sub main {
 			}
 		}
 		else {
-			verbose (1, "\nWarning: Page $page_arg{'page'} is not defined in the configuration file.");
+			verbose (1, "\nWarning: Page $parsed_arg{'page'} is not defined in the configuration file.");
 		}
 	}
     verbose (1, "\nFinished processing the files.");
@@ -158,7 +165,6 @@ sub get_template_html (\%@)  {
 
 sub generate_page  {
 	my ($tt, $root_template, $config, $preview) = @_;
-    print Dumper($$config);
 	my $html;
 	if (!$preview) {
 		$html = get_filename($$config); 
@@ -203,7 +209,22 @@ sub parse_page_arg {
 			}
 		}
 	}
-	return ('page', $page, 'ids', @ids);
+	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));
 }
 
 sub get_filename {

site.cfg

@@ -24,6 +24,9 @@ content: page.tpl.html
 #                  extension. May have [id] marker in path or name which 
 #                  will be substituted with a padded page id.
 
+# Configure pages which use the same content template:
+#
+# multipage: OPTIONAL true | false (DEFAULT = false)  
 
 [index]
 navigation: navigation-main.tpl.html
@@ -42,4 +45,8 @@ filename: correspondents/index.html
 navigation: navigation-about.tpl.html
 content: content-contact.tpl.html
 
-
+[correspondent]
+navigation: navigation-about.tpl.html
+content: content-correspondent.tpl.html
+multipage: true
+filename: correspondents/[id]/index.html

templates/content-correspondent.tpl.html

@@ -0,0 +1,14 @@
+	<article>
+		<h2 class="title">Correspondent</h2>
+		<h2>Rho`n</h2>
+		<p><img src="./images/hosts/293.png" height="80" alt="Host Image" /><br>
+		<label>Host ID</label>:<!--% id %--><br><br>
+		   <label>email:</label> <u>roan.horning.nospam@nospam.gmail.com</u><br>
+		   <label>episodes:</label> <strong>12</strong>
+		</p>
+		<h3><a href="eps.php?id=3647">hpr3647 :: Weekend projects</a></h3>
+		<p class="meta"><strong>Released:</strong> 2022-07-26. <strong>Duration:</strong> 00:16:44. <strong>Flag:</strong> Clean. <strong>Series:</strong> <a href="series.php?id=0">general</a>. <br>
+<strong>Tags:</strong> <em>diy, repairs, umbrella, basketball</em>.<br>
+Rho`n rambles about some weekend projects</p>
+		<p><a href="contribute.php">Become a Correspondent</a></p>
+	</article>

templates/ids-correspondent.tpl.html

@@ -0,0 +1,7 @@
+<!--% USE DBI(constants.driver, constants.user, constants.password) %-->
+<!--% FOREACH host IN DBI.query(
+	'select h.hostid from hosts as h'
+) %-->
+,<!--% host.hostid %-->
+<!--% END %-->
+

templates/page.tpl.html

@@ -1,3 +1,9 @@
+<!--% IF config.multipage == "true" && config.ids.count() > 0 %-->
+<!--% ELSIF config.multipage == "true" %-->
+<!--% ELSE %-->
+	<!--% page_ids = ['0'] %-->
+<!--% END %-->
+<!--% FOREACH page_id IN page_ids %-->
 <!DOCTYPE HTML>
 <html lang="en">
 <head>
@@ -21,7 +27,7 @@
   <link rel="alternate" type="application/rss+xml" title="Hacker Public Radio MP3 RSS" href="/hpr_mp3_rss.php" />
   <link rel="alternate" type="application/rss+xml" title="Hacker Public Radio Comments RSS" href="/comments_rss.php" />
   <link rel="license" title="cc by 3.0"  href="https://creativecommons.org/licenses/by-sa/3.0/" />
-  <link href="/css/hpr.css" rel="stylesheet" />
+  <link href="./css/hpr.css" rel="stylesheet" />
   <!--[if IE]>
   <link rel="stylesheet" href="css/hpr.css" media="screen" type="text/css" />
   <script src="/JavaScript/html5.js"></script>
@@ -124,3 +130,4 @@
 </footer>
 </div>
 <!-- shadow -->
+<!--% END %-->