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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!/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::Susetags;
use Getopt::Long;
use strict;
Getopt::Long::Configure("no_ignore_case");
sub print_pkg($)
{
my $pkg = shift;
return if $pkg->{'arch'} eq 'src' || $pkg->{'arch'} eq 'nosrc';
my $id = sprintf("%s.%s-%d/%d/%d: ",
$pkg->{'name'},
$pkg->{'arch'},
$pkg->{'buildtime'},
0,
0);
print sprintf('F:%s%ssuse/%s/%s',$id,$pkg->{'baseurl'},
$pkg->{'arch'}, $pkg->{'location'}), "\n";
print "P:$id".$pkg->{'provides'}."\n";
print "R:$id".$pkg->{'requires'}."\n";
my $tag = sprintf("%s-%s-%s %s",
$pkg->{'name'},
$pkg->{'version'},
$pkg->{'release'},
# $pkg->{'rpm:buildhost'},
$pkg->{'buildtime'});
print "I:$id$tag\n";
}
sub callback
{
my ($pkg, $url) = @_;
$pkg->{'provides'} = [] unless exists $pkg->{'provides'};
# add self provides (rpm3 misses that)
my $n = $pkg->{'name'};
if(substr($pkg->{'arch'}, -3) ne 'src' && !scalar grep(/^\Q$n\E( =.*)?$/,@{$pkg->{'provides'}}))
{
push @{$pkg->{'provides'}}, sprintf("%s = %s-%s", $pkg->{'name'}, $pkg->{'version'}, $pkg->{'release'});
}
$pkg->{'provides'} = join(' ', @{$pkg->{'provides'}});
$pkg->{'requires'} = join(' ', @{$pkg->{'requires'}}) if $pkg->{'requires'};
$pkg->{'baseurl'} = $url;
my @data = split(' ', $pkg->{'location'});
# multi cd support hack
my $num = $data[0];
if($pkg->{'baseurl'} =~ /1\/$/ && $num ne 0) {
$pkg->{'baseurl'} =~ s/1\/$/$num\//;
}
$pkg->{'location'} = $data[1];
print_pkg($pkg);
return 0;
}
### main
my $opt_zypp;
my $cachedir = "/var/cache/build";
GetOptions (
"zypp=s" => \$opt_zypp,
"cachedir=s" => \$cachedir,
) or exit(1);
for my $url (@ARGV) {
my $dir;
if ($opt_zypp) {
$dir = $opt_zypp;
} else {
$dir = $url;
}
$dir .= '/' unless $dir =~ /\/$/;
$url .= '/' unless $url =~ /\/$/;
# XXX: use descrdir from content file
my $packages = $dir.'suse/setup/descr/packages';
my @order = ();
my $pkgs = Build::Susetags::parse($packages,
{ 'Loc' => 'location', 'Prv' => 'provides', 'Req' => 'requires', 'Tim' => 'buildtime' },
{ cb => \&callback, data => $url });
}
|
