suche perl oder php script, der mailserver auf relaying überprüft

[ccc]

hi

suche ein perl oder php script, der mailserver auf relaying
überprüfen kann.

gruss
ccc

[Steve]

#!/usr/local/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new('mailhost');

$smtp->mail($ENV{USER});
$smtp->to('postmaster');

$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;

http://search.cpan.org/~gbarr/libnet-1.17/Net/SMTP.pm

from; to; und Mailhost anpassen.

Steve

[ccc]

danke

[ccc]

werde nur noch etwas abändern, damit direkt via browser funktioniert

[ccc]

dies funktioniert bestens:

#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;

$from = 'absender@domain.net';
$to = 'sender@domain.net';
$subject = 'relay test';
$server = '192.168.0.3';

print "Content-type: text/plain\n\n";
open STDERR, ">&STDOUT";

$smtp = Net::SMTP->new($server, Debug => 1);

$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("A simple relay test message\n");
$smtp->dataend();

$smtp->quit;

close STDERR;
gruss
ccc