]>
git.ipfire.org Git - people/trikolon/ipfire-2.x.git/blob - src/pakfire/pakfire
3 require "/opt/pakfire/lib/functions.pl";
7 &Pakfire
::logger
("### IPFire Pakfire $Conf::version started!");
8 &Pakfire
::checkcryptodb
;
10 ### Check if we are running as root
12 my $user = qx(whoami
);
14 unless ( "$user" eq "root" ) {
15 &Pakfire
::message
("You must run pakfire as user root!");
23 if ("$ARGV[0]" eq "install") {
31 $interactive = 0 if ("$_" eq "--non-interactive");
37 @temp = &Pakfire
::resolvedeps
("$_");
38 foreach (@temp) { push(@deps,$_) if $_; }
49 &Pakfire
::message
("\n\n### Packages to install:");
50 foreach (sort @paks) {
51 my $size = &Pakfire
::getsize
("$_");
52 $size = &Pakfire
::beautifysize
($size);
53 &Pakfire
::message
("# $_ \t\t - $size");
56 &Pakfire
::message
("\n### Packages to install for dependencies:");
57 foreach (sort @deps) {
58 my $size = &Pakfire
::getsize
("$_");
59 $size = &Pakfire
::beautifysize
($size);
60 &Pakfire
::message
("# $_ \t\t - $size");
63 my $totalsize = &Pakfire
::addsizes
("@all");
64 $totalsize = &Pakfire
::beautifysize
($totalsize);
65 &Pakfire
::message
("\n### Download size: \t ~ $totalsize");
68 &Pakfire
::message
("Is this okay? [y/N]");
71 &Pakfire
::logger
("Answer: $ret");
73 &Pakfire
::message
("Installation aborted.");
80 &Pakfire
::message
("# --> Downloading: $_");
81 &Pakfire
::getpak
("$_", "");
85 &Pakfire
::setuppak
("$_");
87 &Pakfire
::lock("off");
89 } elsif ("$ARGV[0]" eq "remove") {
92 } elsif ("$ARGV[0]" eq "update") {
93 my $force = "noforce";
96 &Pakfire
::getmirrors
();
97 $force = "force" if ("$ARGV[1]" eq "--force");
98 &Pakfire
::dbgetlist
("$force");
100 } elsif ("$ARGV[0]" eq "list") {
101 &Pakfire
::dblist
("all", "noweb");
103 } elsif ("$ARGV[0]" eq "resolvedeps") {
105 next if ("$_" eq "resolvedeps");
106 &Pakfire
::resolvedeps
("$_");