#!/usr/bin/perl -w

use strict;
use Template;

my @packages;

for my $i (0..5) {
	push @packages, make_package($i);
	for my $j (0..3) {
		push @packages, make_package($i, $j);
		for my $k (0..4) {
			push @packages, make_package($i, $j, $k);
		}
	}
	
}


my $tt = Template->new;
$tt->process('content.tt', { packages => [@packages] }, 'collapse.html') || die $tt->error;



sub make_package {
	my @nums   = @_;
	my $id     = join("-", @nums);
	my $name   = join("::", map { chr($_+65) } @nums);
	my @auths = qw(dave leon tatsuhiko andy greg simon);
	my $auth   = $auths[int rand(scalar @auths)];
	my $chance = int(rand(100));
	return { id => $id, name => $name, author => $auth, chance => $chance };
}