[scpubgit/JSON-Tree-Viewer.git] / br.pl

package TB_Temp_Packname;

use Web::Simple;
use Scalar::Util qw(blessed);
use IO::All;
use JSON;

has root => (is => 'lazy');

has json => (is => 'lazy');

sub _build_root {
  io->dir("/home/matthewt/tmp/introspection-data/host/services-dev/stable/node/host/")
}

sub _build_json {
  JSON->new->relaxed->pretty
}

sub dispatch_request {
  my ($self) = @_;
  sub () {
    response_filter {
      ref($_[0][0]) eq 'HASH' ? $self->render_table($_[0][0]) : $_[0]
    }
  },
  sub (/) {
    [ $self->structure($self->root) ];
  },
  sub (/**/) {
    [ $self->structure($self->descend($self->root, split '/', $_[1])) ];
  },
}

sub structure {
  my ($self, $data) = @_;
  return unless $data;
  if (ref($data) eq 'HASH') {
    if (keys %$data > 1
        and values %$data == grep ref($_) eq 'HASH', values %$data) {
      my %tmp;
      $tmp{join '|', keys %$_} = 1 for values %$data;
      if (keys %tmp == 1) {
        $data->{$_}->{name} ||= $_ for keys %$data;
        my @cols = grep $_ ne 'name', sort keys %{(values %$data)[0]};
        unshift @cols, 'name';
        return [{
          columns => \@cols,
          show_columns => 1,
          data => [ @{$data}{sort keys %$data} ],
        }]
      }
    }
    return [{
      columns => [ 'key', 'value' ],
      data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],
    }];
  } elsif (blessed($data) and $data->isa('IO::All::Dir')) {
    return [{
      columns => [ 'name', 'explore' ],
      data => [
        map +{ name => $_, explore => $self->link_to($_) }, keys %$data,
      ]
    }];
  } else {
    die "Confused by $data";
  }
}

sub link_to {
  my ($self, @to) = @_;
  use HTML::Tags;
  s/\//\./g for my @link = @to;
  my $link = join('/', @link, '');
  my $to = $to[-1];
  my $html = join '', HTML::Tags::to_html_string(
    <a href="${link}">, "Explore $to", </a>
  );
  return \$html;
}

sub descend {
  my ($self, $target, @path) = @_;
  return unless $target;
  if (blessed($target) and $target->isa('IO::All::File')) {
    $target = $self->json->decode(scalar $target->all);
  }
  return $target unless @path;
  (my $undot = my $step = shift @path) =~ s/\./\//g;
  $self->descend($target->{$step}||$target->{$undot}, @path);
}

sub render_table {
  my ($self, $data) = @_;
  use HTML::Tags;
  my @rows = (
    $data->{show_columns} ? { map +($_ => $_), @{$data->{columns}} } : (),
    @{$data->{data}}
  );
  [ 200, [ 'Content-type' => 'text/html' ], [
    HTML::Tags::to_html_string(
      <html>, <body>, "\n",
      <table>, "\n",
        (map { my $el = $_;
          '  ', <tr>,
            (map {
              <td>, $self->render_el($el, $_), </td>
            } @{$el}{@{$data->{columns}}}),
          </tr>, "\n"
        } @rows),
      </table>, "\n",
      </body>, </html>, "\n",
    )
  ] ];
}

sub render_el {
  my ($self, $whole, $key, $part) = @_;
  if (ref($part) eq 'ARRAY') {
    return join(', ', @$part);
  }
  if (ref($part) eq 'HASH') {
    if ($whole->{key}) {
      return $self->link_to($whole->{key})
    } elsif ($whole->{name}) {
      return $self->link_to($whole->{name}, $key);
    }
    $part = '(complex)';
  }
  use HTML::Tags;
  return $part =~ /\n/ ? (<pre>, $part, </pre>) : $part;
}

__PACKAGE__->run_if_script;
Commit	Line	Data
483736bb	1	package TB_Temp_Packname;
	2
	3	use Web::Simple;
56168e97	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 {
b5f74ce3	17	JSON->new->relaxed->pretty
56168e97	18	}
483736bb	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	},
2ff9773b	27	sub (/) {
	28	[ $self->structure($self->root) ];
	29	},
56168e97	30	sub (/**/) {
2ff9773b	31	[ $self->structure($self->descend($self->root, split '/', $_[1])) ];
56168e97	32	},
	33	}
	34
	35	sub structure {
	36	my ($self, $data) = @_;
fa101d7f	37	return unless $data;
a7a7a4b9	38	if (ref($data) eq 'HASH') {
a6694990	39	if (keys %$data > 1
	40	and values %$data == grep ref($_) eq 'HASH', values %$data) {
	41	my %tmp;
	42	$tmp{join '\|', keys %$_} = 1 for values %$data;
	43	if (keys %tmp == 1) {
	44	$data->{$_}->{name} \|\|= $_ for keys %$data;
b5f74ce3	45	my @cols = grep $_ ne 'name', sort keys %{(values %$data)[0]};
b5f74ce3	46	unshift @cols, 'name';
fa101d7f	47	return [{
b5f74ce3	48	columns => \@cols,
a6694990	49	show_columns => 1,
a6694990	50	data => [ @{$data}{sort keys %$data} ],
fa101d7f	51	}]
a6694990	52	}
a6694990	53	}
fa101d7f	54	return [{
2ff9773b	55	columns => [ 'key', 'value' ],
2ff9773b	56	data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],
fa101d7f	57	}];
2ff9773b	58	} elsif (blessed($data) and $data->isa('IO::All::Dir')) {
fa101d7f	59	return [{
2ff9773b	60	columns => [ 'name', 'explore' ],
	61	data => [
	62	map +{ name => $_, explore => $self->link_to($_) }, keys %$data,
	63	]
fa101d7f	64	}];
56168e97	65	} else {
	66	die "Confused by $data";
	67	}
	68	}
	69
2ff9773b	70	sub link_to {
fa101d7f	71	my ($self, @to) = @_;
2ff9773b	72	use HTML::Tags;
fa101d7f	73	s/\//\./g for my @link = @to;
	74	my $link = join('/', @link, '');
	75	my $to = $to[-1];
2ff9773b	76	my $html = join '', HTML::Tags::to_html_string(
fa101d7f	77	<a href="${link}">, "Explore $to", </a>
2ff9773b	78	);
	79	return \$html;
	80	}
	81
56168e97	82	sub descend {
56168e97	83	my ($self, $target, @path) = @_;
fa101d7f	84	return unless $target;
56168e97	85	if (blessed($target) and $target->isa('IO::All::File')) {
56168e97	86	$target = $self->json->decode(scalar $target->all);
483736bb	87	}
2ff9773b	88	return $target unless @path;
fa101d7f	89	(my $undot = my $step = shift @path) =~ s/\./\//g;
fa101d7f	90	$self->descend($target->{$step}\|\|$target->{$undot}, @path);
483736bb	91	}
	92
	93	sub render_table {
	94	my ($self, $data) = @_;
	95	use HTML::Tags;
	96	my @rows = (
2ff9773b	97	$data->{show_columns} ? { map +($_ => $_), @{$data->{columns}} } : (),
2ff9773b	98	@{$data->{data}}
483736bb	99	);
	100	[ 200, [ 'Content-type' => 'text/html' ], [
	101	HTML::Tags::to_html_string(
56168e97	102	<html>, <body>, "\n",
483736bb	103	<table>, "\n",
2ff9773b	104	(map { my $el = $_;
a7a7a4b9	105	' ', <tr>,
2ff9773b	106	(map {
	107	<td>, $self->render_el($el, $_), </td>
	108	} @{$el}{@{$data->{columns}}}),
a7a7a4b9	109	</tr>, "\n"
483736bb	110	} @rows),
483736bb	111	</table>, "\n",
56168e97	112	</body>, </html>, "\n",
483736bb	113	)
	114	] ];
	115	}
	116
2ff9773b	117	sub render_el {
fa101d7f	118	my ($self, $whole, $key, $part) = @_;
2ff9773b	119	if (ref($part) eq 'ARRAY') {
	120	return join(', ', @$part);
	121	}
	122	if (ref($part) eq 'HASH') {
b5f74ce3	123	if ($whole->{key}) {
b5f74ce3	124	return $self->link_to($whole->{key})
fa101d7f	125	} elsif ($whole->{name}) {
fa101d7f	126	return $self->link_to($whole->{name}, $key);
b5f74ce3	127	}
b5f74ce3	128	$part = '(complex)';
2ff9773b	129	}
b5f74ce3	130	use HTML::Tags;
b5f74ce3	131	return $part =~ /\n/ ? (<pre>, $part, </pre>) : $part;
2ff9773b	132	}
a7a7a4b9	133
483736bb	134	__PACKAGE__->run_if_script;