#!/usr/local/bin/perl -w

=head1 NAME

createindex.pl - a script for creation of index of the database

=head1 SYNOPSIS

createindex.pl [B<-h]] | [B<-o> I<output_file>]


=head1 DESCRIPTION

This script will dump the current information about tournaments 
tree to the standard output or I<output_file> in the format
  ç|I<file> N*tabstops  I<Name>

where ç is for groups, I<file> is for packages, N is the depth+2, I<Name>
is the name of the group/tournament

=head1 BUGS

The database, user and password are hardcoded. 

=head1 AUTHOR

Boris Veytsman

=head1 $Id: createindex.pl,v 1.1 2000/10/18 15:46:45 boris Exp $

=cut


use DBI;
use strict;