&Pakfire::message("Usage: pakfire <install|remove> [options] <pak(s)>");
&Pakfire::message(" <update> - Contacts the servers for new lists of paks.");
&Pakfire::message(" <upgrade> - Installs the latest version of all paks.");
- &Pakfire::message(" <list> - Outputs a short list with all available paks.");
+ &Pakfire::message(" <list> [installed/notinstalled/upgrade] - Outputs a list with all, installed, available or upgradeable paks.");
&Pakfire::message(" <status> - Outputs a summary about available core upgrades, updates and a required reboot");
&Pakfire::message("");
&Pakfire::message(" Global options:");
} elsif ("$ARGV[0]" eq "list") {
my $count;
+ my $coreupdate = 0;
my $use_color = "";
my $reset_color = "";
my $filter = "all";
- if ("$ARGV[1]" =~ /installed|notinstalled/) {
+ shift if ("$ARGV[1]" =~ "^-");
+
+ if ("$ARGV[1]" =~ /installed|notinstalled|upgrade/) {
$filter = "$ARGV[1]";
- } else {
- &Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
+ } elsif ($ARGV[1]) {
+ &Pakfire::message("PAKFIRE ERROR: Not a known option $ARGV[1]");
+ exit 1;
}
my $pak;
$use_color = "$Pakfire::color{'lightgreen'}";
}
+ # Check for available core upgrade first if list of upgrades is requested
+ if ("$filter" eq "upgrade") {
+ my %coredb = &Pakfire::coredbinfo();
+
+ if (defined $coredb{'AvailableRelease'}) {
+ print "${use_color}Core-Update $coredb{'CoreVersion'}\n";
+ print "Release: $coredb{'Release'} -> $coredb{'AvailableRelease'}${reset_color}\n\n";
+ $coreupdate = 1;
+ }
+ }
+
foreach $pak (sort keys %paklist) {
if ("$Pakfire::enable_colors" eq "1") {
if ("$paklist{$pak}{'Installed'}" eq "yes") {
if ($count > 0) {
print "$count packages total.\n";
} else {
- &Pakfire::message("PAKFIRE WARN: No packages where found using filter $filter.");
+ if (! $coreupdate) {
+ &Pakfire::message("PAKFIRE WARN: No packages where found using filter $filter.");
+ exit 1;
+ }
}
} elsif ("$ARGV[0]" eq "resolvedeps") {
foreach (@ARGV) {
&Pakfire::usage;
}
- &Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");
-
END {
+ &Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");
+
# Check if pakfire has been locked in this session.
if ($locked) {
# Remove lockfile.