summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mdkonline.pm')
-rw-r--r--mdkonline.pm5
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';