diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-11-19 16:21:10 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-11-19 16:21:10 +0000 |
| commit | f760ad61d95de3c3f218470610b49a142d4f3fe4 (patch) | |
| tree | 5cb34cc7b0f581ba2e645bb4e7df6b6cffbd736f | |
| parent | 09408a79d44ddf9c1d1e24a76c29b2f3695ca03d (diff) | |
| download | mgaonline-f760ad61d95de3c3f218470610b49a142d4f3fe4.tar mgaonline-f760ad61d95de3c3f218470610b49a142d4f3fe4.tar.gz mgaonline-f760ad61d95de3c3f218470610b49a142d4f3fe4.tar.bz2 mgaonline-f760ad61d95de3c3f218470610b49a142d4f3fe4.tar.xz mgaonline-f760ad61d95de3c3f218470610b49a142d4f3fe4.zip | |
- clean_confdir
| -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'; |