<%perl>
# xxx How to get directory of this component from Mason?
opendir(DIR,$dirname) or die "Can't open $dirname";
while (defined(my $file = readdir(DIR))) {
next if ($file =~ /^(\.+|index.html.*|autohandler.*|CVS|Makefile|.*~)$/);
my $filename = "<$dirname/$file";
open(REVIEW,$filename) or die "Can't open $filename";
$company = $product = 'NA';
while () {
$company = $1 if (/Company: <[^>]*>([^<]*)/);
$product = $1 if (/Product: <[^>]*>([^<]*)/);
}
- <% $company %>: <% $product %>
% }