richter 00/01/24 21:36:55
Modified: . Embperl.pm EmbperlObject.pm TODO
Embperl Mail.pm Module.pm
emacs embperl.el
Log:
- cc and bcc in mail
Revision Changes Path
1.80 +0 -0 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- Embperl.pm 2000/01/20 20:32:10 1.79
+++ Embperl.pm 2000/01/25 05:36:53 1.80
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.79 2000/01/20 20:32:10 richter Exp $
+# $Id: Embperl.pm,v 1.80 2000/01/25 05:36:53 richter Exp $
#
###################################################################################
1.4 +0 -0 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- EmbperlObject.pm 2000/01/20 20:32:11 1.3
+++ EmbperlObject.pm 2000/01/25 05:36:54 1.4
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlObject.pm,v 1.3 2000/01/20 20:32:11 richter Exp $
+# $Id: EmbperlObject.pm,v 1.4 2000/01/25 05:36:54 richter Exp $
#
###################################################################################
1.81 +2 -2 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- TODO 2000/01/20 20:32:11 1.80
+++ TODO 2000/01/25 05:36:54 1.81
@@ -51,6 +51,8 @@
- make multifiled delimiter \t configurabel [Jean-Philippe FAUVELLE 13.12.99]
+- move default logfile to a safer place then /tmp [Christain Gilmore 20.01.00]
+
Test
----
- test FORBIDDEN
@@ -78,8 +80,6 @@
- don�t find end of href inside of [+ +] [James Sheridan-Peters 29.11.99]
- contrib from Ken Hinckley 2.12.99
-
-- logfile is opened even if EMBPERL_DEBUG is zero [Jason Bodar 20.1.00]
Docs
----
1.3 +53 -4 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Mail.pm 2000/01/20 20:32:13 1.2
+++ Mail.pm 2000/01/25 05:36:55 1.3
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.2 2000/01/20 20:32:13 richter Exp $
+# $Id: Mail.pm,v 1.3 2000/01/25 05:36:55 richter Exp $
#
###################################################################################
@@ -32,7 +32,7 @@
@ISA = qw(HTML::Embperl);
-$VERSION = '0.01_dev-1';
+$VERSION = '0.01_dev-2';
@@ -63,7 +63,8 @@
my $smtp = Net::SMTP->new($req -> {mailhost},
Debug => $req -> {maildebug} ||
$ENV{'EMBPERL_MAILDEBUG'}) or die "Cannot connect to mailhost $req->{mailhost}" ;
- $smtp->mail($req -> {from} || $ENV{'EMBPERL_MAILFROM'} ||
"WWW-Server\@$ENV{SERVER_NAME}");
+ my $from = $req -> {from} || $ENV{'EMBPERL_MAILFROM'} ;
+ $smtp->mail($from || "WWW-Server\@$ENV{SERVER_NAME}");
my $to ;
if (ref ($req -> {'to'}))
@@ -76,12 +77,44 @@
@$to = split (/\s*;\s*/, $req -> {'to'}) ;
}
- $smtp -> to (@$to) ;
+ my $cc ;
+ if (ref ($req -> {'cc'}))
+ {
+ $cc = $req -> {'cc'} ;
+ }
+ else
+ {
+ $cc = [] ;
+ @$cc = split (/\s*;\s*/, $req -> {'cc'}) ;
+ }
+
+ my $bcc ;
+ if (ref ($req -> {'bcc'}))
+ {
+ $bcc = $req -> {'bcc'} ;
+ }
+ else
+ {
+ $bcc = [] ;
+ @$bcc = split (/\s*;\s*/, $req -> {'bcc'}) ;
+ }
+ my $headers = $req->{mailheaders} ;
+ $smtp -> to (@$to, @$cc, @$bcc) ;
+
$smtp->data() or die "smtp data failed" ;
$smtp->datasend("Reply-To: $req->{'reply-to'}\n") or die "smtp data failed"
if ($req->{'reply-to'}) ;
- $smtp->datasend("To: @$to\n") or die "smtp datasend failed" ;
+ $smtp->datasend("From: $from\n") if ($from) ;
+ $smtp->datasend("To: " . join (', ', @$to) . "\n") or die "smtp datasend
failed" ;
+ $smtp->datasend("Cc: " . join (', ', @$cc) . "\n") or die "smtp datasend
failed" if ($req -> {'cc'}) ;
$smtp->datasend("Subject: $req->{subject}\n") or die "smtp datasend failed"
;
+ if (ref ($headers) eq 'ARRAY')
+ {
+ foreach (@$headers)
+ {
+ $smtp->datasend("$_\n") or die "smtp datasend failed" ;
+ }
+ }
$smtp->datasend("\n") or die "smtp datasend failed" ;
$smtp->datasend($data) or die "smtp datasend failed" ;
$smtp->quit or die "smtp quit failed" ;
@@ -138,6 +171,18 @@
gives the recipient address(es). Multiply addresses can either be separated by
semikolon
or given as an array ref.
+=item cc
+
+gives the recipient address(es) which should receive a carbon copy. Multiply
addresses can
+either be separated by semikolon
+or given as an array ref.
+
+=item bcc
+
+gives the recipient address(es) which should receive a blind carbon copy. Multiply
addresses can
+either be separated by semikolon
+or given as an array ref.
+
=item subject
gives the subject line
@@ -145,6 +190,10 @@
=item reply-to
the given address is insert as reply address
+
+=item mailheaders
+
+Array ref of additional mail headers
=item mailhost
1.4 +0 -0 embperl/Embperl/Module.pm
Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Module.pm 2000/01/20 20:32:13 1.3
+++ Module.pm 2000/01/25 05:36:55 1.4
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.3 2000/01/20 20:32:13 richter Exp $
+# $Id: Module.pm,v 1.4 2000/01/25 05:36:55 richter Exp $
#
###################################################################################
@@ -25,7 +25,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.3 2000/01/20 20:32:13 richter Exp $
+# $Id: Module.pm,v 1.4 2000/01/25 05:36:55 richter Exp $
#
###################################################################################
1.72 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- embperl.el 2000/01/20 20:32:14 1.71
+++ embperl.el 2000/01/25 05:36:55 1.72
@@ -19,9 +19,9 @@
;; Author : Erik Arneson ([EMAIL PROTECTED])
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 2000/01/20 20:32:14 $
+;; Last Modified On: $Date: 2000/01/25 05:36:55 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.71 2000/01/20 20:32:14 richter Exp $
+;; $Id: embperl.el,v 1.72 2000/01/25 05:36:55 richter Exp $
;;
;; Please note that this software is very beta and rather broken. I
;; don't know how useful it will be, although I definitely plan on
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
