--- lib/PXElator/html.pm 2009/07/30 23:57:19 72 +++ lib/PXElator/html.pm 2009/08/30 10:38:13 362 @@ -1,12 +1,27 @@ package html; +use Data::Dump qw/dump/; + sub table { my $cols = shift; + my $th; + + if ( $cols < 0 ) { + $cols = abs($cols); + $th .= qq|
| . join(' ', @_) . qq|| if @_; +} + +sub pre_dump { + my $data = shift; + my $dump = dump( $data ); + $dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; + $dump =~ s{"([^"]*)"}{"$1"}gs; + qq|
$dump|; +} + +sub conf { + my ($ip,$conf,$format) = @_; + my @editable = splice(@_,3); + + warn "# conf ",dump( $ip, $conf, $format, [ @editable ] ); + + $format ||= 'inline'; + + my @opts = map { + my $name = $_; + my $html = $conf->{$name}; + + if ( $format eq 'edit' && grep { m/^$name$/ } @editable ) { + $size = length($html); + ( $name, qq|| ) + } else { + if ( $name eq 'amt' ) { + $html = qq|logon|; + } elsif ( $name eq 'ssh' ) { + $html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; + chomp($html); + } + $html = qq|
$html| + unless + $html =~ s{\b(\S+)\t(\S+)\t(\S+)\b}{$3 }gs; + + if ( $format =~ /edit|table/ ) { + ( $name, $html ); + } else { + qq|$name $html