Select Code to Download

  print a({-href=>'./playlist.m3u?Play+All+Recursive=1'},
      img({-src => $self->cd_icon($dir), $self->aleft, -alt=>
          $self->x('Stream All'),
...
        ']'
    )),
    br({-clear=>'ALL'}),;

    my $mime = $self->r->lookup_file("$dir/$d")->content_type;

    push(@directories,$d) if !$seen{$d}++ && $mime eq DIR_MAGIC_TYPE;
...
    push(@playlists,$d) if $mime =~ m!^audio/(playlist|x-mpegurl|mpegu
+rl|x-scpls)$!;
    push(@txtfiles,$d) if $mime =~ m!^text/plain$!;

sub supported_type {
   my $self = shift;
   my $type = shift;
   return $self->{'supported_types'}->{$type};
}