#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);

use any;

my %other = (
    'rpm -qa' => join('', sort `rpm -qa`),
    'mandrake version' => join ('', `cat /etc/redhat-release`),
);

print any::report_bug('', %other);