|
Lines 23-28
use warnings;
Link Here
|
| 23 |
use C4::Context; |
23 |
use C4::Context; |
| 24 |
use MARC::Field; |
24 |
use MARC::Field; |
| 25 |
use Koha::Upload; |
25 |
use Koha::Upload; |
|
|
26 |
use WWW::YouTube::Download qw(playback_url); |
| 26 |
|
27 |
|
| 27 |
=head1 HTML5Media |
28 |
=head1 HTML5Media |
| 28 |
|
29 |
|
|
Lines 48-54
sub gethtml5media {
Link Here
|
| 48 |
my $HTML5MediaParent; |
49 |
my $HTML5MediaParent; |
| 49 |
my $HTML5MediaWidth; |
50 |
my $HTML5MediaWidth; |
| 50 |
my @HTML5MediaExtensions = split( /\|/, C4::Context->preference("HTML5MediaExtensions") ); |
51 |
my @HTML5MediaExtensions = split( /\|/, C4::Context->preference("HTML5MediaExtensions") ); |
|
|
52 |
my $HTML5MediaYouTube = C4::Context->preference("HTML5MediaYouTube"); |
| 51 |
my $marcflavour = C4::Context->preference("marcflavour"); |
53 |
my $marcflavour = C4::Context->preference("marcflavour"); |
|
|
54 |
my $isyoutube = 0; |
| 52 |
foreach my $HTML5Media_field (@HTML5Media_fields) { |
55 |
foreach my $HTML5Media_field (@HTML5Media_fields) { |
| 53 |
my %HTML5Media; |
56 |
my %HTML5Media; |
| 54 |
# protocol |
57 |
# protocol |
|
Lines 96-107
sub gethtml5media {
Link Here
|
| 96 |
# src |
99 |
# src |
| 97 |
if ( $HTML5Media_field->subfield('u') ) { |
100 |
if ( $HTML5Media_field->subfield('u') ) { |
| 98 |
$HTML5Media{srcblock} = $HTML5Media_field->subfield('u'); |
101 |
$HTML5Media{srcblock} = $HTML5Media_field->subfield('u'); |
|
|
102 |
if (grep /youtube/, $HTML5Media_field->subfield('u') ) { # TODO is there an official YT URL shortener? Can we use that too? |
| 103 |
if ($HTML5MediaYouTube == 1) { |
| 104 |
my $youtube = WWW::YouTube::Download->new; |
| 105 |
$HTML5Media{srcblock} = $youtube->playback_url( |
| 106 |
$HTML5Media_field->subfield('u'), { |
| 107 |
'fmt' => '43' #webm is the only format compatible to all modern browsers. maybe check for available qualities |
| 108 |
} |
| 109 |
); |
| 110 |
# TODO handle error if format not availabe. Does that ever occur? |
| 111 |
$isyoutube = 1; |
| 112 |
} |
| 113 |
else { |
| 114 |
next; # do not embed youtube videos |
| 115 |
} |
| 116 |
} |
| 99 |
} |
117 |
} |
| 100 |
elsif ( $HTML5Media_field->subfield('a') && $HTML5Media_field->subfield('d') && $HTML5Media_field->subfield('f') ) { |
118 |
elsif ( $HTML5Media_field->subfield('a') && $HTML5Media_field->subfield('d') && $HTML5Media_field->subfield('f') ) { |
| 101 |
$HTML5Media{host} = $HTML5Media_field->subfield('a'); |
119 |
$HTML5Media{host} = $HTML5Media_field->subfield('a'); |
| 102 |
$HTML5Media{host} =~ s/(^\/|\/$)//g; |
120 |
$HTML5Media{host} =~ s/(^\/|\/$)//g; |
| 103 |
$HTML5Media{path} = $HTML5Media_field->subfield('d'); |
121 |
$HTML5Media{path} = $HTML5Media_field->subfield('d'); |
| 104 |
$HTML5Media{path} =~ s/(^\/|\/$)//g; |
122 |
$HTML5Media{path} =~ s/(^\/|\/$)//g; # TODO we could check for youtube here too, but nobody uses these fields anyway… |
| 105 |
$HTML5Media{file} = $HTML5Media_field->subfield('f'); |
123 |
$HTML5Media{file} = $HTML5Media_field->subfield('f'); |
| 106 |
$HTML5Media{srcblock} = $HTML5Media{protocol} . '://' . $HTML5Media{loginblock} . $HTML5Media{host} . $HTML5Media{portblock} . '/' . $HTML5Media{path} . '/' . $HTML5Media{file}; |
124 |
$HTML5Media{srcblock} = $HTML5Media{protocol} . '://' . $HTML5Media{loginblock} . $HTML5Media{host} . $HTML5Media{portblock} . '/' . $HTML5Media{path} . '/' . $HTML5Media{file}; |
| 107 |
} |
125 |
} |
|
Lines 122-130
sub gethtml5media {
Link Here
|
| 122 |
else { |
140 |
else { |
| 123 |
$HTML5Media{extension} = ($HTML5Media{srcblock} =~ m/([^.]+)$/)[0]; |
141 |
$HTML5Media{extension} = ($HTML5Media{srcblock} =~ m/([^.]+)$/)[0]; |
| 124 |
} |
142 |
} |
| 125 |
if ( !grep /\Q$HTML5Media{extension}\E/, @HTML5MediaExtensions ) { |
143 |
if ( ( !grep /\Q$HTML5Media{extension}\E/, @HTML5MediaExtensions ) && ( $isyoutube != 1) ) { |
| 126 |
next; # not a specified media file |
144 |
next; # not a specified media file |
| 127 |
} |
145 |
} |
|
|
146 |
# youtube |
| 147 |
if ($isyoutube == 1) { |
| 148 |
$HTML5Media{mime} = 'video/webm'; |
| 149 |
} |
| 128 |
# mime |
150 |
# mime |
| 129 |
if ( $HTML5Media_field->subfield('c') ) { |
151 |
if ( $HTML5Media_field->subfield('c') ) { |
| 130 |
$HTML5Media{codecs} = $HTML5Media_field->subfield('c'); |
152 |
$HTML5Media{codecs} = $HTML5Media_field->subfield('c'); |
|
Lines 156-162
sub gethtml5media {
Link Here
|
| 156 |
} |
178 |
} |
| 157 |
if ( $HTML5Media{extension} eq 'oga' ) { |
179 |
if ( $HTML5Media{extension} eq 'oga' ) { |
| 158 |
$HTML5Media{mime} = 'audio/ogg'; |
180 |
$HTML5Media{mime} = 'audio/ogg'; |
| 159 |
$HTML5Media{codecs} = 'vorbis'; |
181 |
$HTML5Media{codecs} = 'vorbis'; |
| 160 |
} |
182 |
} |
| 161 |
elsif ( $HTML5Media{extension} eq 'spx' ) { |
183 |
elsif ( $HTML5Media{extension} eq 'spx' ) { |
| 162 |
$HTML5Media{mime} = 'audio/ogg'; |
184 |
$HTML5Media{mime} = 'audio/ogg'; |