#!/usr/local/bin/perl
BEGIN {
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");

require "links.cfg";
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";
require "$db_lib_path/Mailer.pm";
};
}

eval { &main; };

$@ and &cgierr("Fatal error: $@");

exit;

sub main {
my (%in) = &parse_form();
my (%rec) = &get_record($in{"ID"});

if (! defined $rec{"ID"}) {
&cgierr("record " . $in{"ID"} . " not found");
}

my $output = &load_template("sendmess.html", { %rec, %globals });

print "Content-type: text/html\n\n";
print $output;
}