smtp ignoriert fremde domains - #98534 (Netzwerkprogrammierung und Netzwerke mit Perl)

belor

2007-08-22 21:41

User since
2007-06-19
5 Artikel
BenutzerIn

guten abend,

ich habe mir ein kleines cgi script zum versenden von emails geschrieben.
folgendes szenario funktioniert auch ohne probleme:

sender: test.user@eigene.domain.de
empfaenger: anderer.test.user@eigene-domain.de

allerdings folgendes nicht:

sender: test.user@eigene.domain.de
empfaenger: user@andere.domain.de

dieser ablauf funktioniert allerdings nur mit meinem script nicht.
mit einem normalem mail client, wie thunderbird beispielsweise,
kann ich ohne probleme mit test.user@eigene.domain.de
an z.b. anderer.test.user@eigene-domain.de emails schreiben.

kann mir jemand sagen, wieso fremde domains durch mein script ignoriert werden?
ich würde mich sehr über eine lösung freuen,
ich sehe den grund für das problem leider nicht :(

mfg
belor

Code: (dl )

my $nachricht  = param('nachricht');
my $betreff    = param('betreff');
my $empfaenger = param('empfaenger');
if(defined($nachricht) && defined($betreff) && defined($empfaenger)){
  $select = $db->prepare ("
                              SELECT email_adresse 
                              FROM login
                              WHERE user='$session_user';
                            ");
  $select->execute;
  my $absender;
  while(@result = $select->fetchrow_array){
    $absender = $result[0];
  }

  my $mailServer  = "smtp.eigene.domain.de";
  my $smtp = Net::SMTP->new($mailServer);
  $smtp->mail($absender);
  $smtp->to($empfaenger);

  $smtp->data();
  $smtp->datasend("Subject: $betreff\n");
  $smtp->datasend("To: $empfaenger\n");
  $smtp->datasend("\n");
  $smtp->datasend("$nachricht");
  $smtp->dataend();
  $smtp->quit;
}