Pakfire: Add new command line argument "status"

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

diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire
index a9981fd8325f7f867d334d405b48a9895097237f..c69a8d3ad6dcf056f83518c4910463938c01f5cd 100644 (file)
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -2,7 +2,7 @@
 ###############################################################################
 #                                                                             #
 # IPFire.org - A linux based firewall                                         #
-# Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
+# Copyright (C) 2007-2015   IPFire Team   <info@ipfire.org>                   #
 #                                                                             #
 # This program is free software: you can redistribute it and/or modify        #
 # it under the terms of the GNU General Public License as published by        #
@@ -24,13 +24,15 @@
        delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
        $< = $>;
 
+       # Store keys here
+       $ENV{"GNUPGHOME"} = "/opt/pakfire/etc/.gnupg";
+
        require "/opt/pakfire/lib/functions.pl";
        
        my $interactive = 1;
        my $force = "noforce";
        
        &Pakfire::logger("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");
-       &Pakfire::checkcryptodb;
 
        ### Check if we are running as root
        #
@@ -136,26 +138,26 @@
                        exit 1;
                }
 
-               &Pakfire::message("");
-               &Pakfire::message("");
-               &Pakfire::message("PAKFIRE INFO: Packages to install:");
-               foreach $pak (sort @paks) {
-                 my $size = &Pakfire::getsize("$pak");
-                       $size = &Pakfire::beautifysize($size);
-                 &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
-               }
-               
                if (@deps) {
                        my %sort = map{ $_, 1 } @deps;
-                       @deps = sort keys %sort;
+                       @deps = keys %sort;
                        &Pakfire::message("");
                        &Pakfire::message("PAKFIRE INFO: Packages to install for dependencies:");
                }
-               foreach $dep (sort @deps) {
+               foreach $dep (@deps) {
                  my $size = &Pakfire::getsize("$dep");
                        $size = &Pakfire::beautifysize($size);
                  &Pakfire::message("PAKFIRE INFO: $dep \t - $size");
                }
+
+               &Pakfire::message("");
+               &Pakfire::message("");
+               &Pakfire::message("PAKFIRE INFO: Packages to install:");
+               foreach $pak (@paks) {
+                 my $size = &Pakfire::getsize("$pak");
+                       $size = &Pakfire::beautifysize($size);
+                 &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
+               }
                
                my $totalsize;
                foreach $pak (@all) {
@@ -179,20 +181,26 @@
                        &Pakfire::logger("PAKFIRE INFO: Interaction skipped.");
                }
                
-               my %sort = map{ $_, 1 } @all;
-               @all = sort keys %sort;
+#              my %sort = map{ $_, 1 } @all;
+#              @all = sort keys %sort;
 
                ### Download first
-               foreach $pak (sort @all) {
+               foreach $pak (@all) {
                        &Pakfire::getpak("$pak", "");
                }
 
                &Pakfire::message("");
 
-               foreach $pak (sort @all) {
+               foreach $pak (@deps) {
                        &Pakfire::setuppak("$pak") if ($pak ne "");
                }
                
+
+               foreach $pak (@paks) {
+                       &Pakfire::setuppak("$pak") if ($pak ne "");
+               }
+               
+
        } elsif ("$ARGV[0]" eq "remove") {
                shift;
                
@@ -241,7 +249,6 @@
        
        } elsif ("$ARGV[0]" eq "update") {
                &Pakfire::makeuuid();
-               &Pakfire::senduuid();
                &Pakfire::getmirrors("$force");
                &Pakfire::dbgetlist("$force");
                &Pakfire::getcoredb("$force");
@@ -249,14 +256,12 @@
        } elsif ("$ARGV[0]" eq "upgrade") {
                &Pakfire::upgradecore();
                my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
-               my @temp, $pak;
-               
-               foreach (@upgradepaks) {
-                       @temp = &Pakfire::resolvedeps("$_");
-                       foreach (@temp) { push(@upgradepaks,$_) if $_; }
-               }
-               
+               my @deps = ();
+
                if (@upgradepaks) {
+                       # Resolve the dependencies of the to be upgraded packages
+                       @deps = &Pakfire::resolvedeps_recursive(@upgradepaks);
+
                        &Pakfire::message("");
                        &Pakfire::message("PAKFIRE UPGR: We are going to install all packages listed above.");
                        if ($interactive) {
@@ -271,16 +276,24 @@
                        }
                }
                
-               ### Download first
-               foreach $pak (sort @upgradepaks) {
-                       system("mv $Conf::dbdir/meta/meta-$pak $Conf::dbdir/meta/old-meta-$pak");
+               # Download packages
+               foreach $pak (@upgradepaks) {
                        &Pakfire::getpak("$pak", "");
                }
-               
-               foreach $pak (sort @upgradepaks) {
-                       if (&Pakfire::upgradepak("$pak")) {
-                               system("mv $Conf::dbdir/meta/old-meta-$pak $Conf::dbdir/meta/meta-$pak");
-                       }
+
+               # Download dependencies
+               foreach $pak (@deps) {
+                       &Pakfire::getpak("$pak", "");
+               }
+
+               # Install dependencies first
+               foreach $pak (@deps) {
+                       &Pakfire::setuppak("$pak");
+               }
+
+               # Install all upgrades
+               foreach $pak (@upgradepaks) {
+                       &Pakfire::upgradepak("$pak");
                }
                
        } elsif ("$ARGV[0]" eq "list") {
@@ -309,6 +322,8 @@
                } elsif ("$ARGV[1]" eq "upgrades") {
                        system("rm -f /etc/fcron.daily/pakfire-upgrade");
                }
+       } elsif ("$ARGV[0]" eq "status") {
+               &Pakfire::status;
        } else {
                &Pakfire::usage;
        }