guestbook
delueks
- perl
0 Christian Kruse0 delueks0 Christian Kruse
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:
$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
你好 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
wow, das ging aber fix - vielen Dank, sieht vielversprechend aus!
was bedeutet eigentlich 你好
你好 delueks,
was bedeutet eigentlich 你好
Guten Tag :)
再见,
CK
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
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;
}
}
}
}
你好 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