Mini Shell
Mini Shell
| Direktori : /usr/share/webmin/grub/ |
| Current File : //usr/share/webmin/grub/down.cgi |
#!/usr/bin/perl
# Move a title down
require './grub-lib.pl';
&ReadParse();
&lock_file($config{'menu_file'});
$conf = &get_menu_config();
@t = &find("title", $conf);
&swap_directives($t[$in{'idx'}], $t[$in{'idx'}+1]);
&flush_file_lines($config{'menu_file'});
&unlock_file($config{'menu_file'});
&webmin_log("down", "title", undef, $t[$in{'idx'}]);
&redirect("");