- my $distro = shift;
- my $major_version = shift;
-
- # Based on the distro, take a guess at the package format
- # and package management.
- my ($package_format, $package_management);
- if (defined $distro) {
- if ($distro eq "debian") {
- $package_format = "deb";
- $package_management = "apt";
- }
- elsif ($distro eq "fedora") {
- $package_format = "rpm";
- $package_management = "yum";
- }
- elsif ($distro =~ /redhat/ || $distro =~ /rhel/) {
- if ($major_version >= 5) {
- $package_format = "rpm";
- $package_management = "yum";
- } else {
- $package_format = "rpm";
- $package_management = "up2date";
- }
- }
- # else unknown.
- }
-
- $xml->dataElement (package_format => $package_format)
- if defined $package_format;
- $xml->dataElement (package_management => $package_management)
- if defined $package_management;
-
- # Do we know how to get a list of applications?
- if (defined $package_format) {
- if ($package_format eq "rpm") {
- output_applications_rpm ($root);
- }
- # else no we don't.
- }
-}