1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/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 Getopt::Long;
use strict;
Getopt::Long::Configure("no_ignore_case");
my $cachedir = "/var/cache/build";
my $opt_listrepos;
GetOptions(
"cachedir=s" => \$cachedir,
"listrepos" => \$opt_listrepos,
) or exit(1);
if ($opt_listrepos) {
die("createzyppdeps --listrepos does not take an argument\n") if @ARGV;
opendir(D, "/etc/zypp/repos.d") || exit(0);
my @r = grep {!/^\./ && /.repo$/} readdir(D);
closedir D;
@r = sort @r;
for my $r (@r) {
open(F, '<', "/etc/zypp/repos.d/$r") || next;
my $reponame;
my $enabled;
while(<F>) {
chomp;
next if /^\s*#/;
s/\s+$//;
if (/^\[(.*)\]$/) {
print "$reponame\n" if defined($reponame) && $enabled;
$reponame = $1;
$enabled = undef;
} elsif (/enabled=\s*(\S+)/) {
$enabled = $1;
}
}
print "$reponame\n" if defined($reponame) && $enabled;
close F;
}
exit(0);
}
die("createzyppdeps needs exactly one argument\n") if @ARGV != 1;
my $url = $ARGV[0];
die("createzyppdeps argument must start with 'zypp://'\n") unless $url =~ /^zypp:\/\/([^\/]*)/;
my $repo = Build::Zypp::parserepo($1);
die("can't parse $1\n") unless $repo;
my $type = $repo->{'type'};
my $zyppcachedir = "/var/cache/zypp/raw/$repo->{'name'}";
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\n";
}
|
