1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use lib qw(/usr/lib/libDrakX); use MDK::Common; use any; my %other = ( 'rpm -qa' => join('', sort `rpm -qa`), 'mandrake version' => cat_('/etc/redhat-release'), 'df' => join('', `df`), ); print any::report_bug('', %other);