1 package MojoFacets::Gnuplot;
6 use base 'Mojolicious::Controller';
8 use Data::Dump qw(dump);
9 use Digest::MD5 qw(md5_hex);
10 use Text::Unaccent::PurePerl;
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';
19 # my $name = join('.', 'items', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n } @$columns );
20 my $name = MojoFacets::Data::__export_path_name( $path, 'items', @$columns );
22 warn "# name $name\n";
24 my $url = "/export/$path/$name";
25 my $dir = $self->app->home->rel_dir('public');
27 if ( -e "$dir/$url" ) {
30 foreach ( 1 .. $#$columns ) {
32 push @plot, qq|"$dir/$url" using 1:$n title "$columns->[$_]" with $with|;
38 set output '$dir/$url.png'
42 if ( my $timefmt = $self->param('timefmt') ) {
46 set timefmt "$timefmt"
47 set format x "$timefmt"
52 #set xrange [ "2009-01-01":"2010-01-01" ]
55 $g .= "\n\nplot " . join(',', @plot) . "\n";
59 open(my $gnuplot, '|-', 'gnuplot') || die "gnuplot $!";
63 if ( -e "$dir/$url.png" ) {
64 warn "redirect $url.png";
65 return $self->redirect_to( "$url.png" );
67 $self->render_text( "no $dir/$url.png" );
70 $self->render_text("no graph for $url");