summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug_report
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2011-01-19 10:44:49 +0000
committerAntoine Ginies <aginies@mandriva.com>2011-01-19 10:44:49 +0000
commit530a16ec071db0e24e6e949e265a96848864967c (patch)
treefe40cacd28d67b98186754c551b7fd339ebc7e17 /perl-install/standalone/drakbug_report
downloaddrakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar
drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.gz
drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.bz2
drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.xz
drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.zip
add mes5-2.6.33 branch
Diffstat (limited to 'perl-install/standalone/drakbug_report')
-rwxr-xr-xperl-install/standalone/drakbug_report15
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..d40d5a1c4
--- /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`),
+ 'mandrake version' => mandrake_release(),
+ 'df' => join('', `df`),
+);
+
+print any::report_bug(%other);