pap/move.cgi

   1 #!/usr/local/bin/perl
   2 # move.cgi
   3 # Move a caller ID number up or down
   4
   5 require './pap-lib.pl';
   6 $access{'dialin'} || &error($text{'dialin_ecannot'});
   7 &ReadParse();
   8 @dialin = &parse_dialin_config();
   9
  10 &lock_file($config{'dialin_config'});
  11 if ($in{'up'}) {
  12         &swap_dialins($dialin[$in{'idx'}], $dialin[$in{'idx'}-1], \@dialin);
  13         }
  14 else {
  15         &swap_dialins($dialin[$in{'idx'}], $dialin[$in{'idx'}+1], \@dialin);
  16         }
  17 &unlock_file($config{'dialin_config'});
  18 &webmin_log("move", "dialin", $dialin[$in{'idx'}]->{'number'},
  19                               $dialin[$in{'idx'}]);
  20 &redirect("list_dialin.cgi");
  21