--- db/prgsrc/createindex.pl	2000/10/18 15:46:45	1.1
+++ db/prgsrc/createindex.pl	2000/10/18 18:46:30	1.2
@@ -26,11 +26,103 @@ The database, user and password are hard
 
 Boris Veytsman
 
-=head1 $Id: createindex.pl,v 1.1 2000/10/18 15:46:45 boris Exp $
+=head1 $Id: createindex.pl,v 1.2 2000/10/18 18:46:30 boris Exp $
 
 =cut
 
 
-use DBI;
+    use DBI;
 use strict;
+use vars qw($opt_o $opt_h);
+use Getopt::Std;
+
+my $USAGE="Usage: createindex.pl -o output_file\n";
+
+getopts('ho:') or die $USAGE;
+if($opt_h) 
+{
+    print $USAGE;
+    exit 0;
+}
+if($opt_o) 
+{
+    open (OUT, ">$opt_o") or die "Cannot open $opt_o";
+    select OUT;
+}
+
+my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") 
+    or die "Cannot connect!";
+
+PrintAll($dbh,0,0);
+
+$dbh->disconnect;
+exit 0;
+
+sub PrintAll {
+    my ($dbh, $Id, $depth) = @_;
+    my (%Tournament) = &GetTournament($dbh, $Id);
+    my (@Tours) = &GetTours($dbh, $Id);
+    if ($Id) {
+	if ($Tournament{'Type'} eq 'ç') {
+	    for (my $i=0; $i<$depth; $i++) {
+		print "\t";
+	    }
+	    print $Tournament{'Title'}, "\n";
+	    for (my $i = 0; $i < scalar @Tours; $i++) {
+		PrintAll($dbh, $Tours[$i],$depth+1);
+	    } 
+	} else {
+	    print $Tournament{'FileName'};
+	    my $length = 12 -length($Tournament{'FileName'});
+	    for (my $i=0; $i<$length; $i++) {
+		print " ";
+	    }
+	    for (my $i=1; $i<$depth; $i++) {
+		print "\t";
+	    }
+	    print $Tournament{'Title'}, "\n";
+	}
+    } else {
+	for (my $i = 0; $i < scalar @Tours; $i++) {
+	    PrintAll($dbh, $Tours[$i],$depth+1);
+	}
+} 
+	
+}
+
+
+
+sub GetTournament {
+	my ($dbh, $Id) = @_;
+	my (%Tournament, $field, @arr);
+
+	return %Tournament if ($Id == 0);
+
+	my ($sth) = $dbh->prepare("SELECT * FROM Tournaments WHERE Id=$Id");
+	$sth->execute;
+
+	@arr = $sth->fetchrow;
+	my($i, $name) = 0;
+	foreach $name (@{$sth->{NAME}}) {
+		$Tournament{$name} = $arr[$i++];
+	}
+
+	return %Tournament;
+}
+
+sub GetTours {
+	my ($dbh, $ParentId) = @_;
+	my (@arr, @Tours);
+
+	my ($sth) = $dbh->prepare("SELECT Id FROM Tournaments
+		WHERE ParentId=$ParentId ORDER BY Id");
+
+	$sth->execute;
+
+	while (@arr = $sth->fetchrow) {
+		push @Tours, $arr[0];
+	}
+
+	return @Tours;
+}