#!/bin/perl
# tellfriend.pl
use strict;
use CGI qw(:standard);
use myHTML;
#print header();
my $action = param('action');
my $mailad = param('mail');
my $from = param('from');
p "";
p "
";
p "Weiterempfehlen";
p "";
p "";
if ($action eq "form") {
# Formular anzeigen
p2 "";
}
if ($action eq "Senden") {
# write_log ("tellafriend","von $from an $mailad");
`echo "Hallo,\n\nSchau dir mal die Webseite http://www.bildergallerie.de an.\n\nGruß $from" | mailx -s "Website Empfehlung" $mailad`;
p2 "E-Mail an $mailad gesendet! ",
"";
}
p2 "",
"";