view release on metacpan or  search on metacpan

t/100mysql.t  view on Meta::CPAN

$host='localhost' unless( length $host );

$Apache::DBI::Cache::DELIMITER='^';

my $statkey="mysql^host=$host;port=3306^$user";

sub current_db {
  my $dbh=shift;

  my $db;
  my $id=$dbh->{mysql_thread_id};
  my $st=$dbh->prepare('show processlist');
  $st->execute;
  while( my $l=$st->fetchrow_arrayref ) {
    $db=$l->[3] if( $l->[0]==$id );
  }
  return $db;
}

Apache::DBI::Cache::connect_on_init
  ("dbi:mysql:dbname=$db1;host=$host;port=3306", "$user", "$pw" );