1 files changed, 15 insertions, 0 deletions
diff --git a/perl-install/standalone/drakbug_report b/perl-install/standalone/drakbug_report
new file mode 100755
index 000000000..672960272
--- /dev/null
+++ b/perl-install/standalone/drakbug_report
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+
+use standalone;
+use common;
+use any;
+
+my %other = (
+    'rpm -qa' => join('', sort `rpm -qa`),
+    'mageia version' => mageia_release(),
+    'df' => join('', `df`),
+);
+
+print any::report_bug(%other);