1 |
#!/usr/bin/perl -T |
2 |
|
3 |
#- Copyright (C) 2005 MandrakeSoft SA |
4 |
#- Copyright (C) 2005-2010 Mandriva SA |
5 |
|
6 |
use strict; |
7 |
use urpm::msg; |
8 |
use urpm::util qw(untaint); |
9 |
|
10 |
if ($< != 0) { |
11 |
print STDERR N("Only superuser is allowed to install packages"), "\n"; |
12 |
exit 1; |
13 |
} |
14 |
|
15 |
$ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin"; |
16 |
delete @ENV{qw(ENV BASH_ENV HOME IFS CDPATH PERLLIB PERL5LIB PERL5OPT PERLIO PERLIO_DEBUG PERL5DB PERL_ENCODING PERL_HASH_SEED PERL_SIGNALS PERL_UNICODE RPM_CONFIGDIR)}; |
17 |
|
18 |
print STDERR N("Running urpmi in restricted mode..."), "\n"; |
19 |
@ARGV or @ARGV = qw(--help); |
20 |
exec '/usr/bin/perl', '/usr/sbin/urpmi', '--restricted', map { untaint $_ } @ARGV; |