| … | |
… | |
| 133 | |
133 | |
| 134 | my ($num, $chksum, $name) = unpack "nNa*", $data; |
134 | my ($num, $chksum, $name) = unpack "nNa*", $data; |
| 135 | |
135 | |
| 136 | my $face = $self->{face}[$num] = { name => $name, chksum => $chksum }; |
136 | my $face = $self->{face}[$num] = { name => $name, chksum => $chksum }; |
| 137 | |
137 | |
| 138 | if (my $data = $self->face_find ($face)) { |
138 | if (my $data = $self->face_find ($num, $face)) { |
| 139 | $face->{image} = $data; |
139 | $face->{image} = $data; |
| 140 | $self->face_update ($num, $face); |
140 | $self->face_update ($num, $face); |
| 141 | } else { |
141 | } else { |
| 142 | $self->send_queue ("askface $num"); |
142 | $self->send_queue ("askface $num"); |
| 143 | } |
143 | } |
| … | |
… | |
| 517 | |
517 | |
| 518 | =cut |
518 | =cut |
| 519 | |
519 | |
| 520 | sub face_update { } |
520 | sub face_update { } |
| 521 | |
521 | |
| 522 | =item $conn->face_find ($face) [OVERWRITE] |
522 | =item $conn->face_find ($facenum, $facedata) [OVERWRITE] |
| 523 | |
523 | |
| 524 | Find and return the png image for the given face, or the empty list if no |
524 | Find and return the png image for the given face, or the empty list if no |
| 525 | face could be found, in which case it will be requested from the server. |
525 | face could be found, in which case it will be requested from the server. |
| 526 | |
526 | |
| 527 | =cut |
527 | =cut |
