=head2 tie_db_readonly

#

# it's not need to be visible to package users

public instance (Boolean) tie_db_readonly ();

#

sub _tie_db_connector {

Description:

  my ($self, $db_writable) = @_;

This method ensures that the database connection is properly setup

and working.  If necessary it will initialize a user's bayes variables

so that they can begin using the database immediately.

=cut

sub tie_db_readonly {

  my ($self) = @_;

  return 0 unless (HAS_DBI);

  if ($self->{_dbh}) {

    # already connected, but connection has now become readonly

    $self->{db_writable_p} = 0;

    return 1;

  }

  unless ($self->_initialize_db(0)) {

  unless ($self->_initialize_db()) {

=head2 tie_db_writable

=head2 tie_db_readonly

public instance (Boolean) tie_db_writable ()

public instance (Boolean) tie_db_readonly ();

This method ensures that the database connetion is properly setup

This method ensures that the database connection is properly setup

and working. If necessary it will initialize a users bayes variables

and working.  If necessary it will initialize a user's bayes variables

sub tie_db_writable {

sub tie_db_readonly {

    # already connected, but now it will be writable

    # already connected, but connection has now become readonly

    $self->{db_writable_p} = 1;

    $self->{db_writable_p} = 0;

  my $main = $self->{bayes}->{main};

  return $self->_tie_db_connector(0);

}

  $self->read_db_configs();

=head2 tie_db_writable

  return 0 unless ($self->_connect_db());

public instance (Boolean) tie_db_writable ()

  my $db_ver = $self->_get_db_version();

Description:

  $self->{db_version} = $db_ver;

This method ensures that the database connetion is properly setup

  dbg("bayes: found bayes db version ".$self->{db_version});

and working. If necessary it will initialize a users bayes variables

so that they can begin using the database immediately.

  if ( $db_ver != $self->DB_VERSION ) {

=cut

    warn("bayes: database version $db_ver is different than we understand (".$self->DB_VERSION."), aborting!");

    $self->untie_db();

    return 0;

  }

  unless ($self->_initialize_db(1)) {

sub tie_db_writable {

    dbg("bayes: unable to initialize database for ".$self->{_username}." user, aborting!");

  my ($self) = @_;

    $self->untie_db();

  return 0 unless (HAS_DBI);

    return 0;

  }

  $self->{db_writable_p} = 1;

  if ($self->{_dbh}) {

    # already connected, but now it will be writable

    $self->{db_writable_p} = 1;

    return 1;

  }

  return 1;

  return $self->_tie_db_connector(1)

  my ($self, $create_entry_p) = @_;

  my ($self) = @_;

  if ($id) {

  unless ($id) {

    $self->{_userid} = $id;

    # For now let the database setup the other variables as defaults

    dbg("bayes: Using userid: ".$self->{_userid});

    my $sqlinsert = "INSERT INTO bayes_vars (username) VALUES (?)";

    $sthselect->finish();

    return 1;

    my $rows = $self->{_dbh}->do($sqlinsert,

  }

			         undef,

			         $self->{_username});

  # Do not create an entry for this user unless we were specifically asked to

    unless (defined($rows)) {

  return 0 unless ($create_entry_p);

      dbg("bayes: _initialize_db: SQL error: ".$self->{_dbh}->errstr());

      return 0;

    }

  # For now let the database setup the other variables as defaults

    $self->{_dbh}->commit();

  my $sqlinsert = "INSERT INTO bayes_vars (username) VALUES (?)";

  my $rows = $self->{_dbh}->do($sqlinsert,

    # Now we need to figure out what id we inserted them at, in a perfect

			       undef,

    # world the database driver would handle this for us (ie mysql_insert_id)

			       $self->{_username});

    # but this is far from a perfect world, however since in theory we only

  unless (defined($rows)) {

    # ever do this once it's ok to take the hit

    dbg("bayes: _initialize_db: SQL error: ".$self->{_dbh}->errstr());

    $rc = $sthselect->execute($self->{_username});

    return 0;

  }

  # Now we need to figure out what id we inserted them at, in a perfect

    unless ($rc) {

  # world the database driver would handle this for us (ie mysql_insert_id)

      dbg("bayes: _initialize_db: SQL error: ".$self->{_dbh}->errstr());

  # but this is far from a perfect world, however since in theory we only

      return 0;

  # ever do this once it's ok to take the hit

    }

  $rc = $sthselect->execute($self->{_username});

  unless ($rc) {

    ($id) = $sthselect->fetchrow_array();

    dbg("bayes: _initialize_db: SQL error: ".$self->{_dbh}->errstr());

    return 0;

  ($id) = $sthselect->fetchrow_array();

  else {

  return 1;

    dbg("bayes: _initialize_db: error: can't fetch userid");

    return 0;

  }