0.14_20 commit

diff --git a/Makefile b/Makefile
index 45f7dbeb0ce23e5c8bd505861d73d2d284ef2897..6fa066f6d1f075a3897ecd2a6d2f7b41ea7cb483 100755 (executable)
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-VERSION=0.14_19
+VERSION=0.14_20
 DISTNAME=bse-$(VERSION)
 DISTBUILD=$(DISTNAME)
 DISTTAR=../$(DISTNAME).tar

diff --git a/site/cgi-bin/modules/BSE/Mail/SMTP.pm b/site/cgi-bin/modules/BSE/Mail/SMTP.pm
index 21532082d82d0afe4b751b3d3dcd343a86974ebc..c676b38cc0f974ae22980ff6a0d870f50381bf80 100644 (file)
--- a/site/cgi-bin/modules/BSE/Mail/SMTP.pm
+++ b/site/cgi-bin/modules/BSE/Mail/SMTP.pm
@@ -37,6 +37,10 @@ sub send {
     or return $self->_error("mail command failed: ".$smtp->message);
   $smtp->to($args{to})
     or return $self->_error("RCPT command failed: ".$smtp->message);
+  if ($args{bcc}) {
+    $smtp->to($args{bcc})
+      or return $self->_error("RCPT command failed (BCC): ".$smtp->message);
+  }
   $smtp->data()
     or return $self->_error("DATA command failed: ".$smtp->message);
   $smtp->datasend("To: $args{to}\n");

diff --git a/site/cgi-bin/modules/BSE/Mail/Sendmail.pm b/site/cgi-bin/modules/BSE/Mail/Sendmail.pm
index 08b0087d99a062b997f9c93cfc49335855407aad..f49ba6895f29a6fcd160fe460822f1afa73b8355 100644 (file)
--- a/site/cgi-bin/modules/BSE/Mail/Sendmail.pm
+++ b/site/cgi-bin/modules/BSE/Mail/Sendmail.pm
@@ -27,6 +27,10 @@ sub send {
   $args{headers} =~ /^\s/
     and return $self->_error("headers starts with whitespace");
 
+  if ($args{bcc}) {
+    $args{headers} = "Bcc: $args{bcc}\n".$args{headers};
+  }
+
   my $cfg = $self->{cfg};
   my $sendmail = $cfg->entry('mail', 'sendmail') || '/usr/lib/sendmail';
   my $opts = $cfg->entry('mail', 'sendmail_opts') || '-t -oi';

diff --git a/site/docs/bse.pod b/site/docs/bse.pod
index 2b7b9f7682e50e318e7b2aa1352f45eee8328f34..86cdb90044eb0969087c2dbe8693122c1354fa0c 100644 (file)
--- a/site/docs/bse.pod
+++ b/site/docs/bse.pod
@@ -10,6 +10,17 @@ Maybe I'll add some other bits here.
 
 =head1 CHANGES
 
+=head2 0.14_20
+
+=over
+
+=item *
+
+BSE::Mail::* now accept a bcc address parameter.  This is intended for
+use by nPort.
+
+=back
+
 =head2 0.14_19
 
 =over