richter 00/01/20 12:32:14
Modified: . Changes.pod Embperl.pm EmbperlObject.pm TODO
epmain.c
Embperl Mail.pm Module.pm
emacs embperl.el
test/conf startup_dso.pl
Log:
- Fixed a bug, that the logfile if opened also EMBPERL_DEBUG is set
to zero. Now if debug is zero, no logfile will be opened. Spotted
by Jason Bodnar and Christian Gilmore.
Revision Changes Path
1.100 +3 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -r1.99 -r1.100
--- Changes.pod 2000/01/06 11:02:17 1.99
+++ Changes.pod 2000/01/20 20:32:10 1.100
@@ -14,7 +14,9 @@
not contain a path, is executed.
- added new module HTML::Embperl::Mail which sends a file processed via
Embperl by email.
-
+ - Fixed a bug, that the logfile if opened also EMBPERL_DEBUG is set
+ to zero. Now if debug is zero, no logfile will be opened. Spotted
+ by Jason Bodnar and Christian Gilmore.
=head1 1.2.1 5. Jan 2000
1.79 +0 -0 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -r1.78 -r1.79
--- Embperl.pm 2000/01/06 11:02:17 1.78
+++ Embperl.pm 2000/01/20 20:32:10 1.79
@@ -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.78 2000/01/06 11:02:17 richter Exp $
+# $Id: Embperl.pm,v 1.79 2000/01/20 20:32:10 richter Exp $
#
###################################################################################
1.3 +0 -0 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- EmbperlObject.pm 2000/01/06 11:02:17 1.2
+++ EmbperlObject.pm 2000/01/20 20:32:11 1.3
@@ -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.2 2000/01/06 11:02:17 richter Exp $
+# $Id: EmbperlObject.pm,v 1.3 2000/01/20 20:32:11 richter Exp $
#
###################################################################################
1.80 +2 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- TODO 2000/01/03 05:42:51 1.79
+++ TODO 2000/01/20 20:32:11 1.80
@@ -79,6 +79,8 @@
- contrib from Ken Hinckley 2.12.99
+- logfile is opened even if EMBPERL_DEBUG is zero [Jason Bodar 20.1.00]
+
Docs
----
- [- -] [+ +] etc all turns into _perl_code_ in html [S Page 13.9.99]
1.63 +6 -5 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -r1.62 -r1.63
--- epmain.c 1999/11/25 14:11:23 1.62
+++ epmain.c 2000/01/20 20:32:11 1.63
@@ -1247,7 +1247,7 @@
*/
struct ld_info *lp;
extern boot_HTML__Embperl();
- len = 4096;
+ int len = 4096;
if ((lp = malloc(len)) == NULL) {
abort();
@@ -1778,10 +1778,11 @@
tainted = 0 ;
- if ((rc = OpenLog (pCurrReq, NULL, 2)) != ok)
- {
- LogError (pCurrReq, rc) ;
- }
+ if (pConf -> bDebug)
+ if ((rc = OpenLog (pCurrReq, NULL, 2)) != ok)
+ {
+ LogError (pCurrReq, rc) ;
+ }
EPENTRY (SetupRequest) ;
1.2 +6 -1 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Mail.pm 2000/01/06 11:02:18 1.1
+++ Mail.pm 2000/01/20 20:32:13 1.2
@@ -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.1 2000/01/06 11:02:18 richter Exp $
+# $Id: Mail.pm,v 1.2 2000/01/20 20:32:13 richter Exp $
#
###################################################################################
@@ -47,6 +47,7 @@
$req -> {options} ||= &HTML::Embperl::optDisableHtmlScan |
&HTML::Embperl::optRawInput |
&HTML::Embperl::optKeepSpaces |
&HTML::Embperl::optReturnError;
+ $req -> {escmode} ||= 0 ;
$req -> {output} = \$data ;
$req -> {errors} ||= \@errors ;
@@ -158,6 +159,10 @@
If no C<options> are given the following are used per default:
C<optDisableHtmlScan>, C<optRawInput>, C<optKeepSpaces>, C<optReturnError>
+
+=item escmode
+
+In contrast to normal I<Embperl> escmode defaults to zero (no escape)
=item errors
1.3 +0 -0 embperl/Embperl/Module.pm
Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Module.pm 2000/01/06 11:02:18 1.2
+++ Module.pm 2000/01/20 20:32:13 1.3
@@ -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.2 2000/01/06 11:02:18 richter Exp $
+# $Id: Module.pm,v 1.3 2000/01/20 20:32:13 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.2 2000/01/06 11:02:18 richter Exp $
+# $Id: Module.pm,v 1.3 2000/01/20 20:32:13 richter Exp $
#
###################################################################################
1.71 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- embperl.el 2000/01/06 11:02:18 1.70
+++ embperl.el 2000/01/20 20:32:14 1.71
@@ -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/06 11:02:18 $
+;; Last Modified On: $Date: 2000/01/20 20:32:14 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.70 2000/01/06 11:02:18 richter Exp $
+;; $Id: embperl.el,v 1.71 2000/01/20 20:32:14 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
1.8 +0 -1 embperl/test/conf/startup_dso.pl
Index: startup_dso.pl
===================================================================
RCS file: /home/cvs/embperl/test/conf/startup_dso.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- startup_dso.pl 1999/11/04 05:30:21 1.7
+++ startup_dso.pl 2000/01/20 20:32:14 1.8
@@ -11,5 +11,4 @@
} ;
-
1 ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
