richter 01/04/25 02:25:17
Modified: . Tag: Embperl2c Embperl.pm MANIFEST Makefile.PL TODO
ep.h epchar.c epchar.c.iso-latin-2 epchar.c.min
epmain.c eputil.c
Added: . Tag: Embperl2c epapinit.c
Log:
Embperl 2 - escaping & server name
Revision Changes Path
No revision
No revision
1.118.4.30 +1 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.29
retrieving revision 1.118.4.30
diff -u -r1.118.4.29 -r1.118.4.30
--- Embperl.pm 2001/04/16 18:32:29 1.118.4.29
+++ Embperl.pm 2001/04/25 09:24:59 1.118.4.30
@@ -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.118.4.29 2001/04/16 18:32:29 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.30 2001/04/25 09:24:59 richter Exp $
#
###################################################################################
@@ -1856,7 +1856,6 @@
my $domain = "; domain=$ENV{EMBPERL_COOKIE_DOMAIN}" if (exists
($ENV{EMBPERL_COOKIE_DOMAIN})) ;
my $path = "; path=$ENV{EMBPERL_COOKIE_PATH}" if (exists
($ENV{EMBPERL_COOKIE_PATH})) ;
my $expires = "; expires=$ENV{EMBPERL_COOKIE_EXPIRES}" if (exists
($ENV{EMBPERL_COOKIE_EXPIRES})) ;
- $expires = "; expires=Thu, 1-Jan-1970 00:00:01 GMT" if ($id && !$initialid)
;
if ($id || $initialid)
{
1.50.4.16 +1 -1 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.15
retrieving revision 1.50.4.16
diff -u -r1.50.4.15 -r1.50.4.16
--- MANIFEST 2001/04/16 18:32:29 1.50.4.15
+++ MANIFEST 2001/04/25 09:25:00 1.50.4.16
@@ -117,7 +117,7 @@
eputil.c
epnames.h
epmacro.h
-epdbg.c
+epapinit.c
test.pl
test/html/ascii
test/html/binary.htm
1.31.4.9 +6 -6 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.31.4.8
retrieving revision 1.31.4.9
diff -u -r1.31.4.8 -r1.31.4.9
--- Makefile.PL 2001/03/27 11:52:00 1.31.4.8
+++ Makefile.PL 2001/04/25 09:25:01 1.31.4.9
@@ -792,11 +792,11 @@
$SessVer ||= 0 ;
- if (($FSVer = CheckModule ("File::Spec", "-> Required for EmbperlObject, make
test will fail whithout File::Spec")) < 0.82)
- {
- print "-> EmbperlObject requires File::Spec 0.82 or higher, found $FSVer,
please upgrade!\n" ;
- }
-
+ if (($FSVer = CheckModule ("File::Spec", "-> Required for EmbperlObject, make
test will fail whithout File::Spec")) < 0.82)
+ {
+ print "-> EmbperlObject requires File::Spec 0.82 or higher, found $FSVer,
please upgrade!\n" ;
+ }
+
CheckModule ("CGI", "-> File Upload will not work without CGI.pm installed") ;
### write out test configuration file ###
@@ -907,7 +907,7 @@
WriteMakefile(
'NAME' => 'HTML::Embperl',
'VERSION_FROM' => 'Embperl.pm', # finds $VERSION
- 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) ' .
+ 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) epapinit$(OBJ_EXT)
' .
($EP2?'epcmd2$(OBJ_EXT) epparse$(OBJ_EXT) epdom$(OBJ_EXT)
epcomp$(OBJ_EXT)':'') . $o,
'LIBS' => [''],
'DEFINE' => "$d \$(DEFS)",
1.97.4.3 +2 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.97.4.2
retrieving revision 1.97.4.3
diff -u -r1.97.4.2 -r1.97.4.3
--- TODO 2001/03/28 19:16:03 1.97.4.2
+++ TODO 2001/04/25 09:25:01 1.97.4.3
@@ -139,6 +139,8 @@
- rawinput/include.htm mem: 5,6,7
+- split multiple values in URLS [Kee Hinckley 18.4.01]
+
Docs 2.0
--------
1.27.4.12 +4 -1 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.27.4.11
retrieving revision 1.27.4.12
diff -u -r1.27.4.11 -r1.27.4.12
--- ep.h 2001/03/28 10:07:30 1.27.4.11
+++ ep.h 2001/04/25 09:25:02 1.27.4.12
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: ep.h,v 1.27.4.11 2001/03/28 10:07:30 richter Exp $
+# $Id: ep.h,v 1.27.4.12 2001/04/25 09:25:02 richter Exp $
#
###################################################################################*/
@@ -144,6 +144,9 @@
#elif MODULE_MAGIC_NUMBER >= 19980413
#include "compat.h"
#endif
+
+module MODULE_VAR_EXPORT embperl_module;
+
#endif
struct tReq ;
1.12.4.2 +1 -1 embperl/epchar.c
Index: epchar.c
===================================================================
RCS file: /home/cvs/embperl/epchar.c,v
retrieving revision 1.12.4.1
retrieving revision 1.12.4.2
diff -u -r1.12.4.1 -r1.12.4.2
--- epchar.c 2001/03/27 11:52:05 1.12.4.1
+++ epchar.c 2001/04/25 09:25:04 1.12.4.2
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epchar.c,v 1.12.4.1 2001/03/27 11:52:05 richter Exp $
+# $Id: epchar.c,v 1.12.4.2 2001/04/25 09:25:04 richter Exp $
#
###################################################################################*/
@@ -352,7 +352,7 @@
{ '8' , "" }, /* 8 Digit 8 */
{ '9' , "" }, /* 9 Digit 9 */
{ ':' , "" }, /* : Colon */
- { ';' , "" }, /* ; Semicolon */
+ { ';' , "%3B" }, /* ; Semicolon */
{ '<' , "%3C" }, /* Less than */
{ '=' , "%3D" }, /* = Equals sign */
{ '>' , "%3E" }, /* Greater than */
1.3.6.2 +66 -68 embperl/epchar.c.iso-latin-2
Index: epchar.c.iso-latin-2
===================================================================
RCS file: /home/cvs/embperl/epchar.c.iso-latin-2,v
retrieving revision 1.3.6.1
retrieving revision 1.3.6.2
diff -u -r1.3.6.1 -r1.3.6.2
--- epchar.c.iso-latin-2 2001/03/28 10:07:30 1.3.6.1
+++ epchar.c.iso-latin-2 2001/04/25 09:25:05 1.3.6.2
@@ -1,6 +1,6 @@
/*###################################################################################
#
-# Embperl - Copyright (c) 1997-2001 Gerald Richter / ECOS
+# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
@@ -10,8 +10,6 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epchar.c.iso-latin-2,v 1.3.6.1 2001/03/28 10:07:30 richter Exp $
-#
###################################################################################*/
@@ -293,71 +291,71 @@
struct tCharTrans Char2Url [] =
{
- { ' ' , "%00" }, /* � Unused */
- { ' ' , "%01" }, /*  Unused */
- { ' ' , "%02" }, /*  Unused */
- { ' ' , "%03" }, /*  Unused */
- { ' ' , "%04" }, /*  Unused */
- { ' ' , "%05" }, /*  Unused */
- { ' ' , "%06" }, /*  Unused */
- { ' ' , "%07" }, /*  Unused */
- { ' ' , "%08" }, /*  Unused */
- { ' ' , "%09" }, /* 	 Horizontal tab */
- { ' ' , "%0A" }, /* Line feed */
- { ' ' , "%0B" }, /*  Unused */
- { ' ' , "%0C" }, /*  Unused */
- { ' ' , "%0D" }, /* Carriage Return */
- { ' ' , "%0E" }, /*  Unused */
- { ' ' , "%0F" }, /*  Unused */
- { ' ' , "%10" }, /*  Unused */
- { ' ' , "%11" }, /*  Unused */
- { ' ' , "%12" }, /*  Unused */
- { ' ' , "%13" }, /*  Unused */
- { ' ' , "%14" }, /*  Unused */
- { ' ' , "%15" }, /*  Unused */
- { ' ' , "%16" }, /*  Unused */
- { ' ' , "%17" }, /*  Unused */
- { ' ' , "%18" }, /*  Unused */
- { ' ' , "%19" }, /*  Unused */
- { ' ' , "%1A" }, /*  Unused */
- { ' ' , "%1B" }, /*  Unused */
- { ' ' , "%1C" }, /*  Unused */
- { ' ' , "%1D" }, /*  Unused */
- { ' ' , "%1E" }, /*  Unused */
- { ' ' , "%1F" }, /*  Unused */
- { ' ' , "+" }, /*   Space */
- { '!' , "" }, /* ! Exclamation mark */
- { '"' , "%22" }, /* Quotation mark */
- { '#' , "" }, /* # Number sign */
- { '$' , "" }, /* $ Dollar sign */
- { '%' , "%25" }, /* % Percent sign */
- { '&' , "%26" }, /* Ampersand */
- { '\'' , "" }, /* ' Apostrophe */
- { '(' , "" }, /* ( Left parenthesis */
- { ')' , "" }, /* ) Right parenthesis */
- { '*' , "" }, /* * Asterisk */
- { '+' , "%2B" }, /* + Plus sign */
- { ',' , "" }, /* , Comma */
- { '-' , "" }, /* - Hyphen */
- { '.' , "" }, /* . Period (fullstop) */
- { '/' , "" }, /* / Solidus (slash) */
- { '0' , "" }, /* 0 Digit 0 */
- { '1' , "" }, /* 1 Digit 1 */
- { '2' , "" }, /* 2 Digit 2 */
- { '3' , "" }, /* 3 Digit 3 */
- { '4' , "" }, /* 4 Digit 4 */
- { '5' , "" }, /* 5 Digit 5 */
- { '6' , "" }, /* 6 Digit 6 */
- { '7' , "" }, /* 7 Digit 7 */
- { '8' , "" }, /* 8 Digit 8 */
- { '9' , "" }, /* 9 Digit 9 */
- { ':' , "" }, /* : Colon */
- { ';' , "" }, /* ; Semicolon */
- { '<' , "" }, /* Less than */
- { '=' , "%3D" }, /* = Equals sign */
- { '>' , "" }, /* Greater than */
- { '?' , "%3F" }, /* ? Question mark */
- { '@' , "" }, /* @ Commercial at */
+ { ' ' , "%00" }, /* � Unused */
+ { ' ' , "%01" }, /*  Unused */
+ { ' ' , "%02" }, /*  Unused */
+ { ' ' , "%03" }, /*  Unused */
+ { ' ' , "%04" }, /*  Unused */
+ { ' ' , "%05" }, /*  Unused */
+ { ' ' , "%06" }, /*  Unused */
+ { ' ' , "%07" }, /*  Unused */
+ { ' ' , "%08" }, /*  Unused */
+ { ' ' , "%09" }, /* 	 Horizontal tab */
+ { ' ' , "%0A" }, /* Line feed */
+ { ' ' , "%0B" }, /*  Unused */
+ { ' ' , "%0C" }, /*  Unused */
+ { ' ' , "%0D" }, /* Carriage Return */
+ { ' ' , "%0E" }, /*  Unused */
+ { ' ' , "%0F" }, /*  Unused */
+ { ' ' , "%10" }, /*  Unused */
+ { ' ' , "%11" }, /*  Unused */
+ { ' ' , "%12" }, /*  Unused */
+ { ' ' , "%13" }, /*  Unused */
+ { ' ' , "%14" }, /*  Unused */
+ { ' ' , "%15" }, /*  Unused */
+ { ' ' , "%16" }, /*  Unused */
+ { ' ' , "%17" }, /*  Unused */
+ { ' ' , "%18" }, /*  Unused */
+ { ' ' , "%19" }, /*  Unused */
+ { ' ' , "%1A" }, /*  Unused */
+ { ' ' , "%1B" }, /*  Unused */
+ { ' ' , "%1C" }, /*  Unused */
+ { ' ' , "%1D" }, /*  Unused */
+ { ' ' , "%1E" }, /*  Unused */
+ { ' ' , "%1F" }, /*  Unused */
+ { ' ' , "%20" }, /*   Space */
+ { '!' , "" }, /* ! Exclamation mark */
+ { '"' , "%22" }, /* Quotation mark */
+ { '#' , "" }, /* # Number sign */
+ { '$' , "" }, /* $ Dollar sign */
+ { '%' , "%25" }, /* % Percent sign */
+ { '&' , "%26" }, /* Ampersand */
+ { '\'' , "%27" }, /* ' Apostrophe */
+ { '(' , "" }, /* ( Left parenthesis */
+ { ')' , "" }, /* ) Right parenthesis */
+ { '*' , "" }, /* * Asterisk */
+ { '+' , "%2B" }, /* + Plus sign */
+ { ',' , "" }, /* , Comma */
+ { '-' , "" }, /* - Hyphen */
+ { '.' , "" }, /* . Period (fullstop) */
+ { '/' , "" }, /* / Solidus (slash) */
+ { '0' , "" }, /* 0 Digit 0 */
+ { '1' , "" }, /* 1 Digit 1 */
+ { '2' , "" }, /* 2 Digit 2 */
+ { '3' , "" }, /* 3 Digit 3 */
+ { '4' , "" }, /* 4 Digit 4 */
+ { '5' , "" }, /* 5 Digit 5 */
+ { '6' , "" }, /* 6 Digit 6 */
+ { '7' , "" }, /* 7 Digit 7 */
+ { '8' , "" }, /* 8 Digit 8 */
+ { '9' , "" }, /* 9 Digit 9 */
+ { ':' , "" }, /* : Colon */
+ { ';' , "%3B" }, /* ; Semicolon */
+ { '<' , "%3C" }, /* Less than */
+ { '=' , "%3D" }, /* = Equals sign */
+ { '>' , "%3E" }, /* Greater than */
+ { '?' , "%3F" }, /* ? Question mark */
+ { '@' , "" }, /* @ Commercial at */
{ 'A' , "" }, /* A Capital A */
{ 'B' , "" }, /* B Capital B */
{ 'C' , "" }, /* C Capital C */
1.2.4.2 +66 -68 embperl/epchar.c.min
Index: epchar.c.min
===================================================================
RCS file: /home/cvs/embperl/epchar.c.min,v
retrieving revision 1.2.4.1
retrieving revision 1.2.4.2
diff -u -r1.2.4.1 -r1.2.4.2
--- epchar.c.min 2001/03/28 10:07:30 1.2.4.1
+++ epchar.c.min 2001/04/25 09:25:05 1.2.4.2
@@ -1,6 +1,6 @@
/*###################################################################################
#
-# Embperl - Copyright (c) 1997-2001 Gerald Richter / ECOS
+# Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
@@ -10,8 +10,6 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epchar.c.min,v 1.2.4.1 2001/03/28 10:07:30 richter Exp $
-#
###################################################################################*/
/* minimal input and output escaping. It's usefull for other charsets then
@@ -297,71 +295,71 @@
struct tCharTrans Char2Url [] =
{
- { ' ' , "%00" }, /* � Unused */
- { ' ' , "%01" }, /*  Unused */
- { ' ' , "%02" }, /*  Unused */
- { ' ' , "%03" }, /*  Unused */
- { ' ' , "%04" }, /*  Unused */
- { ' ' , "%05" }, /*  Unused */
- { ' ' , "%06" }, /*  Unused */
- { ' ' , "%07" }, /*  Unused */
- { ' ' , "%08" }, /*  Unused */
- { ' ' , "%09" }, /* 	 Horizontal tab */
- { ' ' , "%0A" }, /* Line feed */
- { ' ' , "%0B" }, /*  Unused */
- { ' ' , "%0C" }, /*  Unused */
- { ' ' , "%0D" }, /* Carriage Return */
- { ' ' , "%0E" }, /*  Unused */
- { ' ' , "%0F" }, /*  Unused */
- { ' ' , "%10" }, /*  Unused */
- { ' ' , "%11" }, /*  Unused */
- { ' ' , "%12" }, /*  Unused */
- { ' ' , "%13" }, /*  Unused */
- { ' ' , "%14" }, /*  Unused */
- { ' ' , "%15" }, /*  Unused */
- { ' ' , "%16" }, /*  Unused */
- { ' ' , "%17" }, /*  Unused */
- { ' ' , "%18" }, /*  Unused */
- { ' ' , "%19" }, /*  Unused */
- { ' ' , "%1A" }, /*  Unused */
- { ' ' , "%1B" }, /*  Unused */
- { ' ' , "%1C" }, /*  Unused */
- { ' ' , "%1D" }, /*  Unused */
- { ' ' , "%1E" }, /*  Unused */
- { ' ' , "%1F" }, /*  Unused */
- { ' ' , "+" }, /*   Space */
- { '!' , "" }, /* ! Exclamation mark */
- { '"' , "%22" }, /* Quotation mark */
- { '#' , "" }, /* # Number sign */
- { '$' , "" }, /* $ Dollar sign */
- { '%' , "%25" }, /* % Percent sign */
- { '&' , "%26" }, /* Ampersand */
- { '\'' , "" }, /* ' Apostrophe */
- { '(' , "" }, /* ( Left parenthesis */
- { ')' , "" }, /* ) Right parenthesis */
- { '*' , "" }, /* * Asterisk */
- { '+' , "%2B" }, /* + Plus sign */
- { ',' , "" }, /* , Comma */
- { '-' , "" }, /* - Hyphen */
- { '.' , "" }, /* . Period (fullstop) */
- { '/' , "" }, /* / Solidus (slash) */
- { '0' , "" }, /* 0 Digit 0 */
- { '1' , "" }, /* 1 Digit 1 */
- { '2' , "" }, /* 2 Digit 2 */
- { '3' , "" }, /* 3 Digit 3 */
- { '4' , "" }, /* 4 Digit 4 */
- { '5' , "" }, /* 5 Digit 5 */
- { '6' , "" }, /* 6 Digit 6 */
- { '7' , "" }, /* 7 Digit 7 */
- { '8' , "" }, /* 8 Digit 8 */
- { '9' , "" }, /* 9 Digit 9 */
- { ':' , "" }, /* : Colon */
- { ';' , "" }, /* ; Semicolon */
- { '<' , "" }, /* Less than */
- { '=' , "%3D" }, /* = Equals sign */
- { '>' , "" }, /* Greater than */
- { '?' , "%3F" }, /* ? Question mark */
- { '@' , "" }, /* @ Commercial at */
+ { ' ' , "%00" }, /* � Unused */
+ { ' ' , "%01" }, /*  Unused */
+ { ' ' , "%02" }, /*  Unused */
+ { ' ' , "%03" }, /*  Unused */
+ { ' ' , "%04" }, /*  Unused */
+ { ' ' , "%05" }, /*  Unused */
+ { ' ' , "%06" }, /*  Unused */
+ { ' ' , "%07" }, /*  Unused */
+ { ' ' , "%08" }, /*  Unused */
+ { ' ' , "%09" }, /* 	 Horizontal tab */
+ { ' ' , "%0A" }, /* Line feed */
+ { ' ' , "%0B" }, /*  Unused */
+ { ' ' , "%0C" }, /*  Unused */
+ { ' ' , "%0D" }, /* Carriage Return */
+ { ' ' , "%0E" }, /*  Unused */
+ { ' ' , "%0F" }, /*  Unused */
+ { ' ' , "%10" }, /*  Unused */
+ { ' ' , "%11" }, /*  Unused */
+ { ' ' , "%12" }, /*  Unused */
+ { ' ' , "%13" }, /*  Unused */
+ { ' ' , "%14" }, /*  Unused */
+ { ' ' , "%15" }, /*  Unused */
+ { ' ' , "%16" }, /*  Unused */
+ { ' ' , "%17" }, /*  Unused */
+ { ' ' , "%18" }, /*  Unused */
+ { ' ' , "%19" }, /*  Unused */
+ { ' ' , "%1A" }, /*  Unused */
+ { ' ' , "%1B" }, /*  Unused */
+ { ' ' , "%1C" }, /*  Unused */
+ { ' ' , "%1D" }, /*  Unused */
+ { ' ' , "%1E" }, /*  Unused */
+ { ' ' , "%1F" }, /*  Unused */
+ { ' ' , "%20" }, /*   Space */
+ { '!' , "" }, /* ! Exclamation mark */
+ { '"' , "%22" }, /* Quotation mark */
+ { '#' , "" }, /* # Number sign */
+ { '$' , "" }, /* $ Dollar sign */
+ { '%' , "%25" }, /* % Percent sign */
+ { '&' , "%26" }, /* Ampersand */
+ { '\'' , "%27" }, /* ' Apostrophe */
+ { '(' , "" }, /* ( Left parenthesis */
+ { ')' , "" }, /* ) Right parenthesis */
+ { '*' , "" }, /* * Asterisk */
+ { '+' , "%2B" }, /* + Plus sign */
+ { ',' , "" }, /* , Comma */
+ { '-' , "" }, /* - Hyphen */
+ { '.' , "" }, /* . Period (fullstop) */
+ { '/' , "" }, /* / Solidus (slash) */
+ { '0' , "" }, /* 0 Digit 0 */
+ { '1' , "" }, /* 1 Digit 1 */
+ { '2' , "" }, /* 2 Digit 2 */
+ { '3' , "" }, /* 3 Digit 3 */
+ { '4' , "" }, /* 4 Digit 4 */
+ { '5' , "" }, /* 5 Digit 5 */
+ { '6' , "" }, /* 6 Digit 6 */
+ { '7' , "" }, /* 7 Digit 7 */
+ { '8' , "" }, /* 8 Digit 8 */
+ { '9' , "" }, /* 9 Digit 9 */
+ { ':' , "" }, /* : Colon */
+ { ';' , "%3B" }, /* ; Semicolon */
+ { '<' , "%3C" }, /* Less than */
+ { '=' , "%3D" }, /* = Equals sign */
+ { '>' , "%3E" }, /* Greater than */
+ { '?' , "%3F" }, /* ? Question mark */
+ { '@' , "" }, /* @ Commercial at */
{ 'A' , "" }, /* A Capital A */
{ 'B' , "" }, /* B Capital B */
{ 'C' , "" }, /* C Capital C */
1.75.4.30 +6 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.29
retrieving revision 1.75.4.30
diff -u -r1.75.4.29 -r1.75.4.30
--- epmain.c 2001/03/28 19:16:03 1.75.4.29
+++ epmain.c 2001/04/25 09:25:06 1.75.4.30
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epmain.c,v 1.75.4.29 2001/03/28 19:16:03 richter Exp $
+# $Id: epmain.c,v 1.75.4.30 2001/04/25 09:25:06 richter Exp $
#
###################################################################################*/
@@ -467,6 +467,7 @@
pQueryString++ ;
nLen-- ;
break ;
+ case ';':
case '&':
pQueryString++ ;
nLen-- ;
@@ -1361,6 +1362,10 @@
#ifdef APACHE
r -> pApacheReq = NULL ;
+ if (_nIOType == epIOMod_Perl)
+ {
+ ap_add_module (&embperl_module) ;
+ }
#endif
r -> bReqRunning = 0 ;
1.15.4.8 +2 -2 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.15.4.7
retrieving revision 1.15.4.8
diff -u -r1.15.4.7 -r1.15.4.8
--- eputil.c 2001/03/28 10:07:32 1.15.4.7
+++ eputil.c 2001/04/25 09:25:07 1.15.4.8
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: eputil.c,v 1.15.4.7 2001/03/28 10:07:32 richter Exp $
+# $Id: eputil.c,v 1.15.4.8 2001/04/25 09:25:07 richter Exp $
#
###################################################################################*/
@@ -885,7 +885,7 @@
SV * val;
char * key;
I32 klen;
- int bDebug = 1 ;
+ int bDebug = 0 ;
SV * sv;
HV * hv;
AV * av;
No revision
No revision
1.1.2.1 +49 -0 embperl/Attic/epapinit.c
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
