| … | |
… | |
| 17 | |
17 | |
| 18 | sub list { |
18 | sub list { |
| 19 | my ($a, $b) = @_; |
19 | my ($a, $b) = @_; |
| 20 | my $tmp = "<ul>\n"; |
20 | my $tmp = "<ul>\n"; |
| 21 | |
21 | |
| 22 | my @listing = <extra/$a/$b/*.html>; |
22 | my @listing = <$a/$b/*.html>; |
| 23 | for (@listing) { |
23 | for (@listing) { |
| 24 | my ($file) = $_ =~ /\/([^\/]+)$/; |
24 | my ($file) = $_ =~ /\/([^\/]+)$/; |
| 25 | $tmp .= " <li><a href=\"$a/$b/$file\">$file</a><br/>\n "; |
25 | $tmp .= " <li><a href=\"$a/$b/$file\">$file</a><br/>\n "; |
| 26 | $tmp .= do { local $/; open my $fh, "<$_.desc" or die "$_.desc: $!\n"; <$fh> }; |
26 | $tmp .= do { local $/; open my $fh, "<$_.desc" or die "$_.desc: $!\n"; <$fh> }; |
| 27 | $tmp .= " </li>\n"; |
27 | $tmp .= " </li>\n"; |
