Log calls to urpmi and urpme

2 files changed, 10 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' : ''),
diff --git a/urpmi b/urpmi
index 6dd0cf08..f6baca16 100755
--- a/urpmi
+++ b/urpmi
@@ -247,6 +247,10 @@ unless ($bug || $install_src || $env || $urpm->{options}{'allow-force'} || $root
 Use --allow-force to force operation.", $urpm::sys::mountpoint));
 }
 
+unless ($bug || $env || $test) {
+    sys_log("called with: $command_line");
+}
+
 my ($pid_out, $pid_err);
 if ($logfile && !$INC{"Devel/Trace.pm"}) {
     bug_log(scalar localtime, " urpmi called with $command_line\n");