File Coverage

blib/lib/Plack/App/DirectoryIndex.pm

Criterion	Covered	Total	%
statement	49	54	90.7
branch	10	14	71.4
condition	10	13	76.9
subroutine	9	10	90.0
pod	0	5	0.0
total	78	96	81.2

package Plack::App::DirectoryIndex;

use parent qw[Plack::App::Directory];

use strict;
use warnings;

use Plack::Util::Accessor qw[dir_index pretty];
use URI::Escape;

our $VERSION = '0.0.4';

sub standard_css {
  return <
table {
  width: 100%;
}
.name {
  text-align:l eft;
}
.size, .mtime {
  text-align: right;
}
.type {
  width: 11em;
}
.mtime {
  width: 15em;
}
CSS
}

sub pretty_css {
  return <
body {
  color: #000;
  background-color: #fff;
  font-family: Calibri, Candara, Segoe, Segoe UI, Helvetica Neue, Helvetica, Optima, Arial, sans-serif;
  font-size: normal 1em sans-serif;
  text-align: center;
  padding: 0;
  margin: 0;
}

h2 {
 font-size: 2.000em;
 font-weight: 700;
}

table {
  width: 90%;
  margin: 3em;
  border: 1px solid #aaa;
  border-collapse: collapse;
  background-color: #eee;
}

thead {
  background-color: #bbb;
  font-weight: 700;
  font-size: 1.300em;
}

td, th {
  padding: 1em;
  text-align: left;
  border-bottom: 1px solid #999999;
  color: #000;
}

tr:nth-child(even) {
  background: #ccc;
}

.size {
  text-align: right;
  padding-right: 1.700em;
}

a:link {
  font-size: 1.200em;
  font-weight: 500;
  color: #000;
  text-decoration: none;
}

a:link:hover {
  text-decoration: underline;
}

a:visited {
  font-size: 1.200em;
  font-weight: 500;
  color: #301934;
  text-decoration: none;
}
CSS
}

sub file_html {
  return <






FILE
}

sub dir_html {
  return <


    %s

     </td>
</tr>

<tr>
<td  class="h" >
<a name="118">118</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> %s </td>
</tr>

<tr>
<td  class="h" >
<a name="119">119</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">


    %s

     




125




 





 





 





 





 





 



        




126




 





 





 





 





 





 



          




127




 





 





 





 





 





 



           Name 




128




 





 





 





 





 





 



           Size 




129




 





 





 





 





 





 



           Type 




130




 





 





 





 





 





 



           Last Modified 




131




 





 





 





 





 





 



          




132




 





 





 





 





 





 



        




133




 





 





 





 





 





 



        




134




 





 





 





 





 





 



 %s 




135




 





 





 





 





 





 



        




136









%s





DIR
}

# NOTE: Copied from Plack::App::Directory as that module makes it
# impossible to override the HTML.

sub serve_path {
  my $self = shift;
  my ($env, $dir) = @_;

  my $dir_index = $self->dir_index // 'index.html';

  if (-d $dir and $dir_index and -f "$dir$dir_index") {
    $dir .= $dir_index;
  }

  if (-f $dir) {
    return $self->SUPER::serve_path($env, $dir);
  }

  my $dir_url = $env->{SCRIPT_NAME} . $env->{PATH_INFO};

  if ($dir_url !~ m{/$}) {
    return $self->return_dir_redirect($env);
  }

  my @files = ([ "../", "Parent Directory", '', '', '' ]);

  my $dh = DirHandle->new($dir);
  my @children;
  while (defined(my $ent = $dh->read)) {
    next if $ent eq '.' or $ent eq '..';
    push @children, $ent;
  }

  for my $basename (sort { $a cmp $b } @children) {
    my $file = "$dir/$basename";
    my $url = $dir_url . $basename;

    my $is_dir = -d $file;
    my @stat = stat _;

    $url = join '/', map {uri_escape($_)} split m{/}, $url;

    if ($is_dir) {
      $basename .= "/";
      $url      .= "/";
    }

    my $mime_type = $is_dir ? 'directory' : ( Plack::MIME->mime_type($file) || 'text/plain' );
    push @files, [ $url, $basename, $stat[7], $mime_type, HTTP::Date::time2str($stat[9]) ];
  }

  my $path  = Plack::Util::encode_html("Index of $env->{PATH_INFO}");
  my $files = join "\n", map {
    my $f = $_;
    sprintf $self->file_html, map Plack::Util::encode_html($_), @$f;
  } @files;
  my $page  = sprintf $self->dir_html, $path,
                      ($self->pretty ? $self->pretty_css : $self->standard_css),
                      $path, $files;

  return [ 200, ['Content-Type' => 'text/html; charset=utf-8'], [ $page ] ];
}

1;

__END__