Viewing file:  edit_pool.cgi (5.17 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# edit_pool.cgi
# A form for editing or creating a delay pool
require './squid-lib.pl';
&ReadParse();
$access{'delay'} || &error($text{'delay_ecannot'});
$conf = &get_config();
if ($in{'new'}) {
&ui_print_header(undef, $text{'pool_title1'}, "", "edit_pool", 0, 0, 0,
&restart_button());
}
else {
&ui_print_header(undef, $text{'pool_title2'}, "", "edit_pool", 0, 0, 0,
&restart_button());
@pools = &find_config("delay_class", $conf);
($pool) = grep { $_->{'values'}->[0] == $in{'idx'} } @pools;
@params = &find_config("delay_parameters", $conf);
($param) = grep { $_->{'values'}->[0] == $in{'idx'} } @params;
@access = &find_config("delay_access", $conf);
@access = grep { $_->{'values'}->[0] == $in{'idx'} } @access;
}
print "<form action=save_pool.cgi>\n";
print "<input type=hidden name=new value='$in{'new'}'>\n";
print "<input type=hidden name=idx value='$in{'idx'}'>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'pool_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
print "<tr> <td><b>$text{'pool_num'}</b></td>\n";
if ($in{'new'}) {
$pools = &find_value("delay_pools", $conf);
print "<td>",$pools+1,"</td>\n";
}
else {
print "<td>$in{'idx'}</td>\n";
}
print "</tr>\n";
$cls = $pool->{'values'}->[1] || 1;
print "<tr> <td><b>$text{'pool_class'}</b></td>\n";
print "<td><select name=class>\n";
foreach $c (1 .. ($squid_version >= 3 ? 5 : 3)) {
printf "<option value=%s %s>%s - %s\n",
$c, $cls == $c ? "selected" : "",
$c, $text{"delay_class_$c"};
}
print "</select></td> </tr>\n";
print "<tr> <td><b>$text{'pool_agg'}</b></td>\n";
print "<td colspan=3>",&limit_field("agg",
$cls == 5 ? undef : $param->{'values'}->[1]),"</td>\n";
print "<tr> <td><b>$text{'pool_ind'}</b></td>\n";
print "<td colspan=3>",&limit_field("ind",
$param->{'values'}->[$cls == 2 ? 2 : 3]),"</td>\n";
print "<tr> <td><b>$text{'pool_net'}</b></td>\n";
print "<td colspan=3>",&limit_field("net",
$cls == 3 || $cls == 4 ? $param->{'values'}->[2] : undef),"</td>\n";
if ($squid_version >= 3) {
print "<tr> <td><b>$text{'pool_user'}</b></td>\n";
print "<td colspan=3>",&limit_field("user",
$cls == 4 ? $param->{'values'}->[4] : undef),"</td>\n";
print "<tr> <td><b>$text{'pool_tag'}</b></td>\n";
print "<td colspan=3>",&limit_field("tag",
$cls == 5 ? $param->{'values'}->[1] : undef),"</td>\n";
}
print "</table></td></tr></table>\n";
if (!$in{'new'}) {
print "<p><table border width=100%>\n";
print "<tr $tb> <td><b>$text{'pool_aclheader'}</b></td> </tr>\n";
print "<tr $cb> <td>\n";
if (@access) {
print "<table border width=100%>\n";
print "<tr $tb><td width=10%><b>$text{'eacl_act'}</b></td>\n";
print "<td><b>$text{'eacl_acls1'}</b></td>\n";
print "<td width=5%><b>$text{'eacl_move'}</b></td> </tr>\n";
$hc = 0;
foreach $h (@access) {
@v = @{$h->{'values'}};
if ($v[1] eq "allow") {
$v[1] = $text{'eacl_allow'};
} else {
$v[1] = $text{'eacl_deny'};
}
print "<tr $cb>\n";
print "<td><a href=\"pool_access.cgi?index=",
"$h->{'index'}&idx=$in{'idx'}\">$v[1]</a></td>\n";
print "<td>",&html_escape(join(' ', @v[2..$#v])),
"</td>\n";
print "<td>\n";
if ($hc != @access-1) {
print "<a href=\"move_pool.cgi?$hc+1+",
"$in{'idx'}\"><img src=images/down.gif ",
"border=0></a>";
}
else { print "<img src=images/gap.gif>"; }
if ($hc != 0) {
print "<a href=\"move_pool.cgi?$hc+-1+",
"$in{'idx'}\"><img src=images/up.gif ",
"border=0></a>";
}
print "</td></tr>\n";
$hc++;
}
print "</table>\n";
}
else {
print "<b>$text{'pool_noacl'}</b><p>\n";
}
print "<a href='pool_access.cgi?new=1&idx=$in{'idx'}'>",
"$text{'pool_add'}</a>\n";
print "</td></tr></table>\n";
}
print "<table width=100%><tr>\n";
if ($in{'new'}) {
print "<td><input type=submit value='$text{'create'}'></td>\n";
}
else {
print "<td><input type=submit value='$text{'save'}'></td>\n";
print "<td align=right><input type=submit name=delete ",
"value='$text{'delete'}'></td>\n";
}
print "</tr></table></form>\n";
&ui_print_footer("edit_delay.cgi", $text{'delay_return'},
"", $text{'index_return'});
# limit_field(name, value)
sub limit_field
{
local ($v1, $v2) = $_[1] =~ /^([0-9\-]+)\/([0-9\-]+)$/ ? ($1, $2) : ( -1, -1 );
local $unl = $v1 == -1 && $v2 == -1;
local $rv;
$rv .= sprintf "<input type=radio name=%s_def value=1 %s> %s\n",
$_[0], $unl ? "checked" : "", $text{'delay_unlimited'};
$rv .= sprintf "<input type=radio name=%s_def value=0 %s>\n",
$_[0], $unl ? "" : "checked";
$rv .= &unit_field("$_[0]_1", $unl ? "" : $v1).
$text{'pool_limit1'}." ";
$rv .= &unit_field("$_[0]_2", $unl ? "" : $v2).$text{'pool_limit2'};
return $rv;
}
# unit_field(name, value)
sub unit_field
{
local ($rv, $i, $u);
local @ud = ( .125, 1, 125, 1000, 125000, 1000000 );
if ($_[1] > 0) {
for($u=@ud-1; $u>=1; $u--) {
last if (!($_[1]%$ud[$u]));
}
}
else {
$u = 1;
}
$rv .= sprintf "<input name=%s_n size=8 value='%s'>\n",
$_[0], $_[1] > 0 ? $_[1]/$ud[$u] : $_[1];
$rv .= "<select name=$_[0]_u>\n";
for($i=0; $i<@ud; $i++) {
$rv .= sprintf "<option value=%s %s>%s\n",
$i, $i == $u ? "selected" : "", $text{'pool_unit'.$i};
}
$rv .= "</select>\n";
return $rv;
}
|