Net::Smtp

[Christian Kruse]

Hoi,

#!/usr/bin/perl -w

use strict;

use Net::SMTP; # Einbinden des NET:SMTP Moduls

use CGI::Carp qw/fatalsToBrowser/;

$mailServer = "smtp.xxx.de"; # Name des SMTP Servers. Angabe einer

stattdessen: my $mailServer = 'smtp.xxx.de';

IP Adresse ist auch möglich

$absender = "[e-mail]"; # Emailadresse des Absenders.

stattdessen: my $absender = '[e-mail]';

$betreff = "Neue Nachricht"; # Betreffszeile der Email

stattdessen: my $betreff = 'Neue Nachricht';

$empfaenger = "[e-mail]"; # Emailadresse des Empfängers

stattdessen: my $empfaenger = '[e-mail]';

$smtp = Net::SMTP->new($mailServer); # Ein neues SMTP Objekt wird erzeugt.

stattdessen: my $smtp = new Net::SMTP($mailServer) or die $!;

Was passiert bei diesen Aenderungen?

Gruesse aus dem schoenen LH,
 c.j.k