| … | |
… | |
| 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_addr} $::DYNABLOCK &"; |
118 | system "/root/s/dynablock --dur $::DYNABLOCK --add $self->{remote_addr} &"; |
| 119 | } |
119 | } |
| 120 | } |
120 | } |
| 121 | } |
121 | } |
| 122 | |
122 | |
| 123 | $self->err($status, $block->[1], $hdr, |
123 | $self->err($status, $block->[1], $hdr, |
