#!perl
# example by Dennis Box 1/5/99
# first parser by Kirsten Tollefson 4/6/99
# modified Kevin McFarland 4/13/99

package build;

use strict;

use Exporter ();
use vars qw(@ISA @EXPORT);
BEGIN {
  @ISA = qw(Exporter);
  @EXPORT = qw(&getBuild);
}

1;

#-----------------
sub getBuild {

  use DBI;
  use strict;

  my $dbname="b0dau30.fnal.gov"; 
  my $user; 
  my $password; 
  my $temp;
  open (USERNAME,"../tcl/test.user") || die "can't open file: $!";
  while (defined ($temp = <USERNAME>)) 
  {
     chomp $temp; 
     $user = $temp;
#     print "user is $user\n"; 
     $password=<USERNAME>;
     chomp $password;
#     print "password is $password\n";
  }
  close (USERNAME) || die "couldn't close file: $!";

  my $template = shift;

#
#note how connection specifies Oracle here, msql, mysql or any
#other DBI driver will work exactly the same
#
  my ($dbh) = DBI->connect($dbname,$user,$password,'Oracle') ||
    die "Error connecting $DBI::errstr\n";
        
  my $headref;
  my $buildref;
  my $name;

  ($headref,$buildref) = &doSQL;

  $dbh->rollback;
  $dbh->disconnect;

#
#  now that query is complete, go through template file
#   and send the build file to standard output
#

  my $myfile=$template;
  my $line;
  
  open(TEMPLATE, $myfile) or die "unable to open $myfile:$!";
  while( $line = <TEMPLATE> )
    {
      if ( (index $line,'<TT HEADERS>') != -1 )
        {
          foreach $name (@$headref)
            {
              print "$name";
            }
        }
      elsif ( (index $line,'<TT BUILDS>') != -1 )
        {
          foreach $name (@$buildref)
            {
              print "$name";
            }
        }
      else
        {
          print "$line";
        };
    };
    
#---------------------------------------------------
  sub doSQL
    {

      use DBI;
      use strict;


        my ($handle) = $dbh->prepare("select * from option_classes");

        if($DBI::err)
        {
            print "$DBI::errstr\n";
        }

        $handle->execute();
        if($DBI::err)
        {
            print "$DBI::errstr\n";
        }

#  try to get the column names
#
        my $col_names = $handle->{NAME};
        my $name;
#        foreach $name (@$col_names) 
#          {
#            print "$name\n";
#          }

#  now make a hash, looping over results
#   take the hash elements index by the desired column

        my @results;
        my %row = ();
        my $indx;
        my @classes;
        my @tclasses;
        while (@results = $handle->fetchrow)
          {
            if($DBI::err)
              {
                print "$DBI::errstr\n";
                return;
              }
            for ($indx=0;$indx<=$#results;$indx++)
              {
                  $row{@$col_names[$indx]} = @results[$indx];
#                  print "$indx: @$col_names[$indx] | @results[$indx]\n";
              }
            push @tclasses, $row{'CLASS_NAME'};
          }
        
#
#  remove duplicate class names
#
        @tclasses = sort @tclasses;
        my $lastname;
        foreach $name (@tclasses)
          {
#            print "$name,$lastname\n";
            if ($name ne $lastname) 
              {
                push @classes, $name;
              }
            $lastname = $name;
          }

        my @headers;
        my @builds;
        foreach $name (@classes)
          { 
            my ($handle) = $dbh->prepare("select * from option_classes 
                where option_classes.CLASS_NAME='$name'");

            if($DBI::err)
              {
                print "$DBI::errstr\n";
              }
            
            $handle->execute();
            if($DBI::err)
              {
                print "$DBI::errstr\n";
              }

            $col_names = $handle->{NAME};
#            
# get table entry, hash as before
#
            my @results;
            @results = $handle->fetchrow;
            if($DBI::err)
              {
                print "$DBI::errstr\n";
                return;
              }
            my %row = ();
            my $indx;
            for ($indx=0;$indx<=$#results;$indx++)
              {
                $row{@$col_names[$indx]} = @results[$indx];
#                print "$indx: @$col_names[$indx] | @results[$indx]\n";
              }
            if ($row{'HEADER_FILE'} ne " ")
              {
                push @headers, "\#include \"$row{'HEADER_FILE'}\"\n";
                if ($row{'FILTER_MOD'} eq 'true') 
                  {
                    push @builds, "    aFilterModule=new $row{'CLASS_NAME'}(\"$row{'CLASS_NAME'}\",\"dummy for cloning\");\n    add(aFilterModule);\n\n";
                  }
                else
                  {
                    push @builds, "    aModule=new $row{'CLASS_NAME'}(\"$row{'CLASS_NAME'}\",\"dummy for cloning\");\n    add(aModule);\n\n";
                  };
              };
          }

        $handle->finish;
        return (\@headers,\@builds);
        
    }

}