#!/usr/bin/perl
# A really simple template engine
# (c) 2004 Martin Mares <mj@ucw.cz>

use lib 'lib';

use strict;
use warnings;

use Getopt::Long;
use UCW::Temple;

my $out;
my @execs = ();

GetOptions('out|o=s' => \$out, 'exec|e=s' => \@execs) or die "Usage: temple [-o <out>] [-e <string>] <in> ...";
if (defined $out) {
	close STDOUT;
	open STDOUT, ">$out" or die "Cannot open $out: $!";
}
UCW::Temple::start();
foreach (@execs) {
	UCW::Temple::parse_string($_);
}
foreach (@ARGV) {
	UCW::Temple::parse_file($_);
}
UCW::Temple::finish();