summaryrefslogtreecommitdiff
path: root/www/tcl-cgi/patches
diff options
context:
space:
mode:
authorbouyer <bouyer@pkgsrc.org>1999-07-07 15:15:12 +0000
committerbouyer <bouyer@pkgsrc.org>1999-07-07 15:15:12 +0000
commita44883418cf9ef9fb3da824a474d2f9036650857 (patch)
tree6e0a499e4a73b748e0aa2ac9c3d99cfcc89e7277 /www/tcl-cgi/patches
parentc326c7bdf6e59d6666483032618dd0e5d6bf212b (diff)
downloadpkgsrc-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-aa25
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}