/[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.8 by gordonr, Sun Feb 12 05:01:05 2006 UTC Revision 1.10 by gordonr, Tue Feb 14 04:08:46 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.7 2006/02/08 04:04:48 gordonr Exp $  # $Id: update_rpms_dir,v 1.9 2006/02/12 05:06:41 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 19  GetOptions(\%opt, "verbose", "debug", "r Line 19  GetOptions(\%opt, "verbose", "debug", "r
19    
20  my $rpms_dir = $opt{rpms_dir} || "/builds/RPMS";  my $rpms_dir = $opt{rpms_dir} || "/builds/RPMS";
21    
22  warn "Using $rpms_dir\n" if $opt{debug};  warn "Using $rpms_dir\n" if $opt{verbose};
23    
24  my @repositories = qw(  my @repositories = qw(
25                  /builds/rpms/RPMS/i386/                  /builds/rpms/RPMS/i386/
# Line 45  for my $file ( sort grep { /.rpm$/ } rea Line 45  for my $file ( sort grep { /.rpm$/ } rea
45          if ($newest)          if ($newest)
46          {          {
47              # XXX - FIXME - Should we try other repos, or stop here?              # XXX - FIXME - Should we try other repos, or stop here?
48              warn "rm $rpms_dir/$file; cp -p $dir/$newest $rpms_dir\n"              print "rm $rpms_dir/$file; cp -p $dir/$newest $rpms_dir\n"
49          }                }      
50      }      }
51  }  }

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