vvelox
/
Proc-ProcessTable-ncps
1
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

dynamic coloring now

This commit is contained in:
Zane C. B-H 2019-08-22 07:07:37 -05:00
parent e678886a80
commit af33dca459
1 changed files with 54 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
Proc-ProcessTable-ncps/lib/Proc/ProcessTable/ncps.pm
View File

@ -44,6 +44,20 @@ sub new {
my $self = { my $self = {
invert=>0, invert=>0,
match=>undef, match=>undef,
colors=>[
'BRIGHT_YELLOW',
'BRIGHT_CYAN',
'BRIGHT_MAGENTA',
'BRIGHT_BLUE'
],
timeColors=>[
'GREEN',
'BRIGHT_GREEN',
'RED',
'BRIGHT_RED'
],
processColor=>'BRIGHT_RED',
nextColor=>0,
}; };
bless $self; bless $self;
@ -130,38 +144,38 @@ sub run{
if ( ! defined( $user ) ) { if ( ! defined( $user ) ) {
$user=$proc->{uid}; $user=$proc->{uid};
} }
$user=color('bright_yellow').$user.color('reset'); $user=color($self->nextColor).$user.color('reset');
push( @new_line, $user ); push( @new_line, $user );
# #
# handles the PID # handles the PID
# #
push( @new_line, color('bright_cyan').$proc->{pid}.color('reset') ); push( @new_line, color($self->nextColor).$proc->{pid}.color('reset') );
# #
# handles the %CPU # handles the %CPU
# #
push( @new_line, color('bright_magenta').$proc->{pctcpu}.color('reset') ); push( @new_line, color($self->nextColor).$proc->{pctcpu}.color('reset') );
# #
# handles the %MEM # handles the %MEM
# #
if ( $^O =~ /bsd/ ) { if ( $^O =~ /bsd/ ) {
my $mem=(($proc->{rssize} * 1024 * 4 ) / $physmem) * 100; my $mem=(($proc->{rssize} * 1024 * 4 ) / $physmem) * 100;
push( @new_line, color('bright_blue').sprintf('%.2f', $mem).color('reset') ); push( @new_line, color($self->nextColor).sprintf('%.2f', $mem).color('reset') );
} else { } else {
push( @new_line, color('bright_blue').sprintf('%.2f', $proc->{pctcpu}).color('reset') ); push( @new_line, color($self->nextColor).sprintf('%.2f', $proc->{pctcpu}).color('reset') );
} }
# #
# handles VSZ # handles VSZ
# #
push( @new_line, color('bright_yellow').$proc->{size}.color('reset') ); push( @new_line, color($self->nextColor).$proc->{size}.color('reset') );
# #
# handles the rss # handles the rss
# #
push( @new_line, color('bright_cyan').$proc->{rss}.color('reset') ); push( @new_line, color($self->nextColor).$proc->{rss}.color('reset') );
# #
# handles the info # handles the info
@ -220,7 +234,7 @@ sub run{
) { ) {
$info='R'; $info='R';
} }
$info=color('bright_magenta').$info; $info=color($self->nextColor).$info;
#checks if it is swapped out #checks if it is swapped out
if ( if (
( $proc->{state} ne 'zombie' ) && ( $proc->{state} ne 'zombie' ) &&
@ -254,7 +268,7 @@ sub run{
} }
; ;
# adds the wchan # adds the wchan
$info=$info.' '.color('bright_blue'); $info=$info.' '.color($self->nextColor);
if ( $^O =~ /linux/ ) { if ( $^O =~ /linux/ ) {
my $wchan=''; my $wchan='';
if ( -e '/proc/'.$proc->{pid}.'/wchan') { if ( -e '/proc/'.$proc->{pid}.'/wchan') {
@ -266,14 +280,14 @@ sub run{
} else { } else {
$info=$info.$proc->{wchan}; $info=$info.$proc->{wchan};
} }
$info=$info.' '.color('reset'); $info=$info.color('reset');
# finally actually add it to the new new line array # finally actually add it to the new new line array
push( @new_line, $info ); push( @new_line, $info );
# #
# handles the start column # handles the start column
# #
push( @new_line, color('bright_yellow').$self->startString( $proc->{start} ).color('reset') ); push( @new_line, color($self->nextColor).$self->startString( $proc->{start} ).color('reset') );
# #
# handles the time column # handles the time column
@ -283,7 +297,7 @@ sub run{
# #
# handle the command # handle the command
# #
my $command=color('bright_red'); my $command=color($self->{processColor});
if ( $proc->{cmndline} =~ /^$/ ) { if ( $proc->{cmndline} =~ /^$/ ) {
$command=$command.'['.$proc->{fname}.']'; $command=$command.'['.$proc->{fname}.']';
} else { } else {
@ -291,8 +305,8 @@ sub run{
} }
push( @new_line, $command.color('reset') ); push( @new_line, $command.color('reset') );
#$tb->add_row( \@new_line );
push( @td, \@new_line ); push( @td, \@new_line );
$self->{nextColor}=0;
} }
} }
@ -345,13 +359,6 @@ sub timeString{
my $self=$_[0]; my $self=$_[0];
my $time=$_[1]; my $time=$_[1];
my $colors=[
'GREEN',
'BRIGHT_GREEN',
'RED',
'BRIGHT_RED'
];
my $hours=0; my $hours=0;
if ( $time >= 3600 ){ if ( $time >= 3600 ){
$hours = $time / 3600; $hours = $time / 3600;
@ -377,9 +384,9 @@ sub timeString{
}elsif( }elsif(
$hours >= 10 $hours >= 10
){ ){
$toReturn=color($colors->[3]).$hours.':'; $toReturn=color($self->{timeColors}->[3]).$hours.':';
}else{ }else{
$toReturn=color($colors->[2]).$hours.':'; $toReturn=color($self->{timeColors}->[2]).$hours.':';
} }
#process the minutes bit #process the minutes bit
@ -387,14 +394,37 @@ sub timeString{
( $hours > 0 ) || ( $hours > 0 ) ||
( $minutes > 0 ) ( $minutes > 0 )
){ ){
$toReturn=$toReturn.color( $colors->[1] ). $minutes.':'; $toReturn=$toReturn.color( $self->{timeColors}->[1] ). $minutes.':';
} }
$toReturn=$toReturn.color( $colors->[0] ).$seconds.color('reset'); $toReturn=$toReturn.color( $self->{timeColors}->[0] ).$seconds.color('reset');
return $toReturn; return $toReturn;
} }
=head2 nextColor
Returns the next color.
=cut
sub nextColor{
my $self=$_[0];
my $color;
if ( defined( $self->{colors}[ $self->{nextColor} ] ) ) {
$color=$self->{colors}[ $self->{nextColor} ];
$self->{nextColor}++;
} else {
$self->{nextColor}=0;
$color=$self->{colors}[ $self->{nextColor} ];
$self->{nextColor}++;
}
return $color;
}
=head1 AUTHOR =head1 AUTHOR