diff options
Diffstat (limited to 'Xerl/Page/Request.pm')
| -rw-r--r-- | Xerl/Page/Request.pm | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/Xerl/Page/Request.pm b/Xerl/Page/Request.pm deleted file mode 100644 index 77f893d..0000000 --- a/Xerl/Page/Request.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::Request; - -use strict; -use warnings; - -use v5.14.0; - -use Xerl::Base; - -sub parse($) { - my Xerl::Page::Request $self = $_[0]; - my $request = $self->get_request(); - - # Secure it! - $request =~ s#/\.\.##g; - - # Remove last / - $request =~ s#/$##; - - my $request_subdir = $request; - $request_subdir =~ s#/\?.*##; - $self->set_request_subdir($request_subdir); - - # List context returns $1 - ($_) = $request =~ /\?(.+)/; - - return $self unless defined; - - my $params = ''; - - # List context uses ($1,$2) as method args - for ( split /&/ ) { - $self->setval(/(.+?)=(.+)/); - $params .= "&$1=$2" if $1 ne 'site'; - } - - $self->set_params($params); - - return undef; -} - -1; - |