usermin/move.cgi

   1 #!/usr/local/bin/perl
   2 # move.cgi
   3 # Move a restriction up or down
   4
   5 require './usermin-lib.pl';
   6 $access{'restrict'} || &error($text{'acl_ecannot'});
   7 &ReadParse();
   8 &lock_file("$config{'usermin_dir'}/usermin.mods");
   9 @usermods = &list_usermin_usermods();
  10 $i = $in{'idx'};
  11 if ($in{'up'}) {
  12         ($usermods[$i], $usermods[$i-1]) = ($usermods[$i-1], $usermods[$i]);
  13         }
  14 else {
  15         ($usermods[$i], $usermods[$i+1]) = ($usermods[$i+1], $usermods[$i]);
  16         }
  17 &save_usermin_usermods(\@usermods);
  18 &unlock_file("$config{'usermin_dir'}/usermin.mods");
  19 &webmin_log("move", "restrict", $usermods[$i]->[0]);
  20 &redirect("list_restrict.cgi");
  21