114 |
my ($raw_X, $card, $various) = @_; |
my ($raw_X, $card, $various) = @_; |
115 |
|
|
116 |
if (exists $various->{DontZap}) { |
if (exists $various->{DontZap}) { |
117 |
configure_ServerFlag($raw_X, 'DontZap', $various->{DontZap} eq 1 ? 'True' : 'False'); |
configure_ServerFlag($raw_X, 'DontZap', $various->{DontZap} == 1 ? 'True' : 'False'); |
118 |
} |
} |
119 |
if ($various->{Composite}) { |
if ($various->{Composite}) { |
120 |
$raw_X->remove_extension('Composite'); |
$raw_X->remove_extension('Composite'); |
339 |
} |
} |
340 |
|
|
341 |
sub configure_ServerFlag { |
sub configure_ServerFlag { |
342 |
my ($raw_X, $option, $value) = @_; |
my ($raw_X, $option, $o_value) = @_; |
343 |
my $ServerFlags = $raw_X->get_Section('ServerFlags'); |
my $ServerFlags = $raw_X->get_Section('ServerFlags'); |
344 |
my $option_ref = $ServerFlags->{$option}->[0]; |
my $option_ref = $ServerFlags->{$option}[0]; |
345 |
if ($value) { |
if ($o_value) { |
346 |
$option_ref->{val} = $value; |
$option_ref->{val} = $o_value; |
347 |
$option_ref->{commented} = 0; |
$option_ref->{commented} = 0; |
348 |
$option_ref->{Option} = 1; |
$option_ref->{Option} = 1; |
349 |
} |
} |
350 |
return undef if $option_ref->{commented} eq 1; |
return undef if $option_ref->{commented} == 1; |
351 |
$option_ref->{val}; |
$option_ref->{val}; |
352 |
} |
} |
353 |
|
|
399 |
}, $bios_vga_mode); |
}, $bios_vga_mode); |
400 |
} |
} |
401 |
|
|
402 |
sub setup_kms { |
sub setup_kms() { |
403 |
change_bootloader_config( |
change_bootloader_config( |
404 |
sub { |
sub { |
405 |
my ($bootloader) = @_; |
my ($bootloader) = @_; |