squid/never_save.cgi

   1 #!/usr/local/bin/perl
   2 # never_save.cgi
   3 # Save or delete an never_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 @never = &find_config("never_direct", $conf);
  12 if (defined($in{'index'})) {
  13         $never = $conf->[$in{'index'}];
  14         }
  15 if ($in{'delete'}) {
  16         # delete this restriction
  17         splice(@never, &indexof($never, @never), 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         $newnever = { 'name' => 'never_direct', 'values' => \@vals };
  25         if ($never) { splice(@never, &indexof($never, @never),
  26                               1, $newnever); }
  27         else { push(@never, $newnever); }
  28         }
  29 &save_directive($conf, "never_direct", \@never);
  30 &flush_file_lines();
  31 &unlock_file($config{'squid_conf'});
  32 &webmin_log($in{'delete'} ? 'delete' : $never ? 'modify' : 'create', "never");
  33 &redirect("edit_icp.cgi");
  34