PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : suche perl oder php script, der mailserver auf relaying überprüft



ccc
05.02.2004, 18:26
hi

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

gruss
ccc

Steve
05.02.2004, 18:34
#!/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
05.02.2004, 21:51
danke

ccc
30.03.2004, 23:56
werde nur noch etwas abändern, damit direkt via browser funktioniert

ccc
21.07.2005, 12:54
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