grub/down.cgi

   1 #!/usr/local/bin/perl
   2 # Move a title down
   3
   4 require './grub-lib.pl';
   5 &ReadParse();
   6 &lock_file($config{'menu_file'});
   7 $conf = &get_menu_config();
   8 @t = &find("title", $conf);
   9 &swap_directives($t[$in{'idx'}], $t[$in{'idx'}+1]);
  10 &flush_file_lines($config{'menu_file'});
  11 &unlock_file($config{'menu_file'});
  12 &webmin_log("down", "title", undef, $t[$in{'idx'}]);
  13 &redirect("");
  14