/[smeserver]/builds_bin/update_rpms_dir
ViewVC logotype

Diff of /builds_bin/update_rpms_dir

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

Revision 1.14 by gordonr, Wed Apr 19 06:25:05 2006 UTC Revision 1.15 by slords, Sat Dec 2 17:19:10 2006 UTC
# Line 4  Line 4 
4  # is free software; you can redistribute it and/or modify it under the  # is free software; you can redistribute it and/or modify it under the
5  # same terms as Perl itself.  # same terms as Perl itself.
6  #  #
7  # $Id: update_rpms_dir,v 1.13 2006/03/28 05:34:48 gordonr Exp $  # $Id: update_rpms_dir,v 1.14 2006/04/19 06:25:05 gordonr Exp $
8  #  #
9  # Update RPMS directory with the latest from a given list of directories  # Update RPMS directory with the latest from a given list of directories
10    
# Line 28  my @repositories = qw( Line 28  my @repositories = qw(
28                  /builds/rpms/RPMS/i586/                  /builds/rpms/RPMS/i586/
29                  /builds/rpms/RPMS/i686/                  /builds/rpms/RPMS/i686/
30                  /builds/rpms/RPMS/noarch/                  /builds/rpms/RPMS/noarch/
31                    /mirrors/centos/4/fasttrack/i386/RPMS/
32                  /mirrors/centos/4/updates/i386/RPMS/                  /mirrors/centos/4/updates/i386/RPMS/
33                  /mirrors/centos/4/os/i386/CentOS/RPMS/                  /mirrors/centos/4/os/i386/CentOS/RPMS/
34                  );                  );
# Line 63  sub find_newest Line 64  sub find_newest
64      my $name = $rpm->name;      my $name = $rpm->name;
65      $name =~ s/\+/\\+/g;        # libstdc++ and friends      $name =~ s/\+/\\+/g;        # libstdc++ and friends
66    
67      opendir DIR, $dir or die "Couldn't opendir $dir";      unless (opendir DIR, $dir)
68        {
69            warn "Couldn't opendir $dir";
70            return;
71        }
72    
73      my @rpms = sort grep { /^${name}-.*.rpm$/ } readdir DIR;      my @rpms = sort grep { /^${name}-.*.rpm$/ } readdir DIR;
74      closedir DIR;      closedir DIR;
75    

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