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/Cli.pm

#!/usr/bin/perl
package RVL::Request::Cli;
##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();
        if ($#ARGV > 0) {
            for(my $i = 0; $i < scalar(@ARGV); $i++) {
                my ($arg, $value) = split(/=/, $ARGV[$i]);
                $this->SUPER::set($arg,$value);
            }
        }
    }
}
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez