& ../lib/header.mas, title => 'review list' &>
Pick a review
% foreach my $title (sort keys %pages) {
- <% $title | h %>
% }
<%init>
my %pages;
local *DIR;
my $dir = File::Spec->catfile( File::Spec->curdir, 'reviews' );
opendir DIR, 'C:/www/1KRACK/mason/ch11/review-site/htdocs/reviews' # dir
or die "Cannot open $dir dir: $!";
foreach my $file ( grep { /\.html$/ } readdir DIR ) {
next if $file =~ /index\.html$/;
my $comp = $m->fetch_comp("reviews/$file")
or die "Cannot find reviews/$file component";
my $title = $comp->attr('film_title');
$pages{$title} = "reviews/$file";
}
closedir DIR
or die "Cannot close $dir dir: $!";
%init>