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

1 files changed, 4 insertions, 0 deletions

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};
         }
     }  
 }