From 29f3abac1a9f545358d620947a19cfd29854ce95 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 22:23:51 +0200
Subject: Move Packages Configure, Parameter and Request from Xerl::Page into
 Xerl::Setup

---
 Xerl/Page/Parameter.pm | 50 --------------------------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 Xerl/Page/Parameter.pm

(limited to 'Xerl/Page/Parameter.pm')

diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm
deleted file mode 100644
index 9c626b0..0000000
--- a/Xerl/Page/Parameter.pm
+++ /dev/null
@@ -1,50 +0,0 @@
-# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow
-#
-# 	E-Mail: xerl@dev.buetow.org 	WWW: http://xerl.buetow.org
-#
-# This is free software, you may use it and distribute it under the same
-# terms as Perl itself.
-
-package Xerl::Page::Parameter;
-
-use strict;
-use warnings;
-
-use v5.14.0;
-
-use Xerl::Base;
-use Xerl::Main::Global;
-use Xerl::Page::Configure;
-use Xerl::Tools::FileIO;
-
-sub parse($) {
-  my Xerl::Page::Parameter $self   = $_[0];
-  my Xerl::Page::Configure $config = $self->get_config();
-
-  print "Content-Type: text/plain\n\n"
-    if $config->plain_exists();
-
-  if ( $config->href_exists() ) {
-    print "Location: ", $config->get_href(), "\n\n";
-    $config->set_finish_request(1);
-  }
-  elsif ( $config->env_exists() ) {
-    print "Content-Type: text/plain\n\n";
-    print "$_=", $ENV{$_}, "\n" for keys %ENV;
-    $config->set_finish_request(1);
-  }
-
-  if ( $config->devel_exists() ) {
-    $config->set_nocache(1);
-  }
-
-  if ( $config->conf_exists() ) {
-    print "Content-Type: text/plain\n\n";
-    print "$_=", $config->{$_}, "\n" for keys %$config;
-    $config->set_finish_request(1);
-  }
-
-  return $self;
-}
-
-1;
-- 
cgit v1.2.3