| … | |
… | |
| 36 | my $level = $pl->ob->level; |
36 | my $level = $pl->ob->level; |
| 37 | |
37 | |
| 38 | ($level <= 3 && $age > 7 * 86400) # 7 days for level 0..3 |
38 | ($level <= 3 && $age > 7 * 86400) # 7 days for level 0..3 |
| 39 | || ($level <= 9 && $age > 90 * 86400) # 3 months for level 4..9 |
39 | || ($level <= 9 && $age > 90 * 86400) # 3 months for level 4..9 |
| 40 | || ($level <= 20 && $age > 180 * 86400) # 6 months for level 10..20 |
40 | || ($level <= 20 && $age > 180 * 86400) # 6 months for level 10..20 |
| 41 | || $age > 700 * 86400 # 2 years for everybody else |
41 | #|| $age > 700 * 86400 # 2 years for everybody else |
| 42 | } |
42 | } |
| 43 | |
43 | |
| 44 | # return a guard object for a lock on the given username, if available |
44 | # return a guard object for a lock on the given username, if available |
| 45 | sub login_guard { |
45 | sub login_guard { |
| 46 | my ($user) = @_; |
46 | my ($user) = @_; |
