… | |
… | |
113 | $status = 401; |
113 | $status = 401; |
114 | $hdr->{Warning} = "Please do NOT retry, your IP has been blocked due to excessive hammering. Press Cancel instead."; |
114 | $hdr->{Warning} = "Please do NOT retry, your IP has been blocked due to excessive hammering. Press Cancel instead."; |
115 | $hdr->{"WWW-Authenticate"} = "Basic realm=\"Please do NOT retry, you IP has been blocked due to excessive hammering. Press Cancel instead.\""; |
115 | $hdr->{"WWW-Authenticate"} = "Basic realm=\"Please do NOT retry, you IP has been blocked due to excessive hammering. Press Cancel instead.\""; |
116 | |
116 | |
117 | if ($block->[2] > 40) { |
117 | if ($block->[2] > 40) { |
118 | system "/root/s/dynablock --add $self->{remote_ip} $::DYNABLOCK &"; |
118 | system "/root/s/dynablock --add $self->{remote_addr} $::DYNABLOCK &"; |
119 | } |
119 | } |
120 | } |
120 | } |
121 | } |
121 | } |
122 | |
122 | |
123 | $self->err($status, $block->[1], $hdr, |
123 | $self->err($status, $block->[1], $hdr, |