From 2810251c37f6e1b1ae68fcda76c1a776315633cb Mon Sep 17 00:00:00 2001
From: "Adam D. Barratt" <adam@adam-barratt.org.uk>
Date: Thu, 14 Nov 2019 20:51:01 +0000
Subject: [PATCH] machines.cgi: fix sorting when [[-hostname]] entries are used

Signed-off-by: Adam D. Barratt <adam@adam-barratt.org.uk>
---
 machines.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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>";
 	}
-- 
2.20.1