src/pakfire/pakfire

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