webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-26 02:42:58 +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

4
html/cgi-bin/vpnmain.cgi
View File

@@ -23,7 +23,7 @@ use Net::DNS;
use File::Copy;
use File::Temp qw/ tempfile tempdir /;
use strict;
use Sort::Naturally;
# enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';
@@ -2491,7 +2491,7 @@ END
;
my $id = 0;
my $gif;
foreach my $key (keys %confighash) {
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) {