You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/08/29 01:07:21 UTC
cvs commit: modperl/src/modules/perl Exports.c
dougm 98/08/28 16:07:21
Modified: . Changes Makefile.PL ToDo
lib/Apache/Constants Exports.pm
src/modules/perl Exports.c
Log:
added :override :args_how tags to Apache::Constants
Revision Changes Path
1.122 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -r1.121 -r1.122
--- Changes 1998/08/28 22:33:27 1.121
+++ Changes 1998/08/28 23:07:18 1.122
@@ -8,6 +8,8 @@
=item 1.15_01-dev
+added :override :args_how tags to Apache::Constants
+
add DIR_MAGIC_TYPE to perl_handlers[] table for directory indexing
modules
1.87 +1 -1 modperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /export/home/cvs/modperl/Makefile.PL,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -r1.86 -r1.87
--- Makefile.PL 1998/08/28 17:49:21 1.86
+++ Makefile.PL 1998/08/28 23:07:18 1.87
@@ -1124,7 +1124,7 @@
$string .= <<'EOF';
gen_exports:
- $(PERL) -MExtUtils::testlib -MApache::Constants::Exports \
+ $(PERL) -I./lib -MExtUtils::testlib -MApache::Constants::Exports \
-e 'Apache::Constants::Exports->gen_ctags' > Exports.c
gen_op_mask:
1.70 +0 -4 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -r1.69 -r1.70
--- ToDo 1998/08/28 17:49:21 1.69
+++ ToDo 1998/08/28 23:07:19 1.70
@@ -3,8 +3,6 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
-- $r->log->$level(sub {})
-
- 'make htmldoc' (Brian Moseley)
- make DYNAMIC=1 work again
@@ -15,8 +13,6 @@
Lupe Christoph <lu...@alanya.m.isar.de>, Don Hayward <do...@mote.org>
- ap_log_error -> ap_log_rerror
-
-- Apache::Constants :override :args_how
- make 'make test_report' more useful
1.3 +27 -0 modperl/lib/Apache/Constants/Exports.pm
Index: Exports.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/Constants/Exports.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Exports.pm 1998/07/30 15:37:19 1.2
+++ Exports.pm 1998/08/28 23:07:20 1.3
@@ -37,6 +37,29 @@
HTTP_VARIANT_ALSO_VARIES);
my(@config) = qw(DECLINE_CMD);
my(@types) = qw(DIR_MAGIC_TYPE);
+my(@override) = qw(
+ OR_NONE
+ OR_LIMIT
+ OR_OPTIONS
+ OR_FILEINFO
+ OR_AUTHCFG
+ OR_INDEXES
+ OR_UNSET
+ OR_ALL
+ ACCESS_CONF
+ RSRC_CONF);
+my(@args_how) = qw(
+ RAW_ARGS
+ TAKE1
+ TAKE2
+ ITERATE
+ ITERATE2
+ FLAG
+ NO_ARGS
+ TAKE12
+ TAKE3
+ TAKE23
+ TAKE123);
my $rc = [@common, @response];
@@ -51,6 +74,8 @@
satisfy => \@satisfy,
server => \@server,
types => \@types,
+ args_how => \@args_how,
+ override => \@override,
#depreciated
response_codes => $rc,
);
@@ -65,6 +90,8 @@
@server,
@config,
@types,
+ @args_how,
+ @override,
);
*Apache::Constants::EXPORT = \@common;
1.2 +33 -2 modperl/src/modules/perl/Exports.c
Index: Exports.c
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/Exports.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Exports.c 1998/07/14 14:57:08 1.1
+++ Exports.c 1998/08/28 23:07:21 1.2
@@ -1,6 +1,19 @@
/*
* Generated by Apache::Constants::Exports::gen_ctags, do not edit!!!
- */
+ */
+static char *ETAG_override[] = {
+ "OR_NONE",
+ "OR_LIMIT",
+ "OR_OPTIONS",
+ "OR_FILEINFO",
+ "OR_AUTHCFG",
+ "OR_INDEXES",
+ "OR_UNSET",
+ "OR_ALL",
+ "ACCESS_CONF",
+ "RSRC_CONF",
+ NULL,
+};
static char *ETAG_http[] = {
"HTTP_METHOD_NOT_ALLOWED",
"HTTP_NOT_ACCEPTABLE",
@@ -46,7 +59,6 @@
static char *ETAG_server[] = {
"MODULE_MAGIC_NUMBER",
"SERVER_VERSION",
- "SERVER_SUBVERSION",
"SERVER_BUILT",
NULL,
};
@@ -60,6 +72,20 @@
"SERVER_ERROR",
NULL,
};
+static char *ETAG_args_how[] = {
+ "RAW_ARGS",
+ "TAKE1",
+ "TAKE2",
+ "ITERATE",
+ "ITERATE2",
+ "FLAG",
+ "NO_ARGS",
+ "TAKE12",
+ "TAKE3",
+ "TAKE23",
+ "TAKE123",
+ NULL,
+};
static char *ETAG_remotehost[] = {
"REMOTE_HOST",
"REMOTE_NAME",
@@ -122,6 +148,9 @@
};
static char **export_tags(char *tag) {
switch (*tag) {
+ case 'a':
+ if(strEQ("args_how", tag))
+ return ETAG_args_how;
case 'c':
if(strEQ("config", tag))
return ETAG_config;
@@ -134,6 +163,8 @@
if(strEQ("methods", tag))
return ETAG_methods;
case 'o':
+ if(strEQ("override", tag))
+ return ETAG_override;
if(strEQ("options", tag))
return ETAG_options;
case 'r':