diff options
-rw-r--r-- | rurpmi | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -0,0 +1,15 @@ +#!/usr/bin/perl -T + +use strict; +use urpm::msg; + +if ($< != 0) { + print STDERR N("Only superuser is allowed to install packages"), "\n"; + exit 1; +} + +$ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin"; +delete @ENV{qw(ENV BASH_ENV IFS CDPATH PERLLIB PERL5LIB PERL5OPT PERLIO PERLIO_DEBUG PERL5DB PERL_ENCODING PERL_HASH_SEED PERL_SIGNALS PERL_UNICODE)}; + +print STDERR N("Running urpmi in restricted mode..."), "\n"; +exec '/usr/bin/perl', '/usr/sbin/urpmi', '--restricted', @ARGV; |