Clamav-Update

[people/teissler/ipfire-2.x.git] / src / pakfire / pakfire

diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire
index 91d5fe7d5e2daa517a9433e7a0d43d1150c64419..83ad84e5dd012575ea2284de1bd3027e4a095811 100644 (file)
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -154,6 +154,52 @@
                }
                
        } elsif ("$ARGV[0]" eq "remove") {
+               shift;
+               
+               my @paks;
+               my $pak;
+               
+               foreach $pak (@ARGV) {
+                       unless ("$pak" =~ "^-") {
+                               $return = &Pakfire::isinstalled($pak);
+                               if ($return ne 0) {
+                                       &Pakfire::message("Package $pak is not installed.");
+                                       next;
+                               }
+                       
+                               push(@paks, $pak);
+                       
+                       }
+               }
+               
+               unless (@paks) {
+                       &Pakfire::message("No packages to remove. Exiting...");
+                       exit 1;
+               }
+               
+               &Pakfire::message("");
+               &Pakfire::message("");
+               &Pakfire::message("### Packages to remove:");
+               foreach $pak (sort @paks) {
+                 my $size = &Pakfire::getsize("$pak");
+                       $size = &Pakfire::beautifysize($size);
+                 &Pakfire::message("# $pak  \t\t - $size");
+               }
+               
+               if ($interactive) {
+                 &Pakfire::message("Is this okay? [y/N]");
+                       my $ret = <STDIN>;
+                       chomp($ret);
+                       &Pakfire::logger("Answer: $ret");
+                       if ( $ret ne "y" ) {
+                         &Pakfire::message("Installation aborted.");
+                         exit 1;
+                       }
+               }
+               
+               foreach $pak (@paks) {
+                       &Pakfire::removepak("$pak");
+               }
        
        
        } elsif ("$ARGV[0]" eq "update") {