lib/MojoFacets/Gnuplot.pm

   1 package MojoFacets::Gnuplot;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base 'Mojolicious::Controller';
   7
   8 use Data::Dump qw(dump);
   9 use Digest::MD5 qw(md5_hex);
  10 use Text::Unaccent::PurePerl;
  11
  12 sub index {
  13         my $self = shift;
  14
  15         my $columns = $self->session('columns') || return $self->redirect_to('/data/columns');
  16         my $path    = $self->session('path')    || return $self->redirect_to('/data/load');
  17         my $with    = $self->param('with') || 'points';
  18
  19         my $hide_columns;
  20         if ( $self->param('gnuplot_hide') ) {
  21                 $hide_columns->{$_}++ foreach $self->param('gnuplot_hide');
  22                 warn "## hide_columns ", dump $hide_columns;
  23         }
  24
  25 #       my $name = join('.', 'items', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n } @$columns );
  26         my $name = MojoFacets::Data::__export_path_name( $path, 'items', @$columns );
  27
  28         warn "# name $name\n";
  29
  30         my $url = "/export/$path/$name";
  31         my $dir = $self->app->home->rel_file('public');
  32
  33         if ( -e "$dir/$url" ) {
  34
  35                 my @plot;
  36                 foreach ( 1 .. $#$columns ) {
  37                         my $title = $columns->[$_];
  38                         my $n = $_ + 1;
  39                         push @plot, qq|"$dir/$url" using 1:$n title "$title" with $with| unless $hide_columns->{ $title };
  40                 }
  41
  42                 my $g = qq|
  43
  44 set terminal png
  45 set output '$dir/$url.png'
  46
  47                 |;
  48
  49                 if ( my $timefmt = $self->param('timefmt') ) {
  50                         $g .= qq|
  51
  52 set xdata time
  53 set timefmt "$timefmt"
  54 set format x "$timefmt"
  55
  56                         |;
  57                 }
  58
  59 #set xrange [ "2009-01-01":"2010-01-01" ]
  60 #set yrange [ 0 : ]
  61
  62                 $g .= "\n\nplot " . join(',', @plot) . "\n";
  63
  64 warn "gnuplot $g";
  65
  66                 open(my $gnuplot, '|-', 'gnuplot') || die "gnuplot $!";
  67                 print $gnuplot $g;
  68                 close $gnuplot;
  69
  70                 if ( -e "$dir/$url.png" ) {
  71                         warn "redirect $url.png";
  72                         return $self->redirect_to( "$url.png" );
  73                 } else {
  74                         $self->render_text( "no $dir/$url.png" );
  75                 }
  76         } else {
  77                 $self->render_text("no graph for $url");
  78         }
  79 }
  80
  81 1;