2010-03-13 13:00:51 +00:00
|
|
|
|
%%%-------------------------------------------------------------------
|
|
|
|
|
%%% File : mysql_conn.erl
|
|
|
|
|
%%% Author : Fredrik Thulin <ft@it.su.se>
|
|
|
|
|
%%% Descrip.: MySQL connection handler, handles de-framing of messages
|
|
|
|
|
%%% received by the MySQL receiver process.
|
|
|
|
|
%%% Created : 5 Aug 2005 by Fredrik Thulin <ft@it.su.se>
|
|
|
|
|
%%% Modified: 11 Jan 2006 by Mickael Remond <mickael.remond@process-one.net>
|
|
|
|
|
%%%
|
|
|
|
|
%%% Note : All MySQL code was written by Magnus Ahltorp, originally
|
|
|
|
|
%%% in the file mysql.erl - I just moved it here.
|
|
|
|
|
%%%
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%%% Modified: 12 Sep 2006 by Yariv Sadan <yarivvv@gmail.com>
|
|
|
|
|
%%% Added automatic type conversion between MySQL types and Erlang types
|
|
|
|
|
%%% and different logging style.
|
|
|
|
|
%%%
|
|
|
|
|
%%% Modified: 23 Sep 2006 by Yariv Sadan <yarivvv@gmail.com>
|
|
|
|
|
%%% Added transaction handling and prepared statement execution.
|
|
|
|
|
%%%
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%%% Copyright (c) 2001-2004 Kungliga Tekniska H<>gskolan
|
|
|
|
|
%%% See the file COPYING
|
|
|
|
|
%%%
|
|
|
|
|
%%%
|
|
|
|
|
%%% This module handles a single connection to a single MySQL server.
|
|
|
|
|
%%% You can use it stand-alone, or through the 'mysql' module if you
|
|
|
|
|
%%% want to have more than one connection to the server, or
|
|
|
|
|
%%% connections to different servers.
|
|
|
|
|
%%%
|
|
|
|
|
%%% To use it stand-alone, set up the connection with
|
|
|
|
|
%%%
|
|
|
|
|
%%% {ok, Pid} = mysql_conn:start(Host, Port, User, Password,
|
|
|
|
|
%%% Database, LogFun)
|
|
|
|
|
%%%
|
|
|
|
|
%%% Host = string()
|
|
|
|
|
%%% Port = integer()
|
|
|
|
|
%%% User = string()
|
|
|
|
|
%%% Password = string()
|
|
|
|
|
%%% Database = string()
|
|
|
|
|
%%% LogFun = undefined | (gives logging to console)
|
|
|
|
|
%%% function() of arity 3 (Level, Fmt, Args)
|
|
|
|
|
%%%
|
|
|
|
|
%%% Note: In stand-alone mode you have to start Erlang crypto application by
|
|
|
|
|
%%% yourself with crypto:start()
|
|
|
|
|
%%%
|
|
|
|
|
%%% and then make MySQL querys with
|
|
|
|
|
%%%
|
|
|
|
|
%%% Result = mysql_conn:fetch(Pid, Query, self())
|
|
|
|
|
%%%
|
|
|
|
|
%%% Result = {data, MySQLRes} |
|
|
|
|
|
%%% {updated, MySQLRes} |
|
|
|
|
|
%%% {error, MySQLRes}
|
|
|
|
|
%%% Where: MySQLRes = #mysql_result
|
|
|
|
|
%%%
|
|
|
|
|
%%% Actual data can be extracted from MySQLRes by calling the following API
|
|
|
|
|
%%% functions:
|
|
|
|
|
%%% - on data received:
|
|
|
|
|
%%% FieldInfo = mysql:get_result_field_info(MysqlRes)
|
|
|
|
|
%%% AllRows = mysql:get_result_rows(MysqlRes)
|
|
|
|
|
%%% with FieldInfo = list() of {Table, Field, Length, Name}
|
|
|
|
|
%%% and AllRows = list() of list() representing records
|
|
|
|
|
%%% - on update:
|
|
|
|
|
%%% Affected= mysql:get_result_affected_rows(MysqlRes)
|
|
|
|
|
%%% with Affected = integer()
|
|
|
|
|
%%% - on error:
|
|
|
|
|
%%% Reason = mysql:get_result_reason(MysqlRes)
|
|
|
|
|
%%% with Reason = string()
|
|
|
|
|
%%%-------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
-module(mysql_conn).
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% External exports
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
-export([start/8,
|
|
|
|
|
start_link/8,
|
2010-03-13 13:00:51 +00:00
|
|
|
|
fetch/3,
|
|
|
|
|
fetch/4,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
execute/5,
|
|
|
|
|
execute/6,
|
|
|
|
|
transaction/3,
|
|
|
|
|
transaction/4
|
|
|
|
|
]).
|
|
|
|
|
|
|
|
|
|
%% private exports to be called only from the 'mysql' module
|
|
|
|
|
-export([fetch_local/2,
|
|
|
|
|
execute_local/3,
|
|
|
|
|
get_pool_id/1
|
2010-03-13 13:00:51 +00:00
|
|
|
|
]).
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% External exports (should only be used by the 'mysql_auth' module)
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
-export([do_recv/3
|
|
|
|
|
]).
|
|
|
|
|
|
|
|
|
|
-include("mysql.hrl").
|
|
|
|
|
-record(state, {
|
|
|
|
|
mysql_version,
|
|
|
|
|
log_fun,
|
|
|
|
|
recv_pid,
|
|
|
|
|
socket,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
data,
|
|
|
|
|
|
|
|
|
|
%% maps statement names to their versions
|
|
|
|
|
prepares = gb_trees:empty(),
|
|
|
|
|
|
|
|
|
|
%% the id of the connection pool to which this connection belongs
|
|
|
|
|
pool_id
|
2010-03-13 13:00:51 +00:00
|
|
|
|
}).
|
|
|
|
|
|
|
|
|
|
-define(SECURE_CONNECTION, 32768).
|
|
|
|
|
-define(MYSQL_QUERY_OP, 3).
|
|
|
|
|
-define(DEFAULT_STANDALONE_TIMEOUT, 5000).
|
|
|
|
|
-define(MYSQL_4_0, 40). %% Support for MySQL 4.0.x
|
|
|
|
|
-define(MYSQL_4_1, 41). %% Support for MySQL 4.1.x et 5.0.x
|
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%% Used by transactions to get the state variable for this connection
|
|
|
|
|
%% when bypassing the dispatcher.
|
|
|
|
|
-define(STATE_VAR, mysql_connection_state).
|
|
|
|
|
|
|
|
|
|
-define(Log(LogFun,Level,Msg),
|
|
|
|
|
LogFun(?MODULE, ?LINE,Level,fun()-> {Msg,[]} end)).
|
|
|
|
|
-define(Log2(LogFun,Level,Msg,Params),
|
|
|
|
|
LogFun(?MODULE, ?LINE,Level,fun()-> {Msg,Params} end)).
|
|
|
|
|
-define(L(Msg), io:format("~p:~b ~p ~n", [?MODULE, ?LINE, Msg])).
|
|
|
|
|
|
|
|
|
|
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%%====================================================================
|
|
|
|
|
%% External functions
|
|
|
|
|
%%====================================================================
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: start(Host, Port, User, Password, Database, LogFun)
|
|
|
|
|
%% Function: start_link(Host, Port, User, Password, Database, LogFun)
|
|
|
|
|
%% Host = string()
|
|
|
|
|
%% Port = integer()
|
|
|
|
|
%% User = string()
|
|
|
|
|
%% Password = string()
|
|
|
|
|
%% Database = string()
|
|
|
|
|
%% LogFun = undefined | function() of arity 3
|
|
|
|
|
%% Descrip.: Starts a mysql_conn process that connects to a MySQL
|
|
|
|
|
%% server, logs in and chooses a database.
|
|
|
|
|
%% Returns : {ok, Pid} | {error, Reason}
|
|
|
|
|
%% Pid = pid()
|
|
|
|
|
%% Reason = string()
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
start(Host, Port, User, Password, Database, LogFun, Encoding, PoolId) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
ConnPid = self(),
|
|
|
|
|
Pid = spawn(fun () ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
init(Host, Port, User, Password, Database,
|
|
|
|
|
LogFun, Encoding, PoolId, ConnPid)
|
2010-03-13 13:00:51 +00:00
|
|
|
|
end),
|
|
|
|
|
post_start(Pid, LogFun).
|
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
start_link(Host, Port, User, Password, Database, LogFun, Encoding, PoolId) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
ConnPid = self(),
|
|
|
|
|
Pid = spawn_link(fun () ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
init(Host, Port, User, Password, Database,
|
|
|
|
|
LogFun, Encoding, PoolId, ConnPid)
|
|
|
|
|
end),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
post_start(Pid, LogFun).
|
|
|
|
|
|
|
|
|
|
%% part of start/6 or start_link/6:
|
2010-03-14 12:01:32 +00:00
|
|
|
|
post_start(Pid, LogFun) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
receive
|
|
|
|
|
{mysql_conn, Pid, ok} ->
|
|
|
|
|
{ok, Pid};
|
|
|
|
|
{mysql_conn, Pid, {error, Reason}} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
{error, Reason};
|
|
|
|
|
{mysql_conn, OtherPid, {error, Reason}} ->
|
|
|
|
|
% Ignore error message from other processes. This handles the case
|
|
|
|
|
% when mysql is shutdown and takes more than 5 secs to close the
|
|
|
|
|
% listener socket.
|
|
|
|
|
?Log2(LogFun, debug, "Ignoring message from process ~p | Reason: ~p",
|
|
|
|
|
[OtherPid, Reason]),
|
|
|
|
|
post_start(Pid, LogFun);
|
|
|
|
|
Unknown ->
|
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"received unknown signal, exiting: ~p", [Unknown]),
|
|
|
|
|
{error, "unknown signal received"}
|
|
|
|
|
after 5000 ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{error, "timed out"}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: fetch(Pid, Query, From)
|
|
|
|
|
%% fetch(Pid, Query, From, Timeout)
|
|
|
|
|
%% Pid = pid(), mysql_conn to send fetch-request to
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%% Queries = A single binary() query or a list of binary() queries.
|
|
|
|
|
%% If a list is provided, the return value is the return
|
|
|
|
|
%% of the last query, or the first query that has
|
|
|
|
|
%% returned an error. If an error occurs, execution of
|
|
|
|
|
%% the following queries is aborted.
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%% From = pid() or term(), use a From of self() when
|
|
|
|
|
%% using this module for a single connection,
|
|
|
|
|
%% or pass the gen_server:call/3 From argument if
|
|
|
|
|
%% using a gen_server to do the querys (e.g. the
|
|
|
|
|
%% mysql_dispatcher)
|
|
|
|
|
%% Timeout = integer() | infinity, gen_server timeout value
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%% Descrip.: Send a query or a list of queries and wait for the result
|
|
|
|
|
%% if running stand-alone (From = self()), but don't block
|
|
|
|
|
%% the caller if we are not running stand-alone
|
|
|
|
|
%% (From = gen_server From).
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%% Returns : ok | (non-stand-alone mode)
|
|
|
|
|
%% {data, #mysql_result} | (stand-alone mode)
|
|
|
|
|
%% {updated, #mysql_result} | (stand-alone mode)
|
|
|
|
|
%% {error, #mysql_result} (stand-alone mode)
|
|
|
|
|
%% FieldInfo = term()
|
|
|
|
|
%% Rows = list() of [string()]
|
|
|
|
|
%% Reason = term()
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
fetch(Pid, Queries, From) ->
|
|
|
|
|
fetch(Pid, Queries, From, ?DEFAULT_STANDALONE_TIMEOUT).
|
2010-03-13 13:00:51 +00:00
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
fetch(Pid, Queries, From, Timeout) ->
|
|
|
|
|
do_fetch(Pid, Queries, From, Timeout).
|
2010-03-13 13:00:51 +00:00
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
execute(Pid, Name, Version, Params, From) ->
|
|
|
|
|
execute(Pid, Name, Version, Params, From, ?DEFAULT_STANDALONE_TIMEOUT).
|
|
|
|
|
|
|
|
|
|
execute(Pid, Name, Version, Params, From, Timeout) ->
|
|
|
|
|
send_msg(Pid, {execute, Name, Version, Params, From}, From, Timeout).
|
|
|
|
|
|
|
|
|
|
transaction(Pid, Fun, From) ->
|
|
|
|
|
transaction(Pid, Fun, From, ?DEFAULT_STANDALONE_TIMEOUT).
|
|
|
|
|
|
|
|
|
|
transaction(Pid, Fun, From, Timeout) ->
|
|
|
|
|
send_msg(Pid, {transaction, Fun, From}, From, Timeout).
|
|
|
|
|
|
|
|
|
|
get_pool_id(State) ->
|
|
|
|
|
State#state.pool_id.
|
|
|
|
|
|
|
|
|
|
%%====================================================================
|
|
|
|
|
%% Internal functions
|
|
|
|
|
%%====================================================================
|
|
|
|
|
|
|
|
|
|
fetch_local(State, Query) ->
|
|
|
|
|
do_query(State, Query).
|
|
|
|
|
|
|
|
|
|
execute_local(State, Name, Params) ->
|
|
|
|
|
case do_execute(State, Name, Params, undefined) of
|
|
|
|
|
{ok, Res, State1} ->
|
|
|
|
|
put(?STATE_VAR, State1),
|
|
|
|
|
Res;
|
|
|
|
|
Err ->
|
|
|
|
|
Err
|
2010-03-13 13:00:51 +00:00
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: do_recv(LogFun, RecvPid, SeqNum)
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% RecvPid = pid(), mysql_recv process
|
|
|
|
|
%% SeqNum = undefined | integer()
|
|
|
|
|
%% Descrip.: Wait for a frame decoded and sent to us by RecvPid.
|
|
|
|
|
%% Either wait for a specific frame if SeqNum is an integer,
|
|
|
|
|
%% or just any frame if SeqNum is undefined.
|
|
|
|
|
%% Returns : {ok, Packet, Num} |
|
|
|
|
|
%% {error, Reason}
|
|
|
|
|
%% Reason = term()
|
|
|
|
|
%%
|
|
|
|
|
%% Note : Only to be used externally by the 'mysql_auth' module.
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
do_recv(LogFun, RecvPid, SeqNum) when is_function(LogFun);
|
|
|
|
|
LogFun == undefined,
|
|
|
|
|
SeqNum == undefined ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
receive
|
|
|
|
|
{mysql_recv, RecvPid, data, Packet, Num} ->
|
|
|
|
|
{ok, Packet, Num};
|
|
|
|
|
{mysql_recv, RecvPid, closed, _E} ->
|
|
|
|
|
{error, "mysql_recv: socket was closed"}
|
|
|
|
|
end;
|
2010-03-14 12:01:32 +00:00
|
|
|
|
do_recv(LogFun, RecvPid, SeqNum) when is_function(LogFun);
|
|
|
|
|
LogFun == undefined,
|
|
|
|
|
is_integer(SeqNum) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
ResponseNum = SeqNum + 1,
|
|
|
|
|
receive
|
|
|
|
|
{mysql_recv, RecvPid, data, Packet, ResponseNum} ->
|
|
|
|
|
{ok, Packet, ResponseNum};
|
|
|
|
|
{mysql_recv, RecvPid, closed, _E} ->
|
|
|
|
|
{error, "mysql_recv: socket was closed"}
|
2010-03-14 12:01:32 +00:00
|
|
|
|
end.
|
2010-03-13 13:00:51 +00:00
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
do_fetch(Pid, Queries, From, Timeout) ->
|
|
|
|
|
send_msg(Pid, {fetch, Queries, From}, From, Timeout).
|
|
|
|
|
|
|
|
|
|
send_msg(Pid, Msg, From, Timeout) ->
|
|
|
|
|
Self = self(),
|
|
|
|
|
Pid ! Msg,
|
|
|
|
|
case From of
|
|
|
|
|
Self ->
|
|
|
|
|
%% We are not using a mysql_dispatcher, await the response
|
|
|
|
|
receive
|
|
|
|
|
{fetch_result, Pid, Result} ->
|
|
|
|
|
Result
|
|
|
|
|
after Timeout ->
|
|
|
|
|
{error, "message timed out"}
|
|
|
|
|
end;
|
|
|
|
|
_ ->
|
|
|
|
|
%% From is gen_server From,
|
|
|
|
|
%% Pid will do gen_server:reply() when it has an answer
|
|
|
|
|
ok
|
|
|
|
|
end.
|
2010-03-13 13:00:51 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: init(Host, Port, User, Password, Database, LogFun,
|
|
|
|
|
%% Parent)
|
|
|
|
|
%% Host = string()
|
|
|
|
|
%% Port = integer()
|
|
|
|
|
%% User = string()
|
|
|
|
|
%% Password = string()
|
|
|
|
|
%% Database = string()
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%% LogFun = function() of arity 4
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%% Parent = pid() of process starting this mysql_conn
|
|
|
|
|
%% Descrip.: Connect to a MySQL server, log in and chooses a database.
|
|
|
|
|
%% Report result of this to Parent, and then enter loop() if
|
|
|
|
|
%% we were successfull.
|
|
|
|
|
%% Returns : void() | does not return
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
init(Host, Port, User, Password, Database, LogFun, Encoding, PoolId, Parent) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
case mysql_recv:start_link(Host, Port, LogFun, self()) of
|
|
|
|
|
{ok, RecvPid, Sock} ->
|
|
|
|
|
case mysql_init(Sock, RecvPid, User, Password, LogFun) of
|
|
|
|
|
{ok, Version} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
Db = iolist_to_binary(Database),
|
|
|
|
|
case do_query(Sock, RecvPid, LogFun,
|
|
|
|
|
<<"use ", Db/binary>>,
|
|
|
|
|
Version) of
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{error, MySQLRes} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"mysql_conn: Failed changing to database "
|
|
|
|
|
"~p : ~p",
|
|
|
|
|
[Database,
|
|
|
|
|
mysql:get_result_reason(MySQLRes)]),
|
|
|
|
|
Parent ! {mysql_conn, self(),
|
|
|
|
|
{error, failed_changing_database}};
|
|
|
|
|
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%% ResultType: data | updated
|
|
|
|
|
{_ResultType, _MySQLRes} ->
|
|
|
|
|
Parent ! {mysql_conn, self(), ok},
|
2010-03-14 12:01:32 +00:00
|
|
|
|
case Encoding of
|
|
|
|
|
undefined -> undefined;
|
|
|
|
|
_ ->
|
|
|
|
|
EncodingBinary = list_to_binary(atom_to_list(Encoding)),
|
|
|
|
|
do_query(Sock, RecvPid, LogFun,
|
|
|
|
|
<<"set names '", EncodingBinary/binary, "'">>,
|
|
|
|
|
Version)
|
|
|
|
|
end,
|
2010-03-13 13:00:51 +00:00
|
|
|
|
State = #state{mysql_version=Version,
|
|
|
|
|
recv_pid = RecvPid,
|
|
|
|
|
socket = Sock,
|
|
|
|
|
log_fun = LogFun,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
pool_id = PoolId,
|
2010-03-13 13:00:51 +00:00
|
|
|
|
data = <<>>
|
|
|
|
|
},
|
|
|
|
|
loop(State)
|
|
|
|
|
end;
|
|
|
|
|
{error, _Reason} ->
|
|
|
|
|
Parent ! {mysql_conn, self(), {error, login_failed}}
|
|
|
|
|
end;
|
|
|
|
|
E ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"failed connecting to ~p:~p : ~p",
|
|
|
|
|
[Host, Port, E]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
Parent ! {mysql_conn, self(), {error, connect_failed}}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: loop(State)
|
|
|
|
|
%% State = state record()
|
|
|
|
|
%% Descrip.: Wait for signals asking us to perform a MySQL query, or
|
|
|
|
|
%% signals that the socket was closed.
|
|
|
|
|
%% Returns : error | does not return
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
loop(State) ->
|
|
|
|
|
RecvPid = State#state.recv_pid,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
LogFun = State#state.log_fun,
|
2010-03-13 13:00:51 +00:00
|
|
|
|
receive
|
2010-03-14 12:01:32 +00:00
|
|
|
|
{fetch, Queries, From} ->
|
|
|
|
|
send_reply(From, do_queries(State, Queries)),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
loop(State);
|
2010-03-14 12:01:32 +00:00
|
|
|
|
{transaction, Fun, From} ->
|
|
|
|
|
put(?STATE_VAR, State),
|
|
|
|
|
|
|
|
|
|
Res = do_transaction(State, Fun),
|
|
|
|
|
|
|
|
|
|
%% The transaction may have changed the state of this process
|
|
|
|
|
%% if it has executed prepared statements. This would happen in
|
|
|
|
|
%% mysql:execute.
|
|
|
|
|
State1 = get(?STATE_VAR),
|
|
|
|
|
|
|
|
|
|
send_reply(From, Res),
|
|
|
|
|
loop(State1);
|
|
|
|
|
{execute, Name, Version, Params, From} ->
|
|
|
|
|
State1 =
|
|
|
|
|
case do_execute(State, Name, Params, Version) of
|
|
|
|
|
{error, _} = Err ->
|
|
|
|
|
send_reply(From, Err),
|
|
|
|
|
State;
|
|
|
|
|
{ok, Result, NewState} ->
|
|
|
|
|
send_reply(From, Result),
|
|
|
|
|
NewState
|
|
|
|
|
end,
|
|
|
|
|
loop(State1);
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{mysql_recv, RecvPid, data, Packet, Num} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"received data when not expecting any -- "
|
|
|
|
|
"ignoring it: {~p, ~p}", [Num, Packet]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
loop(State);
|
|
|
|
|
Unknown ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"received unknown signal, exiting: ~p", [Unknown]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
error
|
|
|
|
|
end.
|
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%% GenSrvFrom is either a gen_server:call/3 From term(),
|
|
|
|
|
%% or a pid if no gen_server was used to make the query
|
|
|
|
|
send_reply(GenSrvFrom, Res) when is_pid(GenSrvFrom) ->
|
|
|
|
|
%% The query was not sent using gen_server mechanisms
|
|
|
|
|
GenSrvFrom ! {fetch_result, self(), Res};
|
|
|
|
|
send_reply(GenSrvFrom, Res) ->
|
|
|
|
|
gen_server:reply(GenSrvFrom, Res).
|
|
|
|
|
|
|
|
|
|
do_query(State, Query) ->
|
|
|
|
|
do_query(State#state.socket,
|
|
|
|
|
State#state.recv_pid,
|
|
|
|
|
State#state.log_fun,
|
|
|
|
|
Query,
|
|
|
|
|
State#state.mysql_version
|
|
|
|
|
).
|
|
|
|
|
|
|
|
|
|
do_query(Sock, RecvPid, LogFun, Query, Version) ->
|
|
|
|
|
Query1 = iolist_to_binary(Query),
|
|
|
|
|
?Log2(LogFun, debug, "fetch ~p (id ~p)", [Query1,RecvPid]),
|
|
|
|
|
Packet = <<?MYSQL_QUERY_OP, Query1/binary>>,
|
|
|
|
|
case do_send(Sock, Packet, 0, LogFun) of
|
|
|
|
|
ok ->
|
|
|
|
|
get_query_response(LogFun,RecvPid,
|
|
|
|
|
Version);
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
Msg = io_lib:format("Failed sending data "
|
|
|
|
|
"on socket : ~p",
|
|
|
|
|
[Reason]),
|
|
|
|
|
{error, Msg}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
do_queries(State, Queries) when not is_list(Queries) ->
|
|
|
|
|
do_query(State, Queries);
|
|
|
|
|
do_queries(State, Queries) ->
|
|
|
|
|
do_queries(State#state.socket,
|
|
|
|
|
State#state.recv_pid,
|
|
|
|
|
State#state.log_fun,
|
|
|
|
|
Queries,
|
|
|
|
|
State#state.mysql_version
|
|
|
|
|
).
|
|
|
|
|
|
|
|
|
|
%% Execute a list of queries, returning the response for the last query.
|
|
|
|
|
%% If a query returns an error before the last query is executed, the
|
|
|
|
|
%% loop is aborted and the error is returned.
|
|
|
|
|
do_queries(Sock, RecvPid, LogFun, Queries, Version) ->
|
|
|
|
|
catch
|
|
|
|
|
lists:foldl(
|
|
|
|
|
fun(Query, _LastResponse) ->
|
|
|
|
|
case do_query(Sock, RecvPid, LogFun, Query, Version) of
|
|
|
|
|
{error, _} = Err -> throw(Err);
|
|
|
|
|
Res -> Res
|
|
|
|
|
end
|
|
|
|
|
end, ok, Queries).
|
|
|
|
|
|
|
|
|
|
do_transaction(State, Fun) ->
|
|
|
|
|
case do_query(State, <<"BEGIN">>) of
|
|
|
|
|
{error, _} = Err ->
|
|
|
|
|
{aborted, Err};
|
|
|
|
|
_ ->
|
|
|
|
|
case catch Fun() of
|
|
|
|
|
error = Err -> rollback(State, Err);
|
|
|
|
|
{error, _} = Err -> rollback(State, Err);
|
|
|
|
|
{'EXIT', _} = Err -> rollback(State, Err);
|
|
|
|
|
Res ->
|
|
|
|
|
case do_query(State, <<"COMMIT">>) of
|
|
|
|
|
{error, _} = Err ->
|
|
|
|
|
rollback(State, {commit_error, Err});
|
|
|
|
|
_ ->
|
|
|
|
|
case Res of
|
|
|
|
|
{atomic, _} -> Res;
|
|
|
|
|
_ -> {atomic, Res}
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
rollback(State, Err) ->
|
|
|
|
|
Res = do_query(State, <<"ROLLBACK">>),
|
|
|
|
|
{aborted, {Err, {rollback_result, Res}}}.
|
|
|
|
|
|
|
|
|
|
do_execute(State, Name, Params, ExpectedVersion) ->
|
|
|
|
|
Res = case gb_trees:lookup(Name, State#state.prepares) of
|
|
|
|
|
{value, Version} when Version == ExpectedVersion ->
|
|
|
|
|
{ok, latest};
|
|
|
|
|
{value, Version} ->
|
|
|
|
|
mysql:get_prepared(Name, Version);
|
|
|
|
|
none ->
|
|
|
|
|
mysql:get_prepared(Name)
|
|
|
|
|
end,
|
|
|
|
|
case Res of
|
|
|
|
|
{ok, latest} ->
|
|
|
|
|
{ok, do_execute1(State, Name, Params), State};
|
|
|
|
|
{ok, {Stmt, NewVersion}} ->
|
|
|
|
|
prepare_and_exec(State, Name, NewVersion, Stmt, Params);
|
|
|
|
|
{error, _} = Err ->
|
|
|
|
|
Err
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
prepare_and_exec(State, Name, Version, Stmt, Params) ->
|
|
|
|
|
NameBin = atom_to_binary(Name),
|
|
|
|
|
StmtBin = <<"PREPARE ", NameBin/binary, " FROM '",
|
|
|
|
|
Stmt/binary, "'">>,
|
|
|
|
|
case do_query(State, StmtBin) of
|
|
|
|
|
{updated, _} ->
|
|
|
|
|
State1 =
|
|
|
|
|
State#state{
|
|
|
|
|
prepares = gb_trees:enter(Name, Version,
|
|
|
|
|
State#state.prepares)},
|
|
|
|
|
{ok, do_execute1(State1, Name, Params), State1};
|
|
|
|
|
{error, _} = Err ->
|
|
|
|
|
Err;
|
|
|
|
|
Other ->
|
|
|
|
|
{error, {unexpected_result, Other}}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
do_execute1(State, Name, Params) ->
|
|
|
|
|
Stmts = make_statements_for_execute(Name, Params),
|
|
|
|
|
do_queries(State, Stmts).
|
|
|
|
|
|
|
|
|
|
make_statements_for_execute(Name, []) ->
|
|
|
|
|
NameBin = atom_to_binary(Name),
|
|
|
|
|
[<<"EXECUTE ", NameBin/binary>>];
|
|
|
|
|
make_statements_for_execute(Name, Params) ->
|
|
|
|
|
NumParams = length(Params),
|
|
|
|
|
ParamNums = lists:seq(1, NumParams),
|
|
|
|
|
|
|
|
|
|
NameBin = atom_to_binary(Name),
|
|
|
|
|
|
|
|
|
|
ParamNames =
|
|
|
|
|
lists:foldl(
|
|
|
|
|
fun(Num, Acc) ->
|
|
|
|
|
ParamName = [$@ | integer_to_list(Num)],
|
|
|
|
|
if Num == 1 ->
|
|
|
|
|
ParamName ++ Acc;
|
|
|
|
|
true ->
|
|
|
|
|
[$, | ParamName] ++ Acc
|
|
|
|
|
end
|
|
|
|
|
end, [], lists:reverse(ParamNums)),
|
|
|
|
|
ParamNamesBin = list_to_binary(ParamNames),
|
|
|
|
|
|
|
|
|
|
ExecStmt = <<"EXECUTE ", NameBin/binary, " USING ",
|
|
|
|
|
ParamNamesBin/binary>>,
|
|
|
|
|
|
|
|
|
|
ParamVals = lists:zip(ParamNums, Params),
|
|
|
|
|
Stmts = lists:foldl(
|
|
|
|
|
fun({Num, Val}, Acc) ->
|
|
|
|
|
NumBin = mysql:encode(Num, true),
|
|
|
|
|
ValBin = mysql:encode(Val, true),
|
|
|
|
|
[<<"SET @", NumBin/binary, "=", ValBin/binary>> | Acc]
|
|
|
|
|
end, [ExecStmt], lists:reverse(ParamVals)),
|
|
|
|
|
Stmts.
|
|
|
|
|
|
|
|
|
|
atom_to_binary(Val) ->
|
|
|
|
|
<<_:4/binary, Bin/binary>> = term_to_binary(Val),
|
|
|
|
|
Bin.
|
|
|
|
|
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: mysql_init(Sock, RecvPid, User, Password, LogFun)
|
|
|
|
|
%% Sock = term(), gen_tcp socket
|
|
|
|
|
%% RecvPid = pid(), mysql_recv process
|
|
|
|
|
%% User = string()
|
|
|
|
|
%% Password = string()
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% Descrip.: Try to authenticate on our new socket.
|
|
|
|
|
%% Returns : ok | {error, Reason}
|
|
|
|
|
%% Reason = string()
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
mysql_init(Sock, RecvPid, User, Password, LogFun) ->
|
|
|
|
|
case do_recv(LogFun, RecvPid, undefined) of
|
|
|
|
|
{ok, Packet, InitSeqNum} ->
|
|
|
|
|
{Version, Salt1, Salt2, Caps} = greeting(Packet, LogFun),
|
|
|
|
|
AuthRes =
|
|
|
|
|
case Caps band ?SECURE_CONNECTION of
|
|
|
|
|
?SECURE_CONNECTION ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
mysql_auth:do_new_auth(
|
|
|
|
|
Sock, RecvPid, InitSeqNum + 1,
|
|
|
|
|
User, Password, Salt1, Salt2, LogFun);
|
2010-03-13 13:00:51 +00:00
|
|
|
|
_ ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
mysql_auth:do_old_auth(
|
|
|
|
|
Sock, RecvPid, InitSeqNum + 1, User, Password,
|
|
|
|
|
Salt1, LogFun)
|
2010-03-13 13:00:51 +00:00
|
|
|
|
end,
|
|
|
|
|
case AuthRes of
|
|
|
|
|
{ok, <<0:8, _Rest/binary>>, _RecvNum} ->
|
|
|
|
|
{ok,Version};
|
|
|
|
|
{ok, <<255:8, Code:16/little, Message/binary>>, _RecvNum} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error, "init error ~p: ~p",
|
|
|
|
|
[Code, binary_to_list(Message)]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{error, binary_to_list(Message)};
|
|
|
|
|
{ok, RecvPacket, _RecvNum} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"init unknown error ~p",
|
|
|
|
|
[binary_to_list(RecvPacket)]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{error, binary_to_list(RecvPacket)};
|
|
|
|
|
{error, Reason} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, error,
|
|
|
|
|
"init failed receiving data : ~p", [Reason]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{error, Reason}
|
|
|
|
|
end;
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, Reason}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%% part of mysql_init/4
|
|
|
|
|
greeting(Packet, LogFun) ->
|
|
|
|
|
<<Protocol:8, Rest/binary>> = Packet,
|
|
|
|
|
{Version, Rest2} = asciz(Rest),
|
|
|
|
|
<<_TreadID:32/little, Rest3/binary>> = Rest2,
|
|
|
|
|
{Salt, Rest4} = asciz(Rest3),
|
|
|
|
|
<<Caps:16/little, Rest5/binary>> = Rest4,
|
|
|
|
|
<<ServerChar:16/binary-unit:8, Rest6/binary>> = Rest5,
|
|
|
|
|
{Salt2, _Rest7} = asciz(Rest6),
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log2(LogFun, debug,
|
|
|
|
|
"greeting version ~p (protocol ~p) salt ~p caps ~p serverchar ~p"
|
|
|
|
|
"salt2 ~p",
|
|
|
|
|
[Version, Protocol, Salt, Caps, ServerChar, Salt2]),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{normalize_version(Version, LogFun), Salt, Salt2, Caps}.
|
|
|
|
|
|
|
|
|
|
%% part of greeting/2
|
|
|
|
|
asciz(Data) when binary(Data) ->
|
|
|
|
|
mysql:asciz_binary(Data, []);
|
|
|
|
|
asciz(Data) when list(Data) ->
|
|
|
|
|
{String, [0 | Rest]} = lists:splitwith(fun (C) ->
|
|
|
|
|
C /= 0
|
|
|
|
|
end, Data),
|
|
|
|
|
{String, Rest}.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: get_query_response(LogFun, RecvPid)
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% RecvPid = pid(), mysql_recv process
|
|
|
|
|
%% Version = integer(), Representing MySQL version used
|
|
|
|
|
%% Descrip.: Wait for frames until we have a complete query response.
|
|
|
|
|
%% Returns : {data, #mysql_result}
|
|
|
|
|
%% {updated, #mysql_result}
|
|
|
|
|
%% {error, #mysql_result}
|
|
|
|
|
%% FieldInfo = list() of term()
|
|
|
|
|
%% Rows = list() of [string()]
|
|
|
|
|
%% AffectedRows = int()
|
|
|
|
|
%% Reason = term()
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
get_query_response(LogFun, RecvPid, Version) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
case do_recv(LogFun, RecvPid, undefined) of
|
|
|
|
|
{ok, <<Fieldcount:8, Rest/binary>>, _} ->
|
|
|
|
|
case Fieldcount of
|
|
|
|
|
0 ->
|
|
|
|
|
%% No Tabular data
|
|
|
|
|
<<AffectedRows:8, _Rest2/binary>> = Rest,
|
|
|
|
|
{updated, #mysql_result{affectedrows=AffectedRows}};
|
|
|
|
|
255 ->
|
|
|
|
|
<<_Code:16/little, Message/binary>> = Rest,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
{error, #mysql_result{error=Message}};
|
2010-03-13 13:00:51 +00:00
|
|
|
|
_ ->
|
|
|
|
|
%% Tabular data received
|
|
|
|
|
case get_fields(LogFun, RecvPid, [], Version) of
|
|
|
|
|
{ok, Fields} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
case get_rows(Fields, LogFun, RecvPid, []) of
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{ok, Rows} ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
{data, #mysql_result{fieldinfo=Fields,
|
|
|
|
|
rows=Rows}};
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, #mysql_result{error=Reason}}
|
|
|
|
|
end;
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, #mysql_result{error=Reason}}
|
|
|
|
|
end
|
|
|
|
|
end;
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, #mysql_result{error=Reason}}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: get_fields(LogFun, RecvPid, [], Version)
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% RecvPid = pid(), mysql_recv process
|
|
|
|
|
%% Version = integer(), Representing MySQL version used
|
|
|
|
|
%% Descrip.: Received and decode field information.
|
|
|
|
|
%% Returns : {ok, FieldInfo} |
|
|
|
|
|
%% {error, Reason}
|
|
|
|
|
%% FieldInfo = list() of term()
|
|
|
|
|
%% Reason = term()
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Support for MySQL 4.0.x:
|
|
|
|
|
get_fields(LogFun, RecvPid, Res, ?MYSQL_4_0) ->
|
|
|
|
|
case do_recv(LogFun, RecvPid, undefined) of
|
|
|
|
|
{ok, Packet, _Num} ->
|
|
|
|
|
case Packet of
|
|
|
|
|
<<254:8>> ->
|
|
|
|
|
{ok, lists:reverse(Res)};
|
|
|
|
|
<<254:8, Rest/binary>> when size(Rest) < 8 ->
|
|
|
|
|
{ok, lists:reverse(Res)};
|
|
|
|
|
_ ->
|
|
|
|
|
{Table, Rest} = get_with_length(Packet),
|
|
|
|
|
{Field, Rest2} = get_with_length(Rest),
|
|
|
|
|
{LengthB, Rest3} = get_with_length(Rest2),
|
|
|
|
|
LengthL = size(LengthB) * 8,
|
|
|
|
|
<<Length:LengthL/little>> = LengthB,
|
|
|
|
|
{Type, Rest4} = get_with_length(Rest3),
|
|
|
|
|
{_Flags, _Rest5} = get_with_length(Rest4),
|
2010-03-14 12:01:32 +00:00
|
|
|
|
This = {Table,
|
|
|
|
|
Field,
|
2010-03-13 13:00:51 +00:00
|
|
|
|
Length,
|
|
|
|
|
%% TODO: Check on MySQL 4.0 if types are specified
|
2010-03-14 12:01:32 +00:00
|
|
|
|
%% using the same 4.1 formalism and could
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%% be expanded to atoms:
|
2010-03-14 12:01:32 +00:00
|
|
|
|
Type},
|
2010-03-13 13:00:51 +00:00
|
|
|
|
get_fields(LogFun, RecvPid, [This | Res], ?MYSQL_4_0)
|
|
|
|
|
end;
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, Reason}
|
|
|
|
|
end;
|
|
|
|
|
%% Support for MySQL 4.1.x and 5.x:
|
|
|
|
|
get_fields(LogFun, RecvPid, Res, ?MYSQL_4_1) ->
|
|
|
|
|
case do_recv(LogFun, RecvPid, undefined) of
|
|
|
|
|
{ok, Packet, _Num} ->
|
|
|
|
|
case Packet of
|
|
|
|
|
<<254:8>> ->
|
|
|
|
|
{ok, lists:reverse(Res)};
|
|
|
|
|
<<254:8, Rest/binary>> when size(Rest) < 8 ->
|
|
|
|
|
{ok, lists:reverse(Res)};
|
|
|
|
|
_ ->
|
|
|
|
|
{_Catalog, Rest} = get_with_length(Packet),
|
|
|
|
|
{_Database, Rest2} = get_with_length(Rest),
|
|
|
|
|
{Table, Rest3} = get_with_length(Rest2),
|
|
|
|
|
%% OrgTable is the real table name if Table is an alias
|
|
|
|
|
{_OrgTable, Rest4} = get_with_length(Rest3),
|
|
|
|
|
{Field, Rest5} = get_with_length(Rest4),
|
|
|
|
|
%% OrgField is the real field name if Field is an alias
|
|
|
|
|
{_OrgField, Rest6} = get_with_length(Rest5),
|
|
|
|
|
|
|
|
|
|
<<_Metadata:8/little, _Charset:16/little,
|
|
|
|
|
Length:32/little, Type:8/little,
|
|
|
|
|
_Flags:16/little, _Decimals:8/little,
|
|
|
|
|
_Rest7/binary>> = Rest6,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
|
|
|
|
|
This = {Table,
|
|
|
|
|
Field,
|
2010-03-13 13:00:51 +00:00
|
|
|
|
Length,
|
|
|
|
|
get_field_datatype(Type)},
|
|
|
|
|
get_fields(LogFun, RecvPid, [This | Res], ?MYSQL_4_1)
|
|
|
|
|
end;
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, Reason}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: get_rows(N, LogFun, RecvPid, [])
|
|
|
|
|
%% N = integer(), number of rows to get
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% RecvPid = pid(), mysql_recv process
|
|
|
|
|
%% Descrip.: Receive and decode a number of rows.
|
|
|
|
|
%% Returns : {ok, Rows} |
|
|
|
|
|
%% {error, Reason}
|
|
|
|
|
%% Rows = list() of [string()]
|
|
|
|
|
%%--------------------------------------------------------------------
|
2010-03-14 12:01:32 +00:00
|
|
|
|
get_rows(Fields, LogFun, RecvPid, Res) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
case do_recv(LogFun, RecvPid, undefined) of
|
|
|
|
|
{ok, Packet, _Num} ->
|
|
|
|
|
case Packet of
|
|
|
|
|
<<254:8, Rest/binary>> when size(Rest) < 8 ->
|
|
|
|
|
{ok, lists:reverse(Res)};
|
|
|
|
|
_ ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
{ok, This} = get_row(Fields, Packet, []),
|
|
|
|
|
get_rows(Fields, LogFun, RecvPid, [This | Res])
|
2010-03-13 13:00:51 +00:00
|
|
|
|
end;
|
|
|
|
|
{error, Reason} ->
|
|
|
|
|
{error, Reason}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
%% part of get_rows/4
|
2010-03-14 12:01:32 +00:00
|
|
|
|
get_row([], _Data, Res) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{ok, lists:reverse(Res)};
|
2010-03-14 12:01:32 +00:00
|
|
|
|
get_row([Field | OtherFields], Data, Res) ->
|
2010-03-13 13:00:51 +00:00
|
|
|
|
{Col, Rest} = get_with_length(Data),
|
|
|
|
|
This = case Col of
|
|
|
|
|
null ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
undefined;
|
2010-03-13 13:00:51 +00:00
|
|
|
|
_ ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
convert_type(Col, element(4, Field))
|
2010-03-13 13:00:51 +00:00
|
|
|
|
end,
|
2010-03-14 12:01:32 +00:00
|
|
|
|
get_row(OtherFields, Rest, [This | Res]).
|
2010-03-13 13:00:51 +00:00
|
|
|
|
|
|
|
|
|
get_with_length(<<251:8, Rest/binary>>) ->
|
|
|
|
|
{null, Rest};
|
|
|
|
|
get_with_length(<<252:8, Length:16/little, Rest/binary>>) ->
|
|
|
|
|
split_binary(Rest, Length);
|
|
|
|
|
get_with_length(<<253:8, Length:24/little, Rest/binary>>) ->
|
|
|
|
|
split_binary(Rest, Length);
|
|
|
|
|
get_with_length(<<254:8, Length:64/little, Rest/binary>>) ->
|
|
|
|
|
split_binary(Rest, Length);
|
|
|
|
|
get_with_length(<<Length:8, Rest/binary>>) when Length < 251 ->
|
|
|
|
|
split_binary(Rest, Length).
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: do_send(Sock, Packet, SeqNum, LogFun)
|
|
|
|
|
%% Sock = term(), gen_tcp socket
|
|
|
|
|
%% Packet = binary()
|
|
|
|
|
%% SeqNum = integer(), packet sequence number
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% Descrip.: Send a packet to the MySQL server.
|
|
|
|
|
%% Returns : result of gen_tcp:send/2
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
do_send(Sock, Packet, SeqNum, _LogFun) when is_binary(Packet), is_integer(SeqNum) ->
|
|
|
|
|
Data = <<(size(Packet)):24/little, SeqNum:8, Packet/binary>>,
|
|
|
|
|
gen_tcp:send(Sock, Data).
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: normalize_version(Version, LogFun)
|
|
|
|
|
%% Version = string()
|
|
|
|
|
%% LogFun = undefined | function() with arity 3
|
|
|
|
|
%% Descrip.: Return a flag corresponding to the MySQL version used.
|
|
|
|
|
%% The protocol used depends on this flag.
|
|
|
|
|
%% Returns : Version = string()
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
normalize_version([$4,$.,$0|_T], LogFun) ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log(LogFun, debug, "switching to MySQL 4.0.x protocol."),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
?MYSQL_4_0;
|
|
|
|
|
normalize_version([$4,$.,$1|_T], _LogFun) ->
|
|
|
|
|
?MYSQL_4_1;
|
|
|
|
|
normalize_version([$5|_T], _LogFun) ->
|
|
|
|
|
%% MySQL version 5.x protocol is compliant with MySQL 4.1.x:
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?MYSQL_4_1;
|
2010-03-13 13:00:51 +00:00
|
|
|
|
normalize_version(_Other, LogFun) ->
|
2010-03-14 12:01:32 +00:00
|
|
|
|
?Log(LogFun, error, "MySQL version not supported: MySQL Erlang module "
|
|
|
|
|
"might not work correctly."),
|
2010-03-13 13:00:51 +00:00
|
|
|
|
%% Error, but trying the oldest protocol anyway:
|
|
|
|
|
?MYSQL_4_0.
|
|
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
%% Function: get_field_datatype(DataType)
|
|
|
|
|
%% DataType = integer(), MySQL datatype
|
|
|
|
|
%% Descrip.: Return MySQL field datatype as description string
|
|
|
|
|
%% Returns : String, MySQL datatype
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
get_field_datatype(0) -> 'DECIMAL';
|
|
|
|
|
get_field_datatype(1) -> 'TINY';
|
|
|
|
|
get_field_datatype(2) -> 'SHORT';
|
|
|
|
|
get_field_datatype(3) -> 'LONG';
|
|
|
|
|
get_field_datatype(4) -> 'FLOAT';
|
|
|
|
|
get_field_datatype(5) -> 'DOUBLE';
|
|
|
|
|
get_field_datatype(6) -> 'NULL';
|
|
|
|
|
get_field_datatype(7) -> 'TIMESTAMP';
|
|
|
|
|
get_field_datatype(8) -> 'LONGLONG';
|
|
|
|
|
get_field_datatype(9) -> 'INT24';
|
|
|
|
|
get_field_datatype(10) -> 'DATE';
|
|
|
|
|
get_field_datatype(11) -> 'TIME';
|
|
|
|
|
get_field_datatype(12) -> 'DATETIME';
|
|
|
|
|
get_field_datatype(13) -> 'YEAR';
|
|
|
|
|
get_field_datatype(14) -> 'NEWDATE';
|
2010-03-14 12:01:32 +00:00
|
|
|
|
get_field_datatype(246) -> 'NEWDECIMAL';
|
2010-03-13 13:00:51 +00:00
|
|
|
|
get_field_datatype(247) -> 'ENUM';
|
|
|
|
|
get_field_datatype(248) -> 'SET';
|
|
|
|
|
get_field_datatype(249) -> 'TINYBLOB';
|
|
|
|
|
get_field_datatype(250) -> 'MEDIUM_BLOG';
|
|
|
|
|
get_field_datatype(251) -> 'LONG_BLOG';
|
|
|
|
|
get_field_datatype(252) -> 'BLOB';
|
|
|
|
|
get_field_datatype(253) -> 'VAR_STRING';
|
|
|
|
|
get_field_datatype(254) -> 'STRING';
|
|
|
|
|
get_field_datatype(255) -> 'GEOMETRY'.
|
|
|
|
|
|
2010-03-14 12:01:32 +00:00
|
|
|
|
convert_type(Val, ColType) ->
|
|
|
|
|
case ColType of
|
|
|
|
|
T when T == 'TINY';
|
|
|
|
|
T == 'SHORT';
|
|
|
|
|
T == 'LONG';
|
|
|
|
|
T == 'LONGLONG';
|
|
|
|
|
T == 'INT24';
|
|
|
|
|
T == 'YEAR' ->
|
|
|
|
|
list_to_integer(binary_to_list(Val));
|
|
|
|
|
T when T == 'TIMESTAMP';
|
|
|
|
|
T == 'DATETIME' ->
|
|
|
|
|
{ok, [Year, Month, Day, Hour, Minute, Second], _Leftovers} =
|
|
|
|
|
io_lib:fread("~d-~d-~d ~d:~d:~d", binary_to_list(Val)),
|
|
|
|
|
{datetime, {{Year, Month, Day}, {Hour, Minute, Second}}};
|
|
|
|
|
'TIME' ->
|
|
|
|
|
{ok, [Hour, Minute, Second], _Leftovers} =
|
|
|
|
|
io_lib:fread("~d:~d:~d", binary_to_list(Val)),
|
|
|
|
|
{time, {Hour, Minute, Second}};
|
|
|
|
|
'DATE' ->
|
|
|
|
|
{ok, [Year, Month, Day], _Leftovers} =
|
|
|
|
|
io_lib:fread("~d-~d-~d", binary_to_list(Val)),
|
|
|
|
|
{date, {Year, Month, Day}};
|
|
|
|
|
T when T == 'DECIMAL';
|
|
|
|
|
T == 'NEWDECIMAL';
|
|
|
|
|
T == 'FLOAT';
|
|
|
|
|
T == 'DOUBLE' ->
|
|
|
|
|
{ok, [Num], _Leftovers} =
|
|
|
|
|
case io_lib:fread("~f", binary_to_list(Val)) of
|
|
|
|
|
{error, _} ->
|
|
|
|
|
io_lib:fread("~d", binary_to_list(Val));
|
|
|
|
|
Res ->
|
|
|
|
|
Res
|
|
|
|
|
end,
|
|
|
|
|
Num;
|
|
|
|
|
_Other ->
|
|
|
|
|
Val
|
2010-03-13 13:00:51 +00:00
|
|
|
|
end.
|
2010-03-14 12:01:32 +00:00
|
|
|
|
|