File Coverage

blib/lib/Dancer/Plugin/Dropbox/AutoIndex.pm

Criterion	Covered	Total	%
statement	54	57	94.7
branch	6	8	75.0
condition	2	4	50.0
subroutine	11	11	100.0
pod	1	1	100.0
total	74	81	91.3

package Dancer::Plugin::Dropbox::AutoIndex;

use strict;
use warnings;

use Exporter;

our @ISA = qw/Exporter/;
our @EXPORT_OK = qw/autoindex/;
our $VERSION = '0.01';

use File::stat;
use DateTime;
use Format::Human::Bytes;
use File::Spec;
use URI::Escape;
use Dancer ":syntax";
use Encode;

=head2 autoindex ($directory, sort_field => "name", fs_encoding => "utf-8")

The autoindex function takes as argument a directory and an optional
named sort_field parameter for sorting, and returns a arrayref with
hashrefs with the relevant file information:

        [
          {
            'location' => './../',
            'mod_time' => '08-Apr-2013 12:58',
            'name' => '..',
            'size' => '-'
          },
          {
            'location' => 'test.txt',
            'mod_time' => '08-Apr-2013 15:04',
            'name' => 'test.txt',
            'size' => '13B'
          }
        ];

You may want to specify a C parameter to sort the listing
(by default "name") and a file system encoding (by default "utf-8");


=cut

sub autoindex {
	my ($directory, %params) = @_;
	my ($name, @files, $st);
    return [] unless -d $directory;
	$params{sort_field} ||= 'name';
    $params{fs_encoding}   ||= 'utf-8';

	opendir(AUTO, $directory);
	while ($name = readdir(AUTO)) {

        # we have to decode the raw bytes pulled out from readdir, so
        # let's use a parameter.
        $name = decode ($params{fs_encoding}, $name);

		my (%file_info, $file_st, $epoch);

		next if $name eq '.';

		# more information about the file in question
		if ($file_st = stat(File::Spec->catfile($directory, $name))) {
			$epoch = $file_st->mtime();
			$file_info{mod_time} = DateTime->from_epoch(epoch => $file_st->mtime)->strftime('%d-%b-%Y %H:%M');
		}
		else {
			$file_info{error} = "$directory, $name, $!";
                        Dancer::Logger::warning $file_info{error};
                        next;
		}

        # encode it back and escape
		$name = uri_escape_utf8($name);
		$file_info{name} = $name;

		if (-d $file_st) {
			$file_info{location} = "./$name/";
			$file_info{size} = '-';
		}
		else {
			$file_info{location} = $name;
			$file_info{size} = Format::Human::Bytes::base2($file_st->size());
		}
		push (@files, \%file_info);
	}

	@files = sort {$a->{$params{sort_field}} cmp $b->{$params{sort_field}}} @files;
	return \@files;
}

1;