squid/edit_refresh.cgi

   1 #!/usr/local/bin/perl
   2 # A form for editing or creating a refresh pattern rule
   3
   4 require './squid-lib.pl';
   5 $access{'refresh'} || &error($text{'refresh_ecannot'});
   6 &ReadParse();
   7 $conf = &get_config();
   8
   9 if (!defined($in{'index'})) {
  10         &ui_print_header(undef, $text{'refresh_create'}, "",
  11                 undef, 0, 0, 0, &restart_button());
  12         }
  13 else {
  14         &ui_print_header(undef, $text{'refresh_edit'}, "",
  15                 undef, 0, 0, 0, &restart_button());
  16         @v = @{$conf->[$in{'index'}]->{'values'}};
  17         }
  18
  19 print "<form action=save_refresh.cgi>\n";
  20 if (@v) {
  21         print "<input type=hidden name=index value='$in{'index'}'>\n";
  22         }
  23 print "<table border>\n";
  24 print "<tr $tb> <td><b>$text{'refresh_header'}</b></td> </tr>\n";
  25 print "<tr $cb> <td><table>\n";
  26
  27 # Show regular expression inputs
  28 if ($v[0] eq "-i") {
  29         $caseless = shift(@v);
  30         }
  31 print "<tr> <td><b>$text{'refresh_re'}</b></td> <td colspan=3>\n";
  32 printf "<input name=re size=30 value='%s'></td> </tr>\n", $v[0];
  33
  34 print "<tr> <td></td> <td colspan=3>\n";
  35 printf "<input type=checkbox name=caseless value=1 %s> %s</td> </tr>\n",
  36         $caseless ? "checked" : "", $text{'refresh_caseless'};
  37
  38 # Show min, max and percentage
  39 print "<tr> <td><b>$text{'refresh_min'}</b></td>\n";
  40 printf "<td><input name=min size=6 value='%s'> %s</td>\n",
  41         $v[1], $text{'ec_mins'};
  42
  43 print "<td><b>$text{'refresh_max'}</b></td>\n";
  44 printf "<td><input name=max size=6 value='%s'> %s</td> </tr>\n",
  45         $v[3], $text{'ec_mins'};
  46
  47 $v[2] =~ s/\%$//;
  48 print "<tr> <td><b>$text{'refresh_pc'}</b></td>\n";
  49 printf "<td><input name=pc size=6 value='%s'> %%</td> </tr>\n",
  50         $v[2];
  51
  52 # Show options
  53 %opts = map { $_, 1 } @v[4..$#v];
  54 @known = ( "override-expire", "override-lastmod",
  55            "reload-into-ims", "ignore-reload" );
  56 print "<tr> <td valign=top><b>$text{'refresh_options'}</b></td> <td colspan=3>\n";
  57 foreach $k (@known) {
  58         printf "<input type=checkbox name=options value=%s %s> %s<br>\n",
  59                 $k, $opts{$k} ? "checked" : "", $text{'refresh_'.$k};
  60         delete($opts{$k});
  61         }
  62 foreach $u (keys %opts) {
  63         print "<input type=hidden name=options value=$k>\n";
  64         }
  65 print "</td> </tr>\n";
  66
  67 print "</table></td></tr></table>\n";
  68 print "<input type=submit value='$text{'buttsave'}'>\n";
  69 if (@v) {
  70         print "<input type=submit value='$text{'buttdel'}' name=delete>\n";
  71         }
  72 print "</form>\n";
  73
  74 &ui_print_footer("list_refresh.cgi", $text{'refresh_return'},
  75         "", $text{'index_return'});
  76