… | |
… | |
74 | |
74 | |
75 | if (defined $meta_json) { |
75 | if (defined $meta_json) { |
76 | my $meta = $self->{json_coder}->decode ($meta_json); |
76 | my $meta = $self->{json_coder}->decode ($meta_json); |
77 | $meta->{path} = $path; |
77 | $meta->{path} = $path; |
78 | $self->{music_meta}{$chksum} = $meta; |
78 | $self->{music_meta}{$chksum} = $meta; |
|
|
79 | &::audio_music_set ($self->{songs}); |
79 | } else { |
80 | } else { |
80 | ::message ({ markup => "starting to download song #$face/$pri, check your output-rate setting if your connection gets laggy." }); |
81 | ::message ({ markup => "starting to download song #$face/$pri, check your output-rate setting if your connection gets laggy." }); |
81 | $self->ask_face ($face, -100 - $pri, undef, sub { |
82 | $self->ask_face ($face, -100 - $pri, undef, sub { |
82 | my $len = length $_[1]; |
83 | my $len = length $_[1]; |
83 | my ($meta_json, $data) = unpack "(w/a*)*", $_[1]; |
84 | my ($meta_json, $data) = unpack "(w/a*)*", $_[1]; |