/
tpage
executable file
·128 lines (95 loc) · 3.31 KB
/
tpage
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
#!/usr/bin/perl -w
#========================================================================
#
# tpage
#
# DESCRIPTION
# Script for processing and rendering a template document using the
# Perl Template Toolkit.
#
# AUTHOR
# Andy Wardley <abw@kfs.org>
#
# COPYRIGHT
# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
#------------------------------------------------------------------------
#
# $Id$
#
#========================================================================
use strict;
use Template;
# look for -h or --help option, print usage and exit
if (grep /^--?h(elp)?/, @ARGV) {
print "usage: tpage file [ file [...] ]\n";
exit 0;
}
my $vars = { };
my ($var, $val);
while ($ARGV[0] && $ARGV[0] =~ /--?d(efine)?/) {
shift(@ARGV);
die "--define expect a 'variable=value' argument\n"
unless defined ($var = shift(@ARGV));
($var, $val) = split(/\s*=\s*/, $var, 2);
$vars->{ $var } = $val;
}
# read from STDIN if no files specified
push(@ARGV, '-') unless @ARGV;
# create a template processor
my $template = Template->new({
ABSOLUTE => 1,
RELATIVE => 1,
});
# process each input file
foreach my $file (@ARGV) {
$file = \*STDIN if $file eq '-';
$template->process($file, $vars)
|| die $template->error();
}
__END__
#------------------------------------------------------------------------
# IMPORTANT NOTE
# This documentation is generated automatically from source
# templates. Any changes you make here may be lost.
#
# The 'docsrc' documentation source bundle is available for download
# from http://www.template-toolkit.org/docs.html and contains all
# the source templates, XML files, scripts, etc., from which the
# documentation for the Template Toolkit is built.
#------------------------------------------------------------------------
=head1 NAME
Template::Tools::tpage - Process templates from command line
=head1 USAGE
tpage [ --define var=value ] file(s)
=head1 DESCRIPTION
The B<tpage> script is a simple wrapper around the Template Toolkit processor.
Files specified by name on the command line are processed in turn by the
template processor and the resulting output is sent to STDOUT and can be
redirected accordingly. e.g.
tpage myfile > myfile.out
tpage header myfile footer > myfile.html
If no file names are specified on the command line then B<tpage> will read
STDIN for input.
The C<--define> option can be used to set the values of template variables.
e.g.
tpage --define author="Andy Wardley" skeleton.pm > MyModule.pm
See L<Template> for general information about the Perl Template
Toolkit and the template language and features.
=head1 AUTHOR
Andy Wardley E<lt>abw@kfs.orgE<gt>
L<http://www.andywardley.com/|http://www.andywardley.com/>
=head1 VERSION
2.36, distributed as part of the
Template Toolkit version 2.06c, released on 13 December 2001.
=head1 COPYRIGHT
Copyright (C) 1996-2001 Andy Wardley. All Rights Reserved.
Copyright (C) 1998-2001 Canon Research Centre Europe Ltd.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<ttree|Template::Tools::ttree>