src/pakfire/pakfire

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2007-2021   IPFire Team   <info@ipfire.org>                   #
   6 #                                                                             #
   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.                                         #
  11 #                                                                             #
  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.                                #
  16 #                                                                             #
  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/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22         ### Clean up our environment
  23         #
  24         delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
  25         $< = $>;
  26
  27         # Store keys here
  28         $ENV{"GNUPGHOME"} = "/opt/pakfire/etc/.gnupg";
  29
  30         require "/opt/pakfire/lib/functions.pl";
  31
  32         my $interactive = 1;
  33         my $force = "noforce";
  34         my $locked;
  35
  36         &Pakfire::logger("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");
  37
  38         ### Check if we are running as root
  39         #
  40         my $user = qx(whoami);
  41         chomp($user);
  42         unless ( "$user" eq "root" ) {
  43           &Pakfire::message("PAKFIRE ERROR: You must run pakfire as user root!");
  44           exit 1;
  45         }
  46
  47         unless ( -e "/var/ipfire/red/active" ) {
  48                 &Pakfire::message("PAKFIRE ERROR: You need to be online to run pakfire!");
  49                 exit 2;
  50         }
  51
  52         # Check if a lockfile already exists.
  53         if (-e "$Pakfire::lockfile") {
  54                 &Pakfire::message("PAKFIRE ERROR: Another instance of pakfire is already running!");
  55                 exit 1;
  56         }
  57
  58         # Write lockfile.
  59         open(LOCK, ">$Pakfire::lockfile");
  60
  61         # Pakfire has locked in this session set locket to "1".
  62         $locked = "1";
  63
  64         # Close filehandle.
  65         close(LOCK);
  66
  67         ### Check if we are started by another name
  68         #
  69         if ( $0 =~ /pakfire-update$/ ) {
  70                 &Pakfire::message("CRON INFO: Running an update");
  71                 my $random = int(rand(60));
  72                 &Pakfire::logger("CRON INFO: Waiting for $random seconds.");
  73                 sleep($random);
  74                 $ARGV[0] = "update";
  75                 $interactive = 0;
  76         } elsif ( $0 =~ /pakfire-upgrade$/ ) {
  77                 &Pakfire::message("CRON INFO: Running an upgrade");
  78                 my $random = int(rand(3600));
  79                 &Pakfire::logger("CRON INFO: Waiting for $random seconds.");
  80                 sleep($random);
  81                 $ARGV[0] = "upgrade";
  82                 $interactive = 0;
  83         }
  84
  85         unless (@ARGV) {
  86                 &Pakfire::usage;
  87         }
  88
  89         foreach (@ARGV) {
  90                 if ("$_" =~ "^-") {
  91                         # Turn off interactive mode
  92                         $interactive = 0 if ("$_" eq "--non-interactive");
  93                         $interactive = 0 if ("$_" eq "-y");
  94
  95                         # Turn off shell colors - Bad for displaying in webinterface
  96                         $Pakfire::enable_colors = 0 if ("$_" eq "--no-colors");
  97
  98                         # Turn on force mode
  99                         $force = "force" if ("$_" eq "-f" );
 100                         $force = "force" if ("$_" eq "--force" );
 101                 }
 102         }
 103
 104         if ("$ARGV[0]" eq "install") {
 105                 shift;
 106
 107                 ### Make sure that the list is not outdated.
 108                 &Pakfire::dbgetlist("noforce");
 109
 110                 open(FILE, "<$Conf::dbdir/lists/packages_list.db");
 111                 my @db = <FILE>;
 112                 close(FILE);
 113
 114                 my $dep;
 115                 my @deps;
 116                 my $pak;
 117                 my @paks;
 118                 my @temp;
 119                 my @templine;
 120                 my $found = 0;
 121                 my $return;
 122                 my @all;
 123                 foreach $pak (@ARGV) {
 124                         unless ("$pak" =~ "^-") {
 125                                 $return = &Pakfire::isinstalled($pak);
 126                                 if ($return eq 0) {
 127                                         &Pakfire::message("PAKFIRE INFO: $pak is already installed");
 128                                         next;
 129                                 }
 130                                 $found = 0;
 131                                 foreach (@db) {
 132                                         @templine = split(/;/,$_);
 133                                         if ("$templine[0]" eq "$pak" ) {
 134                                                 push(@paks,$pak);
 135                                                 push(@all,$pak);
 136                                                 @temp = &Pakfire::resolvedeps("$pak");
 137                                                 foreach $dep (@temp) {
 138                                                         push(@deps,$dep) if $dep;
 139                                                         push(@all,$dep) if $dep;
 140                                                 }
 141                                                 $found = 1;
 142                                                 break;
 143                                         }
 144                                 }
 145                                 if ($found == 0) {
 146                                         &Pakfire::message("");
 147                                         &Pakfire::message("PAKFIRE WARN: The pak \"$pak\" is not known. Please try running \"pakfire update\".");
 148                                 }
 149                         }
 150                 }
 151
 152                 unless (@paks) {
 153                         &Pakfire::message("PAKFIRE ERROR: No packages to install. Exiting...");
 154                         exit 1;
 155                 }
 156
 157                 if (@deps) {
 158                         my %sort = map{ $_, 1 } @deps;
 159                         @deps = keys %sort;
 160                         &Pakfire::message("");
 161                         &Pakfire::message("PAKFIRE INFO: Packages to install for dependencies:");
 162                 }
 163                 foreach $dep (@deps) {
 164                   my $size = &Pakfire::getsize("$dep");
 165                         $size = &Pakfire::beautifysize($size);
 166                   &Pakfire::message("PAKFIRE INFO: $dep \t - $size");
 167                 }
 168
 169                 &Pakfire::message("");
 170                 &Pakfire::message("");
 171                 &Pakfire::message("PAKFIRE INFO: Packages to install:");
 172                 foreach $pak (@paks) {
 173                   my $size = &Pakfire::getsize("$pak");
 174                         $size = &Pakfire::beautifysize($size);
 175                   &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
 176                 }
 177
 178                 my $totalsize;
 179                 foreach $pak (@all) {
 180                         $totalsize = ($totalsize + &Pakfire::getsize("$pak"));
 181                 }
 182                 $totalsize = &Pakfire::beautifysize($totalsize);
 183                 &Pakfire::message("");
 184                 &Pakfire::message("PAKFIRE INFO: Total size: \t ~ $totalsize");
 185                 &Pakfire::message("");
 186
 187                 if ($interactive) {
 188                   &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
 189                         my $ret = <STDIN>;
 190                         chomp($ret);
 191                         &Pakfire::logger("PAKFIRE INFO: Answer: $ret");
 192                         if ( $ret ne "y" ) {
 193                           &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
 194                           exit 1;
 195                         }
 196                 } else {
 197                         &Pakfire::logger("PAKFIRE INFO: Interaction skipped.");
 198                 }
 199
 200 #               my %sort = map{ $_, 1 } @all;
 201 #               @all = sort keys %sort;
 202
 203                 ### Download first
 204                 foreach $pak (@all) {
 205                         &Pakfire::getpak("$pak", "");
 206                 }
 207
 208                 &Pakfire::message("");
 209
 210                 foreach $pak (@deps) {
 211                         &Pakfire::setuppak("$pak") if ($pak ne "");
 212                 }
 213
 214
 215                 foreach $pak (@paks) {
 216                         &Pakfire::setuppak("$pak") if ($pak ne "");
 217                 }
 218
 219
 220         } elsif ("$ARGV[0]" eq "remove") {
 221                 shift;
 222
 223                 my @paks;
 224                 my $pak;
 225                 foreach $pak (@ARGV) {
 226                         unless ("$pak" =~ "^-") {
 227                                 $return = &Pakfire::isinstalled($pak);
 228                                 if ($return ne 0) {
 229                                         &Pakfire::message("PAKFIRE WARN: $pak is not installed");
 230                                         next;
 231                                 }
 232                                 push(@paks, $pak);
 233                         }
 234                 }
 235
 236                 unless (@paks) {
 237                         &Pakfire::message("PAKFIRE ERROR: No packages to remove. Exiting...");
 238                         exit 1;
 239                 }
 240
 241                 &Pakfire::message("");
 242                 &Pakfire::message("");
 243                 &Pakfire::message("PAKFIRE INFO: Packages to remove:");
 244                 foreach $pak (sort @paks) {
 245                   my $size = &Pakfire::getsize("$pak");
 246                         $size = &Pakfire::beautifysize($size);
 247                   &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
 248                 }
 249
 250                 if ($interactive) {
 251                   &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
 252                         my $ret = <STDIN>;
 253                         chomp($ret);
 254                         &Pakfire::logger("PAKFIRE INFO: Answer: $ret");
 255                         if ( $ret ne "y" ) {
 256                           &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
 257                           exit 1;
 258                         }
 259                 }
 260
 261                 foreach $pak (@paks) {
 262                         &Pakfire::removepak("$pak");
 263                 }
 264
 265
 266         } elsif ("$ARGV[0]" eq "update") {
 267                 &Pakfire::makeuuid();
 268                 &Pakfire::getmirrors("$force");
 269                 &Pakfire::dbgetlist("$force");
 270                 &Pakfire::getcoredb("$force");
 271
 272         } elsif ("$ARGV[0]" eq "upgrade") {
 273                 &Pakfire::upgradecore();
 274                 my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
 275                 my @deps = ();
 276
 277                 if (@upgradepaks) {
 278                         # Resolve the dependencies of the to be upgraded packages
 279                         @deps = &Pakfire::resolvedeps_recursive(@upgradepaks);
 280
 281                         &Pakfire::message("");
 282                         &Pakfire::message("PAKFIRE UPGR: We are going to install all packages listed above.");
 283                         if ($interactive) {
 284                           &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
 285                                 my $ret = <STDIN>;
 286                                 chomp($ret);
 287                                 &Pakfire::logger("PAKFIRE INFO: Answer: $ret");
 288                                 if ( $ret ne "y" ) {
 289                                   &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
 290                                   exit 1;
 291                                 }
 292                         }
 293                 }
 294
 295                 # Download packages
 296                 foreach $pak (@upgradepaks) {
 297                         &Pakfire::getpak("$pak", "");
 298                 }
 299
 300                 # Download dependencies
 301                 foreach $pak (@deps) {
 302                         &Pakfire::getpak("$pak", "");
 303                 }
 304
 305                 # Install dependencies first
 306                 foreach $pak (@deps) {
 307                         &Pakfire::setuppak("$pak");
 308                 }
 309
 310                 # Install all upgrades
 311                 foreach $pak (@upgradepaks) {
 312                         &Pakfire::upgradepak("$pak");
 313                 }
 314
 315         } elsif ("$ARGV[0]" eq "list") {
 316                 if ("$ARGV[1]" =~ /installed|notinstalled/) {
 317                         &Pakfire::dblist("$ARGV[1]", "noweb");
 318                 } else {
 319                         &Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
 320                         &Pakfire::dblist("all", "noweb");
 321                 }
 322
 323         } elsif ("$ARGV[0]" eq "resolvedeps") {
 324                 foreach (@ARGV) {
 325                         next if ("$_" eq "resolvedeps");
 326                         next if ("$_" =~ "^-");
 327                         &Pakfire::resolvedeps("$_");
 328                 }
 329         } elsif ("$ARGV[0]" eq "enable") {
 330                 if ("$ARGV[1]" eq "updates") {
 331                         system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-update");
 332                 } elsif ("$ARGV[1]" eq "upgrades") {
 333                         system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-upgrade");
 334                 }
 335         } elsif ("$ARGV[0]" eq "disable") {
 336                 if ("$ARGV[1]" eq "updates") {
 337                         system("rm -f /etc/fcron.daily/pakfire-update");
 338                 } elsif ("$ARGV[1]" eq "upgrades") {
 339                         system("rm -f /etc/fcron.daily/pakfire-upgrade");
 340                 }
 341         } elsif ("$ARGV[0]" eq "status") {
 342                 &Pakfire::status;
 343         } else {
 344                 &Pakfire::usage;
 345         }
 346
 347         &Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");
 348
 349         END {
 350                 # Check if pakfire has been locked in this session.
 351                 if ($locked) {
 352                         # Remove lockfile.
 353                         unlink($Pakfire::lockfile);
 354                 }
 355         }
 356
 357         exit 0;