use Apache2::Response;
use Apache2::RequestUtil;
use ND::DB;
-use ND::Web::Page;
+use NDWeb::Page;
use strict;
use warnings;
$SIG{__WARN__} = sub {$ND::ERROR .= p $_[0]};
-chdir '/var/www/ndawn/code';
+chdir '/var/www/ndawn';
sub handler {
my $r = shift;
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}, HTTP_ACCEPT => $ENV{HTTP_ACCEPT}, R => $r);
+ $page = NDWeb::Page->new(PAGE => $page, DBH => $ND::DBH, URI => $ENV{REQUEST_URI}, USER_AGENT => $ENV{HTTP_USER_AGENT}, HTTP_ACCEPT => $ENV{HTTP_ACCEPT}, R => $r);
$page->render;
$ND::DBH->rollback unless $ND::DBH->{AutoCommit};