added remove profile link

diff --git a/lib/MojoFacets/Profile.pm b/lib/MojoFacets/Profile.pm
index ecdd77e..c28e2c5 100644 (file)
--- a/lib/MojoFacets/Profile.pm
+++ b/lib/MojoFacets/Profile.pm
@@ -30,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

diff --git a/templates/profile/index.html.ep b/templates/profile/index.html.ep
index fea1ecb..23936e4 100644 (file)
--- a/templates/profile/index.html.ep
+++ b/templates/profile/index.html.ep
@@ -3,7 +3,10 @@
 <ul>
 % foreach my $profile ( @$profiles ) {
 %  my ( $t, $duration ) = split(/-/,$profile,2);
-<li><a target="<%= $profile %>" href="<%= url_for()->query( profile => $profile ) %>"><%= $t %></a> <%= $duration %>
+<li>
+<label>
+<a target="<%= $profile %>" href="<%= url_for()->query( profile => $profile ) %>"><%= $t %></a> <%= $duration %>
+<a class=remove href="<%= url_for( action => 'remove' )->query( profile => $profile ) %>">remove</a>
 </li>
 % }
 </ul>