| … | |
… | |
| 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 | } |
| … | |
… | |
| 72 | print "<tr valign='top'><th align='left'><a name='", (lc $name), "'>$name</a></th><td>"; |
72 | print "<tr valign='top'><th align='left'><a name='", (lc $name), "'>$name</a></th><td>"; |
| 73 | print_arch $arch->{$name}; |
73 | print_arch $arch->{$name}; |
| 74 | print "</td></tr>"; |
74 | print "</td></tr>"; |
| 75 | } |
75 | } |
| 76 | |
76 | |
| 77 | print "</table><hr/><p style='font-size: 6pt'>created by <b>cfarch2html</b> version $VERSION</p>", |
77 | print "</table><hr/><p style='font-size: 8pt'>created by <b>cfarch2html</b> version $VERSION</p>", |
| 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"; |
