richter 99/12/12 11:32:44
Modified: . Changes.pod Embperl.pm Embperl.pod Embperl.xs
EmbperlD.pod TODO
emacs embperl.el
test/cmp safe.htm
test/html/safe safe.htm
Log:
- fix a SIGSEGV that could occur under rare conditions in
cleanup. With help from Todd Eigenschink and Gary Shea.
Revision Changes Path
1.92 +7 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /export/home/cvs/embperl/Changes.pod,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -r1.91 -r1.92
--- Changes.pod 1999/11/25 12:48:55 1.91
+++ Changes.pod 1999/12/12 19:32:29 1.92
@@ -1,8 +1,10 @@
=pod
+=head1 1.2.1_dev -- That's what currently under developement
+Last Update: <$localtime$> (MET)
-=head1 1.2.1_dev
+NOTE: This version is only available via L<"CVS"|CVS/"INTRO">
- fdat parameter of Execute function isn�t honoured when
call from CGI script which has received multipart/formdata.
@@ -11,6 +13,10 @@
given in calls to Execute.
- if mtime parameter is undef or 0, now the pcode really isn't
cached. Spotted by Neeme Vool.
+ - EMBPERL_OPTIONS and EMBPERL_DEBUG (debug, options) accepts
+ now decimal, binary, octal and hex values.
+ - fix a SIGSEGV that could occur under rare conditions in
+ cleanup. With help from Todd Eigenschink and Gary Shea.
=head1 1.2.0 17 Nov 1999
1.72 +5 -0 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /export/home/cvs/embperl/Embperl.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- Embperl.pm 1999/11/25 12:48:56 1.71
+++ Embperl.pm 1999/12/12 19:32:30 1.72
@@ -656,6 +656,11 @@
elsif (exists $INC{'Apache.pm'})
{ $req_rec = Apache->request }
+ if (exists $$req{'debug'})
+ { $$req{'debug'} = oct($$req{'debug'}) if ($$req{'debug'} =~ /^0/) ; }
+ if (exists $$req{'options'})
+ { $$req{'options'} = oct($$req{'options'}) if ($$req{'options'} =~ /^0/) ; }
+
if (defined ($$req{'virtlog'}) && $$req{'virtlog'} eq $$req{'uri'})
{
1.36 +8 -11 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /export/home/cvs/embperl/Embperl.pod,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- Embperl.pod 1999/11/04 05:30:01 1.35
+++ Embperl.pod 1999/12/12 19:32:31 1.36
@@ -121,7 +121,7 @@
must compile C<Apache httpd> with C<mod_perl> and add C<HTML::Embperl>
as the C<PerlHandler>.
-Example of Apache C<srm.conf>:
+Example of Apache C<srm.conf> or C<httpd.conf>:
SetEnv EMBPERL_DEBUG 2285
@@ -133,7 +133,7 @@
Options ExecCGI
</Location>
-Another possible setup (for Apache 1.3bX see below) is
+Another possible setup is
SetEnv EMBPERL_DEBUG 2285
@@ -148,16 +148,7 @@
Don't forget the B<AddType>. In this setup, all files ending with
.epl are processed by Embperl.
-C<NOTE:> Since <Files> does not work the same in Apache 1.3bX as it
-does in Apache 1.2.x, you need to use <FilesMatch> instead.
- <FilesMatch ".*\.epl$">
- SetHandler perl-script
- PerlHandler HTML::Embperl
- Options ExecCGI
- </FilesMatch>
-
-
See the section L<"EMBPERL_DEBUG"> (dbgLogLink and EMBPERL_VIRTLOG) to find
out how you can configure Embperl so you can view the log file with
your browser!
@@ -1534,6 +1525,12 @@
using GET -- not from Embperl, but perhaps from the web server,
especially if you're using Embperl's CGI mode -- it is safer to use
POST.
+
+If multiple fields with the same name send to a Embperl page they will
+put in the same hash element and separated be tabs. You can split it up in
+an array, by writting:
+
+ @array = split (/\t/, $fdat{'fieldname'}) ;
Embperl also supports ENCTYPE multipart/form-data, which is used for
file uploads. The entry in %fdat corresponding to the file field will
1.23 +4 -9 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /export/home/cvs/embperl/Embperl.xs,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- Embperl.xs 1999/11/02 08:32:42 1.22
+++ Embperl.xs 1999/12/12 19:32:32 1.23
@@ -70,20 +70,15 @@
embperl_GVFile(gv)
SV * gv
CODE:
- if (!gv)
- RETVAL = "" ;
- else
+ RETVAL = "" ;
+ if (gv && SvTYPE(gv) == SVt_PVGV)
{
GV * fgv = GvFILEGV(gv) ;
- if (!fgv)
- RETVAL = "" ;
- else
+ if (fgv && SvTYPE(fgv) == SVt_PVGV)
{
char * name = GvNAME (fgv) ;
- if (name && SvTYPE(fgv) == SVt_PVGV)
+ if (name)
RETVAL = name ;
- else
- RETVAL = "" ;
}
}
OUTPUT:
1.11 +4 -1 embperl/EmbperlD.pod
Index: EmbperlD.pod
===================================================================
RCS file: /export/home/cvs/embperl/EmbperlD.pod,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- EmbperlD.pod 1999/11/04 05:30:06 1.10
+++ EmbperlD.pod 1999/12/12 19:32:33 1.11
@@ -1439,7 +1439,10 @@
Das C<NAME> Attribute bildet den Schl�ssel und das C<VALUE>
Attribute den Wert des Hashelements. Dabei ist es egal, ob die Daten mittels
C<GET> oder C<POST> �betragen wurden. Existieren mehrere Werte mit dem selben Namen,
-werden diese mittels C<TAB> getrennt.
+werden diese mittels C<TAB> getrennt. Diese k�nnen z.B. mittels folgenden Code in
+ein Array zerlegt werden:
+
+ @array = split (/\t/, $fdat{'fieldname'}) ;
I<Embperl> unterst�tzt ebenfalls den Kodierungstyp B<multipart/form-data>,
der f�r Dateiuploads benutzt wird. Das Element in C<%fdat> enth�lt dann
1.74 +8 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /export/home/cvs/embperl/TODO,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -r1.73 -r1.74
--- TODO 1999/11/25 12:48:56 1.73
+++ TODO 1999/12/12 19:32:33 1.74
@@ -46,6 +46,8 @@
- url escape <input src>
+- allow null bytes in output [ARnel Estanisloa 4.12.99]
+
Test
----
- test FORBIDDEN
@@ -75,6 +77,12 @@
- 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
Docs
----
1.59 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /export/home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- embperl.el 1999/11/25 14:11:24 1.58
+++ embperl.el 1999/12/12 19:32:38 1.59
@@ -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/11/25 14:11:24 $
+;; Last Modified On: $Date: 1999/12/12 19:32:38 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.58 1999/11/25 14:11:24 richter Exp $
+;; $Id: embperl.el,v 1.59 1999/12/12 19:32:38 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.4 +8 -1 embperl/test/cmp/safe.htm
Index: safe.htm
===================================================================
RCS file: /export/home/cvs/embperl/test/cmp/safe.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- safe.htm 1999/10/05 06:02:20 1.3
+++ safe.htm 1999/12/12 19:32:41 1.4
@@ -334,6 +334,13 @@
</tr>
</table>
+1
+
+ 10
+
+ 100
+
+ 1000
</body>
</html>
-
+
1.2 +6 -0 embperl/test/html/safe/safe.htm
Index: safe.htm
===================================================================
RCS file: /export/home/cvs/embperl/test/html/safe/safe.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- safe.htm 1998/07/14 20:11:25 1.1
+++ safe.htm 1999/12/12 19:32:43 1.2
@@ -216,5 +216,11 @@
</tr>
</table>
+[- @fe = (1, 10, 100, 1000) -]
+[$ foreach $fe @fe $]
+ [+ $fe +]
+[$ endforeach $]
+
+
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
