<h2>Editing File: /usr/local/cpanel/base/backend/piegraph.cgi</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - base/backend/piegraph.cgi               Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

my %RGB = (
    white   =&gt; [ 0xFF, 0xFF, 0xFF ],
    lgray   =&gt; [ 0xBF, 0xBF, 0xBF ],
    gray    =&gt; [ 0x7F, 0x7F, 0x7F ],
    dgray   =&gt; [ 0x3F, 0x3F, 0x3F ],
    black   =&gt; [ 0x00, 0x00, 0x00 ],
    lblue   =&gt; [ 0x00, 0x00, 0xFF ],
    blue    =&gt; [ 0x00, 0x00, 0xBF ],
    dblue   =&gt; [ 0x00, 0x00, 0x7F ],
    gold    =&gt; [ 0xFF, 0xD7, 0x00 ],
    lyellow =&gt; [ 0xFF, 0xFF, 0x00 ],
    yellow  =&gt; [ 0xBF, 0xBF, 0x00 ],
    dyellow =&gt; [ 0x7F, 0x7F, 0x00 ],
    lgreen  =&gt; [ 0x00, 0xFF, 0x00 ],
    green   =&gt; [ 0x00, 0xBF, 0x00 ],
    dgreen  =&gt; [ 0x00, 0x7F, 0x00 ],
    lred    =&gt; [ 0xFF, 0x00, 0x00 ],
    red     =&gt; [ 0xBF, 0x00, 0x00 ],
    dred    =&gt; [ 0x7F, 0x00, 0x00 ],
    lpurple =&gt; [ 0xFF, 0x00, 0xFF ],
    purple  =&gt; [ 0xBF, 0x00, 0xBF ],
    dpurple =&gt; [ 0x7F, 0x00, 0x7F ],
    lorange =&gt; [ 0xFF, 0xB7, 0x00 ],
    orange  =&gt; [ 0xFF, 0x7F, 0x00 ],
    pink    =&gt; [ 0xFF, 0xB7, 0xC1 ],
    dpink   =&gt; [ 0xFF, 0x69, 0xB4 ],
    marine  =&gt; [ 0x7F, 0x7F, 0xFF ],
    cyan    =&gt; [ 0x00, 0xFF, 0xFF ],
    lbrown  =&gt; [ 0xD2, 0xB4, 0x8C ],
    dbrown  =&gt; [ 0xA5, 0x2A, 0x2A ],
);

use strict;
use Cpanel::Form ();
use HTTP::Date   ();
use GD;
use GD::Graph::pie;
use GD::Graph::bars;
use GD::Graph::hbars;
use GD::Graph::Data;

my %FORM    = Cpanel::Form::parseform();
my @PCOLORS = ( 'lred', 'lgreen', 'lblue', 'lyellow', 'lpurple', 'cyan', 'lorange', 'lbrown', 'gold', 'gray', 'red', 'green', 'blue', 'yellow', 'purple', 'pink', 'orange', 'lgray', 'dred', 'dgreen', 'dblue', 'dyellow', 'dpurple', 'dbrown', 'dpink', 'black', 'white', 'dgray' );

my (@COLORS) = (@PCOLORS) x 11;

my $maxage  = 864000;
my $headers = &quot;Cache-Control: max-age=$maxage, public\r\n&quot; .         #
  &quot;Expires: &quot; . HTTP::Date::time2str( time() + $maxage ) . &quot;\r\n&quot;    #
  . &quot;Content-type: image/png\r\n\r\n&quot;;

if ( $FORM{'action'} eq &quot;pie&quot; ) {

    my @data     = ( [], [] );
    my $okvalues = 0;
    my $max_value_length;
    foreach my $key ( sort { $a &lt;=&gt; $b } keys %FORM ) {
        next if ( int($key) == 0 );

        my $value = $FORM{$key};
        if ($value) {
            push( @{ $data[0] }, '' );
            push( @{ $data[1] }, int($value) );
            if ( length $value &gt; $max_value_length ) {
                $max_value_length = length $value;
            }
            $okvalues = 1 if $value &gt; 0;
        }
        else {
            splice( @COLORS, scalar( @{ $data[0] } ), 1 );
        }
    }

    #
    # GD::Graph::pie chokes with large values
    # so we need to reduce them before sending
    # in the data.  This is safe to do since
    # we only care that the numbers display as a percentage
    # of each other.
    #
    my $reduction_factor = 10**( $max_value_length - 2 );
    if ( $reduction_factor &gt; 1 ) {
        for my $value ( 0 .. $#{ $data[1] } ) {
            $data[1]-&gt;[$value] = int( $data[1]-&gt;[$value] / $reduction_factor );
        }
    }

    if ( $okvalues == 0 ) {
        my $im    = new GD::Image( 120, 120 );
        my $white = $im-&gt;colorAllocate( 255, 255, 255 );
        my $black = $im-&gt;colorAllocate( 0,   0,   0 );
        $im-&gt;transparent($white);
        binmode STDOUT;
        print $headers . $im-&gt;png;
    }
    else {
        my $my_graph = new GD::Graph::pie( 120, 120 );
        $my_graph-&gt;set(
            axislabelclr =&gt; 'black',
            '3d'         =&gt; 0,
            pie_height   =&gt; 16,
            l_margin     =&gt; 0,
            r_margin     =&gt; 0,
            start_angle  =&gt; 235,
            transparent  =&gt; 1,
            dclrs        =&gt; \@COLORS,
        );

        print $headers . $my_graph-&gt;plot( \@data )-&gt;png;
    }
}
else {
    my $im = new GD::Image( 18, 18 );
    my @CA = @{ $RGB{ $COLORS[ $FORM{color} ] } };

    my $r     = $CA[0];
    my $g     = $CA[1];
    my $b     = $CA[2];
    my $color = $im-&gt;colorAllocate( $r, $g, $b );

    my $black = $im-&gt;colorAllocate( 0, 0, 0 );
    $im-&gt;filledRectangle( 0, 0, 18, 18, $black );
    $im-&gt;filledRectangle( 2, 2, 16, 16, $color );
    binmode STDOUT;
    print $headers . $im-&gt;png;
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fbase%2Fbackend'>Back to Directory</a>