#!/usr/local/bin/perl
#
# Form-mail v1.0
#
# (c) 1998 js <jonny@dillingen.baynet.de>

use CGI;

sub main()
{
	$query = new CGI;

	# Paramter aus der Query uebernehmen
	$recipient = $query->param('recipient');
	$subject = $query->param('subject');

	open MAIL, "|/usr/lib/sendmail $recipient";
	#open MAIL, ">/tmp/formmail.tmp";

	print MAIL "To: " . $recipient, "\n";
	print MAIL "Subject: " . $subject, "\n";

	print MAIL "\n";

	foreach $tag ($query->param)
	{
		$text = $query->param($tag);
		print MAIL "$tag\t\t$text\n";
	}

	close MAIL;
}

&main();