/[soft]/rpm/urpmi/branches/1/rurpmi
ViewVC logotype

Contents of /rpm/urpmi/branches/1/rurpmi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3132 - (show annotations) (download)
Wed Feb 29 23:59:36 2012 UTC (8 years, 4 months ago) by tv
File size: 664 byte(s)
branch

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;

  ViewVC Help
Powered by ViewVC 1.1.28