WebUtils patch for $r->dir_config('foo')

[Wendell]

attached is a patch to add r->dir_config($name) to WebUtils xsp.

(seems like the most obvious place to stick it, copied the pod from `perldoc Apache`)

Ed.

--- WebUtils.pm.orig    Fri Jun  8 10:50:39 2001
+++ WebUtils.pm Tue Jun 11 11:40:03 2002
@@ -27,6 +27,7 @@
   'url_encode($string)',
   'url_decode($string)',
   'header($name;$value)',
+  'dir_config($name)',
 );
 
 @ISA = qw(Apache::AxKit::Language::XSP);
@@ -139,6 +140,13 @@
     return Apache::Util::unescape_uri(shift);
 }
 
+sub dir_config ($) {
+    my $name = shift;
+    my $r = AxKit::Apache->request;
+
+    return $r->dir_config($name);
+}
+
 1;
 
 __END__
@@ -281,6 +289,10 @@
   <p>
   Your browser is: <web:header name="HTTP_USER_AGENT"/>
   </p>
+
+=head2 C<<web:dir_config>>
+
+Returns the value of a per-directory variable specified by the "PerlSetVar" 
+directive. ie. $r->dir_config('Foo')
 
 =head1 AUTHOR
 


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]