<h2>Editing File: /usr/local/cpanel/base/3rdparty/cloudlinux/original/CloudLinux.cgi</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl
# CloudLinux - whostmgr/docroot/cgi/CloudLinux.cgi Copyright(c) 2010 CloudLinux, Inc.
#                                                                All rights Reserved.
#                                          		    http://www.cloudlinux.com
#
#   This program is free software: you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation, either version 3 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.
#
#WHMADDON:lvemanager:CloudLinux Manager
#ACLS:all

use strict;
use Whostmgr::ACLS          ();
use Whostmgr::HTMLInterface ();
use Cpanel::Encoder::Tiny   ();
use Cpanel::Form            ();
use Cpanel::Locale          ('lh');
use XML::LibXML             ();
use Cpanel::SafeRun::Errors ();
use Whostmgr::Theme         ();

Whostmgr::ACLS::init_acls();

my %FORM      = Cpanel::Form::parseform();
my $cgiaction = $FORM{'cgiaction'};
if ( $cgiaction eq 'chartpng' ) {
    print &quot;Content-type: image/png\r\n\r\n&quot;;
    drawChart( $FORM{'lveid'}, $FORM{'timeframe'} );
    exit;
}

print &quot;Content-type: text/html\r\n\r\n&quot;;

Whostmgr::HTMLInterface::defheader( lh()-&gt;maketext('[asis,LVE] Manager'), '/themes/x/icons/cloudlinux_lve_manager.png', '/cgi/CloudLinux.cgi' );

# Check privileges
if ( !Whostmgr::ACLS::hasroot() ) {
    print qq{
&lt;br /&gt;
&lt;br /&gt;
&lt;div&gt;&lt;h1&gt;Permission denied&lt;/h1&gt;&lt;/div&gt;
&lt;/body&gt;
&lt;/html&gt;
    };
    exit;
}

my $theme = Whostmgr::Theme::gettheme();
my $self  = 'CloudLinux.cgi';

if ( $cgiaction eq 'editlve' ) {
    editLVE( $FORM{'lveid'} );
}
elsif ( $cgiaction eq 'savelve' ) {
    saveLVE();
}
elsif ( $cgiaction eq 'del' ) {
    delLVE( $FORM{'lveid'} );
}
elsif ( $cgiaction eq 'stats' ) {
    showStats( \%FORM );
}
elsif ( $cgiaction eq 'history' ) {
    showHistory( $FORM{'lveid'}, $FORM{'timeframe'}, $FORM{'username'} );
}
elsif ( $cgiaction eq 'chart' ) {
    showChart( $FORM{'lveid'}, $FORM{'timeframe'} );
}
else {
    showLVEUsage();
}

print &quot;&lt;/body&gt;&lt;/html&gt;\n&quot;;

sub delLVE {
    my $lveid = shift;
    Cpanel::SafeRun::Errors::saferunallerrors( '/usr/sbin/lvectl', 'delete', $lveid );
    showLVEUsage(&quot;Saved settings...&quot;);
}

# Returns true if all the characters in a string are digits
sub isnum { return $_[0] =~ /^\d+$/; }

sub saveLVE {
    my $lveid    = $FORM{'lveid'};
    my $cpu      = trim( $FORM{'cpu'} );
    my $mep      = trim( $FORM{'mep'} );
    my $persist  = $FORM{'persist'};
    my $username = trim( $FORM{'username'} );
    my $mem      = trim( $FORM{'mem'} ) . $FORM{'mem_unit'};
    my $ncpu     = trim( $FORM{'ncpu'} );

    if ( $lveid eq 'custom' ) {
        my $uid = getpwnam($username);
        $lveid = ( defined $uid ) ? $uid : $username;
        if ( !isnum($lveid) ) {
            showLVEUsage(&quot;Error! Please, enter valid LVE Id or username.&quot;);
            return;
        }
    }

    my @lvectl = ( '/usr/sbin/lvectl', 'set', $lveid );
    if ( isnum($cpu) ) {
        push @lvectl, '--cpu', $cpu;
    }
    if ( isnum($ncpu) ) {
        push @lvectl, '--ncpu', $ncpu;
    }
    if ( isnum( trim( $FORM{'mem'} ) ) ) {
        push @lvectl, '--mem', $mem;
    }
    if ( isnum($mep) ) {
        push @lvectl, '--maxEntryProcs', $mep;
    }
    if ( $persist eq 'on' ) {
        push @lvectl, '--save';
    }
    Cpanel::SafeRun::Errors::saferunallerrors(@lvectl);
    if ( $lveid eq 'default' ) {
        Cpanel::SafeRun::Errors::saferunallerrors( '/etc/init.d/lvectl', 'reload' );
    }
    showLVEUsage(&quot;Saved settings...&quot;);
}

sub editLVE {
    my $lveid = shift;
    return 1 if ( !$lveid );
    my $safe_lveid = Cpanel::Encoder::Tiny::safe_html_encode_str($lveid);
    my $LVE        = parseLVE();
    my $lve        = $LVE-&gt;{$lveid};
    my $dlve       = $LVE-&gt;{'default'};
    my $isDefault  = 'default' eq $lveid;
    my $isCustom   = 'custom' eq $lveid;
    my $isSet      = $lve;
    $lve = $lve ? $lve : $dlve;
    printHeader( '', $isDefault ? 'edit_default' : 'edit_custom' );
    print '&lt;fieldset&gt;&lt;legend&gt;';

    if ($isDefault) {
        print 'Modify default LVE settings';
    }
    else {
        print &quot;Modify settings for LVE $safe_lveid&quot;;
    }
    print &lt;&lt;&quot;EOM&quot;;
&lt;/legend&gt;&lt;form action=$self method=POST&gt;
&lt;table width=&quot;90%&quot; padding=&quot;10&quot;&gt;&lt;tr&gt;&lt;td&gt;
   &lt;input type=hidden name=cgiaction value=savelve&gt;
   &lt;input type=hidden name=lveid value=&quot;$safe_lveid&quot;&gt;
EOM

    if ($isCustom) {
        print 'Username or LVE Id: &lt;input type=&quot;text&quot; size=&quot;20&quot; name=&quot;username&quot;/&gt;&lt;br/&gt;';
    }

    my $mem = RoundMemInt( $lve-&gt;{'mem'} &lt;&lt; 2 );

    # Determine and select appropriate memory unit
    my $selectedK = '';
    my $selectedM = '';
    my $selectedG = '';
    my $unit      = chop($mem);
    if ( $unit eq 'K' ) {
        $selectedK = 'selected';
    }
    elsif ( $unit eq 'M' ) {
        $selectedM = 'selected';
    }
    else {
        $selectedG = 'selected';
    }

    print &lt;&lt;&quot;EOM&quot;;
   CPU: &lt;input type=&quot;text&quot; size=&quot;5&quot; name=&quot;cpu&quot; value=&quot;$lve-&gt;{'cpu'}&quot;/&gt;&lt;br/&gt;
   MEM: &lt;input type=&quot;text&quot; size=&quot;11&quot; name=&quot;mem&quot; value=&quot;$mem&quot;/&gt;
   &lt;SELECT name=&quot;mem_unit&quot;&gt;
   &lt;option value=&quot;K&quot; $selectedK&gt;KB&lt;/option&gt;
   &lt;option value=&quot;M&quot; $selectedM&gt;MB&lt;/option&gt;
   &lt;option value=&quot;G&quot; $selectedG&gt;GB&lt;/option&gt;
   &lt;/SELECT&gt;
   &lt;br/&gt;
   Concurrent  Connections: &lt;input type=&quot;text&quot; size=&quot;5&quot; name=&quot;mep&quot; value=&quot;$lve-&gt;{'mep'}&quot;/&gt;&lt;br/&gt;
   Number of Cores Per LVE*: &lt;input type=&quot;text&quot; size=&quot;5&quot; name=&quot;ncpu&quot; value=&quot;$lve-&gt;{'ncpu'}&quot;/&gt;  *requires server reboot for existing LVEs&lt;br/&gt;
   Persist: &lt;input type=&quot;checkbox&quot; name=&quot;persist&quot; checked/&gt;
   &lt;blockquote&gt;&lt;input class='btn-primary' type=submit value='save'&gt;
EOM

    if ( !$isDefault &amp;&amp; $isSet ) {
        print &quot;&lt;input class='btn-secondary' type='button' value='reset to default' onClick='location.href=\&quot;$self?cgiaction=del&amp;lveid=$safe_lveid\&quot;'&gt;&quot;;
    }

    print &lt;&lt;&quot;EOM&quot;;
&lt;input class='btn-cancel' type=&quot;button&quot; value='back' onClick='location.href=&quot;$self&quot;'&gt;
   &lt;/blockquote&gt;
&lt;/td&gt;&lt;td valign=&quot;top&quot; align=&quot;right&quot; width=&quot;40%&quot;&gt;
EOM

    my $dmem = RoundMemInt( $dlve-&gt;{'mem'} &lt;&lt; 2 );

    if ( !$isDefault ) {
        print &quot;&lt;fieldset&gt;&lt;legend&gt;Defaults&lt;/legend&gt;CPU: $dlve-&gt;{'cpu'}%&lt;br/&gt;MEM: $dmem&lt;br/&gt;Concurrent Connections: $dlve-&gt;{'mep'}&lt;br/&gt;Number of Cores Per LVE: $dlve-&gt;{'ncpu'}&lt;/fieldset&gt;&quot;;
    }

    print &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/form&gt;&lt;/fielset&gt;&quot;;
}

sub printLinks {
    my $page = shift;
    if ( $page eq 'usage' ) {
        print '[Home]';
    }
    else {
        print &quot;[&lt;a href=\&quot;${self}\&quot;&gt;Home&lt;/a&gt;]&quot;;
    }
    print '&amp;nbsp;&amp;nbsp;&amp;nbsp;';
    if ( $page eq 'edit_default' ) {
        print '[Edit Default Settings]';
    }
    else {
        print &quot;[&lt;a href=\&quot;${self}?cgiaction=editlve&amp;lveid=default\&quot;&gt;Edit Default Settings&lt;/a&gt;]&quot;;
    }
    print '&amp;nbsp;&amp;nbsp;&amp;nbsp;';
    if ( $page eq 'edit_custom' ) {
        print '[Edit Settings For Specific LVE]';
    }
    else {
        print &quot;[&lt;a href=\&quot;${self}?cgiaction=editlve&amp;lveid=custom\&quot;&gt;Edit Settings For Specific LVE&lt;/a&gt;]&quot;;
    }
    print '&amp;nbsp;&amp;nbsp;&amp;nbsp;';
    print &quot;[&lt;a href='#' onClick='toggleStats()'&gt;Stats&lt;/a&gt;]&quot;;
    print '&amp;nbsp;&amp;nbsp;&amp;nbsp;';
    print &quot;[&lt;a href='#' onClick='toggleHistory()'&gt;History&lt;/a&gt;]&quot;;
}

sub getSelectedTimeOptions {
    my $period = shift;
    my $val    = '';
    foreach my $p ( '10m', '30m', '1h', '4h', 'today', 'yesterday', '7d', '30d' ) {
        $val = $period eq $p ? &quot;${val}:SELECTED&quot; : &quot;${val}:&quot;;
    }
    return $val;
}

sub printTimeframe {
    my $opts = getSelectedTimeOptions(shift);
    my @op = split /:/, $opts;
    shift @op;
    print &lt;&lt;&quot;EOM&quot;;
Timeframe: &lt;select name='timeframe' size='1'&gt;&lt;option value='10m' $op[0]&gt;Last 10 minutes&lt;/option&gt;&lt;option value='30m' $op[1]&gt;Last 30 minutes&lt;/option&gt;&lt;option value='1h' $op[2]&gt;Last hour&lt;/option&gt;&lt;option value='4h' $op[3]&gt;Last 4 hours&lt;/option&gt;&lt;option value='today' $op[4]&gt;Today&lt;/option&gt;&lt;option value='yesterday' $op[5]&gt;Yesterday&lt;/option&gt;&lt;option value='7d' $op[6]&gt;Last 7 days&lt;/option&gt;&lt;option value='30d' $op[7]&gt;Last 30 days&lt;/option&gt;&lt;/select&gt;
EOM
}

# sub printHistoryHeader {
#    my $lveid = shift;
#    my $cgiaction = shift;
#    my $period = shift;
#    print &quot;&lt;form action='${self}' method='GET'&gt;&lt;input type='hidden' name='cgiaction' value='$cgiaction'&gt;&quot;;
#    printTimeframe($period);
#    print &quot;&lt;input type=\&quot;submit\&quot;&gt;&lt;input type=\&quot;hidden\&quot; name=\&quot;lveid\&quot; value=\&quot;$lveid\&quot;&gt;&lt;/form&gt;&quot;;
# }

# $_[1] = message
# $_[2] = current page name
sub printHeader {
    my $safe_message = Cpanel::Encoder::Tiny::safe_html_encode_str(shift);
    my $page         = shift;
    my $period       = shift;
    my $isStats      = $page eq 'stats' ? 'true' : 'false';
    my $isHistory    = $page eq 'history' ? 'true' : 'false';

    if ($safe_message) {
        print &quot;&lt;h3&gt;$safe_message&lt;/h3&gt;&lt;br/&gt;\n&quot;;
    }
    print &lt;&lt;&quot;EOM&quot;;
    &lt;br /&gt;
	&lt;script type=&quot;text/javascript&quot; src=&quot;/js/sorttable.js&quot;&gt;&lt;/script&gt;
&lt;script type=&quot;text/javascript&quot;&gt;
var shown=$isStats;
var h=$isHistory;
function toggleStats() {
    if (h) { toggleHistory(); }
    document.getElementById('stats_div').style.display=shown?'none':'block';
    document.getElementById('stats_div').style.visibility=shown?'hidden':'visible';
    shown = !shown;
}
function toggleHistory() {
    if (shown) { toggleStats(); }
    document.getElementById('history_div').style.display=h?'none':'block';
    document.getElementById('history_div').style.visibility=h?'hidden':'visible';
    h = !h;
}

&lt;/script&gt;
	&lt;div class=&quot;topboxmargin&quot;&gt;&lt;/div&gt;
        &lt;div align=&quot;left&quot;&gt;
EOM
    printLinks $page;
    if   ( $page eq 'stats' ) { print '&lt;/div&gt;&lt;div id=&quot;stats_div&quot; style=&quot;border:1px solid black&quot;&gt;'; }
    else                      { print '&lt;/div&gt;&lt;div id=&quot;stats_div&quot; style=&quot;display:none;border:1px solid black&quot;&gt;'; }
    print &lt;&lt;&quot;EOM&quot;;
&lt;form action=&quot;${self}&quot; method=&quot;GET&quot;&gt;
&lt;input type='hidden' name='cgiaction' value='stats'&gt;
EOM
    printTimeframe($period);
    print &lt;&lt;&quot;EOM&quot;;
&lt;br/&gt;
&lt;input type='radio' name='st' value='order-by' CHECKED&gt;Show TOP LVEs By &lt;select name='order-by' size='1'&gt;
&lt;option value=cpu_max&gt;Max CPU&lt;/option&gt;&lt;option value=cpu_avg&gt;Average CPU&lt;/option&gt;&lt;option value=mep_max&gt;Max EP&lt;/option&gt;&lt;option value=mep_avg&gt;Average EP&lt;/option&gt;&lt;option value=mem_max&gt;Max MEM&lt;/option&gt;&lt;option value=mem_avg&gt;Average MEM&lt;/option&gt;
&lt;option value='total_mem_faults'&gt;Memory Faults&lt;/option&gt;&lt;option value='total_mep_faults'&gt;Entry Procs Faults&lt;/option&gt;&lt;/select&gt; Limit: &lt;select name='limit' size='1'&gt;&lt;option&gt;10&lt;/option&gt;&lt;option&gt;25&lt;/option&gt;&lt;option&gt;50&lt;/option&gt;&lt;option&gt;100&lt;/option&gt;&lt;/select&gt; &lt;br/&gt;
&lt;input type='radio' name='st' value='by-usage'&gt;Show LVEs Approaching Limit &lt;select name='by-usage' size='1'&gt;
&lt;option value=cpu_max&gt;Max CPU&lt;/option&gt;&lt;option value=cpu_avg&gt;Average CPU&lt;/option&gt;&lt;option value=mep_max&gt;Max EP&lt;/option&gt;&lt;option value=mep_avg&gt;Average EP&lt;/option&gt;&lt;option value=mem_max&gt;Max MEM&lt;/option&gt;&lt;option value=mem_avg&gt;Average MEM&lt;/option&gt;
&lt;/select&gt; Using: &lt;select name='percentage' size='1'&gt;&lt;option&gt;50&lt;/option&gt;&lt;option&gt;75&lt;/option&gt;&lt;option selected=&quot;selected&quot;&gt;90&lt;/option&gt;&lt;option&gt;95&lt;/option&gt;&lt;/select&gt;% &lt;br/&gt;
&lt;input type='radio' name='st' value='by-fault'&gt;By Fault &lt;select name='by-fault' size='1'&gt;&lt;option value='mep'&gt;Max Entry Processes&lt;/option&gt;&lt;option value='mem'&gt;Max Memory Limit&lt;/option&gt;&lt;/select&gt; Treshold: &lt;select name='threshold' size='1'&gt;&lt;option&gt;1&lt;/option&gt;&lt;option&gt;10&lt;/option&gt;&lt;option&gt;50&lt;/option&gt;&lt;option&gt;75&lt;/option&gt;&lt;option&gt;1000&lt;/option&gt;%&lt;/select&gt;&lt;br/&gt;
&lt;input type=&quot;submit&quot;&gt;&lt;input type='reset'&gt;&lt;br/&gt;
&lt;/form&gt;
&lt;/div&gt;
&lt;br/&gt;
EOM

    #History div
    if ( $page eq 'history' ) {
        print '&lt;div id=&quot;history_div&quot; style=&quot;border:1px solid black&quot;&gt;';
    }
    else {
        print '&lt;div id=&quot;history_div&quot; style=&quot;display:none;border:1px solid black&quot;&gt;';
    }

    print &lt;&lt;&quot;EOM&quot;;
&lt;form action=&quot;$self&quot; method=&quot;GET&quot;&gt;&lt;input type=&quot;hidden&quot; name=&quot;cgiaction&quot; value=&quot;history&quot;&gt;
&lt;input type='hidden' name='lveid' value='custom'&gt;
Username or LVE Id: &lt;input type=&quot;text&quot; size=&quot;20&quot; name=&quot;username&quot;/&gt;&lt;br/&gt;
EOM
    printTimeframe($period);
    print '&lt;input type=&quot;submit&quot;&gt;&lt;/form&gt;&lt;/div&gt;';
}

sub lveIdLink {
    my $safe_lveid  = Cpanel::Encoder::Tiny::safe_html_encode_str(shift);
    my $safe_period = Cpanel::Encoder::Tiny::safe_html_encode_str(shift);
    return &quot;&lt;nowrap&gt;&lt;a href=\&quot;$self?cgiaction=editlve&amp;lveid=$safe_lveid\&quot;&gt;$safe_lveid&lt;/a&gt;&amp;nbsp;(&lt;a href=\&quot;$self?cgiaction=history&amp;timeframe=$safe_period&amp;lveid=$safe_lveid\&quot;&gt;?&lt;/a&gt;)(&lt;a href=\&quot;$self?cgiaction=chart&amp;timeframe=$safe_period&amp;lveid=$safe_lveid\&quot;&gt;c&lt;/a&gt;)&lt;/nowrap&gt;&quot;;
}

sub getUserDomain {
    my $id     = shift;
    my $name   = getpwuid($id);
    my $domain = '';
    if ( $name ne &quot;&quot; &amp;&amp; -e &quot;/var/cpanel/users/$name&quot; ) {
        open FILE, &quot;/var/cpanel/users/$name&quot;;
        while (&lt;FILE&gt;) {
            if (/^DNS=(.*)/) { $domain = $1; last; }
        }
    }
    return ( $name, $domain );
}

sub showChart {
    my $lveid       = shift;
    my $safe_lveid  = Cpanel::Encoder::Tiny::safe_html_encode_str($lveid);
    my $period      = shift;
    my $safe_period = Cpanel::Encoder::Tiny::safe_html_encode_str($period);
    printHeader( '', 'chart' );

    #   printHistoryHeader($lveid, 'chart', $period);
    print &quot;&lt;br/&gt;&lt;a href='${self}?cgiaction=history&amp;lveid=$safe_lveid&amp;timeframe=$safe_period'&gt;[History]&lt;/a&gt;&lt;br/&gt;&quot;;

    #    drawChart($lveid, $period);
    #    exit;
    print &lt;&lt;&quot;EOM&quot;;
    &lt;img src=&quot;${self}?cgiaction=chartpng&amp;lveid=$safe_lveid&amp;timeframe=$safe_period&quot;&gt;
EOM
}

sub drawChart {
    my $lveid  = shift;
    my $period = shift;
    my @params = ( '/usr/sbin/lvechart', &quot;--period=$period&quot;, &quot;--id=$lveid&quot;, '--width=9', '--height=9', '--dpi=100' );
    my $out    = Cpanel::SafeRun::Errors::saferunallerrors(@params);
    print $out;
}

# Parameters: $FORM{'lveid'}, $FORM{'timeframe'}, $FORM{'username'}
sub showHistory {
    my $lveid       = shift;
    my $safe_lveid  = Cpanel::Encoder::Tiny::safe_html_encode_str($lveid);
    my $period      = shift;
    my $safe_period = Cpanel::Encoder::Tiny::safe_html_encode_str($period);
    my $username    = shift;
    printHeader( '', 'history', $period );
    if ( $lveid eq 'custom' ) {
        my $uid = getpwnam($username);
        $lveid = ( defined $uid ) ? $uid : $username;
        if ( !isnum($lveid) ) {
            print &quot;&lt;h3&gt;Error! Please, enter valid LVE Id or username.&lt;/h3&gt;&quot;;
            return;
        }
    }

    my @params  = ( '/usr/sbin/lveinfo', '--csv', &quot;--period=$period&quot;, &quot;--id=$lveid&quot; );
    my $INPUT   = Cpanel::SafeRun::Errors::saferunallerrors(@params);
    my @results = split( /\n+/, $INPUT );
    my $bg      = 2;
    shift @results;

    #   printHistoryHeader($lveid, 'history', $period);
    print &quot;&lt;br/&gt;&lt;a href='${self}?cgiaction=chart&amp;lveid=$safe_lveid&amp;timeframe=$safe_period'&gt;[Chart]&lt;/a&gt;&quot;;

    print &lt;&lt;&quot;EOM&quot;;
	&lt;table id=&quot;lveps&quot; class=&quot;sortable&quot; width=&quot;60%&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; border=&quot;0&quot;&gt;
    &lt;tr&gt;
    &lt;th&gt;From&lt;/th&gt;
    &lt;th&gt;To&lt;/th&gt;
    &lt;th&gt;aCPU&lt;/th&gt;
    &lt;th&gt;mCpu&lt;/th&gt;
    &lt;th&gt;lCPU&lt;/th&gt;
    &lt;th&gt;aEP&lt;/th&gt;
    &lt;th&gt;mEP&lt;/th&gt;
    &lt;th&gt;lEP&lt;/th&gt;
    &lt;th&gt;aMem&lt;/th&gt;
    &lt;th&gt;mMem&lt;/th&gt;
    &lt;th&gt;lMem&lt;/th&gt;
    &lt;th&gt;MemF&lt;/th&gt;
    &lt;th&gt;MepF&lt;/th&gt;
    &lt;/tr&gt;
EOM

    foreach my $i (@results) {

        # From,To,aCPU,mCPU,lCPU,aEP,mEP,lEP,aMem,mMem,lMem,MemF,MepF
        my ( $from, $to, $acpu, $mcpu, $lcpu, $aep, $mep, $lep, $aMem, $mMem, $lMem, $memf, $mepf ) = split ',', $i;
        $aMem = RoundMemB($aMem);
        $mMem = RoundMemB($mMem);
        $lMem = RoundMemB($lMem);
        print &lt;&lt;&quot;EOM&quot;;
    &lt;tr class=&quot;tdshade${bg}&quot;&gt;
    &lt;td&gt;$from&lt;/td&gt;
    &lt;td&gt;$to&lt;/td&gt;
    &lt;td&gt;$acpu&lt;/td&gt;
    &lt;td&gt;$mcpu&lt;/td&gt;
    &lt;td&gt;$lcpu&lt;/td&gt;
    &lt;td&gt;$aep&lt;/td&gt;
    &lt;td&gt;$mep&lt;/td&gt;
    &lt;td&gt;$lep&lt;/td&gt;
    &lt;td&gt;$aMem&lt;/td&gt;
    &lt;td&gt;$mMem&lt;/td&gt;
    &lt;td&gt;$lMem&lt;/td&gt;
    &lt;td&gt;$memf&lt;/td&gt;
    &lt;td&gt;$mepf&lt;/td&gt;
  &lt;/tr&gt;
EOM
        $bg = $bg eq '1' ? '2' : '1';
    }
    print &quot;&lt;/table&gt;&lt;/div&gt;\n&quot;;
}

sub showStats {
    my $FORM   = shift;
    my $period = $FORM-&gt;{'timeframe'};
    printHeader( $FORM-&gt;{'message'}, 'stats', $period );
    my $st = $FORM-&gt;{'st'};
    my @params = ( '/usr/sbin/lveinfo', '--csv', &quot;--period=$period&quot; );
    if ( $st eq 'order-by' ) {
        push @params, &quot;--order-by=$FORM-&gt;{'order-by'}&quot;, &quot;--limit=$FORM-&gt;{'limit'}&quot;;
    }
    elsif ( $st eq 'by-usage' ) {
        push @params, &quot;--by-usage=$FORM-&gt;{'by-usage'}&quot;, &quot;--percentage=$FORM-&gt;{'percentage'}&quot;;
    }
    elsif ( $st eq 'by-fault' ) {
        push @params, &quot;--by-fault=$FORM-&gt;{'by-fault'}&quot;, &quot;--threshold=$FORM-&gt;{'threshold'}&quot;;
    }
    else {
        push @params, &quot;--id=$FORM-&gt;{'lveid'}&quot;;
    }
    my $INPUT   = Cpanel::SafeRun::Errors::saferunallerrors(@params);
    my @results = split( /\n+/, $INPUT );
    my $bg      = 2;
    shift @results;
    print &lt;&lt;&quot;EOM&quot;;
	&lt;table id=&quot;lveps&quot; class=&quot;sortable&quot; width=&quot;60%&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; border=&quot;0&quot;&gt;
    &lt;tr&gt;
    &lt;th&gt;LVE Id&lt;/th&gt;
    &lt;th&gt;User&lt;/th&gt;
    &lt;th&gt;Domain&lt;/th&gt;
    &lt;th&gt;aCPU&lt;/th&gt;
    &lt;th&gt;mCpu&lt;/th&gt;
    &lt;th&gt;lCPU&lt;/th&gt;
    &lt;th&gt;aEP&lt;/th&gt;
    &lt;th&gt;mEP&lt;/th&gt;
    &lt;th&gt;lEP&lt;/th&gt;
    &lt;th&gt;aMem&lt;/th&gt;
    &lt;th&gt;mMem&lt;/th&gt;
    &lt;th&gt;lMem&lt;/th&gt;
    &lt;th&gt;MemF&lt;/th&gt;
    &lt;th&gt;MepF&lt;/th&gt;
    &lt;/tr&gt;
EOM

    foreach my $i (@results) {

        # ID,aCPU,mCPU,lCPU,aEP,mEP,lEP,aMem,mMem,lMem,MemF,MepF
        my ( $lveid, $acpu, $mcpu, $lcpu, $aep, $mep, $lep, $aMem, $mMem, $lMem, $memf, $mepf ) = split ',', $i;
        $aMem = RoundMemB($aMem);
        $mMem = RoundMemB($mMem);
        $lMem = RoundMemB($lMem);
        my ( $name, $domain ) = getUserDomain($lveid);
        print &quot;&lt;tr class=\&quot;tdshade${bg}\&quot;&gt;&lt;td&gt;&quot;;
        print lveIdLink( $lveid, $period );
        print &quot;&lt;/td&gt;&quot;;
        print &lt;&lt;&quot;EOM&quot;;
    &lt;td&gt;$name&lt;/td&gt;
    &lt;td&gt;$domain&lt;/td&gt;
    &lt;td&gt;$acpu&lt;/td&gt;
    &lt;td&gt;$mcpu&lt;/td&gt;
    &lt;td&gt;$lcpu&lt;/td&gt;
    &lt;td&gt;$aep&lt;/td&gt;
    &lt;td&gt;$mep&lt;/td&gt;
    &lt;td&gt;$lep&lt;/td&gt;
    &lt;td&gt;$aMem&lt;/td&gt;
    &lt;td&gt;$mMem&lt;/td&gt;
    &lt;td&gt;$lMem&lt;/td&gt;
    &lt;td&gt;$memf&lt;/td&gt;
    &lt;td&gt;$mepf&lt;/td&gt;
  &lt;/tr&gt;
EOM
        $bg = $bg eq '1' ? '2' : '1';
    }
    print &quot;&lt;/table&gt;&lt;/div&gt;\n&quot;;
}

# Function converts kilobytes to megabytes or gigabytes (if needed)
# and appends appropriate suffix (K, M, G). Rounds down and returns integer value of memory.
# Parameter $_[1] = memory in kilobytes
sub RoundMemInt {
    my $mem = shift;

    if ( ( $mem % ( 1024 * 1024 ) ) == 0 ) {
        $mem &gt;&gt;= 20;
        return &quot;$mem&quot; . 'G';
    }

    if ( ( $mem % 1024 ) == 0 ) {
        $mem &gt;&gt;= 10;
        return &quot;$mem&quot; . 'M';
    }

    return &quot;$mem&quot; . 'K';
}

# Function converts kilobytes to megabytes or gigabytes (if needed)
# and appends appropriate suffix (K, M, G)
# Parameter $_[1] = memory in kilobytes
sub RoundMemK {
    my $mem = shift;

    if ( $mem &gt;= ( 1024 * 1024 ) ) {
        return sprintf( &quot;%.1fG&quot;, $mem / ( 1024 * 1024 ) );
    }

    if ( $mem &gt;= 1024 ) {
        return sprintf( &quot;%.1fM&quot;, $mem / 1024 );
    }

    return &quot;$mem&quot; . 'K';
}

# Function converts bytes to kilobytes, megabytes or gigabytes (if needed)
# and appends appropriate suffix (K, M, G)
# Parameter $_[1] = memory in bytes
sub RoundMemB {
    my $mem = shift;

    if ( $mem &gt;= ( 1024 * 1024 * 1024 ) ) {
        return sprintf( &quot;%.1fG&quot;, $mem / ( 1024 * 1024 * 1024 ) );
    }

    if ( $mem &gt;= 1024 * 1024 ) {
        return sprintf( &quot;%.1fM&quot;, $mem / ( 1024 * 1024 ) );
    }

    if ( $mem &gt;= 1024 ) {
        return sprintf( &quot;%.0fK&quot;, $mem / 1024 );
    }

    return &quot;$mem&quot;;
}

# $_[1] = message
sub showLVEUsage {
    printHeader( shift, 'usage' );

    print &lt;&lt;&quot;EOM&quot;;
	&lt;table id=&quot;lveps&quot; class=&quot;sortable&quot; width=&quot;60%&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; border=&quot;0&quot;&gt;
          &lt;tr&gt;
             &lt;th&gt;LVE Id&lt;/th&gt;
             &lt;th&gt;User&lt;/th&gt;
	     &lt;th&gt;Domain&lt;/th&gt;
	     &lt;th&gt;Concurrent Connections&lt;/th&gt;
	     &lt;th&gt;Processes&lt;/th&gt;
             &lt;th&gt;Threads&lt;/th&gt;
             &lt;th&gt;CPU %&lt;/th&gt;
             &lt;th&gt;Memory&lt;/th&gt;
         &lt;/tr&gt;
EOM

    my $INPUT = Cpanel::SafeRun::Errors::saferunallerrors( '/usr/sbin/lveps', '-d', '-n', '-c', '1' );
    my @results = split( /\n+/, $INPUT );
    shift @results;
    my $bg = &quot;2&quot;;

    foreach my $i (@results) {
        my ( $lveid, $ref, $pno, $tno, $cpu, $mem, $io ) = split ' ', $i;
        my $name   = getpwuid($lveid);
        my $domain = '';
        if ( $name ne &quot;&quot; &amp;&amp; -e &quot;/var/cpanel/users/$name&quot; ) {
            open FILE, &quot;/var/cpanel/users/$name&quot;;
            while (&lt;FILE&gt;) {
                if (/^DNS=(.*)/) { $domain = $1; last; }
            }
            close FILE;
        }

        my $rmem = RoundMemK($mem);

        print &quot;&lt;tr class=\&quot;tdshade${bg}\&quot;&gt;&lt;td&gt;&quot;, lveIdLink( $lveid, 'today' ), &quot;&lt;/td&gt;&quot;;
        print &lt;&lt;&quot;EOM&quot;;
    &lt;td&gt;$name&lt;/td&gt;
    &lt;td&gt;$domain&lt;/td&gt;
    &lt;td&gt;$ref&lt;/td&gt;
    &lt;td&gt;$pno&lt;/td&gt;
    &lt;td&gt;$tno&lt;/td&gt;
    &lt;td&gt;$cpu&lt;/td&gt;
    &lt;td&gt;$rmem&lt;/td&gt;
  &lt;/tr&gt;
EOM

        $bg = $bg eq '1' ? '2' : '1';
    }
    print &quot;&lt;/table&gt;&lt;/div&gt;\n&quot;;

}

sub trim {
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

# 4:LVE   EP      lCPU    lIO     CPU     MEM     IO      lMEM    lEP     nCPU    fMEM    fEP
# 0       0       25      25      0       0       0       262144  20      1       0       0

sub parseLVE {
    my $file = '/proc/lve/list';
    my $line;
    my %lves;
    my @values;

    open( my $file_handle, '&lt;', $file ) or die( &quot;\n&quot; . 'Error opening file ' . $file . &quot; $!\n&quot; );

    # Skip first line (header)
    $line = &lt;$file_handle&gt;;

    while ( defined( $line = &lt;$file_handle&gt; ) ) {
        @values = split( /\s+/, $line );
        my %hash = ( cpu =&gt; $values[2], mep =&gt; $values[8], mem =&gt; $values[7], ncpu =&gt; $values[9] );
        if ( $values[0] == 0 ) {
            $lves{'default'} = \%hash;
        }
        else {
            my $lveid = $values[0];
            $lves{$lveid} = \%hash;
        }
    }

    close($file_handle);

    return \%lves;
}

__END__

use strict;
use XML::LibXML;

sub parseLVEValues {
  my $lve = shift;

  my @cpu_node = $lve-&gt;getElementsByTagName('cpu');
  my $cpu = trim @cpu_node[0]-&gt;getAttribute('limit');

  my @mem_node = $lve-&gt;getElementsByTagName('mem');
  my $mem = trim @mem_node[0]-&gt;getAttribute('limit');

  my @ncpu_node = $lve-&gt;getElementsByTagName('ncpu');
  my $ncpu = trim @ncpu_node[0]-&gt;getAttribute('limit');

  my @mep_node = $lve-&gt;getElementsByTagName('other');
  my $mep = trim @mep_node[0]-&gt;getAttribute('maxentryprocs');

  my %val = ( cpu =&gt; $cpu, mep =&gt; $mep, mem =&gt; $mem, ncpu =&gt; $ncpu );
  return \%val;
}

sub parseLVE {
  my $parser = XML::LibXML-&gt;new();
  my $tree = $parser-&gt;parse_file('/etc/container/ve.cfg');
  my $root = $tree-&gt;getDocumentElement;
  my %lves;
  my @default = $root-&gt;getElementsByTagName('defaults');
  $lves{'default'} = parseLVEValues $default[0];
  my @lve_nodes = $root-&gt;getElementsByTagName('lve');
  foreach my $lve (@lve_nodes) {
    my $lve_id = trim $lve-&gt;getAttribute('id');
    $lves{$lve_id} = parseLVEValues $lve;
  }
  return \%lves;
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fbase%2F3rdparty%2Fcloudlinux%2Foriginal'>Back to Directory</a>