Overview
Download
Installation
Docs
Tutorial
Credits
Page Source
Hosted by: Convolution
|
Source of template.plp
Back
- <(template.plp)>
- <:
- use POSIX qw/strftime/;
- BEGIN { $title = 'Files' }
- sub file {
- my ($file, $type) = @_;
- my $comment = $file->[1];
- $comment .= strftime(', %B %e, %Y', localtime($file->[2])) if $file->[2];
- return qq{<img src="/pix/$type.png" width=32 height=32 alt="" align=middle>} .
- qq{<a href="files/$file->[0]">$file->[0]</a> ($comment)<br>};
- }
- chdir 'files';
- my (@old, @tgz, @deb, @dir);
- opendir my $handle, '.';
- for (reverse sort readdir $handle) {
- next if /^\./;
- if (/plp\d\d\d\.tgz$/) {
- push @old, [ $_, -s, (stat)[9] ];
- } elsif (/^PLP-[\d.]+\.tar\.gz$/) {
- push @tgz, [ $_, -s, (stat)[9] ];
- } elsif (/\.deb$/) {
- push @deb, [ $_, -s, (stat)[9] ];
- } elsif (/^PLP-[\d.]+$/) {
- push @dir, [ $_, 'dir', (stat)[9] ];
- }
- }
- closedir $handle;
- item 'Module distributions';
- print file($dir[0], 'dir' );
- print file([ "$dir[0][0]/Changes", -s "$dir[0][0]/Changes", (stat _)[9] ], 'txt');
- print map file($_, 'tgz'), @tgz;
- item 'Debian packages';
- print map file($_, 'deb'), @deb;
- item 'Old CGI+module distributions';
- print map file($_, 'old'), @old;
- :>
-
| |