/[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.11 by gordonr, Mon Mar 6 04:02:12 2006 UTC Revision 1.14 by gordonr, Wed Apr 19 06:25:05 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.10 2006/02/14 04:08:46 gordonr Exp $  # $Id: update_rpms_dir,v 1.13 2006/03/28 05:34:48 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 25  warn "Using $rpms_dir\n" if $opt{verbose Line 25  warn "Using $rpms_dir\n" if $opt{verbose
25    
26  my @repositories = qw(  my @repositories = qw(
27                  /builds/rpms/RPMS/i386/                  /builds/rpms/RPMS/i386/
28                    /builds/rpms/RPMS/i586/
29                    /builds/rpms/RPMS/i686/
30                  /builds/rpms/RPMS/noarch/                  /builds/rpms/RPMS/noarch/
31                  /mirrors/centos/4.2/updates/i386/RPMS/                  /mirrors/centos/4/updates/i386/RPMS/
32                  /mirrors/centos/4.2/os/i386/CentOS/RPMS/                  /mirrors/centos/4/os/i386/CentOS/RPMS/
33                  );                  );
34    
35  chdir $rpms_dir or die "Couldn't chdir $rpms_dir";  chdir $rpms_dir or die "Couldn't chdir $rpms_dir";
# Line 80  sub find_newest Line 82  sub find_newest
82              next;              next;
83          }          }
84    
85            if ($candidate->arch ne $rpm->arch)
86            {
87                warn "\tIgnoring $file - arch "
88                    . $candidate->arch .  " want " . $rpm->arch . "\n"
89                    if $opt{debug};
90                next;
91            }
92    
93          if ( ($candidate cmp $rpm) <= 0)          if ( ($candidate cmp $rpm) <= 0)
94          {          {
95              warn "\tIgnoring $file - older or same version\n" if $opt{debug};              warn "\tIgnoring $file - older or same version\n" if $opt{debug};

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