cfengine/up.cgi

   1 #!/usr/local/bin/perl
   2 # up.cgi
   3 # Move an entire section up in the config file
   4
   5 require './cfengine-lib.pl';
   6 &ReadParse();
   7 $conf = $in{'cfd'} ? &get_cfd_config() : &get_config();
   8 $sw1 = $conf->[$in{'idx'}];
   9 $sw2 = $conf->[$in{'idx'}-1];
  10 &swap_directives($conf, $sw1, $sw2);
  11
  12 &flush_file_lines();
  13 &redirect($in{'cfd'} ? "edit_cfd.cgi" : "");
  14