src/pakfire/pakfire

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