#!/usr/bin/perl
# dbipg_decode_template
#    $Id: dbipg_decode_template,v 1.1.1.1 2002/12/26 04:37:47 nakahira Exp $
#    Last updated: 12/22/2002
#
# Copyright (C) 2002 The Nagoya University Consumers' Co-operative Association
#   Written by K.Nakahira
#
#  This program is licensed under the GNU GPL.
#  See the following URL for more details:
#    http://www.gnu.org/licenses/gpl.txt
#

use strict;
use File::Basename;

use Template;

my $VERSION = '0.1.00';

# 
my $init = { basename => basename($0),
			 basedir => dirname($0),
		   };

sub usage {
  my $ver = "(version $VERSION)" if($VERSION);
  print <<USAGE;
$init->{basename} $ver
Usage: $init->{basename} filename
ARGS:
  filename   ե̾
USAGE
  exit;
}

{
  &usage if(@ARGV != 1 or $ARGV[0] =~ m/^--?h(?:elp)$/);
  my $file = shift;
  my $tmpl = Template->new
	($file, escapecode => sub { CGI->escapeHTML($_[0]) });
  print $tmpl->out({ }, { }, decodeonly => 1);
}
exit;

__END__

=for html
<div class="header">
<div class="bar">
<a href="../index.html">Top</a>
<a href="index.html">ޥ˥奢</a>
</div>
<h1>dbipg_decode_template</h1></div>

=for html
<div class="pod">

=head1 NAME

dbipg_decode_template - ƥץ졼ȥեǥɤ (Perl Υɤľ)

=head1 DESCRIPTION

  $ dbipg_decode_template conffile template
  $ dbipg_decode_template -group groupname conffile template | cat -n

ƥץ졼ȥե뤫顢Perl Υɤ롣

=head1 SEE ALSO

F<Template>

=head1 COPYRIGHT

Copyright (C) 2002 The Nagoya University Consumers' Co-operative Association

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the following URL for more details:
  http://www.gnu.org/licenses/gpl.txt

Written by Kenji Nakahira <nakahira@coop.nagoya-u.ac.jp>

=for html
</div>

=cut

