sendmail/move.cgi

   1 #!/usr/local/bin/perl
   2 # move.cgi
   3 # Move a feature up or down
   4
   5 require './sendmail-lib.pl';
   6 require './features-lib.pl';
   7 &ReadParse();
   8 $features_access || &error($text{'features_ecannot'});
   9 @features = &list_features();
  10
  11 &lock_file($config{'sendmail_mc'});
  12 if ($in{'up'}) {
  13         &swap_features($features[$in{'idx'}-1], $features[$in{'idx'}]);
  14         }
  15 elsif ($in{'down'}) {
  16         &swap_features($features[$in{'idx'}], $features[$in{'idx'}+1]);
  17         }
  18 &unlock_file($config{'sendmail_mc'});
  19 &webmin_log("move", "feature", undef, $features[$in{'idx'}]);
  20
  21 &redirect("list_features.cgi");
  22