squid/pool_access_save.cgi

   1 #!/usr/local/bin/perl
   2 # pool_access_save.cgi
   3 # Save or delete a delay pool ACL
   4
   5 require './squid-lib.pl';
   6 $access{'delay'} || &error($text{'delay_ecannot'});
   7 &ReadParse();
   8 &lock_file($config{'squid_conf'});
   9 $conf = &get_config();
  10
  11 @delays = &find_config("delay_access", $conf);
  12 if (defined($in{'index'})) {
  13         $delay = $conf->[$in{'index'}];
  14         }
  15 if ($in{'delete'}) {
  16         # delete this ACL
  17         splice(@delays, &indexof($delay, @delays), 1);
  18         }
  19 else {
  20         # update or create
  21         @vals = ( $in{'idx'}, $in{'action'} );
  22         foreach $y (split(/\0/, $in{'yes'})) { push(@vals, $y); }
  23         foreach $n (split(/\0/, $in{'no'})) { push(@vals, "!$n"); }
  24         $newdelay = { 'name' => 'delay_access', 'values' => \@vals };
  25         if ($delay) { splice(@delays, &indexof($delay, @delays), 1, $newdelay);}
  26         else { push(@delays, $newdelay); }
  27         }
  28 &save_directive($conf, "delay_access", \@delays);
  29 &flush_file_lines();
  30 &unlock_file($config{'squid_conf'});
  31 &webmin_log($in{'delete'} ? 'delete' : $delay ? 'modify' : 'create', "delay",
  32             $in{'idx'});
  33 &redirect("edit_pool.cgi?idx=$in{'idx'}");
  34