version 1.290, 2014/07/27 11:14:36
|
version 1.291, 2014/07/27 11:39:33
|
Line 841 sub fix_ids_and_indices {
|
Line 841 sub fix_ids_and_indices {
|
} |
} |
} |
} |
} |
} |
|
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; |
|
} |
|
} |
|
} |
|
} |
$outstring .= $script; |
$outstring .= $script; |
} |
} |
} |
} |