perl-install/standalone.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package standalone; # $Id$

use c;

$::isStandalone = 1;

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

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


sub pkgs_install {
    my ($in, @l) = @_;
    $in->suspend;
    my $ret = system('urpmi --auto --best-output ' . join(' ', @l));
    $in->resume;
    $ret;
}

1;