Log calls to urpmi and urpme

1 files changed, 6 insertions, 1 deletions

diff --git a/urpme b/urpme
index 4585855b..12fe0cd1 100644
--- a/urpme
+++ b/urpme
@@ -27,7 +27,7 @@ use urpm::msg;
 $ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin";
 delete @ENV{qw(ENV BASH_ENV IFS CDPATH)};
 
-our ($root, $test, $parallel, $auto, $matches, $verbose, $maymatch, $usedistrib, $force, $noscripts, @l);
+our ($root, $test, $parallel, $auto, $matches, $verbose, $usedistrib, $force, $noscripts, @l);
 # Translator: Add here the keys which might be pressed in the "No"-case.
 my $noexpr = N("Nn");
 # Translator: Add here the keys which might be pressed in the "Yes"-case.
@@ -55,6 +55,7 @@ usage:
 }
 
 @ARGV or usage;
+my @origARGV = @ARGV;
 urpm::args::parse_cmdline();
 @l = @ARGV;
 
@@ -68,6 +69,10 @@ if ($< && !$test) {
     $urpm->{fatal}(1, N("Only superuser is allowed to remove packages"));
 }
 
+unless ($test) {
+    sys_log("called with: @origARGV");
+}
+
 #- just configure parallel mode if available.
 $urpm->configure(
     synthesis => ($parallel ? 'none' : ''),