site-generator

@@ -8,13 +8,12 @@
 
 	site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>...
 
-	-a, --all       generate all pages defined in configuration file
-	-c, --configure path to configuration file
-	-l, --list      print list of configured pages
-	-p, --preview   print generated pages to standard out
-	-q, --quiet     suppress progress information while generating pages
-	-v, --verbose   print extended progress information while generating pages
-	--help          print this help message
+	-a, --all      generate all pages defined in configuration file
+	-l, --list     print list of configured pages
+	-p, --preview  print generated pages to standard out
+	-q, --quiet    suppress progress information while generating pages
+	-v, --verbose  print extended progress information while generating pages
+	--help         print this help message
 
 	Where I<PAGE> is a file name of a web page 
 	or the special I<ALL> (to generate all pages).
@@ -110,17 +109,15 @@ sub main {
 
 	# Argument parsing
 	my $all;
-	my $configuration_path;
 	my $preview;
 	my $verbose;
 	my $quiet;
 	GetOptions(
-		'all'			=> \$all,
-		'configuration=s' => \$configuration_path,
-		'list'			=> \&print_available_pages,
-		'preview'		=> \$preview,
-		'verbose'		=> \$verbose,
-		'quiet'			=> \$quiet,
+		'all'     => \$all,
+		'list'    => \&print_available_pages,
+		'preview' => \$preview,
+		'verbose' => \$verbose,
+		'quiet'   => \$quiet,
 	) or pod2usage(1);
 	pod2usage(1) unless @ARGV || $all;
 	my (@page_args) = @ARGV;
@@ -129,21 +126,10 @@ sub main {
 		$verbose = 'quiet';
 	};
 
-	if (!$configuration_path) {
-		$configuration_path = "site.cfg";
-	}
+	# Load config file
+	read_config "site.cfg" => my %config;
 
-	my %config;
-	if ( -f $configuration_path ) {
-		# Load config file
-		read_config $configuration_path => %config;
-	}
-	else {
-		print STDOUT "Could not read configuration file: $configuration_path\n"; 
-		exit 1;
-	}
-
-	my $tt = get_template_html($config{DBI}, $config{app_paths});
+	my $tt = get_template_html($config{DBI});
 
 	# If command line option all is set, parse configuration file 
 	# for all pages
@@ -154,7 +140,7 @@ sub main {
 		# from the generated list of pages.
 		@page_args= grep { $_ ne 'DBI' } @page_args;
 		@page_args= grep { $_ ne 'root_template' } @page_args;
-		@page_args= grep { $_ ne 'app_paths' } @page_args;
+		@page_args= grep { $_ ne 'media_hostname' } @page_args;
 
 	};
 	foreach my $page_arg (@page_args) {
@@ -207,8 +193,8 @@ sub get_template_html (\%@)  {
 	# HTML comments to make the template file valid HTML.
 	#
 	return Template->new({
-			INCLUDE_PATH => $_[1]{templates_path},
-			OUTPUT_PATH	 => $_[1]{output_path},
+			INCLUDE_PATH => './templates',
+			OUTPUT_PATH	 => './public_html',
 			EVAL_PERL    => 1,
 			START_TAG	 => '<!--%',
 			END_TAG		 => '%-->',

site.cfg

@@ -13,11 +13,6 @@
 #user: hpr-generator  (Suggested user with read-only privileges)
 #password: *********  (Password for user)
 
-# Configure the location of the templates and the generated HTML
-[app_paths]
-templates_path: ./templates
-output_path: ./public_html
-
 # Configure the root template page which pulls in the navigation and 
 # content templates used by each page. An optional baseurl property may 
 # be defined. This is useful when opening files directly from local