]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - src/pakfire/pakfire
19c090486c709f82658ce85239a83a215edec6fd
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007 Michael Tremer & Christian Schmidt #
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 require "/opt/pakfire/lib/functions.pl";
25 my $force = "noforce";
27 &Pakfire
::logger
("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");
28 &Pakfire
::checkcryptodb
;
30 ### Check if we are running as root
32 my $user = qx(whoami
);
34 unless ( "$user" eq "root" ) {
35 &Pakfire
::message
("PAKFIRE ERROR: You must run pakfire as user root!");
39 unless ( -e
"/var/ipfire/red/active" ) {
40 &Pakfire
::message
("PAKFIRE ERROR: You need to be online to run pakfire!");
44 ### Check if we are started by another name
46 if ( $0 =~ /pakfire-update$/ ) {
47 &Pakfire
::message
("CRON INFO: Running an update");
48 my $random = int(rand(3600));
49 &Pakfire
::logger
("CRON INFO: Waiting for $random seconds.");
53 } elsif ( $0 =~ /pakfire-upgrade$/ ) {
54 &Pakfire
::message
("CRON INFO: Running an upgrade");
55 my $random = int(rand(3600));
56 &Pakfire
::logger
("CRON INFO: Waiting for $random seconds.");
68 # Turn off interactive mode
69 $interactive = 0 if ("$_" eq "--non-interactive");
70 $interactive = 0 if ("$_" eq "-y");
72 # Turn off shell colors - Bad for displaying in webinterface
73 $Pakfire::enable_colors
= 0 if ("$_" eq "--no-colors");
76 $force = "force" if ("$_" eq "-f" );
77 $force = "force" if ("$_" eq "--force" );
81 if ("$ARGV[0]" eq "install") {
84 ### Make sure that the list is not outdated.
85 &Pakfire
::dbgetlist
("noforce");
87 open(FILE
, "<$Conf::dbdir/lists/packages_list.db");
100 foreach $pak (@ARGV) {
101 unless ("$pak" =~ "^-") {
102 $return = &Pakfire
::isinstalled
($pak);
104 &Pakfire
::message
("PAKFIRE INFO: $pak is already installed");
109 @templine = split(/;/,$_);
110 if ("$templine[0]" eq "$pak" ) {
113 @temp = &Pakfire
::resolvedeps
("$pak");
114 foreach $dep (@temp) {
115 push(@deps,$dep) if $dep;
116 push(@all,$dep) if $dep;
123 &Pakfire
::message
("");
124 &Pakfire
::message
("PAKFIRE WARN: The pak \"$pak\" is not known. Please try running \"pakfire update\".");
130 &Pakfire
::message
("PAKFIRE ERROR: No packages to install. Exiting...");
134 &Pakfire
::message
("");
135 &Pakfire
::message
("");
136 &Pakfire
::message
("PAKFIRE INFO: Packages to install:");
137 foreach $pak (sort @paks) {
138 my $size = &Pakfire
::getsize
("$pak");
139 $size = &Pakfire
::beautifysize
($size);
140 &Pakfire
::message
("PAKFIRE INFO: $pak \t - $size");
144 my %sort = map{ $_, 1 } @deps;
145 @deps = sort keys %sort;
146 &Pakfire
::message
("");
147 &Pakfire
::message
("PAKFIRE INFO: Packages to install for dependencies:");
149 foreach $dep (sort @deps) {
150 my $size = &Pakfire
::getsize
("$dep");
151 $size = &Pakfire
::beautifysize
($size);
152 &Pakfire
::message
("PAKFIRE INFO: $dep \t - $size");
156 foreach $pak (@all) {
157 $totalsize = ($totalsize + &Pakfire
::getsize
("$pak"));
159 $totalsize = &Pakfire
::beautifysize
($totalsize);
160 &Pakfire
::message
("");
161 &Pakfire
::message
("PAKFIRE INFO: Total size: \t ~ $totalsize");
162 &Pakfire
::message
("");
165 &Pakfire
::message
("PAKFIRE INFO: Is this okay? [y/N]");
168 &Pakfire
::logger
("PAKFIRE INFO: Answer: $ret");
170 &Pakfire
::message
("PAKFIRE ERROR: Installation aborted.");
174 &Pakfire
::logger
("PAKFIRE INFO: Interaction skipped.");
177 my %sort = map{ $_, 1 } @all;
178 @all = sort keys %sort;
181 foreach $pak (sort @all) {
182 &Pakfire
::getpak
("$pak", "");
185 &Pakfire
::message
("");
187 foreach $pak (sort @all) {
188 &Pakfire
::setuppak
("$pak") if ($pak ne "");
191 } elsif ("$ARGV[0]" eq "remove") {
196 foreach $pak (@ARGV) {
197 unless ("$pak" =~ "^-") {
198 $return = &Pakfire
::isinstalled
($pak);
200 &Pakfire
::message
("PAKFIRE WARN: $pak is not installed");
208 &Pakfire
::message
("PAKFIRE ERROR: No packages to remove. Exiting...");
212 &Pakfire
::message
("");
213 &Pakfire
::message
("");
214 &Pakfire
::message
("PAKFIRE INFO: Packages to remove:");
215 foreach $pak (sort @paks) {
216 my $size = &Pakfire
::getsize
("$pak");
217 $size = &Pakfire
::beautifysize
($size);
218 &Pakfire
::message
("PAKFIRE INFO: $pak \t - $size");
222 &Pakfire
::message
("PAKFIRE INFO: Is this okay? [y/N]");
225 &Pakfire
::logger
("PAKFIRE INFO: Answer: $ret");
227 &Pakfire
::message
("PAKFIRE ERROR: Installation aborted.");
232 foreach $pak (@paks) {
233 &Pakfire
::removepak
("$pak");
237 } elsif ("$ARGV[0]" eq "update") {
238 &Pakfire
::makeuuid
();
239 &Pakfire
::senduuid
();
240 &Pakfire
::getmirrors
("$force");
241 &Pakfire
::dbgetlist
("$force");
242 &Pakfire
::getcoredb
("$force");
244 } elsif ("$ARGV[0]" eq "upgrade") {
245 &Pakfire
::upgradecore
();
246 my @upgradepaks = &Pakfire
::dblist
("upgrade", "noweb");
249 foreach (@upgradepaks) {
250 @temp = &Pakfire
::resolvedeps
("$_");
251 foreach (@temp) { push(@upgradepaks,$_) if $_; }
255 &Pakfire
::message
("");
256 &Pakfire
::message
("PAKFIRE UPGR: We are going to install all packages listed above.");
258 &Pakfire
::message
("PAKFIRE INFO: Is this okay? [y/N]");
261 &Pakfire
::logger
("PAKFIRE INFO: Answer: $ret");
263 &Pakfire
::message
("PAKFIRE ERROR: Installation aborted.");
270 foreach $pak (sort @upgradepaks) {
271 system("mv $Conf::dbdir/meta/meta-$pak $Conf::dbdir/meta/old-meta-$pak");
272 &Pakfire
::getpak
("$pak", "");
275 foreach $pak (sort @upgradepaks) {
276 if (&Pakfire
::upgradepak
("$pak")) {
277 system("mv $Conf::dbdir/meta/old-meta-$pak $Conf::dbdir/meta/meta-$pak");
281 } elsif ("$ARGV[0]" eq "list") {
282 if ("$ARGV[1]" =~ /installed|notinstalled/) {
283 &Pakfire
::dblist
("$ARGV[1]", "noweb");
285 &Pakfire
::message
("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
286 &Pakfire
::dblist
("all", "noweb");
289 } elsif ("$ARGV[0]" eq "resolvedeps") {
291 next if ("$_" eq "resolvedeps");
292 next if ("$_" =~ "^-");
293 &Pakfire
::resolvedeps
("$_");
295 } elsif ("$ARGV[0]" eq "enable") {
296 if ("$ARGV[1]" eq "updates") {
297 system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-update");
298 } elsif ("$ARGV[1]" eq "upgrades") {
299 system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-upgrade");
301 } elsif ("$ARGV[0]" eq "disable") {
302 if ("$ARGV[1]" eq "updates") {
303 system("rm -f /etc/fcron.daily/pakfire-update");
304 } elsif ("$ARGV[1]" eq "upgrades") {
305 system("rm -f /etc/fcron.daily/pakfire-upgrade");
311 &Pakfire
::logger
("PAKFIRE INFO: Pakfire has finished. Closing.");