1 |
#!/usr/bin/perl -T |
2 |
|
3 |
#- Copyright (C) 2005-2010 Mandriva SA |
4 |
|
5 |
use strict; |
6 |
use urpm::msg; |
7 |
use urpm::util qw(untaint); |
8 |
|
9 |
if ($< != 0) { |
10 |
print STDERR N("Only superuser is allowed to uninstall packages"), "\n"; |
11 |
exit 1; |
12 |
} |
13 |
|
14 |
$ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin"; |
15 |
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)}; |
16 |
|
17 |
print STDERR N("Running urpme in restricted mode..."), "\n"; |
18 |
@ARGV or @ARGV = qw(--help); |
19 |
exec '/usr/bin/perl', '/usr/sbin/urpme', '--restricted', map { untaint $_ } @ARGV; |