Do not show illegal link

frioux · Sep 22, 2015 · 778920c · 778920c
1 parent b98057e
commit 778920c
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/lib/WWW/RetroPie/Game/Picker.pm b/lib/WWW/RetroPie/Game/Picker.pm
@@ -35,11 +35,21 @@ sub dispatch_request {
          return $self->_forbidden unless $system =~ m/^[\w]+$/;
 
          '/' => sub {
+            my %links =
+               map { readlink $_ => 1 }
+               grep -l $_,
+               map "$_",
+               io->dir($self->_config->retropie_roms_dir, $system)->all;
             my $html =
                join "\n",
-               map qq(<li>$_ [<a href="/all/$system/$_/pick">Pick</a>]</li>),
-               map $_->filename,
-               io->dir($self->_config->real_roms_dir, $system)->all;
+               map {
+                  my $fn = $_->filename;
+                  "<li>$fn [" . (
+                     $links{$_->name}
+                        ? '<strike>Pick</strike>'
+                        : qq(<a href="/all/$system/$fn/pick">Pick</a>)
+                  ) . ']</li>'
+               } io->dir($self->_config->real_roms_dir, $system)->all;
 
             return [ 200, [ content_type => 'text/html' ], [ "<html><ul>$html</ul></html>" ] ]
          },