blob: da9d7984416d91ebd1902ae4103a7924c854e554 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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}
|