/[pxelator]/lib/PXElator/html.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/PXElator/html.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 45 - (show annotations)
Wed Jul 29 22:04:58 2009 UTC (14 years, 8 months ago) by dpavlin
File size: 263 byte(s)
dump all other peaces in, first configuration which can again boot
(wrong image, that is :-)

1 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 warn "loaded";
15
16 1;

  ViewVC Help
Powered by ViewVC 1.1.26