From a3126f287b643c3a3a307714f53731db77a69fa2 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 8 May 2009 20:41:01 +0000
Subject: [PATCH] changed the optional XML parsing to support DTD replacement
 via xml::libxml.  added some other useful context variables

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13108 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/examples/oils_web.xml.example     |  5 ++-
 Open-ILS/src/perlmods/OpenILS/WWW/EGWeb.pm | 44 ++++++++++++++++------
 2 files changed, 36 insertions(+), 13 deletions(-)

diff --git a/Open-ILS/examples/oils_web.xml.example b/Open-ILS/examples/oils_web.xml.example
index b942903fbb..60f1573203 100644
--- a/Open-ILS/examples/oils_web.xml.example
+++ b/Open-ILS/examples/oils_web.xml.example
@@ -1,7 +1,9 @@
 <oils_web>
 
     <!-- This should match the Apache Directory/Location[Match] configuration path -->
-    <base_uri>/eg</base_uri>
+    <base_path>/eg</base_path>
+
+    <web_dir>/openils/var/web</web_dir>
 
     <!-- when locating files that don't have explicit handlers defined, assume the
         files have the following filename extension -->
@@ -35,5 +37,6 @@
         <handler path='acq/currency_type/view' template='acq/financial/view_currency_type.tt2'/>
         <handler path='acq/provider/list' template='acq/financial/list_providers.tt2'/>
         <handler path='acq/provider/view' template='acq/financial/view_provider.tt2'/>
+        <handler path='vandelay/vandelay' template='vandelay/vandelay.tt2' as_xml='true'/>
     </handlers>
 </oils_web>
diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/EGWeb.pm b/Open-ILS/src/perlmods/OpenILS/WWW/EGWeb.pm
index 840dfaaba8..b7b878313f 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/EGWeb.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/EGWeb.pm
@@ -2,6 +2,7 @@ package OpenILS::WWW::EGWeb;
 use strict; use warnings;
 use Template;
 use XML::Simple;
+use XML::LibXML;
 use File::stat;
 use Apache2::Const -compile => qw(OK DECLINED HTTP_INTERNAL_SERVER_ERROR);
 use Apache2::Log;
@@ -29,8 +30,8 @@ sub handler {
     my $r = shift;
     check_web_config($r); # option to disable this
     my $ctx = load_context($r);
-    my $base = $ctx->{base_uri};
-    my($template, $page_args) = find_template($r, $base, $ctx);
+    my $base = $ctx->{base_path};
+    my($template, $page_args, $as_xml) = find_template($r, $base, $ctx);
     return Apache2::Const::DECLINED unless $template;
 
     $template = $ctx->{skin} . "/$template";
@@ -38,7 +39,7 @@ sub handler {
     $r->content_type('text/html; encoding=utf8');
 
     my $tt = Template->new({
-        OUTPUT => ($ctx->{force_valid_xml}) ? sub { validate_as_xml($r, @_); } : $r,
+        OUTPUT => ($as_xml) ?  sub { parse_as_xml($r, $ctx, @_); } : $r,
         INCLUDE_PATH => $ctx->{template_paths},
     });
 
@@ -50,10 +51,17 @@ sub handler {
     return Apache2::Const::OK;
 }
 
-sub validate_as_xml {
+sub parse_as_xml {
     my $r = shift;
+    my $ctx = shift;
     my $data = shift;
-    eval { XML::Simple->new->XMLin($data); };
+
+    eval { 
+        my $doc = XML::LibXML->new->parse_string($data); 
+        $data = $doc->documentElement->toStringC14N;
+        $data = $ctx->{final_dtd} . "\n" . $data;
+    };
+
     if($@) {
         my $err = "Invalid XML: $@";
         $r->log->error($err);
@@ -69,6 +77,8 @@ sub load_context {
     my $r = shift;
     my $cgi = CGI->new;
     my $ctx = $web_config->{ctx};
+    $ctx->{hostname} = $r->hostname;
+    $ctx->{base_url} = $cgi->url(-base => 1);
     $ctx->{skin} = $cgi->cookie(OILS_HTTP_COOKIE_SKIN) || 'default';
     $ctx->{theme} = $cgi->cookie(OILS_HTTP_COOKIE_THEME) || 'default';
     $ctx->{locale} = 
@@ -104,17 +114,20 @@ sub find_template {
     my @parts = split('/', $path);
     my $template = '';
     my $page_args = [];
+    my $as_xml = $ctx->{force_valid_xml};
     my $handler = $web_config->{handlers};
+
     while(@parts) {
         my $part = shift @parts;
         next unless $part;
         my $t = $handler->{$part};
-        if(ref $t) {
-            $handler = $t;
-        } else {
-            $template = $t;
+        if(ref($t) eq 'PathConfig') {
+            $template = $t->{template};
+            $as_xml = ($t->{as_xml} and $t->{as_xml} =~ /true/io) || $as_xml;
             $page_args = [@parts];
             last;
+        } else {
+            $handler = $t;
         }
     }
 
@@ -151,7 +164,7 @@ sub find_template {
     }
 
     $r->log->debug("template = $template : page args = @$page_args");
-    return ($template, $page_args);
+    return ($template, $page_args, $as_xml);
 }
 
 # if the web configuration file has never been loaded or has
@@ -173,10 +186,11 @@ sub parse_config {
     my $handlers = {};
 
     $ctx->{media_prefix} = (ref $data->{media_prefix}) ? '' : $data->{media_prefix};
-    $ctx->{base_uri} = (ref $data->{base_uri}) ? '' : $data->{base_uri};
+    $ctx->{base_path} = (ref $data->{base_path}) ? '' : $data->{base_path};
     $ctx->{template_paths} = [];
     $ctx->{force_valid_xml} = ($data->{force_valid_xml} =~ /true/io) ? 1 : 0;
     $ctx->{default_template_extension} = $data->{default_template_extension} || 'tt2';
+    $ctx->{web_dir} = $data->{web_dir};
 
     my $tpaths = $data->{template_paths}->{path};
     $tpaths = [$tpaths] unless ref $tpaths;
@@ -190,7 +204,7 @@ sub parse_config {
             my $p = $parts[$i];
             unless(defined $h->{$p}) {
                 if($i == $pcount - 1) {
-                    $h->{$p} = $handler->{template};
+                    $h->{$p} = PathConfig->new(%$handler);
                     last;
                 } else {
                     $h->{$p} = {};
@@ -203,5 +217,11 @@ sub parse_config {
     return {ctx => $ctx, handlers => $handlers};
 }
 
+package PathConfig;
+sub new {
+    my($class, %args) = @_;
+    return bless(\%args, $class);
+}
+
 
 1;
-- 
2.43.2