git.rot13.org Git - pxelator/blob - lib/PXElator/html.pm

   1 package html;
   2
   3 use Data::Dump qw/dump/;
   4 use amt;
   5
   6 sub table {
   7         my $cols = shift;
   8         my $th;
   9
  10         if ( $cols < 0 ) {
  11                 $cols = abs($cols);
  12                 $th .= qq|<th>| . shift(@_) . qq|</td>| foreach ( 1 .. $cols );
  13                 $th .= qq|</tr>\n<tr>|;
  14         }
  15
  16         my @td = map { "<td>$_</td>" } @_;
  17         my $html = qq{<table>\n<tr>$th};
  18         my $row = 0;
  19
  20         foreach ( 0 .. $#td ) {
  21                         $html .= $td[$_];
  22                         if ( ( $_ + 1 ) % $cols == 0 ) {
  23                                 $zebra = $row++ % 2 == 0 ? qq{ style="background: #eee"} : '';
  24                                 $html .= qq{</tr>\n<tr$zebra>};
  25                         };
  26         }
  27         $html .= qq{</tr>\n</table>};
  28 }
  29
  30 sub tabs {
  31         return unless @_;
  32         my $html = qq{<table border=1>\n<tr>};
  33         foreach my $row ( @_ ) {
  34                 $row =~ s{\t}{</td><td>}g;
  35                 $html .= qq|<tr><td>$row</td><tr>\n|;
  36         }
  37         $html .= qq|</table>|;
  38         return $html;
  39 }
  40
  41
  42 sub tt {
  43         qq|<tt>| . join(' ', @_) . qq|</tt>| if @_;
  44 }
  45
  46 sub select {
  47         my $name = shift;
  48         my $selected_option = shift;
  49         unshift @_, '' unless $selected_option;
  50         return join("\n"
  51                 , qq|<select type=select name=$name>|
  52                 , join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ )
  53                 , qq|</select>|
  54         );
  55 }
  56
  57 sub pre {
  58         qq|<pre>| . join(' ', @_) . qq|</pre>| if @_;
  59 }
  60
  61 sub pre_dump {
  62         my $data = shift;
  63         my $dump = dump( $data );
  64         $dump =~ s{"([^"]+)"(\s*=>)}{$1  $2}gs;
  65         $dump =~ s{"([^"]*)"}{"<b>$1</b>"}gs;
  66         qq|<pre>$dump</pre>|;
  67 }
  68
  69 sub conf {
  70         my ($ip,$conf,$format) = @_;
  71         my @editable = splice(@_,3);
  72
  73 #       warn "# conf ",dump( $ip, $conf, $format, [ @editable ] );
  74
  75         $format ||= 'inline';
  76
  77         my @opts = map {
  78                 my $name = $_;
  79                 my $html = $conf->{$name};
  80
  81                 if ( $format eq 'edit' && grep { m/^$name$/ } @editable ) {
  82                         $size = length($html);
  83                         ( $name, qq|<input name=$name value="$html" size=$size>| )
  84                 } else {
  85                         if ( $name eq 'amt' ) {
  86                                 my $amt_ip = amt::ip($ip,$html);
  87                                 # $html contains password!
  88                                 $html = qq|<a href=http://$amt_ip:16992/logon.htm target=$amt_ip>$amt_ip</a>|;
  89
  90                                 if ( $format ne 'inline' ) {
  91                                         my $power = amt::power_on($ip);
  92                                         $html .= qq| power: |
  93                                         . ( $power
  94                                                 ? qq|<a href=/amt/PowerDown/$ip title="turn off">on</a>|
  95                                                 : qq|<a href=/amt/PowerUp/$ip   title="turn on" >off</a>|
  96                                         );
  97                                         client::conf( $ip, 'power' => $power ? 'on' : 'off' );
  98                                 }
  99                         } elsif ( $name eq 'ssh' ) {
 100                                 $html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 };
 101                                 chomp($html);
 102                         } elsif ( $name eq 'kvm' ) {
 103                                 $html = qq|<a href="/start_stop/kvm?nr=$html">$html</a>|;
 104                         }
 105                         $html = qq|<tt>$html</tt>|
 106                         unless
 107                         $html =~ s{\b(\S+)\t(\S+)\t(\S+)\b}{<b title="$1/$2">$3</b> }gs;
 108
 109                         if ( $format =~ /edit|table/ ) {
 110                                 ( $name, $html );
 111                         } else {
 112                                 qq|<div class="config $name"><em>$name</em> $html</div>|
 113                         }
 114                 }
 115         } grep { length($conf->{$_}) > 0 } sort keys %$conf;
 116
 117         $format eq 'inline' ? join("\n", @opts) : @opts;
 118 }
 119
 120 warn "loaded";
 121
 122 1;