added <releaseyear> substitution parameter

Year of programm original release if available, else <firstbcastyear>

Author: notnac

get_iplayer

@@ -5014,6 +5014,9 @@ sub get_verpids {
 	if ( ( ! $prog->{type} || $prog->{type} eq 'tv' ) ) {
 		$rc_html = $prog->get_verpids_html( $ua );
 	}
+	elsif ( $prog->{type} eq 'radio' ) {
+		$rc_html = $prog->get_verpids_html_radio( $ua );
+	}
 	# ensure title info extracted
 	$prog->parse_title();
 	return 0 if ! $rc_json || ! $rc_html;
@@ -5093,6 +5096,22 @@ sub get_verpids_json {
 	return 0;
 }
 
+sub get_verpids_html_radio {
+	my ( $prog, $ua ) = @_;
+	my $pid = $prog->{pid};
+	my $html;
+	my $url = "https://www.bbc.co.uk/sounds/play/$pid";
+	main::logger "INFO: Sounds metadata URL (HTML) [$version] = $url\n" if $opt->{verbose};
+	$html = main::request_url_retry( $ua, $url, 3, undef, undef, undef, undef, 1 );
+	if ( ! $html ) {
+		main::logger "\nINFO: No metadata retrieved from Sounds site (HTML)\n" if $opt->{verbose};
+		return;
+	}
+	unless ( $prog->{releaseyear} ) {
+ 		$prog->{releaseyear} = $1 if $html =~ /<div.*?><span.*?>Released On.*?<\/span>.*?(\d{4})<\/div>/i;
+	}
+}
+
 # Return hash of version => verpid given a PID
 # and fill in minimal metadata
 # Scrapes HTML from episode page: https://www.bbc.co.uk/iplayer/episode/<pid>
@@ -5112,6 +5131,9 @@ sub get_verpids_html {
 			main::logger "\nINFO: No metadata for '$version' version retrieved from iPlayer site (HTML)\n" if $opt->{verbose};
 			next;
 		}
+		unless ( $prog->{releaseyear} ) {
+			$prog->{releaseyear} = $1 if $html =~ /<span.*?>First shown<\/span><span.*?>.*?(\d{4})<\/span>/i;
+		}
 		my $config = $1 if $html =~ /bind\(\{\s*"player":(.*?)\<\/script\>/s;
 		unless ($config) {
 			$config = $1 if $html =~ /data-playable='(.*?)'/s;
@@ -5437,6 +5459,7 @@ sub get_metadata {
 	$prog->{series} = "Series $seriesnum" if $seriesnum && $prog->{series} && $prog->{nameshort} && $prog->{series} eq $prog->{nameshort};
 	$prog->{series} ||= "Series $seriesnum" if $seriesnum;
 	$prog->{seriessort} = $prog->{series} || $prog->{firstbcastyear};
+	$prog->{releaseyear} ||= $prog->{firstbcastyear};
 
 	# Do this for each version tried in this order (if they appeared in the content)
 	for my $version ( sort keys %{ $prog->{verpids} } ) {