From 2a610bba02af4eaacef93e6e22a0a8068361fdf3 Mon Sep 17 00:00:00 2001 From: Mandrake Date: Tue, 31 Oct 2006 11:40:56 +0000 Subject: unlink file in Archive for the moment (should be done in clean but the code to detect which packages is obsoleted has to be moved --- lib/Youri/Submit/Action/Archive.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/Youri/Submit/Action/Archive.pm') diff --git a/lib/Youri/Submit/Action/Archive.pm b/lib/Youri/Submit/Action/Archive.pm index 721eab9..965fc64 100644 --- a/lib/Youri/Submit/Action/Archive.pm +++ b/lib/Youri/Submit/Action/Archive.pm @@ -30,6 +30,7 @@ sub run { my ($self, $package, $repository, $target, $define) = @_; croak "Not a class method" unless ref $self; + # all this should be in Mandriva_upload.pm my $section = $repository->_get_section($package, $target, $define); my $main_section = $repository->_get_main_section($package, $target, $define); print "section $section main_section $main_section\n" if $self->{_verbose}; @@ -58,6 +59,9 @@ sub run { # install file to new location system("install -m $self->{_perms} $file $dest"); + + print "deleting file $file\n" if $self->{_verbose}; + unlink $file unless $self->{_test}; } } } -- cgit v1.2.1