Changeset 44782


Ignore:
Timestamp:
2015-03-15T12:08:10+01:00 (3 years ago)
Author:
nbd
Message:

scripts/feeds: add support for uninstalling targets

Signed-off-by: Felix Fietkau <nbd@…>

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/feeds

    r44781 r44782  
    582582} 
    583583 
     584sub uninstall_target($) { 
     585        my $dir = shift; 
     586        my $name = $dir; 
     587        $name =~ s/.*\///g; 
     588 
     589        my $dest = readlink $dir; 
     590        return unless $dest =~ /..\/..\/feeds/; 
     591        warn "Uninstalling target '$name'\n"; 
     592        unlink "$dir"; 
     593} 
     594 
    584595sub uninstall { 
    585596        my %opts; 
     
    596607        if ($opts{a}) { 
    597608                system("rm -rvf ./package/feeds"); 
     609                foreach my $dir (glob "target/linux/*") { 
     610                        next unless -l $dir; 
     611                        uninstall_target($dir); 
     612                } 
    598613                $uninstall = 1; 
    599614        } else { 
     
    604619                get_installed(); 
    605620                while ($name = shift @ARGV) { 
     621                        my $target = "target/linux/$name"; 
     622                        -l "$target" and do { 
     623                                uninstall_target($target); 
     624                                $uninstall = 1; 
     625                                next; 
     626                        }; 
     627 
    606628                        my $pkg = $installed{$name}; 
    607629                        $pkg or do { 
Note: See TracChangeset for help on using the changeset viewer.