###############################################################################
# #
# IPFire.org - A linux based firewall #
-# Copyright (C) 2007-2015 IPFire Team <info@ipfire.org> #
+# Copyright (C) 2007-2021 IPFire Team <info@ipfire.org> #
# #
# This program is free software: you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
$< = $>;
+ # Store keys here
+ $ENV{"GNUPGHOME"} = "/opt/pakfire/etc/.gnupg";
+
require "/opt/pakfire/lib/functions.pl";
-
+
my $interactive = 1;
my $force = "noforce";
-
+ my $locked;
+
&Pakfire::logger("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");
- &Pakfire::checkcryptodb;
### Check if we are running as root
#
&Pakfire::message("PAKFIRE ERROR: You must run pakfire as user root!");
exit 1;
}
-
+
unless ( -e "/var/ipfire/red/active" ) {
&Pakfire::message("PAKFIRE ERROR: You need to be online to run pakfire!");
exit 2;
}
-
+
+ # Check if a lockfile already exists.
+ if (-e "$Pakfire::lockfile") {
+ &Pakfire::message("PAKFIRE ERROR: Another instance of pakfire is already running!");
+ exit 1;
+ }
+
+ # Write lockfile.
+ open(LOCK, ">$Pakfire::lockfile");
+
+ # Pakfire has locked in this session set locket to "1".
+ $locked = "1";
+
+ # Close filehandle.
+ close(LOCK);
+
### Check if we are started by another name
#
if ( $0 =~ /pakfire-update$/ ) {
$ARGV[0] = "upgrade";
$interactive = 0;
}
-
+
unless (@ARGV) {
&Pakfire::usage;
}
-
+
foreach (@ARGV) {
if ("$_" =~ "^-") {
# Turn off interactive mode
$interactive = 0 if ("$_" eq "--non-interactive");
$interactive = 0 if ("$_" eq "-y");
-
+
# Turn off shell colors - Bad for displaying in webinterface
$Pakfire::enable_colors = 0 if ("$_" eq "--no-colors");
-
+
# Turn on force mode
$force = "force" if ("$_" eq "-f" );
$force = "force" if ("$_" eq "--force" );
if ("$ARGV[0]" eq "install") {
shift;
-
- ### Make sure that the list is not outdated.
+
+ ### Make sure that the list is not outdated.
&Pakfire::dbgetlist("noforce");
open(FILE, "<$Conf::dbdir/lists/packages_list.db");
my @db = <FILE>;
close(FILE);
-
+
my $dep;
my @deps;
my $pak;
$return = &Pakfire::isinstalled($pak);
if ($return eq 0) {
&Pakfire::message("PAKFIRE INFO: $pak is already installed");
- next;
+ next;
}
$found = 0;
foreach (@db) {
}
}
}
-
+
unless (@paks) {
&Pakfire::message("PAKFIRE ERROR: No packages to install. Exiting...");
exit 1;
$size = &Pakfire::beautifysize($size);
&Pakfire::message("PAKFIRE INFO: $pak \t - $size");
}
-
+
my $totalsize;
foreach $pak (@all) {
$totalsize = ($totalsize + &Pakfire::getsize("$pak"));
&Pakfire::message("");
&Pakfire::message("PAKFIRE INFO: Total size: \t ~ $totalsize");
&Pakfire::message("");
-
+
if ($interactive) {
&Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
my $ret = <STDIN>;
} else {
&Pakfire::logger("PAKFIRE INFO: Interaction skipped.");
}
-
+
# my %sort = map{ $_, 1 } @all;
# @all = sort keys %sort;
foreach $pak (@deps) {
&Pakfire::setuppak("$pak") if ($pak ne "");
}
-
+
foreach $pak (@paks) {
&Pakfire::setuppak("$pak") if ($pak ne "");
}
-
+
} elsif ("$ARGV[0]" eq "remove") {
shift;
-
+
my @paks;
my $pak;
foreach $pak (@ARGV) {
push(@paks, $pak);
}
}
-
+
unless (@paks) {
&Pakfire::message("PAKFIRE ERROR: No packages to remove. Exiting...");
exit 1;
}
-
+
&Pakfire::message("");
&Pakfire::message("");
&Pakfire::message("PAKFIRE INFO: Packages to remove:");
$size = &Pakfire::beautifysize($size);
&Pakfire::message("PAKFIRE INFO: $pak \t - $size");
}
-
+
if ($interactive) {
&Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
my $ret = <STDIN>;
exit 1;
}
}
-
+
foreach $pak (@paks) {
&Pakfire::removepak("$pak");
}
-
-
+
+
} elsif ("$ARGV[0]" eq "update") {
&Pakfire::makeuuid();
- &Pakfire::senduuid();
&Pakfire::getmirrors("$force");
&Pakfire::dbgetlist("$force");
&Pakfire::getcoredb("$force");
}
}
}
-
+
# Download packages
foreach $pak (@upgradepaks) {
&Pakfire::getpak("$pak", "");
foreach $pak (@upgradepaks) {
&Pakfire::upgradepak("$pak");
}
-
+
} elsif ("$ARGV[0]" eq "list") {
if ("$ARGV[1]" =~ /installed|notinstalled/) {
&Pakfire::dblist("$ARGV[1]", "noweb");
} else {
- &Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
+ &Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
&Pakfire::dblist("all", "noweb");
}
-
+
} elsif ("$ARGV[0]" eq "resolvedeps") {
foreach (@ARGV) {
next if ("$_" eq "resolvedeps");
} elsif ("$ARGV[1]" eq "upgrades") {
system("rm -f /etc/fcron.daily/pakfire-upgrade");
}
+ } elsif ("$ARGV[0]" eq "status") {
+ &Pakfire::status;
} else {
&Pakfire::usage;
}
&Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");
+ END {
+ # Check if pakfire has been locked in this session.
+ if ($locked) {
+ # Remove lockfile.
+ unlink($Pakfire::lockfile);
+ }
+ }
+
exit 0;