Template-Plexsite

 view release on metacpan or  search on metacpan

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

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
use File::Path qw<mkpath>;
 
 
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use File::Basename qw<basename dirname>;
use File::Path qw<mkpath>;
use feature qw<:all>;
 
#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"],



( run in 0.395 second using v1.01-cache-2.11-cpan-4e96b696675 )