diff options
Diffstat (limited to 'lib/Youri/Upload/Action/Clean.pm')
-rw-r--r-- | lib/Youri/Upload/Action/Clean.pm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/lib/Youri/Upload/Action/Clean.pm b/lib/Youri/Upload/Action/Clean.pm deleted file mode 100644 index 8564756..0000000 --- a/lib/Youri/Upload/Action/Clean.pm +++ /dev/null @@ -1,40 +0,0 @@ -# $Id: /local/youri/soft/trunk/lib/Youri/Upload/Action/Backup.pm 867 2006-01-29T20:47:27.830648Z guillaume $ -package Youri::Upload::Action::Clean; - -=head1 NAME - -Youri::Upload::Action::Clean - Old revisions cleanup - -=head1 DESCRIPTION - -This action plugin ensures cleanup of old package revisions. - -=cut - -use warnings; -use strict; -use Carp; -use base qw/Youri::Upload::Action/; - -sub run { - my ($self, $package, $repository, $target, $define) = @_; - croak "Not a class method" unless ref $self; - - foreach my $replaced_package ( - $repository->get_replaced_packages($package, $target, $define) - ) { - my $file = $replaced_package->get_file(); - print "deleting file $file\n" if $self->{_verbose}; - unlink $file unless $self->{_test}; - } -} - -=head1 COPYRIGHT AND LICENSE - -Copyright (C) 2002-2006, YOURI project - -This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. - -=cut - -1; |