Kl. Formularfeld zum Subscriben an Newsletter

Computer: Software & Programmierung Perl & CGI
#1

Hallo ihr Tüftler
ich hab da mal ein Anliegen.
Und zwar habe ich bei meinem Provider ein NewsletterScript installieren lassen bei dem man sich folgender maßen subscriben kann.
Man schreibt einfach eine Email an eine Adresse wie diese:

[email protected]

Da ich aber von den Leuten die diesen Newsletter abbonieren wollen nicht verlangen kann das Sie eine eMail an diese Adresse schicken, möchte ich auf meiner Seite ein kleines Formular bei dem man einfach nur seine EmailAdresse einträgt und auf senden klickt.

Nun meine Frage:
Habt ihr so ein Formular mit dem dazugehörigen Script?
Ich möchte kein anderes NewsletterScript verwenden, ich möchte nur das man sich auch ohne eine eMail zu schreiben subscriben kann.

Ich wäre euch sehr dankbar wenn ihr mir nicht einfach nur einen Link schicken würdet wo ich dann Stunden lang danach suchen muss.

Hoffe ihr könnt mir helfen…
Danke schon mal im Voraus

Tobiii

#2

Hallo,

die HTML-muß so aussehen:

Emailadresse hinzufügen!

Das Perlscript muß dann so aussehen:

#!/usr/bin/perl
$mailprog = ‚/usr/sbin/sendmail‘;

&parse_form;
&get_variables;
&send_to_webmaster;

#######################

Parse Form Subroutine

sub parse_form {

Get the input

read(STDIN, $buffer, $ENV{‚CONTENT_LENGTH‘});

Split the name-value pairs

@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);

Un-Webify plus signs and %-encoding

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(„C“, hex($1))/eg;
$value =~ s///g;

$FORM{$name} = $value;
}

}

###############

Get Variables

sub get_variables
{

Email überprüfen!

if ($FORM{‚email‘} =~ /.*@.*…*/) {
$email = „$FORM{‚email‘}“;
}
else
{
&error(no_email);
}
}

schickt Email an dich

sub send_to_webmaster
{
open (MAIL, „|$mailprog -t“) || die „Can’t open $mailprog!\n“;
print MAIL „From: emailhinzufü[email protected]\n“;
print MAIL „To: [email protected]\n“;
print MAIL „Subject: Email in Verteiler aufnehmen!\n\n“;
print MAIL FEHLER!\n";
print „\n“;
print „\n“;
if ($error eq ‚no_email‘) {
print " FEHLER: Bitte geben sie eine Emailadresse ein! \n";
print „Wenn sie bei einer Antwort benachrichtigt werden möchten \n muessen sie eine Emailadresse angeben. \n“;
print "