Samba-Update auf neues Patchlevel. Jaja, die Sicherheitsluecken oder sowas...

[ipfire-2.x.git] / src / pakfire / pakfire

diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire
index 7ccc83503c1255a7e99963ff23c3eff04e73b971..cdf0b619c3bb8574a1d8dc625149c2af33fe6dc1 100644 (file)
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -1,18 +1,124 @@
-#!/bin/bash
-############################################################################################
-# Version 0.1a, Copyright (C) 2006  by IPFire.org                                                #
-# IPFire ist freie Software, die Sie unter bestimmten Bedingungen weitergeben dürfen.      #
-############################################################################################
+#!/usr/bin/perl
 
-case "$1" in
+       require "/opt/pakfire/lib/functions.pl";
+       
+       my $interactive = 1;
+       
+       &Pakfire::logger("### IPFire Pakfire $Conf::version started!");
+       &Pakfire::checkcryptodb;
 
-       update)         $(lib/get_conf.sh HOME)/lib/get_mirror.sh
-                       $(lib/get_conf.sh HOME)/lib/get_list.sh
-                       $(lib/get_conf.sh HOME)/lib/check_pak.sh
-       ;;
+       ### Check if we are running as root
+       #
+       my $user = qx(whoami);
+       chomp($user);
+       unless ( "$user" eq "root" ) {
+         &Pakfire::message("You must run pakfire as user root!");
+         exit 1;
+       }
+       
+       unless (@ARGV) {
+               &Pakfire::usage;
+       }
+       
+       foreach (@ARGV) {
+               if ("$_" =~ "^-") {
+                       $interactive = 0 if ("$_" eq "--non-interactive");
+                       $interactive = 0 if ("$_" eq "-y");
+               }
+       }
 
-       *) echo -e "IPFire - Pakfire\nHilfe:\npakfire install [Paket]\t- Installiert ein neues Paket.\npakfire update\t\t- Lädt die Liste aller Pakete neu.\npakfire remove [Paket]\t- Deinstalliert ein Paket.\npakfire upgrade\t\t- Überprüft nach neuen Updates."
+       if ("$ARGV[0]" eq "install") {
+               &Pakfire::lock("on");
+               shift;
+               my @deps;
+               my @paks;
+               my @temp;
+               my @all;
+               foreach (@ARGV) {
+                       unless ("$_" =~ "^-") {
+                               push(@paks,$_) if $_;
+                       }
+               }
+               
+               foreach (@paks) {
+                       @temp = &Pakfire::resolvedeps("$_");
+                       foreach (@temp) { push(@deps,$_) if $_; }
+               }
+               
+               foreach (@paks) {
+                 push(@all,$_) if $_;
+               }
+               foreach (@deps) {
+                 push(@all,$_) if $_;
+               }
 
-esac
+               &Pakfire::message("\n\n### Packages to install:");
+               foreach (sort @paks) {
+                 my $size = &Pakfire::getsize("$_");
+                       $size = &Pakfire::beautifysize($size);
+                 &Pakfire::message("# $_  \t\t - $size");
+               }
+               
+               &Pakfire::message("\n### Packages to install for dependencies:") if @deps;
+               foreach (sort @deps) {
+                 my $size = &Pakfire::getsize("$_");
+                       $size = &Pakfire::beautifysize($size);
+                 &Pakfire::message("# $_  \t\t - $size");
+               }
+               
+               my $totalsize;
+               foreach (@all) {
+                       $totalsize = ($totalsize + &Pakfire::getsize("$_"));
+               }
+               $totalsize = &Pakfire::beautifysize($totalsize);
+               &Pakfire::message("\n### Total size: \t ~ $totalsize\n");
+               
+               if ($interactive) {
+                 &Pakfire::message("Is this okay? [y/N]");
+                       my $ret = <STDIN>;
+                       chomp($ret);
+                       &Pakfire::logger("Answer: $ret");
+                       if ( $ret ne "y" ) {
+                         &Pakfire::message("Installation aborted.");
+                         exit 1;
+                       }
+               }
 
-################################### EOF ####################################################
+               ### Download first
+               foreach (sort @all) {
+                       &Pakfire::message("# --> Downloading: $_");
+                       &Pakfire::getpak("$_", "");
+               }
+
+               foreach (sort @all) {
+                       &Pakfire::setuppak("$_");
+               }
+               &Pakfire::lock("off");
+               
+       } elsif ("$ARGV[0]" eq "remove") {
+       
+       
+       } elsif ("$ARGV[0]" eq "update") {
+               my $force = "noforce";
+               &Pakfire::makeuuid();
+               &Pakfire::senduuid();
+               &Pakfire::getmirrors();
+               $force = "force" if ("$ARGV[1]" eq "--force");
+               &Pakfire::dbgetlist("$force");
+               
+       
+       } elsif ("$ARGV[0]" eq "upgrade") {
+               &Pakfire::dblist("upgrade", "noweb");
+               
+       } elsif ("$ARGV[0]" eq "list") {
+               &Pakfire::dblist("all", "noweb");
+               
+       } elsif ("$ARGV[0]" eq "resolvedeps") {
+               foreach (@ARGV) {
+                       next if ("$_" eq "resolvedeps");
+                       &Pakfire::resolvedeps("$_");
+               }
+               
+       } else {
+               &Pakfire::usage;
+       }