src/pakfire/pakfire

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