filter out non printable characters

[ndwebbie.git] / ND.pm

diff --git a/ND.pm b/ND.pm
index 757108b7a76b0b42c17339192c15a4f7c1693748..812e0ab63675ef89973a454ab422b388d8730ff9 100755 (executable)
--- a/ND.pm
+++ b/ND.pm
@@ -43,12 +43,19 @@ sub handler {
        if ($ENV{'SCRIPT_NAME'} =~ /(\w+)(\.(pl|php|pm))?$/){
                $page = $1 unless $1 eq 'index' and $3 eq 'pl';
        }
-       $page = ND::Web::Page->new(PAGE => $page, DBH => $ND::DBH, URI => $ENV{REQUEST_URI}, USER_AGENT => $ENV{HTTP_USER_AGENT});
+       $page = ND::Web::Page->new(PAGE => $page, DBH => $ND::DBH, URI => $ENV{REQUEST_URI}, USER_AGENT => $ENV{HTTP_USER_AGENT}, HTTP_ACCEPT => $ENV{HTTP_ACCEPT});
        $page->render;
 
        $ND::DBH->rollback unless $ND::DBH->{AutoCommit};
        $ND::DBH->disconnect;
 
+       if ($page->{RETURN}){
+               if($page->{RETURN} eq 'REDIRECT'){
+                       $ND::r->headers_out->set(Location => $page->{REDIR_LOCATION});
+                       $ND::r->status(Apache2::Const::REDIRECT);
+                       $ND::r->rflush;
+               }
+       }
        return Apache2::Const::OK;
 }