version 1.290, 2014/07/27 11:14:36
|
version 1.293, 2014/08/03 14:20:38
|
Line 726 sub fix_ids_and_indices {
|
Line 726 sub fix_ids_and_indices {
|
foreach my $type ('src','href','background','bgimg') { |
foreach my $type ('src','href','background','bgimg') { |
foreach my $key (keys(%parms)) { |
foreach my $key (keys(%parms)) { |
if ($key =~ /^$type$/i) { |
if ($key =~ /^$type$/i) { |
|
next if (($lctag eq 'img') && ($type eq 'src') && |
|
($parms{$key} =~ m{^data\:image/gif;base64,})); |
$parms{$key}=&set_allow(\%allow,$logfile, |
$parms{$key}=&set_allow(\%allow,$logfile, |
$target,$tag, |
$target,$tag, |
$parms{$key},$type); |
$parms{$key},$type); |
Line 823 sub fix_ids_and_indices {
|
Line 825 sub fix_ids_and_indices {
|
# |
# |
my $spritesheet = $1.'express_show/spritesheet.png'; |
my $spritesheet = $1.'express_show/spritesheet.png'; |
$allow{&absoluteurl($spritesheet,$target)}=1; |
$allow{&absoluteurl($spritesheet,$target)}=1; |
|
|
|
# |
|
# Camtasia 8.4: skins/express_show/spritesheet.min.css needed, and included in zip archive. |
|
# Not referenced directly in <main>.html or <main>_player.html files, |
|
# so add this file to %allow (where <main> is name user gave to file/archive). |
|
# |
|
my $spritecss = $1.'express_show/spritesheet.min.css'; |
|
$allow{&absoluteurl($spritecss,$target)}=1; |
} |
} |
} elsif ($srctype eq 'PosterImageSrc') { |
} elsif ($srctype eq 'PosterImageSrc') { |
if ($url =~ m{^(.+)_First_Frame\.png$}) { |
if ($url =~ m{^(.+)_First_Frame\.png$}) { |
Line 841 sub fix_ids_and_indices {
|
Line 851 sub fix_ids_and_indices {
|
} |
} |
} |
} |
} |
} |
|
if ($script =~ m{\.addMediaSrc\((["'])((?!\1).+)\1\);}) { |
|
my $src = $2; |
|
if ($src) { |
|
my $url = &urlfixup($src); |
|
unless ($url=~m{^(?:http|https|ftp)://}) { |
|
$allow{&absoluteurl($url,$target)}=1; |
|
} |
|
} |
|
} |
|
if ($script =~ /\(document,\s*(['"])script\1,\s*\[([^\]]+)\]\);/s) { |
|
my $scriptslist = $2; |
|
my @srcs = split(/\s*,\s*/,$scriptslist); |
|
foreach my $src (@srcs) { |
|
if ($src =~ /(["'])(?:(?!\1).)+\.js\1/) { |
|
my $quote = $1; |
|
my ($url) = ($src =~ m/\Q$quote\E([^$quote]+)\Q$quote\E/); |
|
$url = &urlfixup($url); |
|
unless ($url=~m{^(?:http|https|ftp)://}) { |
|
$allow{&absoluteurl($url,$target)}=1; |
|
} |
|
} |
|
} |
|
} |
|
if ($script =~ m{loadScript\(\s*(['"])((?:(?!\1).)+\.js)\1,\s*function}is) { |
|
my $src = $2; |
|
if ($src) { |
|
my $url = &urlfixup($src); |
|
unless ($url=~m{^(?:http|https|ftp)://}) { |
|
$allow{&absoluteurl($url,$target)}=1; |
|
} |
|
} |
|
} |
$outstring .= $script; |
$outstring .= $script; |
} |
} |
} |
} |