Annotation of /bin/findlatest

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