squid/always_save.cgi

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