100 lines
2.0 KiB
Perl
100 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
require LWP::UserAgent;
|
|
use LWP::Simple;
|
|
use RegExp::List;
|
|
use File::stat;
|
|
use File::Basename;
|
|
use List::MoreUtils qw(uniq);
|
|
|
|
my $HTML5_URL = "https://hg.mozilla.org/mozilla-central/raw-file/tip/parser/html/nsHtml5AtomList.h";
|
|
my $GECKO_URL = "https://hg.mozilla.org/mozilla-central/raw-file/tip/xpcom/ds/nsGkAtomList.h";
|
|
|
|
my $HERE = dirname($0);
|
|
my $SOURCE_FILE = $HERE . '/src/xss/InjectionChecker.js';
|
|
|
|
sub create_re
|
|
{
|
|
my $cache = "$HERE/html5_events.re";
|
|
my $sb = stat($cache);
|
|
|
|
if ($sb && time() - $sb->mtime < 86400)
|
|
{
|
|
open IN, "<$cache";
|
|
my @content = <IN>;
|
|
close IN;
|
|
return $content[0];
|
|
}
|
|
|
|
sub fetch_url
|
|
{
|
|
my $url = shift(@_);
|
|
my $ua = LWP::UserAgent->new;
|
|
$ua->agent('Mozilla/5.0');
|
|
$ua->ssl_opts('verify_hostname' => 0);
|
|
my $res = $ua->get($url);
|
|
if ($res->is_success)
|
|
{
|
|
return $res->decoded_content;
|
|
}
|
|
else
|
|
{
|
|
my $err = $res->content;
|
|
my $ca_file = $ua->ssl_opts('SSL_ca_file');
|
|
die ("Could not fetch $url: $err\n$ca_file");
|
|
}
|
|
}
|
|
|
|
|
|
my $content = # fetch_url($HTML5_URL) .
|
|
fetch_url($GECKO_URL);
|
|
|
|
$content = join("\n", grep(/^(?:HTML5|GK)_ATOM.*"on\w+"/, split(/[\n\r]/, $content)));
|
|
|
|
$content =~ s/.*"(on\w+)".*/$1 /g;
|
|
$content =~ s/\s+/ /g;
|
|
$content =~ s/^\s+|\s+$//g;
|
|
|
|
my $l = Regexp::List->new;
|
|
my $re = $l->list2re(uniq(split(' ', $content)));
|
|
$re =~ s/\(\?[-^]\w+:(.*)\)/$1/;
|
|
open (OUT, ">$cache");
|
|
print OUT $re;
|
|
close OUT;
|
|
$re;
|
|
}
|
|
|
|
sub patch
|
|
{
|
|
my $src = shift;
|
|
my $dst = "$src.tmp";
|
|
my $re = create_re();
|
|
my $must_replace = 0;
|
|
print "Patching $src...\n";
|
|
open IN, "<$src" or die ("Can't open $src!");
|
|
open OUT, ">$dst" or die ("Can't open $dst!");
|
|
|
|
while (<IN>)
|
|
{
|
|
my $line = $_;
|
|
$must_replace = $line ne $_ if s/^(\s*const IC_EVENT_PATTERN\s*=\s*")([^"]+)/$1$re/;
|
|
|
|
print OUT $_;
|
|
}
|
|
close IN;
|
|
close OUT;
|
|
|
|
if ($must_replace) {
|
|
rename $dst, $src;
|
|
print "Patched.\n";
|
|
}
|
|
else
|
|
{
|
|
unlink $dst;
|
|
print "Nothing to do.\n";
|
|
}
|
|
}
|
|
|
|
patch($SOURCE_FILE);
|