Graph.pl gefixt, damit die CGIs sich trotz fehlender Mbmon Daten aufbauen

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

diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire
index 73673d7a11354495fba0f861f5ec60371ccebf18..d262ac384334f71e09f20c2e01493361d5bb1cc8 100644 (file)
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -16,6 +16,11 @@
          exit 1;
        }
        
+       unless ( -e "/var/ipfire/red/active" ) {
+               &Pakfire::message("PAKFIRE ERROR: You need to be online to run pakfire!");
+               exit 2;
+       }
+       
        ### Check if we are started by another name
        #
        if ( $0 =~ /pakfire-update$/ ) {
@@ -34,8 +39,12 @@
        
        foreach (@ARGV) {
                if ("$_" =~ "^-") {
+                       # Turn off interactive mode
                        $interactive = 0 if ("$_" eq "--non-interactive");
                        $interactive = 0 if ("$_" eq "-y");
+                       
+                       # Turn off shell colors - Bad for displaying in webinterface
+                       $Pakfire::enable_colors = 0 if ("$_" eq "--no-colors");
                }
        }
 
@@ -154,7 +163,6 @@
                
                my @paks;
                my $pak;
-               
                foreach $pak (@ARGV) {
                        unless ("$pak" =~ "^-") {
                                $return = &Pakfire::isinstalled($pak);
@@ -162,9 +170,7 @@
                                        &Pakfire::message("PAKFIRE WARN: $pak is not installed");
                                        next;
                                }
-                       
                                push(@paks, $pak);
-                       
                        }
                }
                
@@ -199,15 +205,14 @@
        
        
        } elsif ("$ARGV[0]" eq "update") {
-               my $force = "noforce";
                &Pakfire::makeuuid();
                &Pakfire::senduuid();
                &Pakfire::getmirrors();
-               $force = "force" if ("$ARGV[1]" eq "--force");
-               &Pakfire::dbgetlist("$force");
-               
-       
+               &Pakfire::dbgetlist("noforce");
+               &Pakfire::getcoredb();
+
        } elsif ("$ARGV[0]" eq "upgrade") {
+               &Pakfire::upgradecore();
                my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
                my @temp;
                
@@ -241,11 +246,17 @@
                }
                
        } elsif ("$ARGV[0]" eq "list") {
-               &Pakfire::dblist("all", "noweb");
+               if ("$ARGV[1]" =~ /installed|notinstalled/) {
+                       &Pakfire::dblist("$ARGV[1]", "noweb");
+               } else {
+                       &Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]); 
+                       &Pakfire::dblist("all", "noweb");
+               }
                
        } elsif ("$ARGV[0]" eq "resolvedeps") {
                foreach (@ARGV) {
                        next if ("$_" eq "resolvedeps");
+                       next if ("$_" =~ "^-");
                        &Pakfire::resolvedeps("$_");
                }
        } else {