package Lady_EZDB;

use strict;

#################################################
#  Sub new                                  #
#################################################
#################################################
#       PUBLIC Subroutine                       #
#################################################
sub new ($;$){

    my $class = shift;

    my $self = {};
    
    bless $self, ref $class || $class;
    
    $self->{index_path} = undef;
    $self->{sep} = undef;
    $self->{lady_time} = undef;
    $self->{header} = undef;
    $self->{data} = undef;
    
    $self->{TABLE} = {};

    $self->init(@_);
        
    return $self;

}
sub init($;$){
    
    my $self = shift;

    $self->{index_path} = shift;
    
    if ($_[0]){$self->{sep}= shift;}else{$self->{sep}="|";}
    
    use Lady::Lady_DATE;

    my $TIME = new Lady_DATE;

    $self->{lady_time} = $TIME->lady_time();

return;
}
#################################################
#       Sub get_EZDB_table                     #
#################################################
#################################################
#       PUBLIC Subroutine                       #
#################################################
sub get_EZDB_table (){

      my $self = shift;

      open(INDEXFILE, "$self->{index_path}") || $self->file_open_error
+("$self->{index_path}","Read Index",__FILE__,__LINE__);

      $self->{header} = <INDEXFILE>;     #READ first line.
      
      $self->{data} = <INDEXFILE>;    #READ data line.
      
      close(INDEXFILE);


      my $sep = $self->{sep}; # OOP BUGFIX 

      my @keys = split(/\$sep/,$self->{header});
      my @values = split(/\$sep/,$self->{data});
      
      my $x = 0;
      foreach $_ (@keys){
          
          $self->{TABLE}{$_} = $values[$x];

                $x++;

      
      }

      return $self->{TABLE};
}
#################################################
#       Sub file_open_error                 #
#################################################
#################################################
#       PRIVATE Subroutine                      #
#################################################
sub file_open_error($$$$){
    
    my $self = shift;

      my $bad_file = shift;
      my $script_section = shift;
      my $this_file = shift;
      my $line_number = shift;

    use CGI_lib;

    my $CGI = new CGI_lib();

    $CGI->CgiDie ("I am sorry, but I was not able to access $bad_file 
+in the
            $script_section routine of $this_file at line number $line
+_number.
            Would you please make sure the path is correctly defined i
+n
            SETUP_dB and that the permissions are correct. $!")

} # End of Sub "file_open_error"
 
1;