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

use strict;
use warnings;

use UCW::Temple;

if (@ARGV == 1) {
	UCW::Temple::process_file($ARGV[0]);
} elsif (@ARGV == 2) {
	close STDOUT;
	open STDOUT, ">$ARGV[1]" or die "Cannot open $ARGV[1]: $!";
	UCW::Temple::process_file($ARGV[0]);
} else {
	die "Usage: temple <in> [<out>]";
}