From 67855afa02636e06b142c706487c5eb23efc5e8c Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Tue, 26 Apr 2011 18:55:42 +0000 Subject: added initial fcgi support to all the code files --- Xerl/Page/Parameter.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'Xerl/Page/Parameter.pm') diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm index 2100323..e751de2 100644 --- a/Xerl/Page/Parameter.pm +++ b/Xerl/Page/Parameter.pm @@ -46,13 +46,12 @@ sub parse($) { if ( $config->href_exists() ) { print "Location: ", $config->get_href(), "\n\n"; - Xerl::Main::Global::SHUTDOWN(); - + config->set_shutdown(1); } elsif ( $config->env_exists() ) { print "Content-Type: text/plain\n\n"; print "$_=", $ENV{$_}, "\n" for keys %ENV; - Xerl::Main::Global::SHUTDOWN(); + config->set_shutdown(1); } if ( $config->devel_exists() ) { @@ -63,7 +62,7 @@ sub parse($) { if ( $config->conf_exists() ) { print "Content-Type: text/plain\n\n"; print "$_=", $config->{$_}, "\n" for keys %$config; - Xerl::Main::Global::SHUTDOWN(); + config->set_shutdown(1); } return $self; -- cgit v1.2.3