-#!/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::message("### Welcome to IPFire Pakfire $Conf::version!");
- update) $(get_conf.sh HOME)/lib/get_mirror.sh
- $(get_conf.sh HOME)/lib/get_list.sh
- $(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::message("Usage: pakfire <install|remove> <pak(s)>");
+ &Pakfire::message(" <update>");
+ &Pakfire::message(" <upgrade>");
+ exit 1;
+ }
- *) 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") {
+ shift;
+ my @deps = ();
+ my @paks = @ARGV;
+ foreach (@ARGV) {
+ @deps = &Pakfire::resolvedeps("$_");
+ }
+
+ my @all = ();
+ foreach (@paks) {
+ push(@all,$_);
+ }
+ foreach (@deps) {
+ push(@all,$_);
+ }
-esac
+ &Pakfire::message("\n\n### Packages to install:");
+ foreach (@paks) {
+ my $size = &Pakfire::getsize("$_");
+ $size = &Pakfire::beautifysize($size);
+ &Pakfire::message("# $_ \t\t - $size");
+ }
+
+ &Pakfire::message("\n### Packages to install for dependencies:");
+ foreach (@deps) {
+ my $size = &Pakfire::getsize("$_");
+ $size = &Pakfire::beautifysize($size);
+ &Pakfire::message("# $_ \t\t - $size");
+ }
-################################### EOF ####################################################
+ my $totalsize = &Pakfire::addsizes(@all);
+ $totalsize = &Pakfire::beautifysize($totalsize);
+ &Pakfire::message("\n### Download size: \t ~ $totalsize");
+
+ 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;
+ }
+ }
+
+ &Pakfire::message("### Installing all packages:");
+
+ foreach (@all) {
+ &Pakfire::setuppak("$_");
+ }
+
+
+ } elsif ("$ARGV[0]" eq "remove") {
+
+
+ } elsif ("$ARGV[0]" eq "update") {
+ &Pakfire::getmirrors();
+ &Pakfire::dbgetlist();
+ }