Fix listing queues, remove color output [SME: 12853]

root/pfHandle

@@ -103,7 +103,7 @@ sub Get_Queue
         foreach (@qlist1)
         {
             my ($test) = qx|file $pfdir/$queue|;
-            if ($test !~ /directory/) { push(@qlist, $_); }
+            if ($_ !~ /directory/) { push(@qlist, $_); }
         }
     } else
     {
@@ -181,7 +181,6 @@ sub List_Queue
     my $do    = shift;
     if (!$do) { $do = 0; }
     my ($count, %queue);
-    my ($cmsg, $cstat, $cend) = ("\e[01;34m", "\e[01;31m", "\e[00m");
     if ($queue)
     {
         $count = &Get_Queue($queue, $do);
@@ -193,11 +192,9 @@ sub List_Queue
         {
             if ($do ne "stats")
             {
-                print $cstat;
                 print "####################\n";
                 print "##### \U$_\n";
                 print "####################\n";
-                print $cend;
             }
             my $c = &Get_Queue($_, $do);
             $count += $c;