Nils Gerken: Was ist an diesem Script falsch?

Hi,

was ist an diesem kleinen Script falsch?

#!/usr/local/perl5

$rcpt = "nils.gerken@taggeckos.de" ;

open (MAIL, "sendmail -t $rcpt");

print MAIL "To: $rcpt\n";          
        print MAIL "From: Mark Essers <mark@pythonschlangen.de>\n";
        print MAIL "Subject: Eine Testmail \n\n\n";
        print MAIL "\n";
        print MAIL "\n";
        close (MAIL);

print "Content-type: text/html\n\n";
print <<EOF;

<HTML>
  <HEAD>  <TITLE>Erfolgreich ausgefuehrt</TITLE>  </HEAD>
  <BODY>
  <H1 ALIGN=CENTER>Bearbeitung fertig</H1>
  Das Script wurde korrekt ausgefuehrt
  </BODY>
  </HTML>
EOF

Wenn ich es bei mir ausführe kommt immer:

'V:\janssen-s1\08-2000\taggeckos\cgi-bin\test.pl' script produced no output

Bitte helft mir.

Ciao NIls

  1. tagchen,

    $rcpt = "nils.gerken@taggeckos.de" ;

    das muss entweder heissen:

    $rcpt = "nils.gerken@taggeckos.de" ;

    oder:

    $rcpt = 'nils.gerken@taggeckos.de' ;

    das ganze ist aber meines wissens auch in selfHTML beschrieben wie sich das mit den sonderzeichen verhaelt :o))

    1. tagchen,

      $rcpt = "nils.gerken@taggeckos.de" ;
      das muss entweder heissen:
      $rcpt = "nils.gerken@taggeckos.de" ;
      oder:
      $rcpt = 'nils.gerken@taggeckos.de' ;
      das ganze ist aber meines wissens auch in selfHTML beschrieben wie sich das mit den sonderzeichen verhaelt :o))

      Hallo,
      das außerdem.
      Warum 'open (MAIL, "sendmail -t $rcpt");' $rcpt als Parameter übergeben?
      Versuchs doch einfach nur mit 'open (MAIL, "sendmail -t");'
      Emil Meyer

      1. Hi,

        $rcpt = "nils.gerken@taggeckos.de" ;

        um es noch mal anders auszudrücken: Was steht denn im Array @taggeckos? ;-)

        Warum 'open (MAIL, "sendmail -t $rcpt");' $rcpt als Parameter übergeben?

        Wäre im Prinzip richtig, wenn die Option -t nicht dort stünde.

        Was aber viel wichtiger ist:

        Mit perl -c script.pl kann man das Script checken. Hat man dann noch den w-Switch aktiviert und benutzt strict, kann eigentlich gar nichts mehr schiefgehen:

        #!/usr/local/perl5 -w
        use strict;
        [...]

        Cheatah

  2. Hi,

    was ist an diesem kleinen Script falsch?

    #!/usr/local/perl5

    $rcpt = "nils.gerken@taggeckos.de" ;

    open (MAIL, "sendmail -t $rcpt");

    print MAIL "To: $rcpt\n";          
            print MAIL "From: Mark Essers <mark@pythonschlangen.de>\n";
            print MAIL "Subject: Eine Testmail \n\n\n";
            print MAIL "\n";
            print MAIL "\n";
            close (MAIL);

    print "Content-type: text/html\n\n";
    print <<EOF;

    <HTML>
      <HEAD>  <TITLE>Erfolgreich ausgefuehrt</TITLE>  </HEAD>
      <BODY>
      <H1 ALIGN=CENTER>Bearbeitung fertig</H1>
      Das Script wurde korrekt ausgefuehrt
      </BODY>
      </HTML>
    EOF

    Hallo,
    weiss Dein Script überhaupt, wo sendmail zu suchen ist?

    ...
    $mailprog = '/usr/sbin/sendmail';
    open (MAIL, "$mailprog -t");
    print MAIL "To: $rcpt\n";          
    ...

    Emil Meyer

    1. Hi Emil,

      danke an alle, die mir im Moment hier helfen.

      Bei mir ist sendmail direkt im cgi Ordner und wurde da von meinem Provider installiert. das programm heisst sendmail.exe, und in dert inst Anleitung steht, dass sendmail reichen würde.

      Ciao Nils.

  3. Hi,

    was ist an diesem kleinen Script falsch?

    #!/usr/local/perl5

    $rcpt = "nils.gerken@taggeckos.de" ;

    open (MAIL, "sendmail -t $rcpt");

    print MAIL "To: $rcpt\n";          
            print MAIL "From: Mark Essers <mark@pythonschlangen.de>\n";
            print MAIL "Subject: Eine Testmail \n\n\n";
            print MAIL "\n";
            print MAIL "\n";
            close (MAIL);

    print "Content-type: text/html\n\n";
    print <<EOF;

    <HTML>
      <HEAD>  <TITLE>Erfolgreich ausgefuehrt</TITLE>  </HEAD>
      <BODY>
      <H1 ALIGN=CENTER>Bearbeitung fertig</H1>
      Das Script wurde korrekt ausgefuehrt
      </BODY>
      </HTML>
    EOF

    Hallo,
    weiss Dein Script eigentlich, wo es sendmail suchen soll?

    ...
    $mailprog = '/usr/sbin/sendmail';

    open (MAIL, "$mailprog -t");

    print MAIL "To: $rcpt\n";          
    ...

    Emil