delueks: guestbook

Hallo
Habe ein kleines problem mit einem guestbook-script! Benutze leider einen Windows Server - daher funktioniert der sendmail-Befehl nicht und ich weiß nicht wie ich das Problem lösen könnte:

Sendmail-Programm zu erfragen beim Provider (nur unter Unix)

$mailprog = 'sendmail';

Weiß jemand wie der Windows Befehl dafür lautet?

Und weiters schaffe ich es nicht den Pfad für die log-Datei (weder absolut noch relativ) zu definieren... Gibt es bei Windows spezielle Dinge die ich beachten muss, die es bei Unix nicht gibt...

$data_log = "..\public\guestlog.log";
                  "d:\innet\domain\public\guestlog.log"

Ordnerstruktur:
cgi-bin/guesbook.pl
public/guestlog.log

Wäre echt spitze wenn mir jemand hier weiterhelfen kann, da ich nun schon seit
Tagen herumbastle und ich die Antwort einfach nirgends gefunden habe.
Danke im Voraus, lukas

  1. 你好 delueks,

    Habe ein kleines problem mit einem guestbook-script! Benutze leider
    einen Windows Server - daher funktioniert der sendmail-Befehl nicht und
    ich weiß nicht wie ich das Problem lösen könnte:

    Sendmail-Programm zu erfragen beim Provider (nur unter Unix)

    $mailprog = 'sendmail';

    Weiß jemand wie der Windows Befehl dafür lautet?

    Den gibt es so erstmal nicht. Vielleicht hat der Administrator da was
    installiert, aber ansonsten musst du das selber machen, z. B. ueber
    Net::SMTP.

    Und weiters schaffe ich es nicht den Pfad für die log-Datei (weder
    absolut noch relativ) zu definieren... Gibt es bei Windows spezielle
    Dinge die ich beachten muss, die es bei Unix nicht gibt...

    $data_log = "..\public\guestlog.log";
                      "d:\innet\domain\public\guestlog.log"

    Du musst den Backslash maskieren:

    $data_log = "d:\innet\domain\public\guestlog.log";

    再见,
     CK

    --
    "Ich muss auflegen, mein Essen ist gleich fertig."
    "Oh, was gibt 's denn?"
    "Hmm. Die Packung liegt schon im Muell, keine Ahnung.
    http://wwwtech.de/
    1. wow, das ging aber fix - vielen Dank, sieht vielversprechend aus!
      was bedeutet eigentlich 你好

      1. 你好 delueks,

        was bedeutet eigentlich 你好

        Guten Tag :)

        再见,
         CK

        --
        Das Sein entsteht aus dem Nicht-Sein.
        http://wwwtech.de/
        1. Hi,

          was bedeutet eigentlich 你好

          Guten Tag :)

          hey, die Suche ist noch nicht Unicode-faehig: [Link:http://suche.de.selfhtml.org/cgi-bin/such.pl?suchausdruck=%26%2320320%3B%26%2322909%3B&feld=alle&index_5=on&hits=100]

          Gruss,
          Ludger

        2. habe es wie folgt eingebaut! klann jemand den Fehler erkennen? Es spuckt mir immer wieder dieselbe Fehlermeldung aus, zum Probieren auf http://www.stantonmusic.it/cgi-bin/guestbook.pl

          Code:
          print "<font face="$font_f" size="$font_s">An unexpectet error occourred,<br>please click <a

          href="$scriptname?seite=1&anzeigen=10">here</a>!";
          sub sendmail {
          if ($back_email == 1) {
           if ($FORM{'email'} ne "x") {my $mail = $FORM{'email'};}
           else {my $mail = $send;}

          eval q^
             use Net::SMTP;
             my $smtp = Net::SMTP->new($xtcsmtp_server, Debug => 0) || die "unable to create

          Net::SMTP object $xtcsmtp_server.";
             $smtp->mail($xtcwebmastermail);
             $smtp->to($usmail);
             $smtp->data();
             $smtp->datasend("To: $send\n");
             $smtp->datasend("From: $FORM{'name'} <$mail>\n");
             $smtp->datasend("X-Mailer: Perl Powered Socket Net::SMTP Mailer\n");
             $smtp->datasend("Subject: Neuer Gästebucheintrag!\n");
             $smtp->datasend("\n");
             $smtp->datasend("$mail_info_webmaster");
             $smtp->datasend("\n");
             $smtp->dataend();
             $smtp->quit();
            ^;

          if($@) {
             &error("\n<br>Net::SMTP fatal error: $@\n<br>");
             return -77;
             }

          }

          if ($usr_mail == 1) {
           if ($FORM{'email'} ne "x") {

          eval q^
             use Net::SMTP;
             my $smtp = Net::SMTP->new($xtcsmtp_server, Debug => 0) || die "unable to create

          Net::SMTP object $xtcsmtp_server.";
             $smtp->mail($xtcwebmastermail);
             $smtp->to($usmail);
             $smtp->data();
             $smtp->datasend("To: $FORM{'name'} <$FORM{'email'}>\n");
             $smtp->datasend("From: $titel <$send>\n");
             $smtp->datasend("X-Mailer: Perl Powered Socket Net::SMTP Mailer\n");
             $smtp->datasend("Subject: Thanks for your guestbook entry!\n");
             $smtp->datasend("\n");
             $smtp->datasend("$mail_antwort_user");
             $smtp->datasend("\n");
             $smtp->dataend();
             $smtp->quit();
            ^;

          if($@) {
             &error("\n<br>Net::SMTP fatal error: $@\n<br>");
             return -77;
            }

          }

          }
          }

          1. 你好 delueks,

            habe es wie folgt eingebaut! klann jemand den Fehler erkennen? Es
            spuckt mir immer wieder dieselbe Fehlermeldung aus, zum Probieren
            auf http://www.stantonmusic.it/cgi-bin/guestbook.pl

            Die Fehlermeldung, die dort auftritt, ist nicht in deinem Source. Sie
            muss also woanders herkommen, vermutlich nimmt dein Script noch den
            alten Weg.

            再见,
             CK

            --
            Fatal! Ich kann kein Reserve-Offizier mehr sein!
            http://wwwtech.de/