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->root) ];
  29   },
  30   sub (/**/) {
  31     [ $self->structure($self->descend($self->root, split '/', $_[1])) ];
  32   },
  33 }
  34
  35 sub structure {
  36   my ($self, $data) = @_;
  37   if (ref($data) eq 'HASH') {
  38     return {
  39       columns => [ 'key', 'value' ],
  40       data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],
  41     };
  42   } elsif (blessed($data) and $data->isa('IO::All::Dir')) {
  43     return {
  44       columns => [ 'name', 'explore' ],
  45       data => [
  46         map +{ name => $_, explore => $self->link_to($_) }, keys %$data,
  47       ]
  48     };
  49   } else {
  50     die "Confused by $data";
  51   }
  52 }
  53
  54 sub link_to {
  55   my ($self, $to) = @_;
  56   use HTML::Tags;
  57   my $html = join '', HTML::Tags::to_html_string(
  58     <a href="${to}/">, "Explore $to", </a>
  59   );
  60   return \$html;
  61 }
  62
  63 sub descend {
  64   my ($self, $target, @path) = @_;
  65   if (blessed($target) and $target->isa('IO::All::File')) {
  66     $target = $self->json->decode(scalar $target->all);
  67   }
  68   return $target unless @path;
  69   my $step = shift @path;
  70   $self->descend($target->{$step}, @path);
  71 }
  72
  73 sub render_table {
  74   my ($self, $data) = @_;
  75   use HTML::Tags;
  76   my @rows = (
  77     $data->{show_columns} ? { map +($_ => $_), @{$data->{columns}} } : (),
  78     @{$data->{data}}
  79   );
  80   [ 200, [ 'Content-type' => 'text/html' ], [
  81     HTML::Tags::to_html_string(
  82       <html>, <body>, "\n",
  83       <table>, "\n",
  84         (map { my $el = $_;
  85           '  ', <tr>,
  86             (map {
  87               <td>, $self->render_el($el, $_), </td>
  88             } @{$el}{@{$data->{columns}}}),
  89           </tr>, "\n"
  90         } @rows),
  91       </table>, "\n",
  92       </body>, </html>, "\n",
  93     )
  94   ] ];
  95 }
  96
  97 sub render_el {
  98   my ($self, $whole, $part) = @_;
  99   if (ref($part) eq 'ARRAY') {
 100     return join(', ', @$part);
 101   }
 102   if (ref($part) eq 'HASH') {
 103     return $self->link_to($whole->{key});
 104   }
 105   return $part;
 106 }
 107
 108 __PACKAGE__->run_if_script;