… | |
… | |
117 | |
117 | |
118 | if ($limit > $::NOW) { |
118 | if ($limit > $::NOW) { |
119 | Coro::Event::do_timer(after => $limit - $::NOW); |
119 | Coro::Event::do_timer(after => $limit - $::NOW); |
120 | |
120 | |
121 | if ($block->[2] > 30) { |
121 | if ($block->[2] > 30) { |
|
|
122 | $block->[3] = $::NOW + 180; |
122 | $status = 401; |
123 | $status = 401; |
123 | $hdr->{Warning} = "Please do NOT retry, you have been blocked. Press Cancel instead."; |
124 | $hdr->{Warning} = "Please do NOT retry, you have been blocked. Press Cancel instead."; |
124 | $hdr->{"WWW-Authenticate"} = "Basic realm=\"Please do NOT retry, you have been blocked. Press Cancel instead.\""; |
125 | $hdr->{"WWW-Authenticate"} = "Basic realm=\"Please do NOT retry, you have been blocked. Press Cancel instead.\""; |
125 | } |
126 | } |
126 | } |
127 | } |