| … | |
… | |
| 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 | } |
