1 package TB_Temp_Packname;
4 use Module::Runtime qw(use_module);
5 use Scalar::Util qw(blessed);
10 has root => (is => 'lazy');
12 has json => (is => 'lazy');
15 io->dir( $ENV{JTV_ROOT} || die "JTV_ROOT env var not set" )
19 JSON->new->relaxed->pretty
22 sub dispatch_request {
25 use_module('Plack::App::Directory')->new({
26 root => $self->root->name
31 ref($_[0][0]) eq 'HASH' ? $self->render_table($_[0][0]) : $_[0]
36 [ 302, [ 'Location', '/'.join('+', @{$_[1]}).'/' ], [] ];
39 $self->root_structure;
43 $self->structure(map {
47 } split qr{(?<!\\)/}, $_[1]);
53 my $struct = $self->mangle_structure($self->root);
54 push @{$struct->[0]{columns}}, 'select';
55 foreach my $host (@{$struct->[0]{data}}) {
57 my $name = $host->{name};
58 my $html = join '', HTML::Tags::to_html_string(
59 <input type="checkbox" name="host" value="$name" />
61 $host->{select} = \$html;
63 $struct->[0]{wrapper} = sub {
66 (map /^\s*$/ ? " $_" : $_, @_),
67 ' ', <input type="submit" value="Now Multify" />, "\n",
74 my ($self, @parts) = @_;
75 if ($parts[0] =~ /\+/) {
76 ($parts[0], my @extra) = split /\+/, $parts[0];
77 my $struct = $self->mangle_structure($self->descend($self->root, @parts));
78 my $first = shift @parts;
79 my @rest = map [ $_, $self->mangle_structure(
80 $self->descend($self->root, $_, @parts)
82 unless ($struct->[0]{show_columns}) {
83 my @cols = @{ $struct->[0]{columns} };
85 my ($key_name, $value_name) = @cols;
88 for map $_->{$key_name},
89 map @$_, $struct->[0]{data}, map $_->[1]{data}, @rest;
90 my %value_by_host = (map {
92 my $data = $_->[1]{data};
94 map { ($_->{$key_name}, $_->{$value_name}) } @$data,
96 } [$first, $struct->[0]], @rest);
97 my @hosts = ($first, @extra);
99 columns => ['key', @hosts],
103 +{ key => $key, (map {
104 ($_, $value_by_host{$_}{$key});
113 foreach my $thing ([ $first, $struct->[0] ], @rest) {
114 foreach my $el (@{$thing->[1]{data}}) {
115 my $by = $by_name{$el->{name}} ||= { name => $el->{name} };
116 foreach my $key (keys %$el) {
117 next if $key eq 'name';
118 if (ref($el->{$key}) eq 'HASH') {
119 $complex_cols{$key} = 1;
122 my $full_key = $key.' ('.$thing->[0].')';
123 $host_cols{$full_key} = 1;
124 $by->{$full_key} = $el->{$key};
130 columns => [ 'name', sort(keys %host_cols), sort(keys %complex_cols) ],
133 map $by_name{$_}, sort keys %by_name
137 return $self->mangle_structure($self->descend($self->root, @parts));
140 sub mangle_structure {
141 my ($self, $data) = @_;
143 if (ref($data) eq 'HASH') {
145 and values %$data == grep ref($_) eq 'HASH', values %$data) {
147 $tmp{join '|', keys %$_} = 1 for values %$data;
148 if (keys %tmp == 1) {
149 $data->{$_}->{name} ||= $_ for keys %$data;
150 my @cols = grep $_ ne 'name', sort keys %{(values %$data)[0]};
151 unshift @cols, 'name';
155 data => [ @{$data}{sort keys %$data} ],
160 columns => [ 'key', 'value' ],
161 data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],
163 } elsif (ref($data) eq 'ARRAY') {
164 if (not grep { not ref($_) eq 'HASH' } @$data) {
167 for map { keys %$_ } @$data;
169 columns => [sort keys %key],
174 } elsif (blessed($data) and $data->isa('IO::All::Dir')) {
176 columns => [ 'name', 'explore' ],
178 map +{ name => $_, explore => $self->link_to($_) }, keys %$data,
182 die "Confused by $data";
187 my ($self, @to) = @_;
191 $link =~ s{\\}{\\\\}g;
195 my $link = join('/', @link, '');
197 my $html = join '', HTML::Tags::to_html_string(
198 <a href="./${link}">, "Explore $to", </a>
204 my ($self, $target, @path) = @_;
205 return unless $target;
206 if (blessed($target) and $target->isa('IO::All::File')) {
207 my $all = $target->all;
208 $target = $self->json->decode($all);
210 return $target unless @path;
211 my $step = shift @path;
212 $self->descend($target->{$step}, @path);
216 my ($self, $data) = @_;
219 $data->{show_columns} ? { map +($_ => $_), @{$data->{columns}} } : (),
222 [ 200, [ 'Content-type' => 'text/html' ], [
223 HTML::Tags::to_html_string(
224 <html>, <body>, "\n",
225 ($data->{wrapper}||sub{@_})->(
228 ? (map { my $el = $_;
229 ' ', ($el->{key} eq '__error__') ? <tr class="error"> : <tr>,
231 <td>, $self->render_el($el, $_, $el->{$_}), </td>
232 } @{$data->{columns}}),
235 : (<tr class="no-rows">,
236 <td>, 'No entries in this data structure', </td>,
240 </body>, </html>, "\n",
246 my ($self, $whole, $key, $part) = @_;
247 if (ref($part) eq 'ARRAY') {
248 if (grep { ref($_) eq 'HASH' } @$part) {
250 return $self->link_to($whole->{key})
251 } elsif ($whole->{name}) {
252 return $self->link_to($whole->{name}, $key);
255 return join ', ', @$part
258 return <ul>, (map { (<li>, $_, </li>) } @$part), </ul>;
260 if (ref($part) eq 'HASH') {
262 return $self->link_to($whole->{key})
263 } elsif ($whole->{name}) {
264 return $self->link_to($whole->{name}, $key);
269 return $part =~ /\n/ ? (<pre>, $part, </pre>) : $part;
272 __PACKAGE__->run_if_script;