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