smecontribs/pfHandle
7
0
Fork 0
generated from smedev/Template-for-SMEServer-Contribs-Package
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Zsolt Vasarhelyi
2025-11-04 13:04:18 +02:00
parent 0c33a4ab83
commit 7c30ce708d
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
additional/.gitignore vendored
View File

5
pfHandle.spec
View File

@@ -2,7 +2,7 @@
Summary: Postfix management wrapper utility Summary: Postfix management wrapper utility
Name: pfHandle Name: pfHandle
Version: 1.1 Version: 1.1
Release: 5%{?dist} Release: 6%{?dist}
License: GPLv2 License: GPLv2
Group: Applications/System Group: Applications/System
URL: http://launchpad.net/pfhandle URL: http://launchpad.net/pfhandle
@@ -43,6 +43,9 @@ rm -rf $RPM_BUILD_ROOT
%doc %{_mandir}/man5/%{name}.5.gz %doc %{_mandir}/man5/%{name}.5.gz
%changelog %changelog
* Tue Nov 04 2025 Vasarhelyi Zsolt <zsoltv@koozali.org> 1.1-6.sme
- Fix listing queues, remove color output [SME: 12853]
* Tue Sep 23 2025 Jean-Philippe Pialasse <jpp@koozali.org> 1.1-5.sme * Tue Sep 23 2025 Jean-Philippe Pialasse <jpp@koozali.org> 1.1-5.sme
- Initial import for Koozali SME Server 11 - Initial import for Koozali SME Server 11

5
root/pfHandle
View File

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