| … | … | ||
|---|---|---|---|
| 73 | $r | 73 | $r |
| 74 | } | 74 | } |
| 75 | 75 | ||
| 76 | # this handler handles to notice the player that he has got mail | 76 | # this handler handles to notice the player that he has got mail |
| 77 | sub on_login { | 77 | sub on_login { |
| 78 | my ($pl, $host) = @_; | 78 | my ($pl) = @_; |
| 79 | 79 | ||
| 80 | my $mails = CFMail::get_mail ($pl->ob->name); | 80 | my $mails = CFMail::get_mail ($pl->ob->name); |
| 81 | 81 | ||
| 82 | my $cnt = @{$mails || []}; | 82 | my $cnt = @{$mails || []}; |
| 83 | 83 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |