diff options
Diffstat (limited to 'mdkonline.pm')
-rw-r--r-- | mdkonline.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index 994aaee5..b33a3de8 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -176,6 +176,11 @@ sub mv_files { -e $source and system("mv", $source, $dest); } +sub clean_confdir { + my $confdir = '/root/.MdkOnline'; + system "/bin/rm", "-f", "$confdir/*log.bz2", "$confdir/*log.bz2.uue", "$confdir/*.dif $confdir/rpm_qa_installed_before", "$confdir/rpm_qa_installed_after"; +} + sub hw_upload { my ($login, $passwd, $hostname) = @_; my $hw_exec = '/usr/sbin/hwdb_add_system'; |