richter 02/01/04 06:03:23
Modified: . Tag: Embperl2c Embperl.pm EmbperlObject.pm
epapinit.c
Log:
req objects
Revision Changes Path
No revision
No revision
1.118.4.74 +7 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.73
retrieving revision 1.118.4.74
diff -u -r1.118.4.73 -r1.118.4.74
--- Embperl.pm 20 Dec 2001 15:03:25 -0000 1.118.4.73
+++ Embperl.pm 4 Jan 2002 14:03:23 -0000 1.118.4.74
@@ -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.73 2001/12/20 15:03:25 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.74 2002/01/04 14:03:23 richter Exp $
#
###################################################################################
@@ -741,7 +741,7 @@
sub SetupFormData
{
- my ($req, $r, $debug) = @_ ;
+ my ($req, $r, $debug, $options) = @_ ;
@ffld = @{$req -> {'ffld'}} if (defined ($req -> {'ffld'})) ;
@@ -806,6 +806,11 @@
$dbgHeadersIn = 1 if ($debug & dbgHeadersIn) ;
}
+ if ($options)
+ {
+ $optAllFormData = 1 if ($options & optAllFormData) ;
+ }
+
GetInputData_CGIScript (exists $INC{'Apache.pm'}?Apache->request:undef)
;
}
}
1.36.4.13 +2 -2 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.36.4.12
retrieving revision 1.36.4.13
diff -u -r1.36.4.12 -r1.36.4.13
--- EmbperlObject.pm 20 Dec 2001 15:03:25 -0000 1.36.4.12
+++ EmbperlObject.pm 4 Jan 2002 14:03:23 -0000 1.36.4.13
@@ -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.36.4.12 2001/12/20 15:03:25 richter Exp $
+# $Id: EmbperlObject.pm,v 1.36.4.13 2002/01/04 14:03:23 richter Exp $
#
###################################################################################
@@ -178,7 +178,7 @@
}
- HTML::Embperl::SetupFormData ($req, undef, $req -> {debug}) ;
+ HTML::Embperl::SetupFormData ($req, undef, $req -> {debug}, $req -> {options}) ;
my $basename = $req -> {object_base} ;
$basename =~ s/%modifier%/$req->{object_base_modifier}/ ;
1.1.2.6 +24 -3 embperl/epapinit.c
Index: epapinit.c
===================================================================
RCS file: /home/cvs/embperl/epapinit.c,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- epapinit.c 20 Sep 2001 08:23:55 -0000 1.1.2.5
+++ epapinit.c 4 Jan 2002 14:03:23 -0000 1.1.2.6
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epapinit.c,v 1.1.2.5 2001/09/20 08:23:55 richter Exp $
+# $Id: epapinit.c,v 1.1.2.6 2002/01/04 14:03:23 richter Exp $
#
###################################################################################*/
@@ -34,9 +34,9 @@
static module embperl_module = {
STANDARD_MODULE_STUFF,
embperl_ApacheInit, /* initializer */
- NULL, /* dir config creater */
+ embperl_create_dir_config, /* dir config creater */
NULL, /* dir merger --- default is to override */
- NULL, /* server config */
+ embperl_create_server_config, /* server config */
NULL, /* merge server configs */
embperl_cmds, /* command table */
NULL, /* handlers */
@@ -75,5 +75,26 @@
/* make sure embperl module is removed before mod_perl */
ap_remove_module (&embperl_module) ;
}
+
+
+
+static void *embperl_create_dir_config(pool *p, char *d)
+ {
+ tReqConfig *cfg = (tReqConfig *) ap_pcalloc(p, sizeof(tReqConfig));
+
+ memset (cfg, 0, sizeof (*cfg)) ;
+
+ return cfg;
+ }
+
+static void *embperl_create_server_config(pool *p, char *d)
+ {
+ tServerConfig *cfg = (tServerConfig *) ap_pcalloc(p, sizeof(tServerConfig));
+
+ memset (cfg, 0, sizeof (*cfg)) ;
+
+ return cfg;
+ }
+
#endif
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
