Contents of /rpm/urpmi/branches/2/rurpme

#!/usr/bin/perl -T

#- Copyright (C) 2005-2010 Mandriva SA

use strict;
use urpm::msg;
use urpm::util qw(untaint);

if ($< != 0) {
    print STDERR N("Only superuser is allowed to uninstall packages"), "\n";
    exit 1;
}

$ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin";
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)};

print STDERR N("Running urpme in restricted mode..."), "\n";
@ARGV or @ARGV = qw(--help);
exec '/usr/bin/perl', '/usr/sbin/urpme', '--restricted', map { untaint $_ } @ARGV;
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;