mirror of
https://github.com/webmin/webmin.git
synced 2026-06-05 04:40:24 +01:00
24 lines
748 B
Perl
Executable File
24 lines
748 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Set the saved GRUB 2 default boot entry.
|
|
|
|
use strict;
|
|
use warnings;
|
|
require './grub2-lib.pl'; ## no critic
|
|
|
|
our (%in, %text);
|
|
|
|
&ReadParse();
|
|
&error_setup($text{'runtime_err'});
|
|
my %access = &get_module_acl();
|
|
&error("$text{'eacl_np'} $text{'eacl_pruntime'}") if (!$access{'runtime'});
|
|
|
|
# Runtime commands operate on the parsed generated menu index shown on index.cgi.
|
|
my $entry = &grub2_entry_by_index($in{'idx'});
|
|
&error($text{'runtime_eentry'}) if (!$entry);
|
|
# The helper validates the selector before invoking grub-set-default.
|
|
my $err = &grub2_run_entry_command('set_default_cmd', $entry);
|
|
&error($err) if ($err);
|
|
my $selector = &grub2_entry_selector($entry);
|
|
&webmin_log("default", undef, $selector);
|
|
&redirect("");
|