| … | |
… | |
| 689 | ::message { markup => "Server has no newer version." }; |
689 | ::message { markup => "Server has no newer version." }; |
| 690 | } |
690 | } |
| 691 | } else { |
691 | } else { |
| 692 | ::message { markup => "Server does not support software update." }; |
692 | ::message { markup => "Server does not support software update." }; |
| 693 | } |
693 | } |
| 694 | |
|
|
| 695 | # $self->register_face_handler ($exp_table, sub { |
|
|
| 696 | # my ($face) = @_; |
|
|
| 697 | |
|
|
| 698 | # $self->{exp_table} = $self->{json_coder}->decode (delete $face->{data}); |
|
|
| 699 | # $_->() for values %{ $self->{on_exp_update} || {} }; |
|
|
| 700 | # }); |
|
|
| 701 | |
694 | |
| 702 | () |
695 | () |
| 703 | }); |
696 | }); |
| 704 | } |
697 | } |
| 705 | |
698 | |
