+ open(FILE, "<$Conf::dbdir/lists/packages_list.db");
+ my @db = <FILE>;
+ close(FILE);
+
+ my $dep;
+ my @deps;
+ my $pak;
+ my @paks;
+ my @temp;
+ my @templine;
+ my $found = 0;
+ my $return;
+ my @all;
+ foreach $pak (@ARGV) {
+ unless ("$pak" =~ "^-") {
+ $return = &Pakfire::isinstalled($pak);
+ if ($return eq 0) {
+ &Pakfire::message("PAKFIRE INFO: $pak is already installed");
+ next;
+ }
+ $found = 0;
+ foreach (@db) {
+ @templine = split(/;/,$_);
+ if ("$templine[0]" eq "$pak" ) {
+ push(@paks,$pak);
+ push(@all,$pak);
+ @temp = &Pakfire::resolvedeps("$pak");
+ foreach $dep (@temp) {
+ push(@deps,$dep) if $dep;
+ push(@all,$dep) if $dep;
+ }
+ $found = 1;
+ break;
+ }
+ }
+ if ($found == 0) {
+ &Pakfire::message("");
+ &Pakfire::message("PAKFIRE WARN: The pak \"$pak\" is not known. Please try running \"pakfire update\".");
+ }
+ }
+ }
+
+ unless (@paks) {
+ &Pakfire::message("PAKFIRE ERROR: No packages to install. Exiting...");
+ exit 1;
+ }
+
+ if (@deps) {
+ my %sort = map{ $_, 1 } @deps;
+ @deps = sort keys %sort;
+ &Pakfire::message("");
+ &Pakfire::message("PAKFIRE INFO: Packages to install for dependencies:");
+ }
+ 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) {
+ $totalsize = ($totalsize + &Pakfire::getsize("$pak"));
+ }
+ $totalsize = &Pakfire::beautifysize($totalsize);
+ &Pakfire::message("");
+ &Pakfire::message("PAKFIRE INFO: Total size: \t ~ $totalsize");
+ &Pakfire::message("");
+
+ if ($interactive) {
+ &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
+ my $ret = <STDIN>;
+ chomp($ret);
+ &Pakfire::logger("PAKFIRE INFO: Answer: $ret");
+ if ( $ret ne "y" ) {
+ &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
+ exit 1;
+ }
+ } else {
+ &Pakfire::logger("PAKFIRE INFO: Interaction skipped.");
+ }
+
+# my %sort = map{ $_, 1 } @all;
+# @all = sort keys %sort;
+
+ ### Download first
+ foreach $pak (@all) {
+ &Pakfire::getpak("$pak", "");
+ }
+
+ &Pakfire::message("");
+
+ foreach $pak (@deps) {
+ &Pakfire::setuppak("$pak") if ($pak ne "");
+ }
+
+
+ foreach $pak (@paks) {
+ &Pakfire::setuppak("$pak") if ($pak ne "");
+ }
+
+
+ } 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("PAKFIRE WARN: $pak is not installed");
+ next;
+ }
+ push(@paks, $pak);
+ }
+ }
+
+ unless (@paks) {
+ &Pakfire::message("PAKFIRE ERROR: No packages to remove. Exiting...");
+ exit 1;
+ }
+
+ &Pakfire::message("");
+ &Pakfire::message("");
+ &Pakfire::message("PAKFIRE INFO: Packages to remove:");
+ foreach $pak (sort @paks) {
+ my $size = &Pakfire::getsize("$pak");
+ $size = &Pakfire::beautifysize($size);
+ &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
+ }
+
+ if ($interactive) {
+ &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
+ my $ret = <STDIN>;
+ chomp($ret);
+ &Pakfire::logger("PAKFIRE INFO: Answer: $ret");
+ if ( $ret ne "y" ) {
+ &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
+ exit 1;
+ }
+ }
+
+ foreach $pak (@paks) {
+ &Pakfire::removepak("$pak");
+ }
+
+
+ } elsif ("$ARGV[0]" eq "update") {
+ &Pakfire::makeuuid();
+ &Pakfire::senduuid();
+ &Pakfire::getmirrors("$force");
+ &Pakfire::dbgetlist("$force");
+ &Pakfire::getcoredb("$force");
+
+ } 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 $_; }
+ }
+
+ if (@upgradepaks) {
+ &Pakfire::message("");
+ &Pakfire::message("PAKFIRE UPGR: We are going to install all packages listed above.");
+ if ($interactive) {
+ &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
+ my $ret = <STDIN>;
+ chomp($ret);
+ &Pakfire::logger("PAKFIRE INFO: Answer: $ret");
+ if ( $ret ne "y" ) {
+ &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
+ exit 1;
+ }
+ }
+ }
+
+ ### Download first
+ foreach $pak (@upgradepaks) {
+ system("mv $Conf::dbdir/meta/meta-$pak $Conf::dbdir/meta/old-meta-$pak");
+ &Pakfire::getpak("$pak", "");
+ }
+
+ foreach $pak (@upgradepaks) {
+ if (&Pakfire::upgradepak("$pak")) {
+ system("mv $Conf::dbdir/meta/old-meta-$pak $Conf::dbdir/meta/meta-$pak");
+ }
+ }
+
+ } elsif ("$ARGV[0]" eq "list") {
+ 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("$_");
+ }
+ } elsif ("$ARGV[0]" eq "enable") {
+ if ("$ARGV[1]" eq "updates") {
+ system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-update");
+ } elsif ("$ARGV[1]" eq "upgrades") {
+ system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-upgrade");
+ }
+ } elsif ("$ARGV[0]" eq "disable") {
+ if ("$ARGV[1]" eq "updates") {
+ system("rm -f /etc/fcron.daily/pakfire-update");
+ } elsif ("$ARGV[1]" eq "upgrades") {
+ system("rm -f /etc/fcron.daily/pakfire-upgrade");
+ }
+ } else {
+ &Pakfire::usage;
+ }
+
+ &Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");
+
+ exit 0;