| … | |
… | |
| 58 | print "more =>\n"; |
58 | print "more =>\n"; |
| 59 | print_arch ($a->{more}); |
59 | print_arch ($a->{more}); |
| 60 | } elsif ($_ eq "other_arch") { |
60 | } elsif ($_ eq "other_arch") { |
| 61 | print "$_ => <a href='#", (lc $a->{$_}), "'>$v</a>\n"; |
61 | print "$_ => <a href='#", (lc $a->{$_}), "'>$v</a>\n"; |
| 62 | } elsif ($_ eq "msg" || $_ eq "lore") { |
62 | } elsif ($_ eq "msg" || $_ eq "lore") { |
| 63 | print "<p class='m'>$v</p>"; |
63 | print "$_<p class='m'>$v</p>"; |
| 64 | } else { |
64 | } else { |
| 65 | print "$_ => $v\n"; |
65 | print "$_ => $v\n"; |
| 66 | } |
66 | } |
| 67 | print "</li>"; |
67 | print "</li>"; |
| 68 | } |
68 | } |
| … | |
… | |
| 78 | "</body></html>"; |
78 | "</body></html>"; |
| 79 | |
79 | |
| 80 | close $fh; |
80 | close $fh; |
| 81 | |
81 | |
| 82 | system "gzip", "-7f", "archetypes.html"; |
82 | system "gzip", "-7f", "archetypes.html"; |
| 83 | __END__ |
|
|
| 84 | |
|
|
| 85 | print_archs $as; |
|
|
| 86 | print "</div></span>"; |
|
|
| 87 | } |
|
|
| 88 | print "</td>"; |
|
|
| 89 | } |
|
|
| 90 | print "</tr>"; |
|
|
| 91 | } |
|
|
| 92 | |
|
|
| 93 | } |
|
|
| 94 | |
|
|
