1 package MojoFacets::Gnuplot;
6 use base 'Mojolicious::Controller';
8 use Data::Dump qw(dump);
9 use Digest::MD5 qw(md5_hex);
14 my $columns = $self->session('columns') || $self->redirect_to('/data/columns');
16 my $url = '/export/' . $self->session('path') . '/' . join('.', @$columns);
17 my $dir = $self->app->home->rel_dir('public');
19 if ( -e "$dir/$url" ) {
22 foreach ( 1 .. $#$columns ) {
24 push @plot, qq|"$dir/$url" using 1:$n title "$columns->[$_]" with linespoints|;
30 set output '$dir/$url.png'
33 set timefmt "%Y-%m-%d"
34 #set format x "%d.%m."
35 #set format x "%Y-%m-%d"
36 #set xrange [ "2009-01-01":"2010-01-01" ]
39 plot | . join(',', @plot) . "\n";
43 open(my $gnuplot, '|-', 'gnuplot') || die "gnuplot $!";
47 $self->redirect_to( "$url.png" );
48 #$self->render_text( "$url.png" );
50 $self->render_text("no graph for $url");