X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND.pm;h=e9bc401f83138574447f6e1b9855782effd3d753;hb=83be73d01437ba9841257bb9064314d63fab9487;hp=be254037764266f4872e6ded97a63e4f8809d406;hpb=9cfc406396d8bb211798cfe9cf1e6a13c8b3a7e6;p=ndwebbie.git diff --git a/ND.pm b/ND.pm index be25403..e9bc401 100755 --- a/ND.pm +++ b/ND.pm @@ -26,13 +26,13 @@ use Apache2::Request; 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; @@ -46,7 +46,7 @@ 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}, 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};