lib/MojoFacets/Data.pm

   1 package MojoFacets::Data;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Mojolicious::Controller';
   7
   8 use Data::Dump qw(dump);
   9 use File::Slurp;
  10 use JSON;
  11
  12 sub index {
  13         my $self = shift;
  14
  15         my $path = $self->app->home->rel_dir('data');
  16         die "no data dir $path" unless -d $path;
  17
  18         opendir(my $dir, $path) || die $!;
  19         my @files =
  20                 grep { -f "$path/$_" && $_ =~ m/\.js(on)?$/ }
  21                 readdir $dir;
  22         close($dir);
  23
  24         $self->render( files => [ @files ] );
  25 }
  26
  27 our $data;
  28 our $stats;
  29
  30 sub load {
  31         my $self = shift;
  32
  33         my $path = $self->app->home->rel_file( 'data/' . $self->param('path') );
  34         die "$path $!" unless -r $path;
  35
  36         # we could use Mojo::JSON here, but it's too slow
  37         $data = from_json read_file $path;
  38
  39         foreach my $e ( @{ $data->{items} } ) {
  40                 foreach my $n ( keys %$e ) {
  41                         $stats->{$n}->{count}++;
  42                         $stats->{$n}->{number}++
  43                                 if $e->{$n} =~ m/^[-+]?([0-9]*\.[0-9]+|[0-9]+)$/;
  44                         $stats->{$n}->{array} += $#{ $e->{$n} } + 1
  45                                 if ref $e->{$n} eq 'ARRAY';
  46                 }
  47         }
  48
  49         foreach my $n ( keys %$stats ) {
  50                 next unless defined $stats->{$n}->{array};
  51                 delete $stats->{$n}->{array}
  52                         if $stats->{$n}->{array} == $stats->{$n}->{count};
  53         }
  54
  55         warn dump($stats);
  56
  57         $self->redirect_to( '/data/columns' );
  58 }
  59
  60
  61 sub columns {
  62     my $self = shift;
  63
  64     $self->render(
  65                 message => 'Select columns to display',
  66                 stats => $stats,
  67         );
  68 }
  69
  70 sub _perm_array {
  71     my ($self,$name) = @_;
  72
  73         my @array = $self->param($name);
  74
  75         if ( @array ) {
  76                 $self->session($name => [ @array ]);
  77         } else {
  78                 @array = @{ $self->session($name) };
  79         }
  80         warn "# $name ",dump @array;
  81         return @array;
  82 }
  83
  84 sub _perm_scalar {
  85     my ($self,$name,$default) = @_;
  86
  87         my $scalar = $self->param($name);
  88
  89         if ( defined $scalar ) {
  90                 $self->session($name => $scalar);
  91         } else {
  92                 $scalar = $self->session($name);
  93         }
  94
  95         if ( ! defined $scalar ) {
  96                 $scalar = $default;
  97                 die "no default for $name" unless defined $scalar;
  98                 $self->session($name => $scalar);
  99         }
 100
 101         warn "# $name ",dump $scalar;
 102         return $scalar;
 103 }
 104
 105 sub table {
 106     my $self = shift;
 107
 108         $self->redirect_to('/data/index') unless $data->{items};
 109
 110         my @columns = $self->_perm_array('columns');
 111         my $order   = $self->_perm_scalar('order', $columns[0]);
 112         my $offset  = $self->_perm_scalar('offset', 0);
 113         my $limit   = $self->_perm_scalar('limit', 20);
 114
 115         my @sorted = sort {
 116                 $a->{$order} cmp $b->{$order}
 117         } @{ $data->{items} };
 118
 119         @sorted = splice @sorted, $offset, $limit;
 120
 121 #       warn "# sorted ", dump @sorted;
 122
 123         warn "$order $offset $limit";
 124
 125         $self->render(
 126                 order => $order,
 127                 offset => $offset,
 128                 limit => $limit,
 129                 sorted => [ @sorted ],
 130                 columns => [ @columns ],
 131         );
 132
 133 }
 134
 135 1;