4 unshift @INC, ($::ENV{'BUILD_DIR'} || '/usr/lib/build');
15 return if $pkg->{'arch'} eq 'src' || $pkg->{'arch'} eq 'nosrc';
16 my $id = sprintf("%s.%s-%d/%d/%d: ",
22 print sprintf('F:%s%ssuse/%s/%s',$id,$pkg->{'baseurl'},
23 $pkg->{'arch'}, $pkg->{'location'}), "\n";
25 print "P:$id".$pkg->{'provides'}."\n";
26 print "R:$id".$pkg->{'requires'}."\n";
28 my $tag = sprintf("%s-%s-%s %s",
32 # $pkg->{'rpm:buildhost'},
40 $pkg->{'provides'} = [] unless exists $pkg->{'provides'};
41 # add self provides (rpm3 misses that)
42 my $n = $pkg->{'name'};
43 if(substr($pkg->{'arch'}, -3) ne 'src' && !scalar grep(/^\Q$n\E( =.*)?$/,@{$pkg->{'provides'}}))
45 push @{$pkg->{'provides'}}, sprintf("%s = %s-%s", $pkg->{'name'}, $pkg->{'version'}, $pkg->{'release'});
47 $pkg->{'provides'} = join(' ', @{$pkg->{'provides'}});
48 $pkg->{'requires'} = join(' ', @{$pkg->{'requires'}}) if $pkg->{'requires'};
49 $pkg->{'baseurl'} = $url;
50 my @data = split(' ', $pkg->{'location'});
51 # multi cd support hack
53 if($pkg->{'baseurl'} =~ /1\/$/ && $num ne 0) {
54 $pkg->{'baseurl'} =~ s/1\/$/$num\//;
56 $pkg->{'location'} = $data[1];
65 if ($url =~ /^zypp:\/\/([^\/]*)\/?/) {
67 my $repo = Build::Zypp::parsecfg($1);
68 die "can't parse $1\n" unless $repo;
69 die "only yast2 repos supported\n" unless $repo->{'type'} eq 'yast2';
70 my $name = $repo->{'name'};
71 $dir = "/var/cache/zypp/raw/$name/";
76 # a really fucked up system
77 # if (-e $url."/yast/order") {
78 # if(open(F, '<', $url."/yast/order")) {
82 # my ($a, $b) = split(/ /);
86 # push @ARGV, $url.$a;
87 # $found_products = 1;
88 # print STDERR "$url -> $url$a\n";
92 # next if $found_products;
95 # XXX: location is actually defined in content file
96 my $packages = $dir.'/suse/setup/descr/packages';
98 $url .= '/' unless $url =~ /\/$/;
101 my $pkgs = Build::Susetags::parse($packages,
102 { 'Loc' => 'location', 'Prv' => 'provides', 'Req' => 'requires', 'Tim' => 'buildtime' },
103 { cb => \&callback, data => $url });