diff options
author | bouyer <bouyer@pkgsrc.org> | 1999-07-07 15:15:12 +0000 |
---|---|---|
committer | bouyer <bouyer@pkgsrc.org> | 1999-07-07 15:15:12 +0000 |
commit | a44883418cf9ef9fb3da824a474d2f9036650857 (patch) | |
tree | 6e0a499e4a73b748e0aa2ac9c3d99cfcc89e7277 /www/tcl-cgi/patches | |
parent | c326c7bdf6e59d6666483032618dd0e5d6bf212b (diff) | |
download | pkgsrc-a44883418cf9ef9fb3da824a474d2f9036650857.tar.gz |
A library of Tcl procedures to assist in writing CGI scripts.
Diffstat (limited to 'www/tcl-cgi/patches')
-rw-r--r-- | www/tcl-cgi/patches/patch-aa | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/www/tcl-cgi/patches/patch-aa b/www/tcl-cgi/patches/patch-aa new file mode 100644 index 00000000000..da9d7984416 --- /dev/null +++ b/www/tcl-cgi/patches/patch-aa @@ -0,0 +1,25 @@ +$NetBSD: patch-aa,v 1.1.1.1 1999/07/07 15:15:12 bouyer Exp $ + +--- cgi.tcl.in.orig Tue Jul 6 17:58:42 1999 ++++ cgi.tcl.in Tue Jul 6 18:00:17 1999 +@@ -2006,8 +2006,8 @@ + + flush $_cgi(mailfid) + +- if {[file executable /usr/lib/sendmail]} { +- exec /usr/lib/sendmail -t -odb < $_cgi(mailfile) ++ if {[file executable /usr/sbin/sendmail]} { ++ exec /usr/sbin/sendmail -t -odb < $_cgi(mailfile) + # Explanation: + # -t means: pick up recipient from body + # -odb means: deliver in background +@@ -2022,6 +2022,9 @@ + set s [socket $_cgi(mail_relay) 25] + gets $s answer + if {[lindex $answer 0] != 220} {error $answer} ++ puts $s "EHLO $host";flush $s ++ gets $s answer ++ if {[lindex $answer 0] != 250} {error $answer} + puts $s "MAIL FROM:<$_cgi(email)>";flush $s + gets $s answer + if {[lindex $answer 0] != 250} {error $answer} |