From 2472acd19039324efb00032a43b291a2540638b0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 21 Dec 2011 04:46:28 +0000
Subject: better logs: log what is run

---
 iurt_root_command | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/iurt_root_command b/iurt_root_command
index 70dd08e..89edeeb 100755
--- a/iurt_root_command
+++ b/iurt_root_command
@@ -29,6 +29,7 @@ use Iurt::Util qw(plog_init plog);
 use Cwd 'realpath';
 use File::Path qw(make_path);
 use File::Slurp;
+use String::Escape;
 
 my $arg = @ARGV;
 my (@params, %run);
@@ -47,7 +48,7 @@ $run{todo} = [];
 		    [--modprobe <module>] 
 		    [--mkdir [--parents] <dir1> <dir2> ... <dirn>]", 
     "$program_name is a perl script to execute commands which need root privilege, it helps probram which needs occasional root privileges for some commands.", 
-    sub { $arg or usage($program_name, \@params) }, "Running $program_name" ],
+    sub { $arg or usage($program_name, \@params) }, String::Escape::elide(join(' ', "Running $program_name", @ARGV), 120) ],
 
     [ "", "cp", [
     ["", "cp", -1, "[-r] <file1> <file2> ... <filen> <dest>", "copy the files to dest",
-- 
cgit v1.2.1