Current Path : /proc/self/root/proc/3/task/3/cwd/usr/local/rvglobalsoft/rvglobalsoft/lib/RVL/Request/

Upload File :

Current File : //proc/self/root/proc/3/task/3/cwd/usr/local/rvglobalsoft/rvglobalsoft/lib/RVL/Request/Browser.pm

#!/usr/bin/perl
package RVL::Request::Browser;
##LICENSE##
use strict;
use warnings;
use CGI ':standard';
use Class::Std::Utils;
{
    use base qw(RVL::Request);
    sub new {
        my ($class, $opt) = @_;
        my ($this) = bless ({}, $class);
        $this->init();
        return $this;
    }
    
    sub init{
        my ($this) = @_;
        my ($c) = RVL::Config::singleton();
        my ($conf) = $c->getAll();
        my ($urlParser);
        
        if (defined $ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} =~/^\//gi) {
            $ENV{'QUERY_STRING'} =~s/(.*?)index.pl\?//gi;
            $urlParser = $ENV{'QUERY_STRING'};
            $urlParser =~s/&(.*)$//gi;
            
        } else {
            $ENV{'REQUEST_URI'} =~s/(.*?)index.pl\?//gi;
            $urlParser = $ENV{'REQUEST_URI'};
            $urlParser =~s/\?(.*)$//gi;
            my ($scfile) = $ENV{'SCRIPT_NAME'};
            $urlParser =~s/$scfile//gi;
        }
        
        $urlParser =~s/^\///gi;
        my (@parts) = split(/\//, $urlParser);
        
        if (@parts > 0 ) {
            my ($modulename) = shift(@parts);
            $this->SUPER::set('moduleName', $modulename);
        }
        if (@parts > 0 ) {
            my ($managername) = shift(@parts);
            $this->SUPER::set('managerName', $managername);
        }
        
        if (@parts > 0 ) {
            do {
                my ($key) = shift(@parts);
                my ($value) = shift(@parts);
                $value = '' if (!$value);
                $this->SUPER::set($key, $value);
            } while(@parts > 0);
        }
    }
}
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez