-#!/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;
+ }