);
}
+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
<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>
+</label>
</li>
% }
</ul>