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

Dieses Thema: "suche perl oder php script, der mailserver auf relaying überprüft" im Forum "Ruby, php, Perl, Python ..." wurde erstellt von ccc, 05.02.2004.

  1. ccc

    ccc Routinier

    Dabei seit:
    01.11.2003
    Beiträge:
    288
    Zustimmungen:
    0
    hi

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

    gruss
    ccc
     
  2. Steve

    Steve 13te

    Dabei seit:
    13.04.2002
    Beiträge:
    381
    Zustimmungen:
    0
    Code:
        #!/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
     
  3. ccc

    ccc Routinier

    Dabei seit:
    01.11.2003
    Beiträge:
    288
    Zustimmungen:
    0
    danke
     
  4. #4 ccc, 31.03.2004
    Zuletzt bearbeitet: 06.05.2004
    ccc

    ccc Routinier

    Dabei seit:
    01.11.2003
    Beiträge:
    288
    Zustimmungen:
    0
    werde nur noch etwas abändern, damit direkt via browser funktioniert
     
  5. ccc

    ccc Routinier

    Dabei seit:
    01.11.2003
    Beiträge:
    288
    Zustimmungen:
    0
    dies funktioniert bestens:
    Code:
    #!/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
     
Thema:

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

Die Seite wird geladen...

suche perl oder php script, der mailserver auf relaying überprüft - Ähnliche Themen

  1. Perl in der Shell: 2x Suchen und 1x Ersetzen

    Perl in der Shell: 2x Suchen und 1x Ersetzen: Hallo, also es geht um folgendes Problem (bin da auch noch ganz neu): Ich möchte per Shell ungefähr folgendes Kommando ausführen: perl -pi -e...
  2. [PERL] Mit Regex kompletten String durchsuchen und ersetzen

    [PERL] Mit Regex kompletten String durchsuchen und ersetzen: Hallo alle zusammen, ich habe ein Problem mit Regex in einem Perlscript. Ich möchte eine Templatedatei einlesen, bestimmte Werte ersetzen und...
  3. rekursiv suchen / perl

    rekursiv suchen / perl: Hallo Zusammen, ich habe ein reichlich banale Frage. Kann Sie aber nicht lösen da ich keinen blassen Schimmer von Perl habe....
  4. Suche Hilfescript (Perl)

    Suche Hilfescript (Perl): Hallo Freunde Kennt jemand von euch ein gutes Script was ich vorab als Hilfe nehmen könnte um ein Programm in Perl zu schreiben was folgendes...
  5. suche perlscript der files via ftp löschen kann

    suche perlscript der files via ftp löschen kann: hallo suche ein perlscript der alle files, die mit td* anfangen und älter als eine woche sind, via ftp auf dem ftp server löschen kann....