1: #!/usr/local/bin/perl -w
2:
3: =head1 NAME
4:
5: createindex.pl - a script for creation of index of the database
6:
7: =head1 SYNOPSIS
8:
9: createindex.pl [B<-h]] | [B<-o> I<output_file>]
10:
11:
12: =head1 DESCRIPTION
13:
14: This script will dump the current information about tournaments
15: tree to the standard output or I<output_file> in the format
16: ç|I<file> N*tabstops I<Name>
17:
18: where ç is for groups, I<file> is for packages, N is the depth+2, I<Name>
19: is the name of the group/tournament
20:
21: =head1 BUGS
22:
23: The database, user and password are hardcoded.
24:
25: =head1 AUTHOR
26:
27: Boris Veytsman
28:
29: =head1 $Id: createindex.pl,v 1.1 2000/10/18 15:46:45 boris Exp $
30:
31: =cut
32:
33:
34: use DBI;
35: use strict;
36:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>