diff options
| -rw-r--r-- | Xerl.pm | 8 | ||||
| -rw-r--r-- | Xerl/Page/Configure.pm | 4 | ||||
| -rw-r--r-- | Xerl/Page/Content.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Document.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Menu.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Parameter.pm | 6 | ||||
| -rw-r--r-- | Xerl/Page/Templates.pm | 4 | ||||
| -rw-r--r-- | Xerl/XML/Reader.pm | 2 |
8 files changed, 15 insertions, 15 deletions
@@ -56,7 +56,7 @@ sub run($) { Xerl::Page::Configure->new( config => $self->get_config(), %$request ); $config->parse(); - return undef if $config->shutdown_exists(); + return undef if $config->finish_request_exists(); # TODO: Plugin API unless ( $config->sessionsdisable_exists() ) { @@ -71,14 +71,14 @@ sub run($) { Xerl::Page::Parameter->new( config => $config ); $parameter->parse(); - return undef if $config->shutdown_exists(); + return undef if $config->finish_request_exists(); if ( $config->document_exists() ) { my Xerl::Page::Document $document = Xerl::Page::Document->new( config => $config ); $document->parse(); - return undef if $config->shutdown_exists(); + return undef if $config->finish_request_exists(); } else { @@ -86,7 +86,7 @@ sub run($) { Xerl::Page::Templates->new( config => $config ); $templates->parse(); - return undef if $config->shutdown_exists(); + return undef if $config->finish_request_exists(); $templates->print($time); } diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm index f30483c..d527b2b 100644 --- a/Xerl/Page/Configure.pm +++ b/Xerl/Page/Configure.pm @@ -43,7 +43,7 @@ sub parse($) { Xerl::Tools::FileIO->new( 'path' => $self->get_config() ); if ( -1 == $file->fslurp() ) { - $self->set_shutdown(1); + $self->set_finish_request(1); return undef; } @@ -88,7 +88,7 @@ sub defaults($) { $file->fslurp(); my $location = $file->shift(); Xerl::Main::Global::REDIRECT($location); - $self->set_shutdown(1); + $self->set_finish_request(1); } my $alias = $self->get_hostroot() . 'alias:' . $self->get_host(); if ( -f $alias ) { diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm index 7ce4e65..e404430 100644 --- a/Xerl/Page/Content.pm +++ b/Xerl/Page/Content.pm @@ -49,7 +49,7 @@ sub parse($) { ); if ( -1 == $xmlcontent->open() ) { - $config->set_shutdown(1); + $config->set_finish_request(1); return undef; } diff --git a/Xerl/Page/Document.pm b/Xerl/Page/Document.pm index 91600e7..e5a16fe 100644 --- a/Xerl/Page/Document.pm +++ b/Xerl/Page/Document.pm @@ -63,7 +63,7 @@ sub parse($) { my Xerl::Tools::FileIO $io = Xerl::Tools::FileIO->new( path => $path ); if ( -1 == $io->fslurp() ) { - $config->set_shutdown(1); + $config->set_finish_request(1); } else { $io->print(); diff --git a/Xerl/Page/Menu.pm b/Xerl/Page/Menu.pm index 23d7dbd..c0dcde3 100644 --- a/Xerl/Page/Menu.pm +++ b/Xerl/Page/Menu.pm @@ -77,7 +77,7 @@ sub get_menu($$$$) { unless ( $io->exists() ) { Xerl::Main::Global::REDIRECT( $config->get_404() ); - $config->set_shutdown(1); + $config->set_finish_request(1); } $io->dslurp(); diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm index 00dc516..47e1d28 100644 --- a/Xerl/Page/Parameter.pm +++ b/Xerl/Page/Parameter.pm @@ -46,12 +46,12 @@ sub parse($) { if ( $config->href_exists() ) { print "Location: ", $config->get_href(), "\n\n"; - $config->set_shutdown(1); + $config->set_finish_request(1); } elsif ( $config->env_exists() ) { print "Content-Type: text/plain\n\n"; print "$_=", $ENV{$_}, "\n" for keys %ENV; - $config->set_shutdown(1); + $config->set_finish_request(1); } if ( $config->devel_exists() ) { @@ -62,7 +62,7 @@ sub parse($) { if ( $config->conf_exists() ) { print "Content-Type: text/plain\n\n"; print "$_=", $config->{$_}, "\n" for keys %$config; - $config->set_shutdown(1); + $config->set_finish_request(1); } return $self; diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm index 9f408c6..53e2a12 100644 --- a/Xerl/Page/Templates.pm +++ b/Xerl/Page/Templates.pm @@ -76,7 +76,7 @@ sub parse($) { Xerl::Tools::FileIO->new( path => $cachepath . $cachefile ); if ( -1 == $io->fslurp() ) { - $config->set_shutdown(1); + $config->set_finish_request(1); return undef; } @@ -94,7 +94,7 @@ sub parse($) { Xerl::XML::Reader->new( path => $xmlconfigpath, config => $config ); if ( -1 == $xmlconfigreader->open() ) { - $config->set_shutdown(1); + $config->set_finish_request(1); return undef; } $xmlconfigreader->parse(); diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index 9130806..51aa75b 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -140,7 +140,7 @@ sub parse($) { ); if ( -1 == $reader->open() ) { - $config->set_shutdown(1); + $config->set_finish_request(1); return undef; } $reader->parse(); |
