Process .avi using rclimg

This commit is contained in:
Jean-Francois Dockes 2019-03-05 14:00:58 +01:00
parent bacbdce8b8
commit 9709836300
3 changed files with 18 additions and 6 deletions

View File

@ -27,6 +27,7 @@
#
$tagMap = {
'subject' => 'subject',
'comment' => 'description',
'title' => 'title',
'headline' => 'title',
'caption' => 'caption',
@ -71,17 +72,26 @@ sub imgTagsToHtml {
foreach $tagname ( sort keys %{$info} ) {
$xapiantag = xapianTag($tagname);
if (defined $xapiantag ) {
push @{$fields}, [ $xapiantag, $info->{$tagname} ];
if ($xapiantag eq 'title') {
$titleHtmlTag = "<title>$info->{$tagname}</title>";
}
push @{$other}, [ $tagname, $info->{$tagname} ] if $headAndBody;
if ($titleHtmlTag) {
$titleHtmlTag = $titleHtmlTag . " - $info->{$tagname}";
} else {
$titleHtmlTag = $info->{$tagname};
}
} else {
push @{$fields}, [ $xapiantag, $info->{$tagname} ];
}
push @{$other}, [ $tagname, $info->{$tagname} ] if $headAndBody;
} else {
push @{$other}, [ $tagname, $info->{$tagname} ];
}
}
$output = "<html>\n<head>\n$titleHtmlTag\n" .
"<meta http-equiv=\"Content-Type\" content=\"text/html;charset=UTF-8\">\n";
$output = "<html>\n<head>\n";
if ($titleHtmlTag) {
$output = $output . "<title>" . $titleHtmlTag . "</title>\n";
}
$output = $output .
"<meta http-equiv=\"Content-Type\" content=\"text/html;charset=UTF-8\">\n";
foreach $tagpair ( @{$fields} ) {
($tagname, $value) = @{$tagpair};
$output = $output . "<meta name=\"$tagname\" content=\"$value\">\n";

View File

@ -139,6 +139,7 @@ audio/ape = execm rclaudio
audio/mpeg = execm rclaudio
audio/mp4 = execm rclaudio
video/mp4 = execm rclaudio
video/x-msvideo = execm rclimg
audio/aac = execm rclaudio
audio/x-karaoke = execm rclkar
audio/x-wavpack = execm rclaudio

View File

@ -174,6 +174,7 @@
.ogv = video/ogg
.flv = video/x-flv
.mp4 = video/mp4
.avi = video/x-msvideo
.ts = video/MP2T
.png = image/png