added remove profile link

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

diff --git a/lib/MojoFacets/Profile.pm b/lib/MojoFacets/Profile.pm
index 689f49e..c28e2c5 100644 (file)
--- a/lib/MojoFacets/Profile.pm
+++ b/lib/MojoFacets/Profile.pm
@@ -16,8 +16,11 @@ sub index {
        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";
+               if ( ! -e $dir ) {
+                       mkpath $dir unless -d $dir;
+                       system "nytprofhtml --file $path$profile --out $dir";
+                       $self->stash( 'nytprof.disabled' => 1 );
+               }
                $self->redirect_to("/profile/$profile/index.html");
        }
 
@@ -27,4 +30,15 @@ warn "XXX profile $profile\n";
        );
 }
 
+sub remove {
+       my $self = shift;
+
+       if ( my $profile = $self->param('profile') ) {
+               unlink "/tmp/MojoFacets.profile.$profile";
+               rmtree $self->app->home->rel_dir('public') . "/profile/$profile";
+       }
+
+       $self->redirect_to('/profile');
+}
+
 1