+# Take an encoded url_encoded_fmt_stream_map and return a hash
+# matching video IDs to download URLs
+sub _decode_url_encoded_fmt_stream_map {
+ my $self = shift;
+ my $data = shift;
+ my $dataencoded = shift;
+ my @data;
+ my $h = {};
+
+ $data = $self->decode_hexurl($data) if $dataencoded;
+ # This will
+ # - Split the decoded string into segments (along ,)
+ # - Interpret each segment as a concatenated key-value list (key and value separated by =, pairs separated by &
+ # - URL-decode each key and value _again_
+ #
+ # @data will be an array of hash references
+
+ @data = map { { map { $self->decode_hexurl($_) } split /[&=]/ } } split /,/, $data;
+ $self->debug("_decode_url_encoded_fmt_stream_map() decoded %s", Dumper(\@data));
+
+ # From each array entry, pick the itag and the url values and return that
+ # as a hash reference
+
+
+ foreach (@data) {
+ if (exists($_->{'sig'})) {
+ $h->{$_->{'itag'}} = sprintf('%s&signature=%s', $_->{'url'}, $_->{'sig'});
+ } else {
+ $h->{$_->{'itag'}} = $_->{'url'};
+ }
+ }
+
+ return $h;
+}
+
+
+
+sub __pick_url {
+ my $self = shift;
+ my $urls = shift;
+ my $preflist = shift;
+ my $metadata = shift;
+
+ foreach (keys(%{$urls})) {
+ if (exists($videoformats{$_})) {
+ $self->debug('Found URL for format %s (%s): %s', $_, $videoformats{$_}, $urls->{$_});
+ } else {
+ $self->error('Unknown format %s: %s', $_, $urls->{$_});
+ }
+ }
+
+ foreach (@{$preflist}) {
+ if (exists($urls->{$_})) {
+ $self->debug("Selected URL with quality level %s", $_);
+ $metadata->{'DLURL'} = $urls->{$_};
+ if (exists($videoformats{$_})) {
+ $metadata->{'FORMAT'} = $videoformats{$_};
+ } else {
+ $metadata->{'FORMAT'} = 'unknown';
+ }
+ last;
+ }
+ }
+
+ $self->debug('URL found: %s', $metadata->{'DLURL'});
+}
+