| … | |
… | |
| 137 | if ($token =~ /!!(.*)/) { |
137 | if ($token =~ /!!(.*)/) { |
| 138 | return +(substr $pass, 0, 8) eq pack "H*", $1; |
138 | return +(substr $pass, 0, 8) eq pack "H*", $1; |
| 139 | } elsif ($token =~ /!(.*)/) { |
139 | } elsif ($token =~ /!(.*)/) { |
| 140 | return $pass eq pack "H*", $1; |
140 | return $pass eq pack "H*", $1; |
| 141 | } else { |
141 | } else { |
| 142 | return $token eq crypt $pass, $token; |
142 | return $token eq encode_password $pass; |
| 143 | } |
143 | } |
| 144 | } |
144 | } |
| 145 | |
145 | |
| 146 | # delete a player directory |
146 | # delete a player directory |
| 147 | sub nuke_playerdir { |
147 | sub nuke_playerdir { |
