Manfred Hollstein
d9c3f594b3
* Fixed: Various security fixes. - Mozilla Firefox ESR 128.7.0 https://www.mozilla.org/security/advisories/mfsa2025-09 MFSA 2025-09 (boo#1236539) * CVE-2025-1009 (bmo#1936613) Use-after-free in XSLT * CVE-2025-1010 (bmo#1936982) Use-after-free in Custom Highlight * CVE-2025-1011 (bmo#1936454) A bug in WebAssembly code generation could result in a crash * CVE-2025-1012 (bmo#1939710) Use-after-free during concurrent delazification * CVE-2024-11704 (bmo#1899402) Potential double-free vulnerability in PKCS#7 decryption handling * CVE-2025-1013 (bmo#1932555) Potential opening of private browsing tabs in normal browsing windows * CVE-2025-1014 (bmo#1940804) Certificate length was not properly checked * CVE-2025-1016 (bmo#1936601, bmo#1936844, bmo#1937694, bmo#1938469, bmo#1939583, bmo#1940994) Memory safety bugs fixed in Firefox 135, Thunderbird 135, Firefox ESR 115.20, Firefox ESR 128.7, Thunderbird 115.20, and Thunderbird 128.7 * CVE-2025-1017 (bmo#1926256, bmo#1935471, bmo#1935984) Memory safety bugs fixed in Firefox 135, Thunderbird 135, Firefox ESR 128.7, and Thunderbird 128.7 OBS-URL: https://build.opensuse.org/package/show/mozilla:Factory/firefox-esr?expand=0&rev=34
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;
|
|
}
|