Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:adrianSuSE
build
createzyppdeps
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File createzyppdeps 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 strict; use Build::Zypp; use Build::Options; my $cachedir = "/var/cache/build"; my $options = { 'listrepos' => '', 'cachedir' => ':' }; my ($opts, @args) = Build::Options::parse_options($options, @ARGV); $cachedir = $opts->{'cachedir'} if $opts->{'cachedir'}; if ($opts->{'listrepos'}) { die("createzyppdeps --listrepos does not take arguments\n") if @args; for my $r (Build::Zypp::parseallrepos()) { print "$r->{'name'}\n" if $r->{'enabled'}; } exit 0; } die("createzyppdeps needs exactly one argument\n") if @args != 1; my $url = $args[0]; die("createzyppdeps argument must start with 'zypp://'\n") unless $url =~ /^zypp:\/\/([^\/]*)/; my $repo = Build::Zypp::parserepo($1); my $type = $repo->{'type'}; my $zyppcachedir = "/var/cache/zypp/raw/$repo->{'name'}"; if (!$type) { $type = 'yast2' if -e "$zyppcachedir/suse/setup/descr"; $type = 'rpm-md' if -e "$zyppcachedir/repodata"; } die("could not determine repo type for '$repo->{'name'}'\n") unless $type; if($type eq 'rpm-md') { exec ("$INC[0]/createrepomddeps", '--cachedir', $cachedir, '--zypp', $zyppcachedir, $url); } elsif ($type eq 'yast2') { exec ("$INC[0]/createyastdeps", '--cachedir', $cachedir, '--zypp', $zyppcachedir, $url); } else { die "unsupported repo type '$type' for '$repo->{'name'}'\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