Annotation of /builds_bin/update_rpms_dir

#!/usr/bin/perl -w
#
# Copyright (c) 2005 Gormand Pty Ltd. All rights reserved. This program
# is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.
#
# $Id: update_rpms_dir,v 1.3 2005/10/14 00:18:34 gordonr Exp $
#
# Update RPMS directory with the latest from a given list of directories

use RPM2;
use Getopt::Long;

my $rpm_flags =  RPM2->vsf_nodsa;       # Deal with missing DSA keys

GetOptions(\%opt, "verbose");

# XXX - FIXME - These will be command line options

my $rpms_dir = "/builds/RPMS";

my @repositories = qw( 
                /builds/rpms/RPMS/i386/
                /builds/rpms/RPMS/noarch/
                /mirrors/mitel/devel/repo/RPMS/
                /mirrors/centos/4.2/updates/i386/RPMS/
                /mirrors/centos/4.2/os/i386/CentOS/RPMS/
                );

chdir $rpms_dir or die "Couldn't chdir $rpms_dir";

opendir RPMS, '.' or die "Couldn't opendir $rpms_dir";

for my $file ( sort grep { /.rpm$/ } readdir RPMS )
{
    warn "Checking $file:\n" if $opt{verbose};

    my $rpm = RPM2->open_package($file, $rpm_flags);

    for my $dir ( @repositories )
    {
        my $newest = find_newest($rpm, $dir);

        if ($newest)
        {
            # XXX - FIXME - Should we try other repos, or stop here?
            warn "rm $rpms_dir/$file; cp -p $dir/$newest $rpms_dir\n"
        }       
    }
}

sub find_newest
{
    my ($rpm, $dir) = @_;

    # XXX - FIXME - Need to cater for multiple architectures

    my $name = $rpm->name;
    $name =~ s/\+/\\+/g;        # libstdc++ and friends

    opendir DIR, $dir or die "Couldn't opendir $dir";
    my @rpms = grep { /^${name}-.*.rpm$/ } readdir DIR;
    closedir DIR;

    my $newest_file = undef;
    my $newest_hdr = undef;

    for my $file (@rpms)
    {
        my $candidate = RPM2->open_package("$dir/$file", $rpm_flags);

        if ($candidate->name ne $name)
        {
            warn "Ignoring $file - name doesn't match\n" if $opt{verbose};
            next;
        }

        if ( ($candidate cmp $rpm) <= 0)
        {
            warn "Ignoring $file - older or same version\n" if $opt{verbose};
            next;
        }

        if (not defined $newest_hdr or ($candidate cmp $newest_hdr) < 0)
        {
            warn "Newest is $file\n" if $opt{verbose};
            $newest_file = $file;
            $newest_hdr = $candidate;
        }
    }

    return $newest_file;
}
1	gordonr	1.1	#!/usr/bin/perl -w
2			#
3			# Copyright (c) 2005 Gormand Pty Ltd. All rights reserved. This program
4			# is free software; you can redistribute it and/or modify it under the
5			# same terms as Perl itself.
6			#
7	gordonr	1.4	# $Id: update_rpms_dir,v 1.3 2005/10/14 00:18:34 gordonr Exp $
8	gordonr	1.1	#
9			# Update RPMS directory with the latest from a given list of directories
10
11			use RPM2;
12			use Getopt::Long;
13
14			my $rpm_flags = RPM2->vsf_nodsa; # Deal with missing DSA keys
15
16			GetOptions(\%opt, "verbose");
17
18			# XXX - FIXME - These will be command line options
19
20			my $rpms_dir = "/builds/RPMS";
21
22			my @repositories = qw(
23			/builds/rpms/RPMS/i386/
24			/builds/rpms/RPMS/noarch/
25			/mirrors/mitel/devel/repo/RPMS/
26	gordonr	1.4	/mirrors/centos/4.2/updates/i386/RPMS/
27			/mirrors/centos/4.2/os/i386/CentOS/RPMS/
28	gordonr	1.1	);
29
30			chdir $rpms_dir or die "Couldn't chdir $rpms_dir";
31
32			opendir RPMS, '.' or die "Couldn't opendir $rpms_dir";
33
34			for my $file ( sort grep { /.rpm$/ } readdir RPMS )
35			{
36			warn "Checking $file:\n" if $opt{verbose};
37
38			my $rpm = RPM2->open_package($file, $rpm_flags);
39
40			for my $dir ( @repositories )
41			{
42			my $newest = find_newest($rpm, $dir);
43
44			if ($newest)
45			{
46			# XXX - FIXME - Should we try other repos, or stop here?
47	gordonr	1.3	warn "rm $rpms_dir/$file; cp -p $dir/$newest $rpms_dir\n"
48	gordonr	1.1	}
49			}
50			}
51
52			sub find_newest
53			{
54			my ($rpm, $dir) = @_;
55
56			# XXX - FIXME - Need to cater for multiple architectures
57
58			my $name = $rpm->name;
59			$name =~ s/\+/\\+/g; # libstdc++ and friends
60
61			opendir DIR, $dir or die "Couldn't opendir $dir";
62			my @rpms = grep { /^${name}-.*.rpm$/ } readdir DIR;
63			closedir DIR;
64
65			my $newest_file = undef;
66			my $newest_hdr = undef;
67
68			for my $file (@rpms)
69			{
70			my $candidate = RPM2->open_package("$dir/$file", $rpm_flags);
71
72			if ($candidate->name ne $name)
73			{
74			warn "Ignoring $file - name doesn't match\n" if $opt{verbose};
75			next;
76			}
77
78			if ( ($candidate cmp $rpm) <= 0)
79			{
80			warn "Ignoring $file - older or same version\n" if $opt{verbose};
81			next;
82			}
83
84			if (not defined $newest_hdr or ($candidate cmp $newest_hdr) < 0)
85			{
86			warn "Newest is $file\n" if $opt{verbose};
87			$newest_file = $file;
88			$newest_hdr = $candidate;
89			}
90			}
91
92			return $newest_file;
93			}