package SeqRead;

=head1 NAME

SeqRead -- Read a Sequence file and save the pertinent information into the
database

=head1 SYNOPSIS

my $boolean = SeqRead -> new;

=head1 DESCRIPTION

This package reads a Sequence file and saves the
pertinent data into the database.  SeqRead, itself,
is not an object and cannot be instantiated.

=head1 VERSION

0.001 (last update:  6/30/04)

=head1 AUTHOR

Chet Langin, clangin@siu.edu

SIU Plant Biotechnology and Genomics Core-facility

=head1 BUGS

The module is under development and is not yet finished.

=head1 SEE ALSO

extropy ExtropyConstants ExtropyUtils Extropy::MenuMain

=head1 COPYRIGHT

Copyright 2004, Chet Langin, All Rights Reserved.

This program is free software.  You may copy or
redistribute it under the same terms as Perl itself.

=head1 METHODS

The remainder of this document describes the methods available to the
programmer.

=cut

# load the pragmas
use warnings;
use strict;

# load other modules
use ExtropyConstants;
use ExtropyUtils;

=head2 new()

  my $boolean = SeqRead->new;

Reads a Sequence file and loads the data into the database.

=cut

# package variables

# ********************************  new  ******************************

sub new {
  my $self = shift;
  my $configuration = shift;
  my $db_manager = shift;
  my $project = shift;
  my $file_name = "";
  my $file_obtained = TRUE;
  my $refresh = FALSE;

  message_start;
  if($project->{current_project} eq "") {
    message("You must activate a project, first.");
    $file_obtained = FALSE;
  } # if
  else {
    # A project has been activated
    if($project->{seq_file} ne "") {
      message("Data from Sequence file $project->{seq_file}");
      message("is already in the database.");
      if(yes("Refresh the database from this file?")) {
        $file_name = $project->{seq_file};
        $refresh = TRUE;
      } # if
      elsif(!yes("Delete this existing data in the database and continue?")) {
        return FALSE;
      } # elsif
    } # if
    my $loop = TRUE;
    while($loop) {
      if(!$refresh) {
        message("Give the /path/to/file.txt.");
        blank_line;
        $file_name = prompt("Enter path and Sequence file name");
      } # if
      if($file_name eq "Q") {
        $loop = FALSE;
        $file_obtained = FALSE;
      } # if
      elsif(file_name_ok($file_name, $configuration, $db_manager)) {
        $loop = FALSE;
        $file_obtained = TRUE;
      } # elsif
      else {
        $file_obtained = FALSE;
        if(!yes("Try another file name?")) {
          $loop = FALSE;
        } # if
      } # else
    } # while
  } # else(a project has been activated)
  if($file_obtained) {
    # save the configuration
    $project->{seq_file} = $file_name;
    $configuration->save($project);
    press_enter;
    TRUE;
  } # if
  else {
    press_enter;
    FALSE;
  } # else
} # new
# ********************************  file_name_ok  ******************************

=head2 file_name_ok

  my $boolean = SeqRead->file_name_ok($file_name, $configuration, $db_manager);

Determines if a file name is acceptable.  If the file name is ok, then the Sequence file
is read and the data is stored in MySQL for later use.  For internal usage only.

=cut

# ---------------------------------------------------------------------------------
sub file_name_ok {
  my $file_name = shift;
  my $configuration = shift;
  my $db_manager = shift;
  my $name_ok = TRUE;
  my $error = FALSE;
  my $number_lines = 0;

  open(INPUT_FILE, "<", "$file_name")
    or $error = TRUE;
  if($error) {
    message_start;
    message("Could not read $file_name");
    message("$!");
    $name_ok = FALSE;
  } # if
  else {
    # Read the Sequence input file
    message("Sequence file $file_name opened");
    message("Connecting to the database.");
    $db_manager->connect;
    message("Deleting any previous Sequence data in the database.");
    $db_manager->execute("delete from sequence");
    message("Entering data into the database...");

    # read the input file
    my @file_array = <INPUT_FILE>;
    close INPUT_FILE;
    $number_lines = scalar(@file_array);

    # look at each line in the input file
    for(my $current_line = 0; $current_line < $number_lines; $current_line++) {
      my @field_array = split /\t/, $file_array[$current_line];
      my $data_field = $field_array[8];
      my @data_array = split /"/, $data_field;
      my $sequence = $data_array[1];
      my $hit = $data_array[3];

      # Save the relations in the sequence database table
      $db_manager->execute("insert into sequence values('', '$sequence', '$hit')");
    } # for

    # print closing information
    message("Number of Sequences:  $number_lines.");
  } # else

  message("Disconnecting from the database.");
  $db_manager->disconnect;
  close INPUT_FILE;

  if($name_ok) {
    TRUE;
  } # if
  else {
    FALSE;
  } # else
} # file_name_ok

1