/[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.5 by gordonr, Mon Jan 9 07:07:14 2006 UTC Revision 1.7 by gordonr, Wed Feb 8 04:04:48 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.4 2005/11/10 19:44:12 gordonr Exp $  # $Id: update_rpms_dir,v 1.6 2006/01/12 23:12:35 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 22  my $rpms_dir = "/builds/RPMS"; Line 22  my $rpms_dir = "/builds/RPMS";
22  my @repositories = qw(  my @repositories = qw(
23                  /builds/rpms/RPMS/i386/                  /builds/rpms/RPMS/i386/
24                  /builds/rpms/RPMS/noarch/                  /builds/rpms/RPMS/noarch/
                 /mirrors/mitel/devel/repo/RPMS/  
25                  /mirrors/centos/4.2/updates/i386/RPMS/                  /mirrors/centos/4.2/updates/i386/RPMS/
26                  /mirrors/centos/4.2/os/i386/CentOS/RPMS/                  /mirrors/centos/4.2/os/i386/CentOS/RPMS/
27                  );                  );
# Line 67  sub find_newest Line 66  sub find_newest
66    
67      for my $file (@rpms)      for my $file (@rpms)
68      {      {
69            warn "\tExamining $dir/$file\n" if $opt{debug};
70    
71          my $candidate = RPM2->open_package("$dir/$file", $rpm_flags);          my $candidate = RPM2->open_package("$dir/$file", $rpm_flags);
72    
73          if ($candidate->name ne $name)          if ($candidate->name ne $name)
74          {          {
75              warn "Ignoring $file - name doesn't match\n" if $opt{debug};              warn "\tIgnoring $file - name doesn't match\n" if $opt{debug};
76              next;              next;
77          }          }
78    
79          if ( ($candidate cmp $rpm) <= 0)          if ( ($candidate cmp $rpm) <= 0)
80          {          {
81              warn "Ignoring $file - older or same version\n" if $opt{debug};              warn "\tIgnoring $file - older or same version\n" if $opt{debug};
82              next;              next;
83          }          }
84    
85          if (not defined $newest_hdr or ($candidate cmp $newest_hdr) > 0)          if (not defined $newest_hdr or ($candidate cmp $newest_hdr) > 0)
86          {          {
87              warn "Newest is $file\n" if $opt{debug};              warn "\tNewest is $file\n" if $opt{debug};
88              $newest_file = $file;              $newest_file = $file;
89              $newest_hdr = $candidate;              $newest_hdr = $candidate;
90          }          }

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