small reporter updates
[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / WWW / Reporter.pm
index 67b6947..64b786a 100644 (file)
@@ -8,12 +8,16 @@ use APR::Const    -compile => qw(:error SUCCESS);
 use Apache2::RequestRec ();
 use Apache2::RequestIO ();
 use Apache2::RequestUtil;
+use CGI;
 
 use Template qw(:template);
 
 use OpenSRF::EX qw(:try);
 use OpenSRF::System;
+use XML::LibXML;
 
+use OpenSRF::Utils::SettingsParser;
+use OpenILS::Utils::Fieldmapper;
 
 
 
@@ -21,11 +25,14 @@ use OpenSRF::System;
 # this module is loaded
 my $bootstrap;
 my $includes = [];  
+my $base_xml;
+#my $base_xml_doc;
 
 sub import {
-       my( $self, $bs_config, $tdir ) = @_;
+       my( $self, $bs_config, $core_xml, @incs ) = @_;
        $bootstrap = $bs_config;
-       $includes = [ $tdir ];
+       $base_xml = $core_xml;
+       $includes = [ @incs ];
 }
 
 
@@ -33,22 +40,42 @@ sub import {
 my $plugin_base = 'OpenILS::Template::Plugin';
 
 sub child_init {
-       warn "Initing child with bootstrap $bootstrap\n";
        OpenSRF::System->bootstrap_client( config_file => $bootstrap );
+
+       #parse the base xml file
+       #my $parser = XML::LibXML->new;
+       #$parser->expand_xinclude(1);
+
+       #$base_xml_doc = $parser->parse_file($base_xml);
+
 }
 
 sub handler {
 
-       warn "TEST\n";
        my $apache = shift;
+       my $cgi = CGI->new;
+
        my $path = $apache->path_info;
        (my $ttk = $path) =~ s{^/?([a-zA-Z0-9_]+).*?$}{$1}o;
 
+       $ttk = "s1" unless $ttk;
+       my $user;
+
+       # if the user is not logged in via cookie, route them to the login page
+       if(! ($user = verify_login($cgi->cookie("ses"))) ) {
+               $ttk = "login";
+       }
+
        print "Content-type: text/html; charset=utf-8\n\n";
 
        _process_template(
                        apache          => $apache,
                        template                => "$ttk.ttk",
+                       params          => { 
+                               user => $user, 
+                               stage_dir => $ttk, 
+                               config_xml => $base_xml, 
+                               },
                        );
 
        return Apache2::Const::OK;
@@ -66,13 +93,13 @@ sub _process_template {
 
        $template = Template->new( { 
                OUTPUT                  => $apache, 
-               ABSOLUTE                        => 1, 
-               RELATIVE                        => 1,
+               ABSOLUTE                => 1, 
+               RELATIVE                => 1,
                PLUGIN_BASE             => $plugin_base,
                INCLUDE_PATH    => $includes, 
                PRE_CHOMP               => 1,
                POST_CHOMP              => 1,
-               LOAD_PERL               => 1,
+               #LOAD_PERL              => 1,
                } 
        );
 
@@ -83,7 +110,7 @@ sub _process_template {
                        my $err = $template->error();
                        $err =~ s/\n/\<br\/\>/g;
                        warn "Error processing template $ttk\n";        
-                       my $string =  "<br><b>Unable to process template:<br/><br/> " . $err . "!!!</b>";
+                       my $string =  "<br><b>Unable to process template:<br/><br/> " . $err . "</b>";
                        print "ERROR: $string";
                        #$template->process( $error_ttk , { error => $string } );
                }
@@ -97,5 +124,20 @@ sub _process_template {
 
 }
 
+# returns the user object if the session is valid, 0 otherwise
+sub verify_login {
+       my $auth_token = shift;
+       return 0 unless $auth_token;
+
+       my $session = OpenSRF::AppSession->create("open-ils.auth");
+       my $req = $session->request(
+               "open-ils.auth.session.retrieve", $auth_token );
+       my $user = $req->gather(1);
+
+       return $user if ref($user);
+       return 0;
+}
+
+
 
 1;