#!/usr/bin/perl --
use strict;
use warnings;
use CPANPLUS::Internals::Utils ;
use DBI;
Main( @ARGV );
exit( 0 );
sub Main {
    my @snaps = @_;
    my %U;
    my $db = CPANPLUS::Internals::Utils->_home_dir . '\.cpanplus\db.sql'; 
    
warn "db is $db
snaps is @snaps
";
    
    my $dbh = DBI->connect(
        qq!dbi:SQLite:dbname=$db!,
        undef, undef, { RaiseError => 1, PrintError => 1, },
    );
    my $sth = $dbh->prepare( q! select path, package from module where module = ? ! );

    for my $file ( @snaps ){
        open my($fh), '<', $file or die;
        while(<$fh>){
            if(/=head1 CONTENTS/.. /=head1 CONFIGURATION/){
                if( /^(\w\S+)\s/ ){
                    my $module = $1;
                    $sth->execute($module );
                    my($a,$p) = $sth->fetchrow_array;
                    next unless $p and $a;
                    $a =~ s!^authors/id/!!;
                    next if $p =~ /^perl-5\./; 
                    next if $p =~ /^perl-5\./; 
                    my $pp = $p;
                    $pp =~ s/-\d.\d.+$//; ## libwwwperl
                    $U{$pp}="$a/$p";
#~ perl-5.10.1.tar.gz
#~ perl-5.11.1.tar.bz2
#~ perl-5.12.3.tar.bz2
#~ perl-5.13.9.tar.gz
                }
            }
        }
        close $fh;
    }
    undef $sth;
    undef $dbh;
    
    
    print "\n\nsystem qw[ cpanp -d \n";
    print "      $U{$_}\n" for sort keys %U;
    print "\n\n];\n";
}

__END__


system qw[ cpanp -d 
...
      G/GB/GBARR/libnet-1.22.tar.gz
      G/GA/GAAS/libwww-perl-6.02.tar.gz
];