#!/usr/bin/perl

# Configuration ########################################
my $config = {

        # Location of template files
        templates => '/ubalis/cgi-bin/templates'

        # Default from address, if none provided
        from      => '[email protected]',
};
#########################################################

use CGI_Lite;
use Mail::Sendmail;
use Text::Template;
use strict;

my ($cgi, $form, $fill_in, $message, $template,
        %mail,
        );

$cgi = new CGI_Lite;
$form = $cgi->parse_form_data;
exit(0) if $form->{template}=~/\.\./;
foreach (keys %$form)   {
        $form->{$_} = join ', ', @{$form->{$_}} if ref $form->{$_};
}

$fill_in = new Text::Template ( TYPE => 'FILE',
                SOURCE => $config->{templates} . "/" . $form->{template} . ".email");
$message = $fill_in->fill_in( HASH => [ $form ],
                        DELIMITERS => [ '<%', '%>' ]
                        );

$form->{email} ||= $config->{from};

%mail = ( To      => '[email protected]'#$form->{to},
                  From    => '[email protected]'#$form->{email},
                  Subject => 'test'#$form->{subject},
                  Message => $message,
                );
sendmail(%mail);

print "Location: $form->{redirect}\n\n";