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 f0ef46e2572e980750ad11d5fc8fdfe9be610ace..cdf0b619c3bb8574a1d8dc625149c2af33fe6dc1 100644 (file)
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -1,67 +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
 
-. /etc/pakfire.conf
+       require "/opt/pakfire/lib/functions.pl";
+       
+       my $interactive = 1;
+       
+       &Pakfire::logger("### IPFire Pakfire $Conf::version started!");
+       &Pakfire::checkcryptodb;
 
-case "$1" in
-       update)
-                       . $PAKHOME/lib/get_mirror.sh
-                       . $PAKHOME/lib/get_list.sh
-                       . $PAKHOME/lib/check_pak.sh
-                       get_mirror
-                       get_list
-                       check_pak
-       ;;
+       ### 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");
+               }
+       }
 
-       upgrade)
-                       . $PAKHOME/lib/get_upgrade.sh
-                       . $PAKHOME/lib/get_base.sh
-                       get_upgrade
-                       get_base
-       ;;
+       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 $_;
+               }
 
-       install)
-               . $PAKHOME/lib/get_pak.sh
-               . $PAKHOME/lib/install_pak.sh
-               case "$2" in
-                       "")
-                               pakfire_logger "No package name given. Exiting..."
-                       ;;
-                       BASE-*)
-                               echo $2
-                       ;;
-                       *)
-                               if [ -e $DB_DIR/$2 ]; then
-                                       if [ -e $IP_DIR/$2 ]; then
-                                               pakfire_logger "$2 is already installed on this system."
-                                       else
-                                               get_pak $2
-                                               install_pak $2
-                                               rm -rf $TMP_DIR/*
-                                       fi
-                               else
-                                       pakfire_logger "There is no paket with this name: $2"
-                               fi
-                       ;;
-               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;
+                       }
+               }
 
-       clean)
-               rm -rf $CACHE_DIR/* $TMP_DIR/* $DB_DIR/*
-       ;;
-       *)
-               echo -e "IPFire - Pakfire $PAKVER:"
-               echo -e "===\t===\t===\t===\t===\t===\t===\t==="
-               echo -e "pakfire install [packet]\t- Installs a new packet."
-               echo -e "pakfire remove [paket]\t\t- Uninstalls a paket."
-               echo -e "pakfire update\t\t\t- Reloads the package list."
-               echo -e "pakfire upgrade\t\t\t- Searches for new updates."
-               echo -e "===\t===\t===\t===\t===\t===\t===\t==="
-       ;;
+               ### Download first
+               foreach (sort @all) {
+                       &Pakfire::message("# --> Downloading: $_");
+                       &Pakfire::getpak("$_", "");
+               }
 
-esac
-
-################################### EOF ####################################################
+               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;
+       }