Merge branch 'next'

This commit is contained in:
Arne Fitzenreiter
2014-10-04 13:53:49 +02:00
4 changed files with 17 additions and 4 deletions

View File

@@ -131,6 +131,12 @@ sub print_rule {
print "\n";
}
sub count_elements {
my $hash = shift;
return scalar @$hash;
}
sub flush {
run("$IPTABLES -F $CHAIN_INPUT");
run("$IPTABLES -F $CHAIN_FORWARD");
@@ -186,6 +192,9 @@ sub buildrules {
# Skip disabled rules.
next unless ($$hash{$key}[2] eq 'ON');
# Count number of elements in this line
my $elements = &count_elements($$hash{$key});
if ($DEBUG) {
print_rule($$hash{$key});
}
@@ -270,7 +279,8 @@ sub buildrules {
# Concurrent connection limit
my @ratelimit_options = ();
if ($$hash{$key}[32] eq 'ON') {
if (($elements gt 34) && ($$hash{$key}[32] eq 'ON')) {
my $conn_limit = $$hash{$key}[33];
if ($conn_limit ge 1) {
@@ -286,7 +296,7 @@ sub buildrules {
}
# Ratelimit
if ($$hash{$key}[34] eq 'ON') {
if (($elements gt 37) && ($$hash{$key}[34] eq 'ON')) {
my $rate_limit = "$$hash{$key}[35]/$$hash{$key}[36]";
if ($rate_limit) {

View File

@@ -0,0 +1 @@
../../../common/squid

View File

@@ -32,6 +32,7 @@ do
done
# Stop services
/etc/init.d/squid stop
/etc/init.d/dnsmasq stop
# Remove old files
@@ -41,6 +42,7 @@ extract_files
# Start services
/etc/init.d/dnsmasq start
/etc/init.d/squid start
# Update Language cache
perl -e "require '/var/ipfire/lang.pl'; &Lang::BuildCacheLang"

View File

@@ -24,7 +24,7 @@
include Config
VER = 3.4.7
VER = 3.4.8
THISAPP = squid-$(VER)
DL_FILE = $(THISAPP).tar.xz
@@ -40,7 +40,7 @@ objects = $(DL_FILE)
$(DL_FILE) = $(DL_FROM)/$(DL_FILE)
$(DL_FILE)_MD5 = 74677634121649ccb87a5655fcd4298d
$(DL_FILE)_MD5 = b0c4335447248810169f58ea4d8b204a
install : $(TARGET)