--- lib/PXElator/html.pm 2009/08/05 23:22:17 153 +++ lib/PXElator/html.pm 2009/08/30 15:54:02 378 @@ -1,12 +1,28 @@ package html; +use Data::Dump qw/dump/; +use amt; + 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|$ENV{AMT_HOST}|; + + $html .= qq| power: | + . ( amt::power_on($ip) + ? qq|on| + : qq|off| + ) if $format ne 'inline'; + } 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