Author: nbd Date: 2015-03-15 12:08:10 +0100 (Sun, 15 Mar 2015) New Revision: 44782
Modified: trunk/scripts/feeds Log: scripts/feeds: add support for uninstalling targets Signed-off-by: Felix Fietkau <[email protected]> Modified: trunk/scripts/feeds =================================================================== --- trunk/scripts/feeds 2015-03-15 11:08:05 UTC (rev 44781) +++ trunk/scripts/feeds 2015-03-15 11:08:10 UTC (rev 44782) @@ -581,6 +581,17 @@ return $ret; } +sub uninstall_target($) { + my $dir = shift; + my $name = $dir; + $name =~ s/.*\///g; + + my $dest = readlink $dir; + return unless $dest =~ /..\/..\/feeds/; + warn "Uninstalling target '$name'\n"; + unlink "$dir"; +} + sub uninstall { my %opts; my $name; @@ -595,6 +606,10 @@ if ($opts{a}) { system("rm -rvf ./package/feeds"); + foreach my $dir (glob "target/linux/*") { + next unless -l $dir; + uninstall_target($dir); + } $uninstall = 1; } else { if($#ARGV == -1) { @@ -603,6 +618,13 @@ } get_installed(); while ($name = shift @ARGV) { + my $target = "target/linux/$name"; + -l "$target" and do { + uninstall_target($target); + $uninstall = 1; + next; + }; + my $pkg = $installed{$name}; $pkg or do { warn "WARNING: $name not installed\n"; _______________________________________________ openwrt-commits mailing list [email protected] https://lists.openwrt.org/cgi-bin/mailman/listinfo/openwrt-commits
