Annotation of /bin/findlatest

#! /usr/local/bin/perl
#
# Giuseppe Vacanti, January 2000
#
# Find latest CCf packages.
#
use strict;
use Env qw(HOME);


my $pkgdir="$HOME/deliveries/packages";

my %pkglist = ();

chdir($pkgdir) || die;
foreach(glob("*.tgz")){
    if(/(.*)-(\d+\.\d+)\.tgz/){
        if(not exists $pkglist{$1}){
            $pkglist{$1} = [];
        }
        push @{$pkglist{$1}}, $2;
    } else {
        warn("File $_ does not seem to be a CCF package.\n");
    }
}

foreach(keys %pkglist){
    my @topv = sort versionally @{$pkglist{$_}};
    my $topv = shift @topv;
    print "$pkgdir/$_-$topv.tgz\n";
}

sub versionally
{
    my ($a1,$a2) = split /\./, $a;
    my ($b1,$b2) = split /\./, $b;

    my $biga = $a1 * 1000 + $a2;
    my $bigb = $b1 * 1000 + $b2;
    
    return $bigb <=> $biga;
}
1	ccflib	1.1	#! /usr/local/bin/perl
2			#
3			# Giuseppe Vacanti, January 2000
4			#
5			# Find latest CCf packages.
6			#
7			use strict;
8			use Env qw(HOME);
9
10
11			my $pkgdir="$HOME/deliveries/packages";
12
13			my %pkglist = ();
14
15			chdir($pkgdir) \|\| die;
16			foreach(glob("*.tgz")){
17			if(/(.*)-(\d+\.\d+)\.tgz/){
18			if(not exists $pkglist{$1}){
19			$pkglist{$1} = [];
20			}
21			push @{$pkglist{$1}}, $2;
22			} else {
23			warn("File $_ does not seem to be a CCF package.\n");
24			}
25			}
26
27			foreach(keys %pkglist){
28			my @topv = sort versionally @{$pkglist{$_}};
29			my $topv = shift @topv;
30			print "$pkgdir/$_-$topv.tgz\n";
31			}
32
33			sub versionally
34			{
35			my ($a1,$a2) = split /\./, $a;
36			my ($b1,$b2) = split /\./, $b;
37
38			my $biga = $a1 * 1000 + $a2;
39			my $bigb = $b1 * 1000 + $b2;
40
41			return $bigb <=> $biga;
42			}