]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - src/pakfire/pakfire
ef395df94c9d6631ecc7f7f2d22ca8fe0d4e1654
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!");
19 &Pakfire
::message
("Usage: pakfire <install|remove> <pak(s)>");
20 &Pakfire
::message
(" <update>");
21 &Pakfire
::message
(" <upgrade>");
25 if ("$ARGV[0]" eq "install") {
34 @temp = &Pakfire
::resolvedeps
("$_");
35 foreach (@temp) { push(@deps,$_) if $_; }
46 &Pakfire
::message
("\n\n### Packages to install:");
47 foreach (sort @paks) {
48 my $size = &Pakfire
::getsize
("$_");
49 $size = &Pakfire
::beautifysize
($size);
50 &Pakfire
::message
("# $_ \t\t - $size");
53 &Pakfire
::message
("\n### Packages to install for dependencies:");
54 foreach (sort @deps) {
55 my $size = &Pakfire
::getsize
("$_");
56 $size = &Pakfire
::beautifysize
($size);
57 &Pakfire
::message
("# $_ \t\t - $size");
60 my $totalsize = &Pakfire
::addsizes
("@all");
61 $totalsize = &Pakfire
::beautifysize
($totalsize);
62 &Pakfire
::message
("\n### Download size: \t ~ $totalsize");
65 &Pakfire
::message
("Is this okay? [y/N]");
68 &Pakfire
::logger
("Answer: $ret");
70 &Pakfire
::message
("Installation aborted.");
75 &Pakfire
::message
("### Installing all packages:");
76 foreach (sort @all) { &Pakfire
::message
("# --> $_"); }
77 &Pakfire
::message
("");
81 &Pakfire
::message
("# --> Downloading: $_");
82 &Pakfire
::getpak
("$_", "");
86 &Pakfire
::setuppak
("$_");
90 } elsif ("$ARGV[0]" eq "remove") {
93 } elsif ("$ARGV[0]" eq "update") {
96 &Pakfire
::getmirrors
();
98 } elsif ("$ARGV[0]" eq "list") {
99 &Pakfire
::dblist
("noweb");