view release on metacpan or  search on metacpan

script/build-menu.pl  view on Meta::CPAN

use File::Path qw<mkpath>;
use File::Copy;
use Data::Dumper;

use Template::Plex;
use Template::Plexsite;

use JSON;

#use GetOpt::Long;
use feature ":all";

my $html_root="site";

#Takes a list or multiple input templates
#Generates a table mapping template path to  output path and tag name

my %tag_table; #maps tags to outputs
my %url_table; #maps input filename to output urls

#Do preprocess

script/page.pl  view on Meta::CPAN

use Template::Plex;
use File::Basename qw<basename dirname>;
use File::Path qw<mkpath>;
use feature qw<:all>;
use Data::Dumper;

#Modes are:	preprocess
#		process

use feature ":all";
local $"="\n";

my $output="/dev/null";
my %page=(
	site=>"Site name",
	category=>"Category1",
	title=>"Page title",
	content=> $ARGV[1],
	html_root=>'site',
	stylesheets=>["stylesheets/common.css"],