lib/MojoFacets/Profile.pm

   1 package MojoFacets::Profile;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Mojolicious::Controller';
   7
   8 use Data::Dump qw(dump);
   9 use File::Path;
  10
  11 sub index {
  12         my $self = shift;
  13
  14         my $path = '/tmp/MojoFacets.profile.';
  15
  16         if ( my $profile = $self->param('profile') ) {
  17 warn "XXX profile $profile\n";
  18                 my $dir = $self->app->home->rel_dir('public') . "/profile/$profile";
  19                 mkpath $dir unless -d $dir;
  20                 system "nytprofhtml --file $path$profile --out $dir";
  21                 $self->redirect_to("/profile/$profile/index.html");
  22         }
  23
  24
  25         $self->render(
  26                 profiles => [ map { s/^\Q$path\E//; $_ } glob "$path*" ],
  27         );
  28 }
  29
  30 1