X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FMojoFacets%2FProfile.pm;fp=lib%2FMojoFacets%2FProfile.pm;h=c28e2c58b856c557469705fe9a2f208521a69664;hb=932318670257f3f7b4099ad714031b55b20ee607;hp=ecdd77e1741ac7bd09a150aadf992145c862d2a5;hpb=b1623094c87b8d0790860574d0b480d9985b5004;p=MojoFacets.git

diff --git a/lib/MojoFacets/Profile.pm b/lib/MojoFacets/Profile.pm
index ecdd77e..c28e2c5 100644
--- 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