Make sure that HttpProxy cleans up after itself when purging assets or revisions.

This commit is contained in:
Colin Kuskie 2012-02-14 15:30:07 -08:00
parent 80ec20b8f2
commit 82554add6b
2 changed files with 25 additions and 2 deletions

View file

@ -256,14 +256,36 @@ sub prepareView {
=head2 purge
Extend the base method to delete the cookie jar
Extend the base method to delete all cookie jars for this HttpProxy
=cut
sub purge {
my $self = shift;
my $id = $self->getId;
my $session = $self->session;
my @storageIds = $session->db->buildArray("select cookieJarStorageId from HttpProxy where assetId=?",[$id]);
my $success = $self->SUPER::purge;
return 0 unless $success;
foreach my $storageId (@storageIds) {
my $storage = WebGUI::Storage->get($session, $storageId);
$storage->delete if defined $storage;
}
return 1;
}
#-------------------------------------------------------------------
=head2 purgeRevision
Extend the base method to delete the cookie jar for this revision.
=cut
sub purgeRevision {
my $self = shift;
$self->getCookieJar->delete;
$self->SUPER::purge;
$self->SUPER::purgeRevision;
}