1 package MojoFacets::Profile;
6 use base 'Mojolicious::Controller';
8 use Data::Dump qw(dump);
14 my $path = '/tmp/MojoFacets.profile.';
16 if ( my $profile = $self->param('profile') ) {
17 warn "XXX profile $profile\n";
18 my $dir = $self->app->home->rel_dir('public') . "/profile/$profile";
20 mkpath $dir unless -d $dir;
21 system "nytprofhtml --file $path$profile --out $dir";
22 $self->stash( 'nytprof.disabled' => 1 );
24 $self->redirect_to("/profile/$profile/index.html");
29 profiles => [ map { s/^\Q$path\E//; $_ } glob "$path*" ],
36 if ( my $profile = $self->param('profile') ) {
37 unlink "/tmp/MojoFacets.profile.$profile";
38 rmtree $self->app->home->rel_dir('public') . "/profile/$profile";
41 $self->redirect_to('/profile');