Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:adrianSuSE
build
listinstalled
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File listinstalled of Package build
#!/usr/bin/perl -w ################################################################ # # Copyright (c) 1995-2014 SUSE Linux Products GmbH # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License version 2 or 3 as # published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program (see the file COPYING); if not, write to the # Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA # ################################################################ BEGIN { unshift @INC, ($::ENV{'BUILD_DIR'} || '/usr/lib/build'); } use Build; use Build::Options; use strict; my $options = { 'root' => ':', 'type' => ':', 'extraname' => '', }; my ($opts) = Build::Options::parse_options($options, @ARGV); $opts->{'type'} ||= 'rpm'; my $ql = Build::queryinstalled($opts->{'type'}, $opts->{'root'}); die("cannot get list of installed packages for type $opts->{'type'}\n") unless $ql; for my $q (@$ql) { next unless defined($q->{'name'}) && defined($q->{'arch'}); next if $q->{'arch'} eq 'src' || $q->{'arch'} eq 'nosrc'; my $id = "$q->{'name'}.$q->{'arch'}-0/0/0: "; my $evr = $q->{'version'}; $evr = "$q->{'epoch'}:$evr" if $q->{'epoch'}; $evr .= "-$q->{'release'}" if defined $q->{'release'}; my $buildtime = $q->{'buildtime'} || 0; if ($opts->{'extraname'}) { print "I:$id$q->{'name'} $q->{'name'}-$evr $buildtime-$q->{'arch'}\n"; } else { print "I:$id$q->{'name'}-$evr $buildtime-$q->{'arch'}\n"; } }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor