summaryrefslogtreecommitdiff
path: root/www/tcl-cgi/patches/patch-aa
blob: 0520cb3c5c2ae44ac0881ab85d180765bcc927ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
--- cgi.tcl.in.orig	Wed Aug 30 11:07:29 2000
+++ cgi.tcl.in	Wed Aug 30 11:08:26 2000
@@ -2040,7 +2040,7 @@
 
     flush $_cgi(mailfid)
 
-    if {[file executable /usr/lib/sendmail]} {
+    if {[file executable /usr/sbin/sendmail]} {
 	exec /usr/lib/sendmail -t -odb < $_cgi(mailfile)
 	# Explanation:
 	# -t   means: pick up recipient from body
@@ -2056,6 +2056,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}