/[smeserver]/builds_bin/linksource
ViewVC logotype

Diff of /builds_bin/linksource

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

Revision 1.1.1.1 by gordonr, Thu Sep 15 23:55:09 2005 UTC Revision 1.2 by gordonr, Fri Jun 30 22:58:12 2006 UTC
# Line 7  use File::Copy; Line 7  use File::Copy;
7    
8  my $rpm_flags =  RPM2->vsf_nodsa;  my $rpm_flags =  RPM2->vsf_nodsa;
9  my @repositories = qw(  my @repositories = qw(
10            /mirrors/centos/4/fasttrack/SRPMS/
11          /mirrors/centos/4/updates/SRPMS/          /mirrors/centos/4/updates/SRPMS/
12          /mirrors/centos/4/os/SRPMS/          /mirrors/centos/4/os/SRPMS/
13          /mirrors/centos/4/dag/SRPMS/          /mirrors/dag/source/
14          /mirrors/centos/4/atrpms/SRPMS/SRPMS.stable/          /mirrors/atrpms/src/el4-i386/atrpms/SRPMS.stable/
15          /mirrors/centos/4/dries/SRPMS/          /mirrors/centos/4/dries/SRPMS/
16          /mirrors/fedora/updates/3/SRPMS/          /mirrors/fedora/updates/3/SRPMS/
17          /mirrors/fedora/3/SRPMS/          /mirrors/fedora/3/SRPMS/
         /mirrors/mitel/devel/repo/SRPMS/  
18          /builds/rpms/SRPMS/          /builds/rpms/SRPMS/
19            /mirrors/mitel/devel/repo/SRPMS/
20          );          );
21    
22  opendir RPMS, "/builds/RPMS" or die "Couldn't opendir /builds/RPMS";  opendir RPMS, "/builds/RPMS" or die "Couldn't opendir /builds/RPMS";
# Line 42  foreach my $rpm ( sort keys %rpms ) Line 43  foreach my $rpm ( sort keys %rpms )
43      my $src = $rpms{$rpm}->tag('SOURCERPM');      my $src = $rpms{$rpm}->tag('SOURCERPM');
44      push @sources, $src;      push @sources, $src;
45      push @sources, $src if ($src =~ s/\.2\.el4\.rf\./\.rf\./);      push @sources, $src if ($src =~ s/\.2\.el4\.rf\./\.rf\./);
46        push @sources, $src if ($src =~ s/\.el4\.rf\./\.rf\./);
47      push @sources, $src if ($src =~ s/\.rf\./\.dag\./);      push @sources, $src if ($src =~ s/\.rf\./\.dag\./);
48    
49      my $found = 0;      my $found = 0;
# Line 56  foreach my $rpm ( sort keys %rpms ) Line 58  foreach my $rpm ( sort keys %rpms )
58              {              {
59                  my $fromfile = $repos{$source} . "/$source";                  my $fromfile = $repos{$source} . "/$source";
60                  $fromfile =~ s#//#/#g;                  $fromfile =~ s#//#/#g;
61                  `ln -s $fromfile /builds/SRPMS/`;                  `cp -pl $fromfile /builds/SRPMS/`;
62                  $found = 1;                  $found = 1;
63                  last;                  last;
64              }              }

Legend:
Removed lines/characters  
Changed lines/characters
  Added lines/characters
admin@koozali.org
 ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed