Process .avi using rclimg
This commit is contained in:
parent
bacbdce8b8
commit
9709836300
@ -27,6 +27,7 @@
|
|||||||
#
|
#
|
||||||
$tagMap = {
|
$tagMap = {
|
||||||
'subject' => 'subject',
|
'subject' => 'subject',
|
||||||
|
'comment' => 'description',
|
||||||
'title' => 'title',
|
'title' => 'title',
|
||||||
'headline' => 'title',
|
'headline' => 'title',
|
||||||
'caption' => 'caption',
|
'caption' => 'caption',
|
||||||
@ -71,17 +72,26 @@ sub imgTagsToHtml {
|
|||||||
foreach $tagname ( sort keys %{$info} ) {
|
foreach $tagname ( sort keys %{$info} ) {
|
||||||
$xapiantag = xapianTag($tagname);
|
$xapiantag = xapianTag($tagname);
|
||||||
if (defined $xapiantag ) {
|
if (defined $xapiantag ) {
|
||||||
push @{$fields}, [ $xapiantag, $info->{$tagname} ];
|
|
||||||
if ($xapiantag eq 'title') {
|
if ($xapiantag eq 'title') {
|
||||||
$titleHtmlTag = "<title>$info->{$tagname}</title>";
|
if ($titleHtmlTag) {
|
||||||
}
|
$titleHtmlTag = $titleHtmlTag . " - $info->{$tagname}";
|
||||||
push @{$other}, [ $tagname, $info->{$tagname} ] if $headAndBody;
|
} else {
|
||||||
|
$titleHtmlTag = $info->{$tagname};
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
push @{$fields}, [ $xapiantag, $info->{$tagname} ];
|
||||||
|
}
|
||||||
|
push @{$other}, [ $tagname, $info->{$tagname} ] if $headAndBody;
|
||||||
} else {
|
} else {
|
||||||
push @{$other}, [ $tagname, $info->{$tagname} ];
|
push @{$other}, [ $tagname, $info->{$tagname} ];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$output = "<html>\n<head>\n$titleHtmlTag\n" .
|
$output = "<html>\n<head>\n";
|
||||||
"<meta http-equiv=\"Content-Type\" content=\"text/html;charset=UTF-8\">\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} ) {
|
foreach $tagpair ( @{$fields} ) {
|
||||||
($tagname, $value) = @{$tagpair};
|
($tagname, $value) = @{$tagpair};
|
||||||
$output = $output . "<meta name=\"$tagname\" content=\"$value\">\n";
|
$output = $output . "<meta name=\"$tagname\" content=\"$value\">\n";
|
||||||
|
|||||||
@ -139,6 +139,7 @@ audio/ape = execm rclaudio
|
|||||||
audio/mpeg = execm rclaudio
|
audio/mpeg = execm rclaudio
|
||||||
audio/mp4 = execm rclaudio
|
audio/mp4 = execm rclaudio
|
||||||
video/mp4 = execm rclaudio
|
video/mp4 = execm rclaudio
|
||||||
|
video/x-msvideo = execm rclimg
|
||||||
audio/aac = execm rclaudio
|
audio/aac = execm rclaudio
|
||||||
audio/x-karaoke = execm rclkar
|
audio/x-karaoke = execm rclkar
|
||||||
audio/x-wavpack = execm rclaudio
|
audio/x-wavpack = execm rclaudio
|
||||||
|
|||||||
@ -174,6 +174,7 @@
|
|||||||
.ogv = video/ogg
|
.ogv = video/ogg
|
||||||
.flv = video/x-flv
|
.flv = video/x-flv
|
||||||
.mp4 = video/mp4
|
.mp4 = video/mp4
|
||||||
|
.avi = video/x-msvideo
|
||||||
.ts = video/MP2T
|
.ts = video/MP2T
|
||||||
|
|
||||||
.png = image/png
|
.png = image/png
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user