forked from pool/MozillaFirefox
d873e57e81
https://www.mozilla.org/en-US/firefox/131.0/releasenotes/ MFSA 2024-46 (bsc#1230979) * CVE-2024-9391 (bmo#1892407) Prevent users from exiting full-screen mode in Firefox Focus for Android * CVE-2024-9392 (bmo#1899154, bmo#1905843) Compromised content process can bypass site isolation * CVE-2024-9393 (bmo#1918301) Cross-origin access to PDF contents through multipart responses * CVE-2024-9394 (bmo#1918874) Cross-origin access to JSON contents through multipart responses * CVE-2024-9395 (bmo#1906024) Specially crafted filename could be used to obscure download type * CVE-2024-9396 (bmo#1912471) Potential memory corruption may occur when cloning certain objects * CVE-2024-9397 (bmo#1916659) Potential directory upload bypass via clickjacking * CVE-2024-9398 (bmo#1881037) External protocol handlers could be enumerated via popups * CVE-2024-9399 (bmo#1907726) Specially crafted WebTransport requests could lead to denial of service * CVE-2024-9400 (bmo#1915249) Potential memory corruption during JIT compilation * CVE-2024-9401 (bmo#1872744, bmo#1897792, bmo#1911317, bmo#1916476) Memory safety bugs fixed in Firefox 131, Firefox ESR 115.16, Firefox ESR 128.3, Thunderbird 131, and Thunderbird 128.3 * CVE-2024-9402 (bmo#1872744, bmo#1897792, bmo#1911317, bmo#1913445, bmo#1914106, bmo#1914475, bmo#1914963, bmo#1915008, bmo#1916476) OBS-URL: https://build.opensuse.org/package/show/mozilla:Factory/MozillaFirefox?expand=0&rev=1178
52 lines
1.1 KiB
Perl
52 lines
1.1 KiB
Perl
#!/usr/bin/perl -w
|
|
use XML::Simple;
|
|
|
|
my $file = shift || die "Usage: $0 [install.rdf|somefile.xpi]\n";
|
|
my $xml;
|
|
|
|
if ($file =~ /\.xpi$/) {
|
|
use Archive::Zip qw/:ERROR_CODES :CONSTANTS/;
|
|
my $zip = Archive::Zip->new();
|
|
if ( $zip->read($file) != AZ_OK ) {
|
|
die "zip file read error\n";
|
|
}
|
|
my $data = $zip->contents("install.rdf");
|
|
die "missing install.rdf in $file\n" unless $data;
|
|
$xml = XMLin($data) || die "$!\n";
|
|
} elsif ($file =~ /install.rdf/) {
|
|
$xml = XMLin($file) || die "$!\n";
|
|
} else {
|
|
die "unsupported file format\n";
|
|
}
|
|
|
|
my $desc;
|
|
for my $tag (qw/RDF:Description Description/) {
|
|
if (exists $xml->{$tag}) {
|
|
if (ref $xml->{$tag} eq 'ARRAY') {
|
|
$desc = $xml->{$tag};
|
|
} else {
|
|
$desc = [ $xml->{$tag} ];
|
|
}
|
|
}
|
|
}
|
|
|
|
my $uuid;
|
|
my $id;
|
|
for my $x (@$desc) {
|
|
if ($x->{"em:id"} =~ /{[[:xdigit:]]+-/) {
|
|
print STDERR "Warning: multiple uuids!\n" if defined $uuid;
|
|
$uuid = $x->{"em:id"};
|
|
} elsif ($x->{"em:id"} =~ /@/) {
|
|
print STDERR "Warning: multiple ids!\n" if defined $id;
|
|
$id = $x->{"em:id"};
|
|
}
|
|
}
|
|
|
|
if (defined $id) {
|
|
print "$id\n";
|
|
} elsif (defined $uuid) {
|
|
print "$uuid\n";
|
|
} else {
|
|
exit 1;
|
|
}
|