added initial fcgi support to all the code files

1 files changed, 3 insertions, 4 deletions

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;