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 'HASH') {
  35     $data = [ @{$data}{sort keys %$data} ];
  36     my @cols = sort keys %{$data->[0]};
  37     return [ {
  38       columns => \@cols,
  39       data => $data,
  40     } ];
  41   } else {
  42     die "Confused by $data";
  43   }
  44 }
  45
  46 sub descend {
  47   my ($self, $target, @path) = @_;
  48   return $target unless @path;
  49   my $step = shift @path;
  50   if (blessed($target) and $target->isa('IO::All::File')) {
  51     $target = $self->json->decode(scalar $target->all);
  52   }
  53   $self->descend($target->{$step}, @path);
  54 }
  55
  56 sub render_table {
  57   my ($self, $data) = @_;
  58   use HTML::Tags;
  59   my @rows = (
  60     $data->{columns},
  61     map [ @{$_}{@{$data->{columns}}} ], @{$data->{data}}
  62   );
  63   [ 200, [ 'Content-type' => 'text/html' ], [
  64     HTML::Tags::to_html_string(
  65       <html>, <body>, "\n",
  66       <table>, "\n",
  67         (map {;
  68           '  ', <tr>,
  69             (map { <td>, $self->render_el($_), </td> } @$_),
  70           </tr>, "\n"
  71         } @rows),
  72       </table>, "\n",
  73       </body>, </html>, "\n",
  74     )
  75   ] ];
  76 }
  77
  78 sub render_el { ref($_[1]) eq 'ARRAY' ? join(', ', @{$_[1]}) : $_[1] }
  79
  80 __PACKAGE__->run_if_script;