dougm 01/10/08 10:58:17
Modified: lib/Apache compat.pm
xs/maps modperl_functions.map
xs/tables/current/ModPerl FunctionTable.pm
Log:
integrate ModPerl::Util and add Apache::untaint compat functionality
Revision Changes Path
1.19 +3 -0 modperl-2.0/lib/Apache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- compat.pm 2001/10/08 17:33:02 1.18
+++ compat.pm 2001/10/08 17:58:16 1.19
@@ -40,6 +40,9 @@
}
sub untaint {
+ shift;
+ require ModPerl::Util;
+ ModPerl::Util::untaint(@_);
}
sub module {
1.22 +3 -0 modperl-2.0/xs/maps/modperl_functions.map
Index: modperl_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- modperl_functions.map 2001/10/07 23:02:41 1.21
+++ modperl_functions.map 2001/10/08 17:58:16 1.22
@@ -1,5 +1,8 @@
#modperl specfic functions
+MODULE=ModPerl::Util
+ mpxs_ModPerl__Util_untaint | | ...
+
MODULE=ModPerl::Global
mpxs_ModPerl__Global_special_list_call
mpxs_ModPerl__Global_special_list_clear
1.34 +23 -1 modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- FunctionTable.pm 2001/10/08 17:39:54 1.33
+++ FunctionTable.pm 2001/10/08 17:58:16 1.34
@@ -2,7 +2,7 @@
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# ! WARNING: generated by ModPerl::ParseSource/0.01
-# ! Mon Oct 8 10:46:14 2001
+# ! Mon Oct 8 11:03:58 2001
# ! do NOT edit, any changes will be lost !
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -4192,6 +4192,28 @@
{
'type' => 'SV *',
'name' => 'package'
+ }
+ ]
+ },
+ {
+ 'return_type' => 'void',
+ 'name' => 'mpxs_ModPerl__Util_untaint',
+ 'args' => [
+ {
+ 'type' => 'PerlInterpreter *',
+ 'name' => 'my_perl'
+ },
+ {
+ 'type' => 'I32',
+ 'name' => 'items'
+ },
+ {
+ 'type' => 'SV **',
+ 'name' => 'mark'
+ },
+ {
+ 'type' => 'SV **',
+ 'name' => 'sp'
}
]
},