PciIds/Html/Format.pm

   1 package PciIds::Html::Format;
   2 use strict;
   3 use warnings;
   4 use PciIds::Html::Util;
   5 use base 'Exporter';
   6
   7 our @EXPORT = qw(&htmlFormatTable);
   8
   9 sub htmlFormatTable( $$$$$$ ) {
  10         my( $data, $cols, $headers, $funcs, $filter, $trHead ) = @_;
  11         $trHead = sub { return ''; } unless( defined $trHead );
  12         foreach my $line ( @{$data} ) {
  13                 next unless( &{$filter}( $line ) );
  14                 my $i;
  15                 print '<tr'.&{$trHead}( $line ).'>';
  16                 for( $i = 0; $i < $cols; $i ++ ) {
  17                         my( $header, $func );
  18                         if( ( scalar( @{$headers} ) > $i ) && defined( $headers->[ $i ] ) ) {
  19                                 $header = $headers->[ $i ];
  20                         } else {
  21                                 $header = '<td>';
  22                         }
  23                         if( ( scalar( @{$funcs} ) > $i ) && defined( $funcs->[ $i ] ) ) {
  24                                 $func = $funcs->[ $i ];
  25                         } else {
  26                                 $func = \&encode;
  27                         }
  28                         my $data = &{$func}( $line->[ $i ] );
  29                         $data = "" unless( defined( $data ) );
  30                         print $header.$data.'</td>';
  31                 }
  32                 print "</tr>\n";
  33         }
  34 }
  35
  36 1;