md5 text not null,
items int not null check (items > 0),
date timestamp default now(),
+ filename text not null,
primary key(id)
);
$dbh->do( qq{ CREATE SEQUENCE $seq } );
}
-=for later
-
print " creating triggers ";
$dbh->do( <<__END_OF_TRIGGER__ );
__END_OF_TRIGGER__
-=cut
-
print "...\n";
$dbh->commit;