| 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.5 2005/09/13 06:32:13 gordonr Exp $ |
# $Id: update_rpms_dir,v 1.3 2005/10/14 00:18:34 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 |
|
|
| 23 |
/builds/rpms/RPMS/i386/ |
/builds/rpms/RPMS/i386/ |
| 24 |
/builds/rpms/RPMS/noarch/ |
/builds/rpms/RPMS/noarch/ |
| 25 |
/mirrors/mitel/devel/repo/RPMS/ |
/mirrors/mitel/devel/repo/RPMS/ |
| 26 |
/mirrors/centos/4.1/updates/i386/RPMS/ |
/mirrors/centos/4.2/updates/i386/RPMS/ |
| 27 |
/mirrors/centos/4.1/os/i386/CentOS/RPMS/ |
/mirrors/centos/4.2/os/i386/CentOS/RPMS/ |
| 28 |
); |
); |
| 29 |
|
|
| 30 |
chdir $rpms_dir or die "Couldn't chdir $rpms_dir"; |
chdir $rpms_dir or die "Couldn't chdir $rpms_dir"; |
| 44 |
if ($newest) |
if ($newest) |
| 45 |
{ |
{ |
| 46 |
# XXX - FIXME - Should we try other repos, or stop here? |
# XXX - FIXME - Should we try other repos, or stop here? |
| 47 |
warn "=====> cd $rpms_dir; rm $file; cp $dir/$newest .\n" |
warn "rm $rpms_dir/$file; cp -p $dir/$newest $rpms_dir\n" |
| 48 |
} |
} |
| 49 |
} |
} |
| 50 |
} |
} |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
