Current Path : /proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/modules/handletest/classes/

Upload File :

Current File : //proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/modules/handletest/classes/HandleTestMgr.pm

package HandleTestMgr;
##LICENSE##
use strict;
use warnings;
use base qw(RVL::Manager);
use Class::Std::Utils;
{
    sub new {
        my ($class, $opt) = @_;
        my ($this) = $class->SUPER::new($opt);
        $this->{pageTitle} = 'Handle Test';
        $this->{template} = 'handletest.html';
        
        $this->{_aActionsMapping} = {
            'view' => ['view'],
        };
        
        return $this;
    }
    
    sub validate {
        my ($this, $req, $input) = @_;
        RVL::logMessage('', __CONSTANT__::RVL_LOG_DEBUG);
        ${$input}->{masterTemplate} = $this->{masterTemplate};
        ${$input}->{template}    = $this->{template};
        ${$input}->{pageTitle}   = $this->{pageTitle};
        
        ${$input}->{action} = $req->get('action') ? $req->get('action') : 'view';
    }
    
    sub _cmd_view {
        my ($this, $input, $output) = @_;
        RVL::logMessage('', __CONSTANT__::RVL_LOG_DEBUG);
        
    }
    
    sub display {
        my ($this, $output) = @_;
        RVL::logMessage('', __CONSTANT__::RVL_LOG_DEBUG);
        ${$output}->{cpHandleList} = {
            'Cp Mode' => 'getCpMode',
            'Cp Privilege' => 'getCpPrivilege',
            'Is Root' => 'isRoot',
            'Is Reseller' => 'isReseller',
            'Is User' => 'isUser',
            '"rvglobalsoft.com" Owner Name' => 'getRVGOwner',
        };
        
        ${$output}->{CPModeHandleList} = {
            'CP Version' => 'getVersion',
            'RootDir' => 'getRootDir',
            'Hostname' => 'getHostname',
            'Api Url' => 'getApiUrl',
        };
        
        ${$output}->{handleList} = {
            'Home Dir' => 'getHomeDir',
            'Username' => 'getUsername',
            'Owner Name' => 'getOwner',
            'Owner Dir' => 'getOwnerDir',
            'Reseller List' => 'getResellerList',
            'Acct List' => 'getAcctList',
            'User Contact Email' => 'getUserContactEmail',
            'User Main Domain' => 'getUserMainDomain',
            'Domain List' => 'getDomainList',
        };
    }
}
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez