File:  [Local Repository] / db / prgsrc / createindex.pl
Revision 1.1: download - view: text, annotated - select for diffs - revision graph
Wed Oct 18 15:46:45 2000 UTC (23 years, 6 months ago) by boris
Branches: MAIN
CVS tags: HEAD
Initial revision

    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>