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

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

#!/usr/bin/perl

	require "/opt/pakfire/lib/functions.pl";
	
	my $interactive = 1;
	
	&Pakfire::logger("### IPFire Pakfire $Conf::version started!");
	&Pakfire::checkcryptodb;

	### 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");
		}
	}

	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 $_;
		}

		&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;
			}
		}

		### 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;
	}