In machines.cgi: do not skip [[- purposes. "[[-<hostname>]]" gets stuff added to...

[mirror/userdir-ldap-cgi.git] / machines.cgi

diff --git a/machines.cgi b/machines.cgi
index d67aa3f..4108fff 100755 (executable)
--- a/machines.cgi
+++ b/machines.cgi
@@ -90,9 +90,9 @@ sub wiki_link($) {
        # [[hostname]] makes a link too
        # if you add a * after [[ it's still the same, only not used for ssh_known_hosts in ud-generate
        # [[-hostname]] are not links, but get added to known_hosts.  we should drop the [[- ]] tho
+       $in =~ s#\[\[-(.*?)\]\]#$1#g;
        $in =~ s#\[\[\*?(.*?)\|(.*?)\]\]#<a href="http://$1">$2</a>#g;
        $in =~ s#\[\[\*?(.*?)\]\]#<a href="http://$1">$1</a>#g;
-       $in =~ s#\[\[-(.*?)\]\]#$1#g;
        return $in;
 }
 
@@ -106,7 +106,7 @@ sub wiki_link($) {
 sub item_uplist($) {
        my ($items) = @_;
        my $out = undef;
-       my(@tmp) = grep(!/\[\[-/, @$items);
+       my(@tmp) = @$items;
 
        if (scalar @tmp>= 1) {
                $out = "<ul>".