]>
git.ipfire.org Git - ipfire-2.x.git/blob - src/pakfire/pakfire
3 require "/opt/pakfire/lib/functions.pl";
7 &Pakfire
::logger
("### IPFire Pakfire $Conf::version started!");
9 ### Check if we are running as root
11 my $user = qx(whoami
);
13 unless ( "$user" eq "root" ) {
14 &Pakfire
::message
("You must run pakfire as user root!");
22 if ("$ARGV[0]" eq "install") {
30 $interactive = 0 if ("$_" eq "--non-interactive");
36 @temp = &Pakfire
::resolvedeps
("$_");
37 foreach (@temp) { push(@deps,$_) if $_; }
48 &Pakfire
::message
("\n\n### Packages to install:");
49 foreach (sort @paks) {
50 my $size = &Pakfire
::getsize
("$_");
51 $size = &Pakfire
::beautifysize
($size);
52 &Pakfire
::message
("# $_ \t\t - $size");
55 &Pakfire
::message
("\n### Packages to install for dependencies:");
56 foreach (sort @deps) {
57 my $size = &Pakfire
::getsize
("$_");
58 $size = &Pakfire
::beautifysize
($size);
59 &Pakfire
::message
("# $_ \t\t - $size");
62 my $totalsize = &Pakfire
::addsizes
("@all");
63 $totalsize = &Pakfire
::beautifysize
($totalsize);
64 &Pakfire
::message
("\n### Download size: \t ~ $totalsize");
67 &Pakfire
::message
("Is this okay? [y/N]");
70 &Pakfire
::logger
("Answer: $ret");
72 &Pakfire
::message
("Installation aborted.");
79 &Pakfire
::message
("# --> Downloading: $_");
80 &Pakfire
::getpak
("$_", "");
84 &Pakfire
::setuppak
("$_");
86 &Pakfire
::lock("off");
88 } elsif ("$ARGV[0]" eq "remove") {
91 } elsif ("$ARGV[0]" eq "update") {
92 my $force = "noforce";
95 &Pakfire
::getmirrors
();
96 $force = "force" if ("$ARGV[1]" eq "--force");
97 &Pakfire
::dbgetlist
("$force");
99 } elsif ("$ARGV[0]" eq "list") {
100 &Pakfire
::dblist
("all", "noweb");
102 } elsif ("$ARGV[0]" eq "resolvedeps") {
104 next if ("$_" eq "resolvedeps");
105 &Pakfire
::resolvedeps
("$_");