From 0d769b1d2ec99e74d044b6acb409a116746eca4c Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.com>
Date: Tue, 13 Jun 2006 13:08:23 +0000
Subject: Add the rurpme(8) command

---
 rurpme | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 rurpme

(limited to 'rurpme')

diff --git a/rurpme b/rurpme
new file mode 100644
index 00000000..ce5a2790
--- /dev/null
+++ b/rurpme
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -T
+
+#- Copyright (C) 2005 Mandriva SA
+
+use strict;
+use urpm::msg;
+use urpm::util qw(untaint);
+
+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 urpme in restricted mode..."), "\n";
+@ARGV or @ARGV = qw(--help);
+exec '/usr/bin/perl', '/usr/sbin/urpme', '--restricted', map { untaint $_ } @ARGV;
-- 
cgit v1.2.1