generate profile output

[MojoFacets.git] / lib / MojoFacets / Profile.pm

diff --git a/lib/MojoFacets/Profile.pm b/lib/MojoFacets/Profile.pm
new file mode 100644 (file)
index 0000000..689f49e
--- /dev/null
+++ b/lib/MojoFacets/Profile.pm
@@ -0,0 +1,30 @@
+package MojoFacets::Profile;
+
+use strict;
+use warnings;
+
+use base 'Mojolicious::Controller';
+
+use Data::Dump qw(dump);
+use File::Path;
+
+sub index {
+       my $self = shift;
+
+       my $path = '/tmp/MojoFacets.profile.';
+
+       if ( my $profile = $self->param('profile') ) {
+warn "XXX profile $profile\n";
+               my $dir = $self->app->home->rel_dir('public') . "/profile/$profile";
+               mkpath $dir unless -d $dir;
+               system "nytprofhtml --file $path$profile --out $dir";
+               $self->redirect_to("/profile/$profile/index.html");
+       }
+
+
+       $self->render(
+               profiles => [ map { s/^\Q$path\E//; $_ } glob "$path*" ],
+       );
+}
+
+1