diff options
Diffstat (limited to 'sboremove')
| -rwxr-xr-x | sboremove | 135 |
1 files changed, 76 insertions, 59 deletions
@@ -41,7 +41,8 @@ my ($help, $vers, $non_int, $no_reqs, $alwaysask, @excluded); GetOptions ( 'help|h' => \$help, 'version|v' => \$vers, - 'norequirements|R' => \$no_reqs, + 'norequirements|R' => \$no_reqs, + 'nointeractive' => \$non_int, 'alwaysask|a' => \$alwaysask, ); @@ -49,10 +50,22 @@ show_usage and exit 0 if $help; show_version and exit 0 if $vers; show_usage and exit 0 unless exists $ARGV[0]; -my $rootpkg = $ARGV[0]; -my $test = get_sbo_location ($rootpkg); -die "Unable to locate $rootpkg in the SlackBuilds.org tree.\n" unless - defined $test; +my $installed = get_installed_sbos; +my $inst_names = get_inst_names $installed; + +my @remove; +for my $sbo (@ARGV) { + my $test = get_sbo_location ($sbo); + if ( defined $test ) { + if ($sbo ~~ @$inst_names) { + push @remove, $sbo + } else { + say "$sbo is not installed"; + } + } else { + say "Unable to locate $sbo in the SlackBuilds.org tree." + } +} my $remove_queue; my %required_by; @@ -60,7 +73,7 @@ my %warnings; my @confirmed; sub get_requires ($) { - my $location = get_sbo_location(shift); + my $location = get_sbo_location shift; my $requires = get_from_info (LOCATION => $location, GET => 'REQUIRES'); return $requires; } @@ -71,7 +84,7 @@ sub get_required_by ($) { if ( $required_by{$sbo} ) { for my $req_by (@{$required_by{$sbo}}) { unless ($req_by ~~ @confirmed) { - push (@dep_of, $req_by); + push @dep_of, $req_by; } } } @@ -81,28 +94,25 @@ sub get_required_by ($) { sub confirm_remove ($) { my $sbo = shift; unless ($sbo ~~ @confirmed) { - push(@confirmed, $sbo); + push @confirmed, $sbo; } } -# Determine dependencies & warnings of root package -$remove_queue = get_build_queue($rootpkg, \%warnings); +# Determine dependencies & warnings sbo's +$remove_queue = get_build_queue(\@remove, \%warnings); @$remove_queue = reverse(@$remove_queue); if ($no_reqs) { - @$remove_queue = (); - push(@$remove_queue, $rootpkg); + $remove_queue = \@remove; } # Determine required by for all installed sbo's -my $installed = get_installed_sbos; -my $inst_names = get_inst_names $installed; for my $inst (@$inst_names) { my $requires = get_requires "$inst"; next unless $$requires[0]; for my $req (@$requires) { unless ( $req eq "%README%" ) { if ( $req ~~ $inst_names ) { - push(@{$required_by{$req}}, $inst); + push @{$required_by{$req}}, $inst; } } } @@ -113,56 +123,62 @@ my @temp; if ($inst_names) { for my $sbo (@$remove_queue) { if ($sbo ~~ $inst_names) { - push(@temp, $sbo); + push @temp, $sbo; } } $remove_queue = \@temp; } # Gather instructions from user -my ($req_by_line, @req_by, $req_count, $cnf_count); -my $is_rootpkg = 1; -for my $pkg (@$remove_queue) { - $req_by_line = get_required_by $pkg; - @req_by = split(" ", $req_by_line); - $req_count = @req_by; - $cnf_count = 0; - for my $val (@req_by) { - if ( $val ~~ @confirmed ) { $cnf_count++; } - } - if ($cnf_count == $req_count or $is_rootpkg or $alwaysask) { - say $pkg; - if ( $req_by_line ) { - say "Required by: $req_by_line"; - } else { - unless ($is_rootpkg) { - say "It appears $pkg will no longer be required on your system"; - } +unless ($non_int) { + my ($req_by_line, @req_by, $req_count, $cnf_count); + my $is_rootpkg = 1; + for my $pkg (@$remove_queue) { + $req_by_line = get_required_by $pkg; + @req_by = split(" ", $req_by_line); + $req_count = @req_by; + $cnf_count = 0; + for my $val (@req_by) { + if ( $val ~~ @confirmed ) { $cnf_count++; } } - $is_rootpkg = 0; - if ( exists $warnings{$pkg} ) { - say "$pkg suggests you view its README before proceeding,"; - print "view now? [y] : "; - chomp(my $viewrm = <STDIN>); - if ($viewrm =~ /^[Yy]/) { - print "\n"; - my $locrm = get_sbo_location ($pkg); - $locrm .= '/README'; - open(README, '<', $locrm) or die "could not open $locrm"; - for my $line (<README>) { - print $line; + if ($cnf_count == $req_count or $is_rootpkg or $alwaysask) { + say $pkg; + if ( $req_by_line ) { + say "Required by: $req_by_line"; + } else { + unless ($is_rootpkg) { + say "It appears $pkg will no longer be required on your system"; } } - } - print "Remove $pkg? [n] : "; - chomp(my $userin = <STDIN>); - if ($userin =~ /^[Yy]/) { - confirm_remove $pkg; - say "* added $pkg to remove queue\n"; - } else { - say "* ignoring $pkg\n" + $is_rootpkg = 0; + if ( exists $warnings{$pkg} ) { + say "$pkg suggests you view its README before proceeding,"; + print "view now? [y] : "; + chomp(my $viewrm = <STDIN>); + if ($viewrm =~ /^[Yy]/) { + print "\n"; + my $locrm = get_sbo_location $pkg; + $locrm .= '/README'; + open(README, '<', $locrm) or die "could not open $locrm"; + for my $line (<README>) { + print $line; + } + } + } + print "Remove $pkg? [n] : "; + chomp(my $userin = <STDIN>); + if ($userin =~ /^[Yy]/) { + confirm_remove $pkg; + say "* added $pkg to remove queue\n"; + } else { + say "* ignoring $pkg\n" + } } } +} else { + for my $sbo (@$remove_queue) { + confirm_remove $sbo; + } } # Show remove queue @@ -178,12 +194,13 @@ if ($remove_count) { exit 0; } -print 'Are you sure you want to continue? [n] : '; -unless (<STDIN> =~ /^[Yy]/) { - say 'Exiting.'; - exit 0; +unless ($non_int) { + print 'Are you sure you want to continue? [n] : '; + unless (<STDIN> =~ /^[Yy]/) { + say 'Exiting.'; + exit 0; + } } - for my $instpkg (@confirmed) { system("/sbin/removepkg $instpkg"); |