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 (executable)
--- 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>";
        }