diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-12-21 04:46:28 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-12-21 04:46:28 +0000 |
| commit | 2472acd19039324efb00032a43b291a2540638b0 (patch) | |
| tree | 8f2e5d14de72ed1d007430c557db9369700a32a6 /iurt_root_command | |
| parent | 1f34e394f4feb0d1ee07e0abf28721dfcc4caed6 (diff) | |
| download | iurt-2472acd19039324efb00032a43b291a2540638b0.tar iurt-2472acd19039324efb00032a43b291a2540638b0.tar.gz iurt-2472acd19039324efb00032a43b291a2540638b0.tar.bz2 iurt-2472acd19039324efb00032a43b291a2540638b0.tar.xz iurt-2472acd19039324efb00032a43b291a2540638b0.zip | |
better logs: log what is run
Diffstat (limited to 'iurt_root_command')
| -rwxr-xr-x | iurt_root_command | 3 |
1 files changed, 2 insertions, 1 deletions
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", |