webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-26 19:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Forward Firewall: changed sort-order to Sort::Naturally. This Perl Module will be available since core 68.

Browse Source
This commit is contained in:
Alexander Marx
2013-04-26 10:24:34 +02:00
committed by Michael Tremer
parent e3c589276a
commit eff2dbf833
4 changed files with 36 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
html/cgi-bin/ovpnmain.cgi
View File

@@ -30,6 +30,7 @@ use File::Copy;
use File::Temp qw/ tempfile tempdir /;
use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
use Sort::Naturally;
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
@@ -4850,11 +4851,10 @@ END
</tr>
END
;
my $id = 0;
my $gif;
foreach my $key (sort { uc($confighash{$a}[1]) cmp uc($confighash{$b}[1]) } keys %confighash) {
if ($confighash{$key}[0] eq 'on') { $gif = 'on.gif'; } else { $gif = 'off.gif'; }
my $id = 0;
my $gif;
foreach my $key (sort { ncmp ($confighash{$a}[1],$confighash{$b}[1]) } keys %confighash) {
if ($confighash{$key}[0] eq 'on') { $gif = 'on.gif'; } else { $gif = 'off.gif'; }
if ($id % 2) {
print "<tr bgcolor='$color{'color20'}'>\n";
} else {