Improved ps command for task list.

ogp_agent.pl

@@ -3976,7 +3976,10 @@ sub shell_action
 	elsif($action eq 'get_tasklist')
 	{
 		my %taskList;
-		$taskList{'task'} = encode_base64(qx[ps aux]);
+		my $ps = 'ps -p $(ps --no-headers -a -o tty,pid|grep ^[^?] | awk -vORS=, \'{ print $2 }\' | sed \'s/,$/\n/\') -o comm,etime,%cpu,%mem,args';
+		my @res = `$ps`;
+		my $selfcommand = pop(@res);
+		$taskList{'task'} = encode_base64(join("", @res));
 		return {%taskList};
 	}
 	elsif($action eq 'get_timestamp')