minor fixes

[ndwebbie.git] / ND.pm

diff --git a/ND.pm b/ND.pm
index 50629e8efab535a072d2558359579659b1f959bd..791d5f096c2170532684a9348408c689630f9e71 100755 (executable)
--- a/ND.pm
+++ b/ND.pm
@@ -43,9 +43,12 @@ 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});
+       $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;
+
        return Apache2::Const::OK;
 }