br.pl

   1 package TB_Temp_Packname;
   2
   3 use Web::Simple;
   4 use Scalar::Util qw(blessed);
   5 use IO::All;
   6 use JSON;
   7
   8 has root => (is => 'lazy');
   9
  10 has json => (is => 'lazy');
  11
  12 sub _build_root {
  13   io->dir("/home/matthewt/tmp/introspection-data/host/services-dev/stable/node/host/")
  14 }
  15
  16 sub _build_json {
  17   JSON->new->relaxed
  18 }
  19
  20 sub dispatch_request {
  21   my ($self) = @_;
  22   sub () {
  23     response_filter {
  24       ref($_[0][0]) eq 'HASH' ? $self->render_table($_[0][0]) : $_[0]
  25     }
  26   },
  27   sub (/**/) {
  28     $self->structure($self->descend($self->root, split '/', $_[1]));
  29   },
  30 }
  31
  32 sub structure {
  33   my ($self, $data) = @_;
  34   if (ref($data) eq 'ARRAY') {
  35     my @cols = sort keys %{$data->[0]};
  36     return [ {
  37       columns => \@cols,
  38       data => $data,
  39     } ];
  40   } else {
  41     die "Confused by $data";
  42   }
  43 }
  44
  45 sub descend {
  46   my ($self, $target, @path) = @_;
  47   my $step = shift @path;
  48   if (blessed($target) and $target->isa('IO::All::File')) {
  49     $target = $self->json->decode(scalar $target->all);
  50   }
  51   $self->descend(::Dwarn($target->{$step}), @path);
  52 }
  53
  54 sub render_table {
  55   my ($self, $data) = @_;
  56   use HTML::Tags;
  57   my @rows = (
  58     $data->{columns},
  59     map [ @{$_}{@{$data->{columns}}} ], @{$data->{data}}
  60   );
  61   [ 200, [ 'Content-type' => 'text/html' ], [
  62     HTML::Tags::to_html_string(
  63       <html>, <body>, "\n",
  64       <table>, "\n",
  65         (map {;
  66           '  ', <tr>, (map { <td>, $_, </td> } @$_), </tr>, "\n"
  67         } @rows),
  68       </table>, "\n",
  69       </body>, </html>, "\n",
  70     )
  71   ] ];
  72 }
  73
  74 __PACKAGE__->run_if_script;