[interchange-cvs] interchange - jon modified lib/Vend/Util.pm

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-05-02 00:30:05 GMT
Modified:  lib/Vend Tag: STABLE_4_8-branch Util.pm
Log:
Supply missing argument to sendmail, which kept order email from being
delivered to shopkeeper.

Thanks to Kari Suomela and Gur for reporting, and Stefan for the fix.

Revision  Changes    Path
No                   revision



No                   revision



2.1.2.8   +3 -3      interchange/lib/Vend/Util.pm


rev 2.1.2.8, prev_rev 2.1.2.7
Index: Util.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Util.pm,v
retrieving revision 2.1.2.7
retrieving revision 2.1.2.8
diff -u -u -r2.1.2.7 -r2.1.2.8
--- Util.pm	15 Apr 2002 14:38:14 -0000	2.1.2.7
+++ Util.pm	2 May 2002 00:30:05 -0000	2.1.2.8
@@ -1,6 +1,6 @@
 # Vend::Util - Interchange utility functions
 #
-# $Id: Util.pm,v 2.1.2.7 2002/04/15 14:38:14 jon Exp $
+# $Id: Util.pm,v 2.1.2.8 2002/05/02 00:30:05 jon Exp $
 # 
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -74,7 +74,7 @@
 use Errno;
 use subs qw(logError logGlobal);
 use vars qw($VERSION @EXPORT @EXPORT_OK);
-$VERSION = substr(q$Revision: 2.1.2.7 $, 10);
+$VERSION = substr(q$Revision: 2.1.2.8 $, 10);
 
 BEGIN {
 	eval {
@@ -1986,7 +1986,7 @@
 #::logDebug("testing sendmail send none=$none");
 		last SEND if $none;
 #::logDebug("in Sendmail send $using");
-		open(MVMAIL,"|$Vend::Cfg->{SendMailProgram}") or last SEND;
+		open(MVMAIL,"|$Vend::Cfg->{SendMailProgram} -t") or last SEND;
 		my $mime = '';
 		$mime = Vend::Interpolate::mime('header', {}, '') if $use_mime;
 		print MVMAIL "To: $to\n", $reply, "Subject: $subject\n"