Overview
Download
Installation
Docs
Tutorial
Credits

Page Source

Hosted by:
Convolution
 Source of template.plp
Back
  1. <(template.plp)>
  2. <:

  4. use POSIX qw/strftime/;

  6. BEGIN { $title = 'Files' }

  8. sub file {
  9.     my ($file, $type) = @_;
  10.     my $comment = $file->[1];
  11.     $comment .= strftime(', %B %e, %Y', localtime($file->[2])) if $file->[2];
  12.     return qq{<img src="/pix/$type.png" width=32 height=32 alt="" align=middle>} .
  13.            qq{<a href="files/$file->[0]">$file->[0]</a> ($comment)<br>};
  14. }

  16. chdir 'files';

  18. my (@old, @tgz, @deb, @dir);

  20. opendir my $handle, '.';
  21. for (reverse sort readdir $handle) {
  22.     next if /^\./;
  23.     if (/plp\d\d\d\.tgz$/) {
  24.         push @old, [ $_, -s, (stat)[9] ];
  25.     } elsif (/^PLP-[\d.]+\.tar\.gz$/) {
  26.         push @tgz, [ $_, -s, (stat)[9] ];
  27.     } elsif (/\.deb$/) {
  28.         push @deb, [ $_, -s, (stat)[9] ];
  29.     } elsif (/^PLP-[\d.]+$/) {
  30.         push @dir, [ $_, 'dir', (stat)[9] ];
  31.     }
  32. }
  33. closedir $handle;

  35. item 'Module distributions';
  36. print file($dir[0], 'dir' );
  37. print file([ "$dir[0][0]/Changes", -s "$dir[0][0]/Changes", (stat _)[9] ], 'txt');
  38. print map file($_, 'tgz'), @tgz;

  40. item 'Debian packages';
  41. print map file($_, 'deb'), @deb;

  43. item 'Old CGI+module distributions';
  44. print map file($_, 'old'), @old;

  46. :>