#!/usr/bin/perl
#
# Author: Petter Reinholdtsen <pere@td.org.uit.no>
# Date:   1997-12-27
#
# Send given CGI info via mail to receivers

$receiver = "pere\@td.org.uit.no";
$receiver = "pere\@link.no";
#$receiver = "pere\@td.org.uit.no,leneak\@hepp.uio.no";
BEGIN {
unshift(@INC, '/mn/trillian/u2/gildewww/opt/lib/perl5/site_perl');
}
use CGI qw(:standard);
use Net::SMTP;

$mailer = 'pat.uio.no';

if (param()) {
    # mail info to those who what it
    foreach $key (param) {
	$val = param($key);
	push(@list, "$key = $val\n");
    }
    $smtp = Net::SMTP->new($mailer,
			   Hello => 'trillian.uio.no') || die "Unable to make SMTP object";
    $smtp->mail("Gildewww automailer <gildewww\@gildet.uio.no>");
    for $address (split(/,/, $receiver) ) {
        $smtp->to($address) || warn("Receiver $address not accepted");
    }

    $smtp->data();
    $smtp->datasend("To: $receiver\n");
    $smtp->datasend("Subject: (auto) Gildehjelper melder seg\n");
    $smtp->datasend("\n");
    $smtp->datasend("En bruker har registrert seg via <URL:".
		    $ENV{'HTTP_REFERER'}."\n\n");
    for $line (@list) {
        $smtp->datasend(" $line");
    }
    $smtp->dataend();
    $smtp->quit;

    print header;
    print join('<br>',@list);
} else {
    # Something went wrong.

    print header;

    print start_html(-author=>'pere@td.org.uit.no',
		     'Feil med innrapportering av informasjon'),
    br,
    h1('Det har skjedd en feil'),
    "\nJeg har ikke klart å ta imot informasjonen du forsøkte å sende.\n",
    'Rapporter feilen til ',
    a({href=>"mailto:pere\@td.org.uit.no"},"pere\@td.org.uit.no"),
    br,
    end_html;
}