MozillaFirefox/mozilla-get-app-id
Wolfgang Rosenauer a409d8adda - add mozilla-python313.patch to fix build with python 3.13+
* CVE-2018-12371 (bmo#1465686)
  * modifies the crash protection feature to increase the amount
    of time that plugins are allowed to be non-responsive before
  * firefox-bug506901.patch
- improve UI colors to be usable with dark themes at all
- added KDE integration patch from llunak@novell.com
  (firefox-kde.patch)
  * support for knotify, making -kde4-addon obsolete
  especially KDE integration:
  * added the ability to set the KDE default browser
  * MFSA 2009-05/CVE-2009-0357: XMLHttpRequest allows reading
  * MFSA 2009-04/CVE-2009-0356: Chrome privilege escalation via
  * MFSA 2009-02/CVE-2009-0354: XSS using a chrome XBL method
  * MFSA 2009-01/CVE-2009-0352 - CVE-2009-0353: Crashes with
    evidence of memory corruption (rv:1.9.0.6) (bmo#452913,
  * Make sure the search bar is not put back when resetting the
- Update to stability/security release 3.0.1 (bnc#407573)
  + MFSA 2008-35 Command-line URLs launch multiple tabs when
- Set browser.shell.checkDefaultBrowser to true (bnc#404119)
- fix hardlinks accross partitions
- move last change a bit further in specfile
- Mark a .png file as nonexecutable.
    * MFSA 2007-26  Privilege escalation through chrome-loaded
- Fixes bnc #295677
- added unzip to BuildRequires
- updated tango theme
    Resuming your browsing session, Previewing and subscribing
    Improved Add-ons manager, JavaScript 1.7, Extended search

OBS-URL: https://build.opensuse.org/package/show/mozilla:Factory/MozillaFirefox?expand=0&rev=1190
2024-11-25 10:56:51 +00:00

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;
}