From: Adam D. Barratt <adam@adam-barratt.org.uk>
Date: Thu, 14 Nov 2019 20:51:01 +0000 (+0000)
Subject: machines.cgi: fix sorting when [[-hostname]] entries are used
X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=commitdiff_plain;h=2810251c37f6e1b1ae68fcda76c1a776315633cb

machines.cgi: fix sorting when [[-hostname]] entries are used

Signed-off-by: Adam D. Barratt <adam@adam-barratt.org.uk>
---

diff --git a/machines.cgi b/machines.cgi
index 74cacb6..ce41198 100755
--- a/machines.cgi
+++ b/machines.cgi
@@ -95,7 +95,7 @@ sub item_uplist($) {
 		$out = "<ul>".
 			join("", map { 
 				"<li>".wiki_link($_)."</li>\n";
-			  } sort {my $A=$a; my $B=$b; $A =~ s/[\[\]\*]//g; $B =~ s/[\[\]\*]//g; $A cmp $B} @tmp
+			  } sort {my $A=$a; my $B=$b; $A =~ s/\[\[[-*]?(.*?)\]\]/\1/g; $B =~ s/\[\[[-*]?(.*?)\]\]/\1/g; $A cmp $B} @tmp
 			).
 			"</ul>";
 	}