squid/move_pool.cgi

   1 #!/usr/local/bin/perl
   2 # move_delay.cgi
   3 # Move a delay_access directive up or down
   4
   5 require './squid-lib.pl';
   6 $access{'delay'} || &error($text{'delay_ecannot'});
   7 &lock_file($config{'squid_conf'});
   8 $conf = &get_config();
   9 ($pos, $move, $idx) = @ARGV;
  10
  11 @delays = &find_config("delay_access", $conf);
  12 @access = grep { $_->{'values'}->[0] == $idx } @delays;
  13 $newpos = $pos + $move;
  14 $oldv = $access[$pos]->{'values'};
  15 $access[$pos]->{'values'} = $access[$newpos]->{'values'};
  16 $access[$newpos]->{'values'} = $oldv;
  17 &save_directive($conf, "delay_access", \@delays);
  18 &flush_file_lines();
  19 &unlock_file($config{'squid_conf'});
  20 &webmin_log("move", "delay", $idx);
  21 &redirect("edit_pool.cgi?idx=$idx");