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

Upload File :

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

#!/usr/bin/perl
package NotprivilegeMgr;
#@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} = 'Home';
        $this->{template} = 'notprivilege.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};
        $this->{validated} = 1;
    }
    
    sub _cmd_view {
        
    }

    sub display {
        my ($this, $output) = @_;
        RVL::logMessage('', __CONSTANT__::RVL_LOG_DEBUG);
        
    }   
    
}
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez