# #
###############################################################################
+ ### Clean up our environment
+ #
+ delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
+ $< = $>;
+
require "/opt/pakfire/lib/functions.pl";
my $interactive = 1;
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) {
&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;
}
### Download first
- foreach $pak (sort @upgradepaks) {
- system("mv $Conf::dbdir/meta/meta-$pak $Conf::dbdir/meta/old-meta-$pak");
+ foreach $pak (@upgradepaks) {
+ #system("mv $Conf::dbdir/meta/meta-$pak $Conf::dbdir/meta/old-meta-$pak");
&Pakfire::getpak("$pak", "");
}
- foreach $pak (sort @upgradepaks) {
+ foreach $pak (@upgradepaks) {
if (&Pakfire::upgradepak("$pak")) {
- system("mv $Conf::dbdir/meta/old-meta-$pak $Conf::dbdir/meta/meta-$pak");
+ #system("mv $Conf::dbdir/meta/old-meta-$pak $Conf::dbdir/meta/meta-$pak");
}
}