drop support for very old kernel flavors

those are no more generated for more than 10 years...
also make kernel server default if installed

1 files changed, 2 insertions, 8 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a7e740546..3d13dc364 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1082,8 +1082,6 @@ sub short_ext {
     my ($kernel_str) = @_;
 
     my $short_ext = {
-	'i586-up-1GB' => 'i586',
-	'i686-up-4GB' => '4GB',
 	'xen0' => 'xen',
     }->{$kernel_str->{ext}};
 
@@ -1098,7 +1096,7 @@ sub _sanitize_ver {
 
     my $v = $kernel_str->{version_no_ext};
     if ($v =~ s/-\d+\.mm\././) {
-	$name = join(' ', grep { $_ } $name, 'multimedia');
+	$name = join(' ', grep { $_ } $name);
     }
 
     $v =~ s!(md[kv]|mnb)$!!;
@@ -1106,10 +1104,6 @@ sub _sanitize_ver {
 
     my $return = join(' ', grep { $_ } $name, short_ext($kernel_str), $v);
 
-    length($return) < 30 or $return =~ s!secure!sec!;
-    length($return) < 30 or $return =~ s!enterprise!ent!;
-    length($return) < 30 or $return =~ s!multimedia!mm!;
-
     $return;
 }
 
@@ -1229,7 +1223,7 @@ sub suggest {
 		      });
 	} @windows_boot_parts;
 
-    my @preferred = map { "linux-$_" } 'p3-smp-64GB', 'secure', 'enterprise', 'smp', 'i686-up-4GB';
+    my @preferred = map { "linux-$_" } 'server';
     if (my $preferred = find { get_label($_, $bootloader) } @preferred) {
 	$bootloader->{default} ||= $preferred;
     }