Add an experimental --restricted option, based on code by Michael Scherer

(bug #16610)

1 files changed, 12 insertions, 1 deletions

diff --git a/urpmi b/urpmi
index dc3ab3fe..d9de5ab4 100755
--- a/urpmi
+++ b/urpmi
@@ -22,7 +22,7 @@ use strict;
 use urpm;
 use urpm::args;
 use urpm::msg;
-use urpm::util qw/untaint/;
+use urpm::util qw(untaint);
 use MDK::Common;
 
 #- contains informations to parse installed system.
@@ -57,6 +57,7 @@ our $use_provides = 1;
 our $verbose = 0;
 our $usedistrib = 0;
 our $log = '';
+our $restricted = 0;
 our $nolock = 0;
 
 my @files;
@@ -184,6 +185,16 @@ if ($install_src) {
     @names = ();
 }
 
+#- rurpmi checks
+if ($restricted) {
+    urpm::error_restricted($urpm) if @src_files || @files;
+    $urpm->{options}{keep} = 1;
+    $urpm->{options}{'verify-rpm'} = 1;
+    urpm::error_restricted($urpm) if $::root || $::usedistrib || $::force || $::env || $::parallel;
+    foreach (qw(allow-nodeps allow-force)) { urpm::error_restricted($urpm) if $urpm->{options}{$_} }
+    foreach (qw(verify-rpm))               { urpm::error_restricted($urpm) unless $urpm->{options}{$_} }
+}
+
 #- prepare bug report.
 my $bug = $urpm::args::options{bug};
 if ($bug) {