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