]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - src/pakfire/pakfire
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007-2015 IPFire Team <info@ipfire.org> #
7 # This program is free software: you can redistribute it and/or modify #
8 # it under the terms of the GNU General Public License as published by #
9 # the Free Software Foundation, either version 3 of the License, or #
10 # (at your option) any later version. #
12 # This program is distributed in the hope that it will be useful, #
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15 # GNU General Public License for more details. #
17 # You should have received a copy of the GNU General Public License #
18 # along with this program. If not, see <http://www.gnu.org/licenses/>. #
20 ###############################################################################
22 ### Clean up our environment
24 delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
28 $ENV{"GNUPGHOME"} = "/opt/pakfire/etc/.gnupg";
30 require "/opt/pakfire/lib/functions.pl";
33 my $force = "noforce";
35 &Pakfire
::logger
("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");
37 ### Check if we are running as root
39 my $user = qx(whoami
);
41 unless ( "$user" eq "root" ) {
42 &Pakfire
::message
("PAKFIRE ERROR: You must run pakfire as user root!");
46 unless ( -e
"/var/ipfire/red/active" ) {
47 &Pakfire
::message
("PAKFIRE ERROR: You need to be online to run pakfire!");
51 ### Check if we are started by another name
53 if ( $0 =~ /pakfire-update$/ ) {
54 &Pakfire
::message
("CRON INFO: Running an update");
55 my $random = int(rand(60));
56 &Pakfire
::logger
("CRON INFO: Waiting for $random seconds.");
60 } elsif ( $0 =~ /pakfire-upgrade$/ ) {
61 &Pakfire
::message
("CRON INFO: Running an upgrade");
62 my $random = int(rand(3600));
63 &Pakfire
::logger
("CRON INFO: Waiting for $random seconds.");
75 # Turn off interactive mode
76 $interactive = 0 if ("$_" eq "--non-interactive");
77 $interactive = 0 if ("$_" eq "-y");
79 # Turn off shell colors - Bad for displaying in webinterface
80 $Pakfire::enable_colors
= 0 if ("$_" eq "--no-colors");
83 $force = "force" if ("$_" eq "-f" );
84 $force = "force" if ("$_" eq "--force" );
88 if ("$ARGV[0]" eq "install") {
91 ### Make sure that the list is not outdated.
92 &Pakfire
::dbgetlist
("noforce");
94 open(FILE
, "<$Conf::dbdir/lists/packages_list.db");
107 foreach $pak (@ARGV) {
108 unless ("$pak" =~ "^-") {
109 $return = &Pakfire
::isinstalled
($pak);
111 &Pakfire
::message
("PAKFIRE INFO: $pak is already installed");
116 @templine = split(/;/,$_);
117 if ("$templine[0]" eq "$pak" ) {
120 @temp = &Pakfire
::resolvedeps
("$pak");
121 foreach $dep (@temp) {
122 push(@deps,$dep) if $dep;
123 push(@all,$dep) if $dep;
130 &Pakfire
::message
("");
131 &Pakfire
::message
("PAKFIRE WARN: The pak \"$pak\" is not known. Please try running \"pakfire update\".");
137 &Pakfire
::message
("PAKFIRE ERROR: No packages to install. Exiting...");
142 my %sort = map{ $_, 1 } @deps;
144 &Pakfire
::message
("");
145 &Pakfire
::message
("PAKFIRE INFO: Packages to install for dependencies:");
147 foreach $dep (@deps) {
148 my $size = &Pakfire
::getsize
("$dep");
149 $size = &Pakfire
::beautifysize
($size);
150 &Pakfire
::message
("PAKFIRE INFO: $dep \t - $size");
153 &Pakfire
::message
("");
154 &Pakfire
::message
("");
155 &Pakfire
::message
("PAKFIRE INFO: Packages to install:");
156 foreach $pak (@paks) {
157 my $size = &Pakfire
::getsize
("$pak");
158 $size = &Pakfire
::beautifysize
($size);
159 &Pakfire
::message
("PAKFIRE INFO: $pak \t - $size");
163 foreach $pak (@all) {
164 $totalsize = ($totalsize + &Pakfire
::getsize
("$pak"));
166 $totalsize = &Pakfire
::beautifysize
($totalsize);
167 &Pakfire
::message
("");
168 &Pakfire
::message
("PAKFIRE INFO: Total size: \t ~ $totalsize");
169 &Pakfire
::message
("");
172 &Pakfire
::message
("PAKFIRE INFO: Is this okay? [y/N]");
175 &Pakfire
::logger
("PAKFIRE INFO: Answer: $ret");
177 &Pakfire
::message
("PAKFIRE ERROR: Installation aborted.");
181 &Pakfire
::logger
("PAKFIRE INFO: Interaction skipped.");
184 # my %sort = map{ $_, 1 } @all;
185 # @all = sort keys %sort;
188 foreach $pak (@all) {
189 &Pakfire
::getpak
("$pak", "");
192 &Pakfire
::message
("");
194 foreach $pak (@deps) {
195 &Pakfire
::setuppak
("$pak") if ($pak ne "");
199 foreach $pak (@paks) {
200 &Pakfire
::setuppak
("$pak") if ($pak ne "");
204 } elsif ("$ARGV[0]" eq "remove") {
209 foreach $pak (@ARGV) {
210 unless ("$pak" =~ "^-") {
211 $return = &Pakfire
::isinstalled
($pak);
213 &Pakfire
::message
("PAKFIRE WARN: $pak is not installed");
221 &Pakfire
::message
("PAKFIRE ERROR: No packages to remove. Exiting...");
225 &Pakfire
::message
("");
226 &Pakfire
::message
("");
227 &Pakfire
::message
("PAKFIRE INFO: Packages to remove:");
228 foreach $pak (sort @paks) {
229 my $size = &Pakfire
::getsize
("$pak");
230 $size = &Pakfire
::beautifysize
($size);
231 &Pakfire
::message
("PAKFIRE INFO: $pak \t - $size");
235 &Pakfire
::message
("PAKFIRE INFO: Is this okay? [y/N]");
238 &Pakfire
::logger
("PAKFIRE INFO: Answer: $ret");
240 &Pakfire
::message
("PAKFIRE ERROR: Installation aborted.");
245 foreach $pak (@paks) {
246 &Pakfire
::removepak
("$pak");
250 } elsif ("$ARGV[0]" eq "update") {
251 &Pakfire
::makeuuid
();
252 &Pakfire
::getmirrors
("$force");
253 &Pakfire
::dbgetlist
("$force");
254 &Pakfire
::getcoredb
("$force");
256 } elsif ("$ARGV[0]" eq "upgrade") {
257 &Pakfire
::upgradecore
();
258 my @upgradepaks = &Pakfire
::dblist
("upgrade", "noweb");
262 # Resolve the dependencies of the to be upgraded packages
263 @deps = &Pakfire
::resolvedeps_recursive
(@upgradepaks);
265 &Pakfire
::message
("");
266 &Pakfire
::message
("PAKFIRE UPGR: We are going to install all packages listed above.");
268 &Pakfire
::message
("PAKFIRE INFO: Is this okay? [y/N]");
271 &Pakfire
::logger
("PAKFIRE INFO: Answer: $ret");
273 &Pakfire
::message
("PAKFIRE ERROR: Installation aborted.");
280 foreach $pak (@upgradepaks) {
281 &Pakfire
::getpak
("$pak", "");
284 # Download dependencies
285 foreach $pak (@deps) {
286 &Pakfire
::getpak
("$pak", "");
289 # Install dependencies first
290 foreach $pak (@deps) {
291 &Pakfire
::setuppak
("$pak");
294 # Install all upgrades
295 foreach $pak (@upgradepaks) {
296 &Pakfire
::upgradepak
("$pak");
299 } elsif ("$ARGV[0]" eq "list") {
300 if ("$ARGV[1]" =~ /installed|notinstalled/) {
301 &Pakfire
::dblist
("$ARGV[1]", "noweb");
303 &Pakfire
::message
("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
304 &Pakfire
::dblist
("all", "noweb");
307 } elsif ("$ARGV[0]" eq "resolvedeps") {
309 next if ("$_" eq "resolvedeps");
310 next if ("$_" =~ "^-");
311 &Pakfire
::resolvedeps
("$_");
313 } elsif ("$ARGV[0]" eq "enable") {
314 if ("$ARGV[1]" eq "updates") {
315 system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-update");
316 } elsif ("$ARGV[1]" eq "upgrades") {
317 system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-upgrade");
319 } elsif ("$ARGV[0]" eq "disable") {
320 if ("$ARGV[1]" eq "updates") {
321 system("rm -f /etc/fcron.daily/pakfire-update");
322 } elsif ("$ARGV[1]" eq "upgrades") {
323 system("rm -f /etc/fcron.daily/pakfire-upgrade");
325 } elsif ("$ARGV[0]" eq "status") {
331 &Pakfire
::logger
("PAKFIRE INFO: Pakfire has finished. Closing.");