perl-install/unused

package standalone; # $Id$

use c;
use strict;
use common;
use Config;

#- for sanity (if a use standalone is made during install, MANY problems will happen)
if ($::isInstall) {
    require 'log.pm';
    log::l('ERROR: use standalone made during install :-(');
    require common;
    log::l('backtrace: ' . common::backtrace());
}
$::isStandalone = 1;

$ENV{SHARE_PATH} ||= "/usr/share";

c::setlocale();
c::bindtextdomain('libDrakX', "/usr/share/locale");

$::license = N("This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
");

my $progname = basename $0;
print "Running $progname\n";

my %usages = (
	      'draksec' => N(" [OPTIONS]...
	      --debug         print debugging information"),
	      'drakxtv' => "[--no-guess]",
	      'drakupdate_fstab' => " [--add | --del] <device>\n",
	      'keyboardrake' => N("[keyboard]"),
	      'printerdrake' => N(" [--skiptest] [--cups] [--lprng] [--lpd] [--pdq]"),
	      'rpmdrake' => N("[OPTION]...
  --no-confirmation      don't ask first confirmation question in MandrakeUpdate mode
  --no-verify-rpm        don't verify packages signatures
  --changelog-first      display changelog before filelist in the description window
  --merge-all-rpmnew     propose to merge all .rpmnew/.rpmsave files found"),
	      'XFdrake' => N(" [everything]
       XFdrake [--noauto] monitor
       XFdrake resolution"),
	      );

$usages{$_} = $usages{rpmdrake} foreach (qw(rpmdrake-remove MandrakeUpdate));
$usages{Xdrakres} = $usages{XFdrake};


my ($i, @new_ARGV);
foreach my $opt (@ARGV) {
    $i++;
    if ($opt eq '--help' || $opt eq '-h') {
	version();
	print STDERR N("\nUsage: %s  [--auto] [--beginner] [--expert] [-h|--help] [--noauto] [--testing] [-v|--version] ", $progname),  if_($usages{$progname}, $usages{$progname}), "\n";
#    print N("\nUsage: "), $::usage, "\n" if $::usage;
	exit(0);
    } elsif ($opt eq '--version' || $opt eq '-v') {
	version();
	exit(0);
    } elsif ($opt eq '--embedded') {
	(undef, $::XID, $::CCPID) = splice @ARGV, ($i-1), 3;
	$::isEmbedded = 1;
    } elsif ($opt eq '--expert') {
	$::expert = 1;
    } elsif ($opt eq '--noauto') {
	$::noauto = /-noauto/;
    } elsif ($opt eq '--auto') {
	$::auto = 1;
    } elsif ($opt eq '--testing') {
	$::testing = 1;
    } elsif ($opt eq '--beginner') {
	$::expert = 0;
    } else {
	push @new_ARGV, $opt;
    }
}

@ARGV = @new_ARGV;


sub version {
    print STDERR "Drakxtools version 9.1.0
Copyright (C) 1999-2002 MandrakeSoft by <install\@mandrakesoft.com>
",  $::license, "\n";
}

################################################################################
package pkgs_interactive;

use run_program;
use common;


sub interactive::do_pkgs {
    my ($in) = @_;
    bless { in => $in }, 'pkgs_interactive';
}

sub install {
    my ($o, @l) = @_;

    return 1 if is_installed($o, @l);

    my $wait;
    if ($o->{in}->isa('interactive::newt')) {
	$o->{in}->suspend;
    } else {
	$wait = $o->{in}->wait_message('', N("Installing packages..."));
    }
    standalone::explanations("installed packages @l");
    my $ret = system('urpmi', '--allow-medium-change', '--auto', '--best-output', @l) == 0;

    if ($o->{in}->isa('interactive::newt')) {
	$o->{in}->resume;
    } else {
	undef $wait;
    }
    $ret;
}

sub ensure_is_installed {
    my ($o, $pkg, $file, $auto) = @_;

    if (! -e $file) {
	$o->{in}->ask_okcancel('', N("The package %s needs to be installed. Do you want to install it?", $pkg), 1) 
	  or return if !$auto;
	$o->{in}->do_pkgs->install($pkg);
    }
    if (! -e $file) {
	$o->{in}->ask_warn('', N("Mandatory package %s is missing", $pkg));
	return;
    }
    1;
}

sub what_provides {
    my ($o, $name) = @_;
    my ($what) = split '\n', `urpmq '$name' 2>/dev/null`;
    split '\|', $what;
}

sub is_installed {
    my ($o, @l) = @_;
Mode	Name	Size
-rw-r--r--	.cvsignore	2	log stats plain
-rw-r--r--	cdrom.pm	710	log stats plain
-rw-r--r--	christmas-karaoke.patch	3716	log stats plain
-rw-r--r--	demo-frozen-bubble.patch	13985	log stats plain
-rw-r--r--	dns.pm	1538	log stats plain
-rw-r--r--	otherinsmod.pm	488	log stats plain
-rw-r--r--	scsi.pm	3231	log stats plain