Parent Directory | Revision Log
show server ip and netmask
1 | dpavlin | 43 | package html; |
2 | |||
3 | sub table { | ||
4 | my $cols = shift; | ||
5 | my @td = map { "<td>$_</td>" } @_; | ||
6 | my $html = qq{<table>\n<tr>}; | ||
7 | foreach ( 0 .. $#td ) { | ||
8 | $html .= $td[$_]; | ||
9 | $html .= qq{</tr>\n<tr>} if $_ % $cols == 1; | ||
10 | } | ||
11 | $html .= qq{</tr>\n</table>}; | ||
12 | } | ||
13 | |||
14 | dpavlin | 64 | sub tt { |
15 | qq|<tt>| . join(' ', @_) . qq|</tt>|; | ||
16 | } | ||
17 | |||
18 | dpavlin | 45 | warn "loaded"; |
19 | |||
20 | dpavlin | 43 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |