Contents of /builds_bin/linksource

#!/usr/bin/perl

use strict;
use warnings;
use RPM2;
use File::Copy;
use Getopt::Std;

my %opts;
getopts( "s:d:", \%opts );
my $src = $opts{s} || '/builds/RPMS';
my $dest = $opts{d} || '/builds/SRPMS';

my $rpm_flags =  RPM2->vsf_nodsa;
my @repositories = qw( 
        /mirrors/centos/4/fasttrack/SRPMS
        /mirrors/centos/4/updates/SRPMS
        /mirrors/centos/4/os/SRPMS
        /mirrors/centos/4/extras/SRPMS
        /mirrors/rpmforge/dag/source/
        /mirrors/atrpms/src/el4-i386/atrpms/stable/
        /mirrors/fedora-legacy/fedora/3/updates/SRPMS/
        /mirrors/fedora-legacy/fedora/3/os/SRPMS/
        /builds/rpms/SRPMS/
        );

opendir RPMS, "$src" or die "Couldn't opendir $src";
my @rpms = map { RPM2->open_package("$src/$_", $rpm_flags) } grep { /\.rpm$/ } readdir RPMS;
closedir RPMS;

my %repos;
foreach my $repo (reverse @repositories)
{
    my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo );
    closedir RPMS;

    %repos = (%repos, %temp_repo);
}

foreach my $rpm ( sort @rpms )
{
    my (@headers, $header);

    my $rpmfix = $rpm;
    $rpmfix =~ s@\+@\\+@g;

    my @sources;
    my $src = $rpm->tag('SOURCERPM');
    push @sources, $src;
    push @sources, $src if ($src =~ s/\.2\.el4\.rf\./\.rf\./);
    push @sources, $src if ($src =~ s/\.el4\.rf\./\.rf\./);
    push @sources, $src if ($src =~ s/\.el4\.at\./\.at\./);
    push @sources, $src if ($src =~ s/\.rf\./\.dag\./);

    my $found = 0;
    foreach my $source ( @sources )
    {
        if( -f "$dest/$source" )
        {
            $found = 1;
            last;
        } else {
            if ($repos{$source})
            {
                my $fromfile = $repos{$source} . "/$source";
                $fromfile =~ s#//#/#g;
                `cp --preserve=timestamps $fromfile $dest/`;
                $found = 1;
                last;
            }

        }
    }
    print "can't find SRPM ($sources[0]) for $rpm\n" unless $found;
}
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5	use RPM2;
6	use File::Copy;
7	use Getopt::Std;
8
9	my %opts;
10	getopts( "s:d:", \%opts );
11	my $src = $opts{s} \|\| '/builds/RPMS';
12	my $dest = $opts{d} \|\| '/builds/SRPMS';
13
14	my $rpm_flags = RPM2->vsf_nodsa;
15	my @repositories = qw(
16	/mirrors/centos/4/fasttrack/SRPMS
17	/mirrors/centos/4/updates/SRPMS
18	/mirrors/centos/4/os/SRPMS
19	/mirrors/centos/4/extras/SRPMS
20	/mirrors/rpmforge/dag/source/
21	/mirrors/atrpms/src/el4-i386/atrpms/stable/
22	/mirrors/fedora-legacy/fedora/3/updates/SRPMS/
23	/mirrors/fedora-legacy/fedora/3/os/SRPMS/
24	/builds/rpms/SRPMS/
25	);
26
27	opendir RPMS, "$src" or die "Couldn't opendir $src";
28	my @rpms = map { RPM2->open_package("$src/$_", $rpm_flags) } grep { /\.rpm$/ } readdir RPMS;
29	closedir RPMS;
30
31	my %repos;
32	foreach my $repo (reverse @repositories)
33	{
34	my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo );
35	closedir RPMS;
36
37	%repos = (%repos, %temp_repo);
38	}
39
40	foreach my $rpm ( sort @rpms )
41	{
42	my (@headers, $header);
43
44	my $rpmfix = $rpm;
45	$rpmfix =~ s@\+@\\+@g;
46
47	my @sources;
48	my $src = $rpm->tag('SOURCERPM');
49	push @sources, $src;
50	push @sources, $src if ($src =~ s/\.2\.el4\.rf\./\.rf\./);
51	push @sources, $src if ($src =~ s/\.el4\.rf\./\.rf\./);
52	push @sources, $src if ($src =~ s/\.el4\.at\./\.at\./);
53	push @sources, $src if ($src =~ s/\.rf\./\.dag\./);
54
55	my $found = 0;
56	foreach my $source ( @sources )
57	{
58	if( -f "$dest/$source" )
59	{
60	$found = 1;
61	last;
62	} else {
63	if ($repos{$source})
64	{
65	my $fromfile = $repos{$source} . "/$source";
66	$fromfile =~ s#//#/#g;
67	`cp --preserve=timestamps $fromfile $dest/`;
68	$found = 1;
69	last;
70	}
71
72	}
73	}
74	print "can't find SRPM ($sources[0]) for $rpm\n" unless $found;
75	}