view release on metacpan or  search on metacpan

lib/CGI/FileManager.pm  view on Meta::CPAN

462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
        }
        my @files;
         
        foreach my $f (@entries) {
                my $full = File::Spec->catfile($path, $f);
                push @files, {
                        filename    => $f,
                        filetype    => $self->_file_type($full),
                        subdir      => -d $full,
                        zipfile     => ($full =~ /\.zip/i ? 1 : 0),
                        filedate    => scalar (localtime((stat($full))[9])),
                        size        => (stat($full))[7],
                        delete_link => $f eq ".." ? "" : $self->_delete_link($full),
                        rename_link => $f eq ".." ? "" : $self->_rename_link($full),
                        workdir     => $workdir,
                };
        }       
         
        $t->param(workdir => $workdir);
        $t->param(files   => \@files);
        $t->param(version => $VERSION);
}