richter 99/12/31 06:07:31
Modified: . Changes.pod Embperl.pm Embperl.pod EmbperlD.pod
TODO
emacs embperl.el
Log:
- specify domain/hostname when sending mail via MailFormTo
- add EMBPERL_MAILFROM config, to make sender used by
MailFormTo configurable
- add EMBPERL_MAILDEBUG config, to allow debugging of email
problems in MailFormTo
Revision Changes Path
1.94 +5 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /export/home/cvs/embperl/Changes.pod,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -r1.93 -r1.94
--- Changes.pod 1999/12/31 13:51:47 1.93
+++ Changes.pod 1999/12/31 14:07:28 1.94
@@ -19,7 +19,11 @@
cleanup. With help from Todd Eigenschink and Gary Shea.
- fix a problem that $req_rec is not correctly setup inside
imported subs. Reported by Cliff Rayman.
-
+ - specify domain/hostname when sending mail via MailFormTo
+ - add EMBPERL_MAILFROM config, to make sender used by
+ MailFormTo configurable
+ - add EMBPERL_MAILDEBUG config, to allow debugging of email
+ problems in MailFormTo
=head1 1.2.0 17 Nov 1999
1.74 +3 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /export/home/cvs/embperl/Embperl.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -r1.73 -r1.74
--- Embperl.pm 1999/12/31 13:51:47 1.73
+++ Embperl.pm 1999/12/31 14:07:29 1.74
@@ -1376,8 +1376,8 @@
#die "require Net::SMTP failed: $@" if ($@);
require Net::SMTP ;
- $smtp = Net::SMTP->new($ENV{'EMBPERL_MAILHOST'} || 'localhost') or die "Cannot
connect to mailhost" ;
- { $smtp->mail('WWW-Server');}
+ $smtp = Net::SMTP->new($ENV{'EMBPERL_MAILHOST'} || 'localhost', Debug =>
$ENV{'EMBPERL_MAILDEBUG'}) or die "Cannot connect to mailhost" ;
+ { $smtp->mail($ENV{'EMBPERL_MAILFROM'} || "WWW-Server\@$ENV{SERVER_NAME}");}
$smtp->to($to);
$ok = $smtp->data();
$ok = $smtp->datasend("Reply-To: $ret\n") if ($ok && $ret) ;
@@ -1718,7 +1718,7 @@
#die "require Net::SMTP failed: $@" if ($@);
require Net::SMTP ;
- my $smtp = Net::SMTP->new($ENV{'EMBPERL_MAILHOST'} || 'localhost') or die
"Cannot connect to mailhost" ;
+ my $smtp = Net::SMTP->new($ENV{'EMBPERL_MAILHOST'} || 'localhost', Debug =>
$ENV{'EMBPERL_MAILDEBUG'}) or die "Cannot connect to mailhost" ;
$smtp->mail("Embperl\@$ENV{SERVER_NAME}");
$smtp->to($to);
my $ok = $smtp->data();
1.37 +9 -0 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /export/home/cvs/embperl/Embperl.pod,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- Embperl.pod 1999/12/12 19:32:31 1.36
+++ Embperl.pod 1999/12/31 14:07:29 1.37
@@ -931,6 +931,15 @@
Specifies which host the L<MailFormTo|"MailFormTo($MailTo, $Subject,
$ReturnField)"> function uses as SMTP server.
Default is B<localhost>.
+=head2 EMBPERL_MAILFROM
+
+(only 1.2.1 or above) Specifies which the email address that is used as sender by
L<MailFormTo|"MailFormTo($MailTo, $Subject, $ReturnField)">.
+Default is B<www-server@server_name>.
+
+=head2 EMBPERL_MAILDEBUG
+
+(only 1.2.1 or above) Debugsetting for Net::SMTP. Default is 0.
+
=head2 EMBPERL_MAIL_ERRORS_TO
If set all errors will be send to the email adress given.
1.12 +10 -0 embperl/EmbperlD.pod
Index: EmbperlD.pod
===================================================================
RCS file: /export/home/cvs/embperl/EmbperlD.pod,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- EmbperlD.pod 1999/12/12 19:32:33 1.11
+++ EmbperlD.pod 1999/12/31 14:07:29 1.12
@@ -864,6 +864,16 @@
Funktion als SMTP Server genutzt wird.
Default ist B<localhost>.
+=head2 EMBPERL_MAILFROM (ab 1.2.1)
+
+Gibt die Absender EMail-Adresse an die von der L<MailFormTo|"MailFormTo($MailTo,
$Subject, $ReturnField)">
+Funktion genutzt wird.
+Default ist B<www-server@server_name>.
+
+=head2 EMBPERL_MAILDEBUG (ab 1.2.1)
+
+Debugeinstellung f�r Net::SMTP. Default ist 0.
+
=head2 EMBPERL_MAIL_ERRORS_TO (ab 1.2b6)
Wenn hier eine E-Mail Adresse angegeben ist, wird beim Auftreten eines
1.77 +0 -6 embperl/TODO
Index: TODO
===================================================================
RCS file: /export/home/cvs/embperl/TODO,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -r1.76 -r1.77
--- TODO 1999/12/31 13:51:47 1.76
+++ TODO 1999/12/31 14:07:29 1.77
@@ -30,8 +30,6 @@
- BEGIN/END Blocks [Jason Bodnar 6.10.99]
-- MailFormTo Debug, sender addr
-
- return value from sub
- build with perl > 5.005_61
@@ -76,15 +74,11 @@
- requrie in [! !] Blocks? [Jens Alm 22.9.99]
-- $req_rec get lost in nested imported subroutines after a time [Cliff Rayman
19.11.99]
-
- ProxyInput and caching [Neeme Vool 25.11.99]
- ProxyInput and post requests [Neeme Vool 25.11.99]
- don�t find end of href inside of [+ +] [James Sheridan-Peters 29.11.99]
-
-- MailFormTo sender adressen need domain name [Scott Chapman 30.11.99]
- contrib from Ken Hinckley 2.12.99
1.62 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /export/home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- embperl.el 1999/12/31 13:51:48 1.61
+++ embperl.el 1999/12/31 14:07:31 1.62
@@ -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: 1999/12/31 13:51:48 $
+;; Last Modified On: $Date: 1999/12/31 14:07:31 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.61 1999/12/31 13:51:48 richter Exp $
+;; $Id: embperl.el,v 1.62 1999/12/31 14:07:31 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]
