… | |
… | |
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 | |
|
|