sql_parse.cc 216 KB
Newer Older
1
/* Copyright (C) 2000-2003 MySQL AB
2

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3 4 5 6
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
7

bk@work.mysql.com's avatar
bk@work.mysql.com committed
8 9 10 11
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
12

bk@work.mysql.com's avatar
bk@work.mysql.com committed
13 14 15 16
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */

17
#define MYSQL_LEX 1
bk@work.mysql.com's avatar
bk@work.mysql.com committed
18
#include "mysql_priv.h"
19
#include "sql_repl.h"
20
#include "repl_failsafe.h"
bk@work.mysql.com's avatar
bk@work.mysql.com committed
21 22 23 24
#include <m_ctype.h>
#include <myisam.h>
#include <my_dir.h>

heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
25
#ifdef HAVE_INNOBASE_DB
26
#include "ha_innodb.h"
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
27 28
#endif

29 30 31 32
#ifdef HAVE_NDBCLUSTER_DB
#include "ha_ndbcluster.h"
#endif

33
#include "sp_head.h"
34
#include "sp.h"
35
#include "sp_cache.h"
36

37 38 39 40 41 42 43 44 45 46 47
#ifdef HAVE_OPENSSL
/*
  Without SSL the handshake consists of one packet. This packet
  has both client capabilites and scrambled password.
  With SSL the handshake might consist of two packets. If the first
  packet (client capabilities) has CLIENT_SSL flag set, we have to
  switch to SSL and read the second packet. The scrambled password
  is in the second packet and client_capabilites field will be ignored.
  Maybe it is better to accept flags other than CLIENT_SSL from the
  second packet?
*/
48 49 50
#define SSL_HANDSHAKE_SIZE      2
#define NORMAL_HANDSHAKE_SIZE   6
#define MIN_HANDSHAKE_SIZE      2
51
#else
52
#define MIN_HANDSHAKE_SIZE      6
53
#endif /* HAVE_OPENSSL */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
54

55 56 57 58 59 60
/* Used in error handling only */
#define SP_TYPE_STRING(LP) \
  ((LP)->sphead->m_type == TYPE_ENUM_FUNCTION ? "FUNCTION" : "PROCEDURE")
#define SP_COM_STRING(LP) \
  ((LP)->sql_command == SQLCOM_CREATE_SPFUNCTION || \
   (LP)->sql_command == SQLCOM_ALTER_FUNCTION || \
61
   (LP)->sql_command == SQLCOM_SHOW_CREATE_FUNC || \
62 63 64
   (LP)->sql_command == SQLCOM_DROP_FUNCTION ? \
   "FUNCTION" : "PROCEDURE")

65 66 67
#ifdef SOLARIS
extern "C" int gethostname(char *name, int namelen);
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
68

69
static void time_out_user_resource_limits(THD *thd, USER_CONN *uc);
70
#ifndef NO_EMBEDDED_ACCESS_CHECKS
71
static int check_for_max_user_connections(THD *thd, USER_CONN *uc);
72
#endif
73
static void decrease_user_connections(USER_CONN *uc);
74
static bool check_db_used(THD *thd,TABLE_LIST *tables);
75
static bool check_multi_update_lock(THD *thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
76
static void remove_escape(char *name);
77 78
static bool append_file_to_dir(THD *thd, const char **filename_ptr,
			       const char *table_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
79

80
const char *any_db="*any*";	// Special symbol for check_access
bk@work.mysql.com's avatar
bk@work.mysql.com committed
81 82 83 84

const char *command_name[]={
  "Sleep", "Quit", "Init DB", "Query", "Field List", "Create DB",
  "Drop DB", "Refresh", "Shutdown", "Statistics", "Processlist",
85
  "Connect","Kill","Debug","Ping","Time","Delayed insert","Change user",
86
  "Binlog Dump","Table Dump",  "Connect Out", "Register Slave",
87
  "Prepare", "Execute", "Long Data", "Close stmt",
88
  "Reset stmt", "Set option", "Fetch",
89
  "Error"					// Last command number
bk@work.mysql.com's avatar
bk@work.mysql.com committed
90 91
};

92 93 94 95
const char *xa_state_names[]={
  "NON-EXISTING", "ACTIVE", "IDLE", "PREPARED"
};

96
static char empty_c_string[1]= {0};		// Used for not defined 'db'
bk@work.mysql.com's avatar
bk@work.mysql.com committed
97 98 99 100

#ifdef __WIN__
static void  test_signal(int sig_ptr)
{
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
101
#if !defined( DBUG_OFF)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
102 103
  MessageBox(NULL,"Test signal","DBUG",MB_OK);
#endif
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
104
#if defined(OS2)
105 106
  fprintf(stderr, "Test signal %d\n", sig_ptr);
  fflush(stderr);
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
107
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
108 109 110 111
}
static void init_signals(void)
{
  int signals[7] = {SIGINT,SIGILL,SIGFPE,SIGSEGV,SIGTERM,SIGBREAK,SIGABRT } ;
112
  for (int i=0 ; i < 7 ; i++)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
113 114 115 116
    signal( signals[i], test_signal) ;
}
#endif

117 118 119 120 121
static void unlock_locked_tables(THD *thd)
{
  if (thd->locked_tables)
  {
    thd->lock=thd->locked_tables;
122
    thd->locked_tables=0;			// Will be automatically closed
123 124 125 126
    close_thread_tables(thd);			// Free tables
  }
}

127

128
static bool end_active_trans(THD *thd)
129
{
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
130
  int error=0;
131
  DBUG_ENTER("end_active_trans");
132
  if (unlikely(thd->in_sub_stmt))
133 134 135 136
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    DBUG_RETURN(1);
  }
137 138 139 140 141 142
  if (thd->transaction.xid_state.xa_state != XA_NOTR)
  {
    my_error(ER_XAER_RMFAIL, MYF(0),
             xa_state_names[thd->transaction.xid_state.xa_state]);
    DBUG_RETURN(1);
  }
143
  if (thd->options & (OPTION_NOT_AUTOCOMMIT | OPTION_BEGIN |
144
		      OPTION_TABLE_LOCK))
145
  {
146 147 148 149
    DBUG_PRINT("info",("options: 0x%lx", (ulong) thd->options));
    /* Safety if one did "drop table" on locked tables */
    if (!thd->locked_tables)
      thd->options&= ~OPTION_TABLE_LOCK;
150
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
151
    if (ha_commit(thd))
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
152
      error=1;
153
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
154
  }
155
  DBUG_RETURN(error);
156 157
}

158 159 160
static bool begin_trans(THD *thd)
{
  int error=0;
161
  if (unlikely(thd->in_sub_stmt))
162 163 164 165
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    return 1;
  }
166 167 168 169 170 171 172 173 174 175
  if (thd->locked_tables)
  {
    thd->lock=thd->locked_tables;
    thd->locked_tables=0;			// Will be automatically closed
    close_thread_tables(thd);			// Free tables
  }
  if (end_active_trans(thd))
    error= -1;
  else
  {
176
    LEX *lex= thd->lex;
177 178 179 180
    thd->options= ((thd->options & (ulong) ~(OPTION_STATUS_NO_TRANS_UPDATE)) |
		   OPTION_BEGIN);
    thd->server_status|= SERVER_STATUS_IN_TRANS;
    if (lex->start_transaction_opt & MYSQL_START_TRANS_OPT_WITH_CONS_SNAPSHOT)
serg@serg.mylan's avatar
serg@serg.mylan committed
181
      error= ha_start_consistent_snapshot(thd);
182 183 184
  }
  return error;
}
185

monty@mysql.com's avatar
monty@mysql.com committed
186
#ifdef HAVE_REPLICATION
187 188 189
/*
  Returns true if all tables should be ignored
*/
190 191
inline bool all_tables_not_ok(THD *thd, TABLE_LIST *tables)
{
serg@serg.mylan's avatar
serg@serg.mylan committed
192
  return table_rules_on && tables && !tables_ok(thd,tables);
193
}
monty@mysql.com's avatar
monty@mysql.com committed
194
#endif
195 196


197 198 199 200 201 202 203 204 205 206 207 208
static bool some_non_temp_table_to_be_updated(THD *thd, TABLE_LIST *tables)
{
  for (TABLE_LIST *table= tables; table; table= table->next_global)
  {
    DBUG_ASSERT(table->db && table->table_name);
    if (table->updating &&
        !find_temporary_table(thd, table->db, table->table_name))
      return 1;
  }
  return 0;
}

209 210
static HASH hash_user_connections;

211 212
static int get_or_create_user_conn(THD *thd, const char *user,
				   const char *host,
peter@mysql.com's avatar
peter@mysql.com committed
213
				   USER_RESOURCES *mqh)
214
{
215
  int return_val= 0;
216
  uint temp_len, user_len;
217
  char temp_user[USER_HOST_BUFF_SIZE];
218 219 220 221 222
  struct  user_conn *uc;

  DBUG_ASSERT(user != 0);
  DBUG_ASSERT(host != 0);

223
  user_len= strlen(user);
224
  temp_len= (strmov(strmov(temp_user, user)+1, host) - temp_user)+1;
225
  (void) pthread_mutex_lock(&LOCK_user_conn);
226 227
  if (!(uc = (struct  user_conn *) hash_search(&hash_user_connections,
					       (byte*) temp_user, temp_len)))
228
  {
229 230 231
    /* First connection for user; Create a user connection object */
    if (!(uc= ((struct user_conn*)
	       my_malloc(sizeof(struct user_conn) + temp_len+1,
232 233
			 MYF(MY_WME)))))
    {
234
      net_send_error(thd, 0, NullS);		// Out of memory
235
      return_val= 1;
236
      goto end;
237
    }
238 239
    uc->user=(char*) (uc+1);
    memcpy(uc->user,temp_user,temp_len+1);
240
    uc->host= uc->user + user_len +  1;
241
    uc->len= temp_len;
242
    uc->connections= uc->questions= uc->updates= uc->conn_per_hour= 0;
243 244
    uc->user_resources= *mqh;
    uc->intime= thd->thr_create_time;
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
245
    if (my_hash_insert(&hash_user_connections, (byte*) uc))
246 247
    {
      my_free((char*) uc,0);
248
      net_send_error(thd, 0, NullS);		// Out of memory
249
      return_val= 1;
250 251 252 253
      goto end;
    }
  }
  thd->user_connect=uc;
254
  uc->connections++;
255 256 257
end:
  (void) pthread_mutex_unlock(&LOCK_user_conn);
  return return_val;
peter@mysql.com's avatar
peter@mysql.com committed
258

259
}
260 261 262


/*
263 264
  Check if user exist and password supplied is correct. 

265 266
  SYNOPSIS
    check_user()
267
    thd          thread handle, thd->security_ctx->{host,user,ip} are used
268 269 270
    command      originator of the check: now check_user is called
                 during connect and change user procedures; used for 
                 logging.
271
    passwd       scrambled password received from client
272 273 274 275
    passwd_len   length of scrambled password
    db           database name to connect to, may be NULL
    check_count  dont know exactly

276
    Note, that host, user and passwd may point to communication buffer.
277
    Current implementation does not depend on that, but future changes
278 279 280
    should be done with this in mind; 'thd' is INOUT, all other params
    are 'IN'.

281
  RETURN VALUE
282 283
    0  OK; thd->security_ctx->user/master_access/priv_user/db_access and
       thd->db are updated; OK is sent to client;
284 285
   -1  access denied or handshake error; error is sent to client;
   >0  error, not sent to client
bk@work.mysql.com's avatar
bk@work.mysql.com committed
286 287
*/

hf@deer.(none)'s avatar
hf@deer.(none) committed
288 289 290
int check_user(THD *thd, enum enum_server_command command, 
	       const char *passwd, uint passwd_len, const char *db,
	       bool check_count)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
291
{
292
  DBUG_ENTER("check_user");
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
293
  
monty@mysql.com's avatar
monty@mysql.com committed
294
#ifdef NO_EMBEDDED_ACCESS_CHECKS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
295
  thd->main_security_ctx.master_access= GLOBAL_ACLS;       // Full rights
296
  /* Change database if necessary */
297 298
  if (db && db[0])
  {
299 300 301 302
    /*
      thd->db is saved in caller and needs to be freed by caller if this
      function returns 0
    */
303 304
    thd->db= 0;
    thd->db_length= 0;
305
    if (mysql_change_db(thd, db, FALSE))
306
    {
307 308
      /* Send the error to the client */
      net_send_error(thd);
309 310 311 312 313
      if (thd->user_connect)
	decrease_user_connections(thd->user_connect);
      DBUG_RETURN(-1);
    }
  }
314
  send_ok(thd);
315
  DBUG_RETURN(0);
monty@mysql.com's avatar
monty@mysql.com committed
316 317
#else

318 319 320 321 322
  my_bool opt_secure_auth_local;
  pthread_mutex_lock(&LOCK_global_system_variables);
  opt_secure_auth_local= opt_secure_auth;
  pthread_mutex_unlock(&LOCK_global_system_variables);
  
323
  /*
324 325
    If the server is running in secure auth mode, short scrambles are 
    forbidden.
326
  */
327
  if (opt_secure_auth_local && passwd_len == SCRAMBLE_LENGTH_323)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
328
  {
329
    net_printf_error(thd, ER_NOT_SUPPORTED_AUTH_MODE);
330 331
    mysql_log.write(thd, COM_CONNECT, ER(ER_NOT_SUPPORTED_AUTH_MODE));
    DBUG_RETURN(-1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
332
  }
333 334 335 336
  if (passwd_len != 0 &&
      passwd_len != SCRAMBLE_LENGTH &&
      passwd_len != SCRAMBLE_LENGTH_323)
    DBUG_RETURN(ER_HANDSHAKE_ERROR);
peter@mysql.com's avatar
peter@mysql.com committed
337

338
  /*
339
    Clear thd->db as it points to something, that will be freed when 
340
    connection is closed. We don't want to accidentally free a wrong pointer
341 342
    if connect failed. Also in case of 'CHANGE USER' failure, current
    database will be switched to 'no database selected'.
343
  */
344 345
  thd->db= 0;
  thd->db_length= 0;
346
  
347
  USER_RESOURCES ur;
348
  int res= acl_getroot(thd, &ur, passwd, passwd_len);
hf@deer.(none)'s avatar
hf@deer.(none) committed
349
#ifndef EMBEDDED_LIBRARY
350
  if (res == -1)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
351
  {
352 353 354 355 356 357
    /*
      This happens when client (new) sends password scrambled with
      scramble(), but database holds old value (scrambled with
      scramble_323()). Here we please client to send scrambled_password
      in old format.
    */
358
    NET *net= &thd->net;
359
    if (opt_secure_auth_local)
360
    {
361
      net_printf_error(thd, ER_SERVER_IS_IN_SECURE_AUTH_MODE,
362 363
                       thd->main_security_ctx.user,
                       thd->main_security_ctx.host_or_ip);
364
      mysql_log.write(thd, COM_CONNECT, ER(ER_SERVER_IS_IN_SECURE_AUTH_MODE),
365 366
                      thd->main_security_ctx.user,
                      thd->main_security_ctx.host_or_ip);
367 368
      DBUG_RETURN(-1);
    }
monty@mysql.com's avatar
monty@mysql.com committed
369
    /* We have to read very specific packet size */
370
    if (send_old_password_request(thd) ||
monty@mysql.com's avatar
monty@mysql.com committed
371
        my_net_read(net) != SCRAMBLE_LENGTH_323 + 1)
372
    {
373 374 375 376 377
      inc_host_errors(&thd->remote.sin_addr);
      DBUG_RETURN(ER_HANDSHAKE_ERROR);
    }
    /* Final attempt to check the user based on reply */
    /* So as passwd is short, errcode is always >= 0 */
378
    res= acl_getroot(thd, &ur, (char *) net->read_pos, SCRAMBLE_LENGTH_323);
379
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
380
#endif /*EMBEDDED_LIBRARY*/
381 382
  /* here res is always >= 0 */
  if (res == 0)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
383
  {
384 385
    if (!(thd->main_security_ctx.master_access &
          NO_ACCESS)) // authentication is OK
386
    {
387 388 389 390
      DBUG_PRINT("info",
                 ("Capabilities: %d  packet_length: %ld  Host: '%s'  "
                  "Login user: '%s' Priv_user: '%s'  Using password: %s "
                  "Access: %u  db: '%s'",
391 392 393 394 395
                  thd->client_capabilities,
                  thd->max_client_packet_length,
                  thd->main_security_ctx.host_or_ip,
                  thd->main_security_ctx.user,
                  thd->main_security_ctx.priv_user,
396
                  passwd_len ? "yes": "no",
397 398
                  thd->main_security_ctx.master_access,
                  (thd->db ? thd->db : "*none*")));
399 400

      if (check_count)
401
      {
402
        VOID(pthread_mutex_lock(&LOCK_thread_count));
serg@serg.mylan's avatar
serg@serg.mylan committed
403
        bool count_ok= thread_count <= max_connections + delayed_insert_threads
404
                       || (thd->main_security_ctx.master_access & SUPER_ACL);
405 406
        VOID(pthread_mutex_unlock(&LOCK_thread_count));
        if (!count_ok)
serg@serg.mylan's avatar
serg@serg.mylan committed
407
        {                                         // too many connections
408
          net_send_error(thd, ER_CON_COUNT_ERROR);
409 410
          DBUG_RETURN(-1);
        }
411
      }
peter@mysql.com's avatar
peter@mysql.com committed
412

413
      /* Why logging is performed before all checks've passed? */
414
      mysql_log.write(thd, command,
415 416
                      (thd->main_security_ctx.priv_user ==
                       thd->main_security_ctx.user ?
417 418
                       (char*) "%s@%s on %s" :
                       (char*) "%s@%s as anonymous on %s"),
419 420
                      thd->main_security_ctx.user,
                      thd->main_security_ctx.host_or_ip,
421 422
                      db ? db : (char*) "");

423
      /*
424 425 426
        This is the default access rights for the current database.  It's
        set to 0 here because we don't have an active database yet (and we
        may not have an active database to set.
427
      */
428
      thd->main_security_ctx.db_access=0;
429 430

      /* Don't allow user to connect if he has done too many queries */
431
      if ((ur.questions || ur.updates || ur.conn_per_hour || ur.user_conn ||
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
432
	   max_user_connections) &&
433
	  get_or_create_user_conn(thd,
434 435 436 437
            (opt_old_style_user_limits ? thd->main_security_ctx.user :
             thd->main_security_ctx.priv_user),
            (opt_old_style_user_limits ? thd->main_security_ctx.host_or_ip :
             thd->main_security_ctx.priv_host),
438
            &ur))
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
439 440
	DBUG_RETURN(-1);
      if (thd->user_connect &&
441 442
	  (thd->user_connect->user_resources.conn_per_hour ||
	   thd->user_connect->user_resources.user_conn ||
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
443 444 445
	   max_user_connections) &&
	  check_for_max_user_connections(thd, thd->user_connect))
	DBUG_RETURN(-1);
446

447
      /* Change database if necessary */
448
      if (db && db[0])
449
      {
450
        if (mysql_change_db(thd, db, FALSE))
451
        {
452 453
          /* Send error to the client */
          net_send_error(thd);
454 455 456 457
          if (thd->user_connect)
            decrease_user_connections(thd->user_connect);
          DBUG_RETURN(-1);
        }
458
      }
459
      send_ok(thd);
460 461 462
      thd->password= test(passwd_len);          // remember for error messages 
      /* Ready to handle queries */
      DBUG_RETURN(0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
463 464
    }
  }
465
  else if (res == 2) // client gave short hash, server has long hash
466
  {
467
    net_printf_error(thd, ER_NOT_SUPPORTED_AUTH_MODE);
468 469
    mysql_log.write(thd,COM_CONNECT,ER(ER_NOT_SUPPORTED_AUTH_MODE));
    DBUG_RETURN(-1);
470
  }
471
  net_printf_error(thd, ER_ACCESS_DENIED_ERROR,
472 473
                   thd->main_security_ctx.user,
                   thd->main_security_ctx.host_or_ip,
474
                   passwd_len ? ER(ER_YES) : ER(ER_NO));
475
  mysql_log.write(thd, COM_CONNECT, ER(ER_ACCESS_DENIED_ERROR),
476 477
                  thd->main_security_ctx.user,
                  thd->main_security_ctx.host_or_ip,
478 479
                  passwd_len ? ER(ER_YES) : ER(ER_NO));
  DBUG_RETURN(-1);
monty@mysql.com's avatar
monty@mysql.com committed
480
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
481 482
}

483
/*
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
484 485
  Check for maximum allowable user connections, if the mysqld server is
  started with corresponding variable that is greater then 0.
486 487
*/

488 489
extern "C" byte *get_key_conn(user_conn *buff, uint *length,
			      my_bool not_used __attribute__((unused)))
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
490 491 492 493 494
{
  *length=buff->len;
  return (byte*) buff->user;
}

495
extern "C" void free_user(struct user_conn *uc)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
496 497 498 499
{
  my_free((char*) uc,MYF(0));
}

peter@mysql.com's avatar
peter@mysql.com committed
500
void init_max_user_conn(void)
501
{
502 503
  (void) hash_init(&hash_user_connections,system_charset_info,max_connections,
		   0,0,
504
		   (hash_get_key) get_key_conn, (hash_free_key) free_user,
505
		   0);
506 507 508
}


monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525
/*
  check if user has already too many connections
  
  SYNOPSIS
  check_for_max_user_connections()
  thd			Thread handle
  uc			User connect object

  NOTES
    If check fails, we decrease user connection count, which means one
    shouldn't call decrease_user_connections() after this function.

  RETURN
    0	ok
    1	error
*/

526 527
#ifndef NO_EMBEDDED_ACCESS_CHECKS

528
static int check_for_max_user_connections(THD *thd, USER_CONN *uc)
529
{
530
  int error=0;
531
  DBUG_ENTER("check_for_max_user_connections");
peter@mysql.com's avatar
peter@mysql.com committed
532

533
  (void) pthread_mutex_lock(&LOCK_user_conn);
534
  if (max_user_connections && !uc->user_resources.user_conn &&
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
535
      max_user_connections < (uint) uc->connections)
536
  {
537
    net_printf_error(thd, ER_TOO_MANY_USER_CONNECTIONS, uc->user);
538 539
    error=1;
    goto end;
540
  }
541
  time_out_user_resource_limits(thd, uc);
542 543 544 545 546 547 548 549 550 551 552
  if (uc->user_resources.user_conn &&
      uc->user_resources.user_conn < uc->connections)
  {
    net_printf_error(thd, ER_USER_LIMIT_REACHED, uc->user,
                     "max_user_connections",
                     (long) uc->user_resources.user_conn);
    error= 1;
    goto end;
  }
  if (uc->user_resources.conn_per_hour &&
      uc->user_resources.conn_per_hour <= uc->conn_per_hour)
553
  {
554
    net_printf_error(thd, ER_USER_LIMIT_REACHED, uc->user,
jimw@mysql.com's avatar
jimw@mysql.com committed
555
                     "max_connections_per_hour",
556
                     (long) uc->user_resources.conn_per_hour);
557 558 559
    error=1;
    goto end;
  }
560
  uc->conn_per_hour++;
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
561 562

  end:
563 564
  if (error)
    uc->connections--; // no need for decrease_user_connections() here
565
  (void) pthread_mutex_unlock(&LOCK_user_conn);
566
  DBUG_RETURN(error);
567
}
568
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
569

monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587
/*
  Decrease user connection count

  SYNOPSIS
    decrease_user_connections()
    uc			User connection object

  NOTES
    If there is a n user connection object for a connection
    (which only happens if 'max_user_connections' is defined or
    if someone has created a resource grant for a user), then
    the connection count is always incremented on connect.

    The user connect object is not freed if some users has
    'max connections per hour' defined as we need to be able to hold
    count over the lifetime of the connection.
*/

588
static void decrease_user_connections(USER_CONN *uc)
589
{
590
  DBUG_ENTER("decrease_user_connections");
591 592 593
  (void) pthread_mutex_lock(&LOCK_user_conn);
  DBUG_ASSERT(uc->connections);
  if (!--uc->connections && !mqh_used)
594 595
  {
    /* Last connection for user; Delete it */
596
    (void) hash_delete(&hash_user_connections,(byte*) uc);
597
  }
598
  (void) pthread_mutex_unlock(&LOCK_user_conn);
599
  DBUG_VOID_RETURN;
600 601
}

602

603 604 605 606 607
void free_max_user_conn(void)
{
  hash_free(&hash_user_connections);
}

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
608

609 610 611
/*
  Mark all commands that somehow changes a table
  This is used to check number of updates / hour
kent@mysql.com's avatar
kent@mysql.com committed
612 613 614

  sql_command is actually set to SQLCOM_END sometimes
  so we need the +1 to include it in the array.
615 616 617 618 619 620

  numbers are:
     0  - read-only query
  != 0  - query that may change a table
     2  - query that returns meaningful ROW_COUNT() -
          a number of modified rows
621 622
*/

kent@mysql.com's avatar
kent@mysql.com committed
623
char  uc_update_queries[SQLCOM_END+1];
624 625 626

void init_update_queries(void)
{
kent@mysql.com's avatar
kent@mysql.com committed
627 628
  bzero((gptr) &uc_update_queries, sizeof(uc_update_queries));

629 630 631
  uc_update_queries[SQLCOM_CREATE_TABLE]=1;
  uc_update_queries[SQLCOM_CREATE_INDEX]=1;
  uc_update_queries[SQLCOM_ALTER_TABLE]=1;
632 633 634 635 636 637
  uc_update_queries[SQLCOM_UPDATE]=2;
  uc_update_queries[SQLCOM_UPDATE_MULTI]=2;
  uc_update_queries[SQLCOM_INSERT]=2;
  uc_update_queries[SQLCOM_INSERT_SELECT]=2;
  uc_update_queries[SQLCOM_DELETE]=2;
  uc_update_queries[SQLCOM_DELETE_MULTI]=2;
638 639 640 641 642
  uc_update_queries[SQLCOM_TRUNCATE]=1;
  uc_update_queries[SQLCOM_DROP_TABLE]=1;
  uc_update_queries[SQLCOM_LOAD]=1;
  uc_update_queries[SQLCOM_CREATE_DB]=1;
  uc_update_queries[SQLCOM_DROP_DB]=1;
643 644
  uc_update_queries[SQLCOM_REPLACE]=2;
  uc_update_queries[SQLCOM_REPLACE_SELECT]=2;
645 646 647 648
  uc_update_queries[SQLCOM_RENAME_TABLE]=1;
  uc_update_queries[SQLCOM_BACKUP_TABLE]=1;
  uc_update_queries[SQLCOM_RESTORE_TABLE]=1;
  uc_update_queries[SQLCOM_DROP_INDEX]=1;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
649 650
  uc_update_queries[SQLCOM_CREATE_VIEW]=1;
  uc_update_queries[SQLCOM_DROP_VIEW]=1;
651 652
}

653 654
bool is_update_query(enum enum_sql_command command)
{
kent@mysql.com's avatar
kent@mysql.com committed
655
  DBUG_ASSERT(command >= 0 && command <= SQLCOM_END);
656
  return uc_update_queries[command] != 0;
657
}
658

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
659
/*
660 661
  Reset per-hour user resource limits when it has been more than
  an hour since they were last checked
662

663 664 665 666
  SYNOPSIS:
    time_out_user_resource_limits()
    thd			Thread handler
    uc			User connection details
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
667

668 669 670 671
  NOTE:
    This assumes that the LOCK_user_conn mutex has been acquired, so it is
    safe to test and modify members of the USER_CONN structure.
*/
672

673
static void time_out_user_resource_limits(THD *thd, USER_CONN *uc)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
674
{
675
  time_t check_time = thd->start_time ?  thd->start_time : time(NULL);
676
  DBUG_ENTER("time_out_user_resource_limits");
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
677

678
  /* If more than a hour since last check, reset resource checking */
679 680 681 682 683 684 685
  if (check_time  - uc->intime >= 3600)
  {
    uc->questions=1;
    uc->updates=0;
    uc->conn_per_hour=0;
    uc->intime=check_time;
  }
686 687 688 689 690 691 692 693 694 695 696 697

  DBUG_VOID_RETURN;
}


/*
  Check if maximum queries per hour limit has been reached
  returns 0 if OK.
*/

static bool check_mqh(THD *thd, uint check_command)
{
698 699
#ifndef NO_EMBEDDED_ACCESS_CHECKS
  bool error= 0;
700 701 702 703 704 705 706 707
  USER_CONN *uc=thd->user_connect;
  DBUG_ENTER("check_mqh");
  DBUG_ASSERT(uc != 0);

  (void) pthread_mutex_lock(&LOCK_user_conn);

  time_out_user_resource_limits(thd, uc);

708
  /* Check that we have not done too many questions / hour */
709 710 711
  if (uc->user_resources.questions &&
      uc->questions++ >= uc->user_resources.questions)
  {
712 713
    net_printf_error(thd, ER_USER_LIMIT_REACHED, uc->user, "max_questions",
                     (long) uc->user_resources.questions);
714 715 716
    error=1;
    goto end;
  }
717
  if (check_command < (uint) SQLCOM_END)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
718
  {
719 720 721 722
    /* Check that we have not done too many updates / hour */
    if (uc->user_resources.updates && uc_update_queries[check_command] &&
	uc->updates++ >= uc->user_resources.updates)
    {
723 724
      net_printf_error(thd, ER_USER_LIMIT_REACHED, uc->user, "max_updates",
                       (long) uc->user_resources.updates);
725 726 727
      error=1;
      goto end;
    }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
728 729
  }
end:
730
  (void) pthread_mutex_unlock(&LOCK_user_conn);
731
  DBUG_RETURN(error);
732 733
#else
  return (0);
monty@mysql.com's avatar
monty@mysql.com committed
734
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
735 736
}

737

monty@mysql.com's avatar
monty@mysql.com committed
738
static void reset_mqh(LEX_USER *lu, bool get_them= 0)
739
{
monty@mysql.com's avatar
monty@mysql.com committed
740
#ifndef NO_EMBEDDED_ACCESS_CHECKS
741
  (void) pthread_mutex_lock(&LOCK_user_conn);
peter@mysql.com's avatar
peter@mysql.com committed
742
  if (lu)  // for GRANT
743
  {
744
    USER_CONN *uc;
745
    uint temp_len=lu->user.length+lu->host.length+2;
746
    char temp_user[USER_HOST_BUFF_SIZE];
747

748 749
    memcpy(temp_user,lu->user.str,lu->user.length);
    memcpy(temp_user+lu->user.length+1,lu->host.str,lu->host.length);
750
    temp_user[lu->user.length]='\0'; temp_user[temp_len-1]=0;
751
    if ((uc = (struct  user_conn *) hash_search(&hash_user_connections,
752
						(byte*) temp_user, temp_len)))
753 754
    {
      uc->questions=0;
755
      get_mqh(temp_user,&temp_user[lu->user.length+1],uc);
756 757
      uc->updates=0;
      uc->conn_per_hour=0;
758 759
    }
  }
monty@mysql.com's avatar
monty@mysql.com committed
760
  else
761
  {
monty@mysql.com's avatar
monty@mysql.com committed
762
    /* for FLUSH PRIVILEGES and FLUSH USER_RESOURCES */
763
    for (uint idx=0;idx < hash_user_connections.records; idx++)
764
    {
monty@mysql.com's avatar
monty@mysql.com committed
765 766
      USER_CONN *uc=(struct user_conn *) hash_element(&hash_user_connections,
						      idx);
767 768 769 770 771
      if (get_them)
	get_mqh(uc->user,uc->host,uc);
      uc->questions=0;
      uc->updates=0;
      uc->conn_per_hour=0;
772 773
    }
  }
774
  (void) pthread_mutex_unlock(&LOCK_user_conn);
monty@mysql.com's avatar
monty@mysql.com committed
775
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
776
}
777

bk@work.mysql.com's avatar
bk@work.mysql.com committed
778
/*
779
    Perform handshake, authorize client and update thd ACL variables.
780
  SYNOPSIS
781
    check_connection()
782
    thd  thread handle
783 784

  RETURN
785
     0  success, OK is sent to user, thd is updated.
786 787
    -1  error, which is sent to user
   > 0  error code (not sent to user)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
788 789
*/

hf@deer.(none)'s avatar
hf@deer.(none) committed
790 791
#ifndef EMBEDDED_LIBRARY
static int check_connection(THD *thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
792
{
793
  uint connect_errors= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
794
  NET *net= &thd->net;
monty@mysql.com's avatar
monty@mysql.com committed
795 796
  ulong pkt_len= 0;
  char *end;
797

798 799
  DBUG_PRINT("info",
             ("New connection received on %s", vio_description(net->vio)));
800
#ifdef SIGNAL_WITH_VIO_CLOSE
801
  thd->set_active_vio(net->vio);
802
#endif
803

804
  if (!thd->main_security_ctx.host)         // If TCP/IP connection
bk@work.mysql.com's avatar
bk@work.mysql.com committed
805
  {
806
    char ip[30];
807

808
    if (vio_peer_addr(net->vio, ip, &thd->peer_port))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
809
      return (ER_BAD_HOST_ERROR);
810
    if (!(thd->main_security_ctx.ip= my_strdup(ip,MYF(0))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
811
      return (ER_OUT_OF_RESOURCES);
812
    thd->main_security_ctx.host_or_ip= thd->main_security_ctx.ip;
monty@mysql.com's avatar
monty@mysql.com committed
813
    vio_in_addr(net->vio,&thd->remote.sin_addr);
814
    if (!(specialflag & SPECIAL_NO_RESOLVE))
815
    {
816
      vio_in_addr(net->vio,&thd->remote.sin_addr);
817 818
      thd->main_security_ctx.host=
        ip_to_hostname(&thd->remote.sin_addr, &connect_errors);
819
      /* Cut very long hostnames to avoid possible overflows */
820
      if (thd->main_security_ctx.host)
821
      {
822 823 824 825
        if (thd->main_security_ctx.host != my_localhost)
          thd->main_security_ctx.host[min(strlen(thd->main_security_ctx.host),
                                          HOSTNAME_LENGTH)]= 0;
        thd->main_security_ctx.host_or_ip= thd->main_security_ctx.host;
826
      }
827 828
      if (connect_errors > max_connect_errors)
        return(ER_HOST_IS_BLOCKED);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
829
    }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
830
    DBUG_PRINT("info",("Host: %s  ip: %s",
831 832 833 834 835
		       (thd->main_security_ctx.host ?
                        thd->main_security_ctx.host : "unknown host"),
		       (thd->main_security_ctx.ip ?
                        thd->main_security_ctx.ip : "unknown ip")));
    if (acl_check_host(thd->main_security_ctx.host, thd->main_security_ctx.ip))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
836 837
      return(ER_HOST_NOT_PRIVILEGED);
  }
838
  else /* Hostname given means that the connection was on a socket */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
839
  {
840 841 842
    DBUG_PRINT("info",("Host: %s", thd->main_security_ctx.host));
    thd->main_security_ctx.host_or_ip= thd->main_security_ctx.host;
    thd->main_security_ctx.ip= 0;
843 844
    /* Reset sin_addr */
    bzero((char*) &thd->remote, sizeof(thd->remote));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
845 846 847
  }
  vio_keepalive(net->vio, TRUE);
  {
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
848
    /* buff[] needs to big enough to hold the server_version variable */
849
    char buff[SERVER_VERSION_LENGTH + SCRAMBLE_LENGTH + 64];
850 851
    ulong client_flags = (CLIENT_LONG_FLAG | CLIENT_CONNECT_WITH_DB |
			  CLIENT_PROTOCOL_41 | CLIENT_SECURE_CONNECTION);
852

853 854 855 856 857
    if (opt_using_transactions)
      client_flags|=CLIENT_TRANSACTIONS;
#ifdef HAVE_COMPRESS
    client_flags |= CLIENT_COMPRESS;
#endif /* HAVE_COMPRESS */
858 859
#ifdef HAVE_OPENSSL
    if (ssl_acceptor_fd)
860
      client_flags |= CLIENT_SSL;       /* Wow, SSL is available! */
861
#endif /* HAVE_OPENSSL */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
862

863 864 865 866 867 868 869 870 871 872 873
    end= strnmov(buff, server_version, SERVER_VERSION_LENGTH) + 1;
    int4store((uchar*) end, thd->thread_id);
    end+= 4;
    /*
      So as check_connection is the only entry point to authorization
      procedure, scramble is set here. This gives us new scramble for
      each handshake.
    */
    create_random_string(thd->scramble, SCRAMBLE_LENGTH, &thd->rand);
    /*
      Old clients does not understand long scrambles, but can ignore packet
874
      tail: that's why first part of the scramble is placed here, and second
875 876
      part at the end of packet.
    */
877
    end= strmake(end, thd->scramble, SCRAMBLE_LENGTH_323) + 1;
878 879 880
   
    int2store(end, client_flags);
    /* write server characteristics: up to 16 bytes allowed */
881
    end[2]=(char) default_charset_info->number;
882 883 884 885 886 887 888 889 890
    int2store(end+3, thd->server_status);
    bzero(end+5, 13);
    end+= 18;
    /* write scramble tail */
    end= strmake(end, thd->scramble + SCRAMBLE_LENGTH_323, 
                 SCRAMBLE_LENGTH - SCRAMBLE_LENGTH_323) + 1;

    /* At this point we write connection message and read reply */
    if (net_write_command(net, (uchar) protocol_version, "", 0, buff,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
891
			  (uint) (end-buff)) ||
892
	(pkt_len= my_net_read(net)) == packet_error ||
bk@work.mysql.com's avatar
bk@work.mysql.com committed
893 894 895 896 897 898 899 900 901 902 903
	pkt_len < MIN_HANDSHAKE_SIZE)
    {
      inc_host_errors(&thd->remote.sin_addr);
      return(ER_HANDSHAKE_ERROR);
    }
  }
#ifdef _CUSTOMCONFIG_
#include "_cust_sql_parse.h"
#endif
  if (connect_errors)
    reset_host_errors(&thd->remote.sin_addr);
904
  if (thd->packet.alloc(thd->variables.net_buffer_length))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
905 906 907
    return(ER_OUT_OF_RESOURCES);

  thd->client_capabilities=uint2korr(net->read_pos);
908 909 910 911
  if (thd->client_capabilities & CLIENT_PROTOCOL_41)
  {
    thd->client_capabilities|= ((ulong) uint2korr(net->read_pos+2)) << 16;
    thd->max_client_packet_length= uint4korr(net->read_pos+4);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
912 913 914
    DBUG_PRINT("info", ("client_character_set: %d", (uint) net->read_pos[8]));
    /*
      Use server character set and collation if
915
      - opt_character_set_client_handshake is not set
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
916 917 918 919
      - client has not specified a character set
      - client character set is the same as the servers
      - client character set doesn't exists in server
    */
920
    if (!opt_character_set_client_handshake ||
921
        !(thd->variables.character_set_client=
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
922 923 924 925
	  get_charset((uint) net->read_pos[8], MYF(0))) ||
	!my_strcasecmp(&my_charset_latin1,
		       global_system_variables.character_set_client->name,
		       thd->variables.character_set_client->name))
926
    {
927 928
      thd->variables.character_set_client=
	global_system_variables.character_set_client;
929 930
      thd->variables.collation_connection=
	global_system_variables.collation_connection;
931 932
      thd->variables.character_set_results=
	global_system_variables.character_set_results;
933 934 935
    }
    else
    {
936
      thd->variables.character_set_results=
937 938 939
      thd->variables.collation_connection= 
	thd->variables.character_set_client;
    }
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
940
    thd->update_charset();
941
    end= (char*) net->read_pos+32;
942 943 944 945 946 947 948
  }
  else
  {
    thd->max_client_packet_length= uint3korr(net->read_pos+2);
    end= (char*) net->read_pos+5;
  }

949
  if (thd->client_capabilities & CLIENT_IGNORE_SPACE)
950
    thd->variables.sql_mode|= MODE_IGNORE_SPACE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
951
#ifdef HAVE_OPENSSL
952
  DBUG_PRINT("info", ("client capabilities: %d", thd->client_capabilities));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
953 954 955
  if (thd->client_capabilities & CLIENT_SSL)
  {
    /* Do the SSL layering. */
956 957 958 959 960
    if (!ssl_acceptor_fd)
    {
      inc_host_errors(&thd->remote.sin_addr);
      return(ER_HANDSHAKE_ERROR);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
961
    DBUG_PRINT("info", ("IO layer change in progress..."));
962 963
    if (sslaccept(ssl_acceptor_fd, net->vio, thd->variables.net_wait_timeout))
    {
964
      DBUG_PRINT("error", ("Failed to accept new SSL connection"));
965
      inc_host_errors(&thd->remote.sin_addr);
peter@mysql.com's avatar
peter@mysql.com committed
966
      return(ER_HANDSHAKE_ERROR);
967
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
968
    DBUG_PRINT("info", ("Reading user information over SSL layer"));
969
    if ((pkt_len= my_net_read(net)) == packet_error ||
bk@work.mysql.com's avatar
bk@work.mysql.com committed
970 971
	pkt_len < NORMAL_HANDSHAKE_SIZE)
    {
972 973
      DBUG_PRINT("error", ("Failed to read user information (pkt_len= %lu)",
			   pkt_len));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
974 975 976 977
      inc_host_errors(&thd->remote.sin_addr);
      return(ER_HANDSHAKE_ERROR);
    }
  }
978 979 980
#endif

  if (end >= (char*) net->read_pos+ pkt_len +2)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
981
  {
982 983
    inc_host_errors(&thd->remote.sin_addr);
    return(ER_HANDSHAKE_ERROR);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
984 985 986
  }

  if (thd->client_capabilities & CLIENT_INTERACTIVE)
987
    thd->variables.net_wait_timeout= thd->variables.net_interactive_timeout;
988
  if ((thd->client_capabilities & CLIENT_TRANSACTIONS) &&
989 990
      opt_using_transactions)
    net->return_status= &thd->server_status;
991
  net->read_timeout=(uint) thd->variables.net_read_timeout;
peter@mysql.com's avatar
peter@mysql.com committed
992

993 994
  char *user= end;
  char *passwd= strend(user)+1;
995
  uint user_len= passwd - user - 1;
996
  char *db= passwd;
997
  char db_buff[NAME_LEN+1];                     // buffer to store db in utf8
998
  char user_buff[USERNAME_LENGTH+1];		// buffer to store user in utf8
999 1000 1001
  uint dummy_errors;

  /*
1002 1003 1004 1005
    Old clients send null-terminated string as password; new clients send
    the size (1 byte) + string (not null-terminated). Hence in case of empty
    password both send '\0'.
  */
1006
  uint passwd_len= thd->client_capabilities & CLIENT_SECURE_CONNECTION ?
1007 1008 1009
    *passwd++ : strlen(passwd);
  db= thd->client_capabilities & CLIENT_CONNECT_WITH_DB ?
    db + passwd_len + 1 : 0;
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1010 1011
  uint db_len= db ? strlen(db) : 0;

serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1012
  if (passwd + passwd_len + db_len > (char *)net->read_pos + pkt_len)
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1013 1014 1015 1016
  {
    inc_host_errors(&thd->remote.sin_addr);
    return ER_HANDSHAKE_ERROR;
  }
peter@mysql.com's avatar
peter@mysql.com committed
1017

kostja@oak.local's avatar
kostja@oak.local committed
1018 1019
  /* Since 4.1 all database names are stored in utf8 */
  if (db)
peter@mysql.com's avatar
peter@mysql.com committed
1020
  {
1021 1022
    db_buff[copy_and_convert(db_buff, sizeof(db_buff)-1,
                             system_charset_info,
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1023
                             db, db_len,
1024
                             thd->charset(), &dummy_errors)]= 0;
1025
    db= db_buff;
kostja@oak.local's avatar
kostja@oak.local committed
1026
  }
peter@mysql.com's avatar
peter@mysql.com committed
1027

1028 1029 1030
  user_buff[user_len= copy_and_convert(user_buff, sizeof(user_buff)-1,
                                       system_charset_info, user, user_len,
                                       thd->charset(), &dummy_errors)]= '\0';
1031
  user= user_buff;
1032

1033 1034 1035 1036 1037 1038 1039 1040
  /* If username starts and ends in "'", chop them off */
  if (user_len > 1 && user[0] == '\'' && user[user_len - 1] == '\'')
  {
    user[user_len-1]= 0;
    user++;
    user_len-= 2;
  }

1041 1042 1043
  if (thd->main_security_ctx.user)
    x_free(thd->main_security_ctx.user);
  if (!(thd->main_security_ctx.user= my_strdup(user, MYF(0))))
1044
    return (ER_OUT_OF_RESOURCES);
1045
  return check_user(thd, COM_CONNECT, passwd, passwd_len, db, TRUE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1046 1047
}

1048

1049 1050
void execute_init_command(THD *thd, sys_var_str *init_command_var,
			  rw_lock_t *var_mutex)
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1051 1052 1053 1054
{
  Vio* save_vio;
  ulong save_client_capabilities;

1055 1056 1057 1058 1059 1060 1061 1062 1063
  thd->proc_info= "Execution of init_command";
  /*
    We need to lock init_command_var because
    during execution of init_command_var query
    values of init_command_var can't be changed
  */
  rw_rdlock(var_mutex);
  thd->query= init_command_var->value;
  thd->query_length= init_command_var->value_length;
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1064 1065
  save_client_capabilities= thd->client_capabilities;
  thd->client_capabilities|= CLIENT_MULTI_QUERIES;
1066 1067 1068 1069
  /*
    We don't need return result of execution to client side.
    To forbid this we should set thd->net.vio to 0.
  */
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1070 1071
  save_vio= thd->net.vio;
  thd->net.vio= 0;
1072
  thd->net.no_send_error= 0;
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1073
  dispatch_command(COM_QUERY, thd, thd->query, thd->query_length+1);
1074
  rw_unlock(var_mutex);
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1075 1076 1077 1078 1079
  thd->client_capabilities= save_client_capabilities;
  thd->net.vio= save_vio;
}


1080
pthread_handler_t handle_one_connection(void *arg)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1081 1082 1083
{
  THD *thd=(THD*) arg;
  uint launch_time  =
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1084
    (uint) ((thd->thr_create_time = time(NULL)) - thd->connect_time);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1085 1086 1087 1088 1089
  if (launch_time >= slow_launch_time)
    statistic_increment(slow_launch_threads,&LOCK_status );

  pthread_detach_this_thread();

1090
#if !defined( __WIN__) && !defined(OS2)	// Win32 calls this in pthread_create
monty@mysql.com's avatar
monty@mysql.com committed
1091
  /* The following calls needs to be done before we call DBUG_ macros */
1092
  if (!(test_flags & TEST_NO_THREADS) & my_thread_init())
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1093
  {
1094
    close_connection(thd, ER_OUT_OF_RESOURCES, 1);
1095
    statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1096 1097 1098 1099 1100
    end_thread(thd,0);
    return 0;
  }
#endif

1101 1102 1103 1104 1105 1106 1107
  /*
    handle_one_connection() is the only way a thread would start
    and would always be on top of the stack, therefore, the thread
    stack always starts at the address of the first local variable
    of handle_one_connection, which is thd. We need to know the
    start of the stack so that we could check for stack overruns.
  */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1108 1109
  DBUG_PRINT("info", ("handle_one_connection called by thread %d\n",
		      thd->thread_id));
monty@mysql.com's avatar
monty@mysql.com committed
1110
  /* now that we've called my_thread_init(), it is safe to call DBUG_* */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1111

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1112
#if defined(__WIN__)
1113
  init_signals();
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1114
#elif !defined(OS2) && !defined(__NETWARE__)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1115 1116 1117 1118
  sigset_t set;
  VOID(sigemptyset(&set));			// Get mask in use
  VOID(pthread_sigmask(SIG_UNBLOCK,&set,&thd->block_signals));
#endif
1119
  thd->thread_stack= (char*) &thd;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1120 1121
  if (thd->store_globals())
  {
1122
    close_connection(thd, ER_OUT_OF_RESOURCES, 1);
1123
    statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1124 1125 1126 1127 1128 1129 1130 1131
    end_thread(thd,0);
    return 0;
  }

  do
  {
    int error;
    NET *net= &thd->net;
1132
    Security_context *sctx= thd->security_ctx;
1133
    net->no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1134

1135
    if ((error=check_connection(thd)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1136 1137
    {						// Wrong permissions
      if (error > 0)
1138
	net_printf_error(thd, error, sctx->host_or_ip);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1139 1140
#ifdef __NT__
      if (vio_type(net->vio) == VIO_TYPE_NAMEDPIPE)
1141
	my_sleep(1000);				/* must wait after eof() */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1142
#endif
1143
      statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1144 1145
      goto end_thread;
    }
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1146
#ifdef __NETWARE__
1147
    netware_reg_user(sctx->ip, sctx->user, "MySQL");
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1148
#endif
1149
    if (thd->variables.max_join_size == HA_POS_ERROR)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1150 1151 1152 1153
      thd->options |= OPTION_BIG_SELECTS;
    if (thd->client_capabilities & CLIENT_COMPRESS)
      net->compress=1;				// Use compression

gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1154
    thd->version= refresh_version;
1155
    thd->proc_info= 0;
1156
    thd->command= COM_SLEEP;
1157 1158
    thd->set_time();
    thd->init_for_queries();
monty@mysql.com's avatar
monty@mysql.com committed
1159

1160
    if (sys_init_connect.value_length && !(sctx->master_access & SUPER_ACL))
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1161
    {
1162 1163
      execute_init_command(thd, &sys_init_connect, &LOCK_sys_init_connect);
      if (thd->query_error)
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
1164
	thd->killed= THD::KILL_CONNECTION;
1165 1166 1167
      thd->proc_info=0;
      thd->set_time();
      thd->init_for_queries();
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1168 1169
    }

1170 1171
    while (!net->error && net->vio != 0 &&
           !(thd->killed == THD::KILL_CONNECTION))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1172
    {
1173
      net->no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1174 1175 1176
      if (do_command(thd))
	break;
    }
1177 1178
    if (thd->user_connect)
      decrease_user_connections(thd->user_connect);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1179
    if (net->error && net->vio != 0 && net->report_error)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1180
    {
1181
      if (!thd->killed && thd->variables.log_warnings > 1)
monty@mysql.com's avatar
monty@mysql.com committed
1182
	sql_print_warning(ER(ER_NEW_ABORTING_CONNECTION),
serg@serg.mylan's avatar
serg@serg.mylan committed
1183
                          thd->thread_id,(thd->db ? thd->db : "unconnected"),
1184 1185
                          sctx->user ? sctx->user : "unauthenticated",
                          sctx->host_or_ip,
serg@serg.mylan's avatar
serg@serg.mylan committed
1186 1187
                          (net->last_errno ? ER(net->last_errno) :
                           ER(ER_UNKNOWN_ERROR)));
1188
      net_send_error(thd, net->last_errno, NullS);
1189
      statistic_increment(aborted_threads,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1190
    }
1191 1192 1193 1194
    else if (thd->killed)
    {
      statistic_increment(aborted_threads,&LOCK_status);
    }
1195
    
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1196
end_thread:
1197
    close_connection(thd, 0, 1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1198 1199 1200 1201 1202 1203
    end_thread(thd,1);
    /*
      If end_thread returns, we are either running with --one-thread
      or this thread has been schedule to handle the next query
    */
    thd= current_thd;
1204
    thd->thread_stack= (char*) &thd;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1205 1206 1207 1208 1209
  } while (!(test_flags & TEST_NO_THREADS));
  /* The following is only executed if we are not using --one-thread */
  return(0);					/* purecov: deadcode */
}

hf@deer.(none)'s avatar
hf@deer.(none) committed
1210 1211
#endif /* EMBEDDED_LIBRARY */

1212 1213 1214 1215
/*
  Execute commands from bootstrap_file.
  Used when creating the initial grant tables
*/
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1216

1217
pthread_handler_t handle_bootstrap(void *arg)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1218
{
1219 1220 1221
  THD *thd=(THD*) arg;
  FILE *file=bootstrap_file;
  char *buff;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1222

1223
  /* The following must be called before DBUG_ENTER */
1224
  thd->thread_stack= (char*) &thd;
1225
  if (my_thread_init() || thd->store_globals())
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1226
  {
hf@deer.(none)'s avatar
hf@deer.(none) committed
1227
#ifndef EMBEDDED_LIBRARY
1228
    close_connection(thd, ER_OUT_OF_RESOURCES, 1);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1229
#endif
1230
    thd->fatal_error();
1231
    goto end;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1232
  }
1233 1234
  DBUG_ENTER("handle_bootstrap");

hf@deer.(none)'s avatar
hf@deer.(none) committed
1235
#ifndef EMBEDDED_LIBRARY
1236 1237
  pthread_detach_this_thread();
  thd->thread_stack= (char*) &thd;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1238
#if !defined(__WIN__) && !defined(OS2) && !defined(__NETWARE__)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1239
  sigset_t set;
1240 1241
  VOID(sigemptyset(&set));			// Get mask in use
  VOID(pthread_sigmask(SIG_UNBLOCK,&set,&thd->block_signals));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1242
#endif
hf@deer.(none)'s avatar
hf@deer.(none) committed
1243
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1244

1245
  if (thd->variables.max_join_size == HA_POS_ERROR)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1246 1247 1248 1249
    thd->options |= OPTION_BIG_SELECTS;

  thd->proc_info=0;
  thd->version=refresh_version;
1250 1251
  thd->security_ctx->priv_user=
    thd->security_ctx->user= (char*) my_strdup("boot", MYF(MY_WME));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1252

1253
  buff= (char*) thd->net.buff;
1254
  thd->init_for_queries();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1255 1256
  while (fgets(buff, thd->net.max_packet, file))
  {
monty@mishka.local's avatar
monty@mishka.local committed
1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276
   ulong length= (ulong) strlen(buff);
   while (buff[length-1] != '\n' && !feof(file))
   {
     /*
       We got only a part of the current string. Will try to increase
       net buffer then read the rest of the current string.
     */
     if (net_realloc(&(thd->net), 2 * thd->net.max_packet))
     {
       net_send_error(thd, ER_NET_PACKET_TOO_LARGE, NullS);
       thd->fatal_error();
       break;
     }
     buff= (char*) thd->net.buff;
     fgets(buff + length, thd->net.max_packet - length, file);
     length+= (ulong) strlen(buff + length);
   }
   if (thd->is_fatal_error)
     break;

1277
    while (length && (my_isspace(thd->charset(), buff[length-1]) ||
1278
           buff[length-1] == ';'))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1279 1280
      length--;
    buff[length]=0;
1281
    thd->query_length=length;
1282 1283
    thd->query= thd->memdup_w_gap(buff, length+1, 
				  thd->db_length+1+QUERY_CACHE_FLAGS_SIZE);
1284
    thd->query[length] = '\0';
1285 1286 1287 1288
    /*
      We don't need to obtain LOCK_thread_count here because in bootstrap
      mode we have only one thread.
    */
1289
    thd->query_id=next_query_id();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1290 1291
    mysql_parse(thd,thd->query,length);
    close_thread_tables(thd);			// Free tables
1292
    if (thd->is_fatal_error)
1293
      break;
1294
    free_root(thd->mem_root,MYF(MY_KEEP_PREALLOC));
1295
#ifdef USING_TRANSACTIONS
1296
    free_root(&thd->transaction.mem_root,MYF(MY_KEEP_PREALLOC));
1297
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1298
  }
1299 1300 1301

  /* thd->fatal_error should be set in case something went wrong */
end:
1302 1303 1304 1305 1306 1307
  bootstrap_error= thd->is_fatal_error;

  net_end(&thd->net);
  thd->cleanup();
  delete thd;

hf@deer.(none)'s avatar
hf@deer.(none) committed
1308
#ifndef EMBEDDED_LIBRARY
1309 1310 1311
  (void) pthread_mutex_lock(&LOCK_thread_count);
  thread_count--;
  (void) pthread_mutex_unlock(&LOCK_thread_count);
1312
  (void) pthread_cond_broadcast(&COND_thread_count);
1313 1314
  my_thread_end();
  pthread_exit(0);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1315
#endif
1316
  DBUG_RETURN(0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1317 1318
}

1319
    /* This works because items are allocated with sql_alloc() */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1320

1321
void free_items(Item *item)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1322
{
1323
  Item *next;
monty@mysql.com's avatar
monty@mysql.com committed
1324
  DBUG_ENTER("free_items");
1325 1326 1327
  for (; item ; item=next)
  {
    next=item->next;
1328
    item->delete_self();
1329
  }
monty@mysql.com's avatar
monty@mysql.com committed
1330
  DBUG_VOID_RETURN;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1331 1332
}

1333 1334 1335 1336
    /* This works because items are allocated with sql_alloc() */

void cleanup_items(Item *item)
{
monty@mysql.com's avatar
monty@mysql.com committed
1337
  DBUG_ENTER("cleanup_items");  
1338 1339
  for (; item ; item=item->next)
    item->cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
1340
  DBUG_VOID_RETURN;
1341 1342
}

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1343 1344 1345 1346 1347 1348 1349
int mysql_table_dump(THD* thd, char* db, char* tbl_name, int fd)
{
  TABLE* table;
  TABLE_LIST* table_list;
  int error = 0;
  DBUG_ENTER("mysql_table_dump");
  db = (db && db[0]) ? db : thd->db;
1350
  if (!(table_list = (TABLE_LIST*) thd->calloc(sizeof(TABLE_LIST))))
1351
    DBUG_RETURN(1); // out of memory
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
1352
  table_list->db= db;
1353
  table_list->table_name= table_list->alias= tbl_name;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
1354 1355
  table_list->lock_type= TL_READ_NO_INSERT;
  table_list->prev_global= &table_list;	// can be removed after merge with 4.1
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1356

1357 1358
  if (!db || check_db_name(db))
  {
1359
    my_error(ER_WRONG_DB_NAME ,MYF(0), db ? db : "NULL");
1360 1361
    goto err;
  }
1362
  if (lower_case_table_names)
1363
    my_casedn_str(files_charset_info, tbl_name);
1364
  remove_escape(table_list->table_name);
1365 1366 1367 1368

  if (!(table=open_ltable(thd, table_list, TL_READ_NO_INSERT)))
    DBUG_RETURN(1);

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1369
  if (check_one_table_access(thd, SELECT_ACL, table_list))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1370 1371
    goto err;
  thd->free_list = 0;
1372
  thd->query_length=(uint) strlen(tbl_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1373
  thd->query = tbl_name;
1374
  if ((error = mysqld_dump_create_info(thd, table_list, -1)))
1375
  {
1376
    my_error(ER_GET_ERRNO, MYF(0), my_errno);
1377 1378
    goto err;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1379
  net_flush(&thd->net);
1380
  if ((error= table->file->dump(thd,fd)))
1381
    my_error(ER_GET_ERRNO, MYF(0), error);
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1382

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1383
err:
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1384
  DBUG_RETURN(error);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1385 1386
}

1387 1388 1389 1390
/*
  Ends the current transaction and (maybe) begin the next

  SYNOPSIS
1391
    end_trans()
1392 1393 1394 1395 1396 1397 1398
      thd            Current thread
      completion     Completion type

  RETURN
    0 - OK
*/

1399
int end_trans(THD *thd, enum enum_mysql_completiontype completion)
1400 1401 1402
{
  bool do_release= 0;
  int res= 0;
1403
  DBUG_ENTER("end_trans");
1404

1405
  if (unlikely(thd->in_sub_stmt))
1406 1407 1408 1409
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    DBUG_RETURN(1);
  }
1410 1411 1412 1413 1414 1415
  if (thd->transaction.xid_state.xa_state != XA_NOTR)
  {
    my_error(ER_XAER_RMFAIL, MYF(0),
             xa_state_names[thd->transaction.xid_state.xa_state]);
    DBUG_RETURN(1);
  }
1416 1417 1418 1419 1420 1421 1422 1423
  switch (completion) {
  case COMMIT:
    /*
     We don't use end_active_trans() here to ensure that this works
     even if there is a problem with the OPTION_AUTO_COMMIT flag
     (Which of course should never happen...)
    */
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
1424
    res= ha_commit(thd);
1425
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
1426 1427
    break;
  case COMMIT_RELEASE:
serg@serg.mylan's avatar
serg@serg.mylan committed
1428
    do_release= 1; /* fall through */
1429 1430 1431 1432 1433 1434
  case COMMIT_AND_CHAIN:
    res= end_active_trans(thd);
    if (!res && completion == COMMIT_AND_CHAIN)
      res= begin_trans(thd);
    break;
  case ROLLBACK_RELEASE:
serg@serg.mylan's avatar
serg@serg.mylan committed
1435
    do_release= 1; /* fall through */
1436 1437 1438 1439
  case ROLLBACK:
  case ROLLBACK_AND_CHAIN:
  {
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
serg@serg.mylan's avatar
serg@serg.mylan committed
1440
    if (ha_rollback(thd))
1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451
      res= -1;
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
    if (!res && (completion == ROLLBACK_AND_CHAIN))
      res= begin_trans(thd);
    break;
  }
  default:
    res= -1;
    my_error(ER_UNKNOWN_COM_ERROR, MYF(0));
    DBUG_RETURN(-1);
  }
serg@serg.mylan's avatar
serg@serg.mylan committed
1452

1453 1454 1455
  if (res < 0)
    my_error(thd->killed_errno(), MYF(0));
  else if ((res == 0) && do_release)
serg@serg.mylan's avatar
serg@serg.mylan committed
1456 1457
    thd->killed= THD::KILL_CONNECTION;

1458 1459
  DBUG_RETURN(res);
}
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1460

1461
#ifndef EMBEDDED_LIBRARY
1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472

/*
  Read one command from socket and execute it (query or simple command).
  This function is called in loop from thread function.
  SYNOPSIS
    do_command()
  RETURN VALUE
    0  success
    1  request of thread shutdown (see dispatch_command() description)
*/

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1473 1474 1475
bool do_command(THD *thd)
{
  char *packet;
1476 1477
  uint old_timeout;
  ulong packet_length;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1478 1479 1480 1481 1482
  NET *net;
  enum enum_server_command command;
  DBUG_ENTER("do_command");

  net= &thd->net;
1483 1484 1485 1486
  /*
    indicator of uninitialized lex => normal flow of errors handling
    (see my_message_sql)
  */
1487
  thd->lex->current_select= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1488 1489

  packet=0;
1490
  old_timeout=net->read_timeout;
monty@mysql.com's avatar
monty@mysql.com committed
1491
  /* Wait max for 8 hours */
1492
  net->read_timeout=(uint) thd->variables.net_wait_timeout;
1493
  thd->clear_error();				// Clear error message
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1494 1495 1496 1497

  net_new_transaction(net);
  if ((packet_length=my_net_read(net)) == packet_error)
  {
1498 1499 1500 1501 1502
    DBUG_PRINT("info",("Got error %d reading command from socket %s",
		       net->error,
		       vio_description(net->vio)));
    /* Check if we can continue without closing the connection */
    if (net->error != 3)
1503 1504
    {
      statistic_increment(aborted_threads,&LOCK_status);
1505
      DBUG_RETURN(TRUE);			// We have to close it.
1506
    }
1507
    net_send_error(thd, net->last_errno, NullS);
1508
    net->error= 0;
1509
    DBUG_RETURN(FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1510 1511 1512 1513 1514
  }
  else
  {
    packet=(char*) net->read_pos;
    command = (enum enum_server_command) (uchar) packet[0];
1515 1516
    if (command >= COM_END)
      command= COM_END;				// Wrong command
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1517 1518 1519
    DBUG_PRINT("info",("Command on %s = %d (%s)",
		       vio_description(net->vio), command,
		       command_name[command]));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1520
  }
1521
  net->read_timeout=old_timeout;		// restore it
1522 1523 1524 1525 1526 1527 1528 1529 1530
  /*
    packet_length contains length of data, as it was stored in packet
    header. In case of malformed header, packet_length can be zero.
    If packet_length is not zero, my_net_read ensures that this number
    of bytes was actually read from network. Additionally my_net_read
    sets packet[packet_length]= 0 (thus if packet_length == 0,
    command == packet[0] == COM_SLEEP).
    In dispatch_command packet[packet_length] points beyond the end of packet.
  */
1531
  DBUG_RETURN(dispatch_command(command,thd, packet+1, (uint) packet_length));
1532
}
1533
#endif  /* EMBEDDED_LIBRARY */
1534

1535

1536 1537
/*
   Perform one connection-level (COM_XXXX) command.
1538

1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551
  SYNOPSIS
    dispatch_command()
    thd             connection handle
    command         type of command to perform 
    packet          data for the command, packet is always null-terminated
    packet_length   length of packet + 1 (to show that data is
                    null-terminated) except for COM_SLEEP, where it
                    can be zero.
  RETURN VALUE
    0   ok
    1   request of thread shutdown, i. e. if command is
        COM_QUIT/COM_SHUTDOWN
*/
1552

1553 1554 1555 1556
bool dispatch_command(enum enum_server_command command, THD *thd,
		      char* packet, uint packet_length)
{
  NET *net= &thd->net;
1557
  bool error= 0;
1558 1559
  DBUG_ENTER("dispatch_command");

1560 1561 1562
  if (thd->killed == THD::KILL_QUERY || thd->killed == THD::KILL_BAD_DATA)
    thd->killed= THD::NOT_KILLED;

1563
  thd->command=command;
1564
  /*
1565 1566
    Commands which always take a long time are logged into
    the slow log only if opt_log_slow_admin_statements is set.
1567
  */
1568
  thd->enable_slow_log= TRUE;
1569
  thd->lex->sql_command= SQLCOM_END; /* to avoid confusing VIEW detectors */
1570
  thd->set_time();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1571 1572 1573
  VOID(pthread_mutex_lock(&LOCK_thread_count));
  thd->query_id=query_id;
  if (command != COM_STATISTICS && command != COM_PING)
1574
    next_query_id();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1575
  thread_running++;
1576
  /* TODO: set thd->lex->sql_command to SQLCOM_END here */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1577
  VOID(pthread_mutex_unlock(&LOCK_thread_count));
1578

1579 1580
  thd->server_status&=
           ~(SERVER_QUERY_NO_INDEX_USED | SERVER_QUERY_NO_GOOD_INDEX_USED);
1581
  switch (command) {
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1582
  case COM_INIT_DB:
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1583 1584
  {
    LEX_STRING tmp;
1585 1586
    statistic_increment(thd->status_var.com_stat[SQLCOM_CHANGE_DB],
			&LOCK_status);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1587 1588
    thd->convert_string(&tmp, system_charset_info,
			packet, strlen(packet), thd->charset());
1589 1590
    if (!mysql_change_db(thd, tmp.str, FALSE))
    {
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1591
      mysql_log.write(thd,command,"%s",thd->db);
1592 1593
      send_ok(thd);
    }
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1594 1595
    break;
  }
1596
#ifdef HAVE_REPLICATION
1597 1598
  case COM_REGISTER_SLAVE:
  {
1599
    if (!register_slave(thd, (uchar*)packet, packet_length))
1600
      send_ok(thd);
1601 1602
    break;
  }
1603
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1604
  case COM_TABLE_DUMP:
1605 1606 1607
  {
    char *db, *tbl_name;
    uint db_len= *(uchar*) packet;
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1608
    if (db_len >= packet_length || db_len > NAME_LEN)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1609
    {
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1610
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1611 1612
      break;
    }
1613
    uint tbl_len= *(uchar*) (packet + db_len + 1);
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1614 1615
    if (db_len+tbl_len+2 > packet_length || tbl_len > NAME_LEN)
    {
serg@sergbook.mysql.com's avatar
serg@sergbook.mysql.com committed
1616
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1617 1618
      break;
    }
1619

1620
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1621
    thd->enable_slow_log= opt_log_slow_admin_statements;
1622
    db= thd->alloc(db_len + tbl_len + 2);
1623 1624 1625 1626 1627
    if (!db)
    {
      my_message(ER_OUT_OF_RESOURCES, ER(ER_OUT_OF_RESOURCES), MYF(0));
      break;
    }
1628 1629
    tbl_name= strmake(db, packet + 1, db_len)+1;
    strmake(tbl_name, packet + db_len + 2, tbl_len);
1630
    mysql_table_dump(thd, db, tbl_name, -1);
1631 1632
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1633 1634
  case COM_CHANGE_USER:
  {
1635
    thd->change_user();
1636
    thd->clear_error();                         // if errors from rollback
1637

1638
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1639
    char *user= (char*) packet;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1640
    char *passwd= strend(user)+1;
1641
    /*
1642 1643 1644 1645
      Old clients send null-terminated string ('\0' for empty string) for
      password.  New clients send the size (1 byte) + string (not null
      terminated, so also '\0' for empty string).
    */
1646
    char db_buff[NAME_LEN+1];                 // buffer to store db in utf8
1647
    char *db= passwd;
1648
    uint passwd_len= thd->client_capabilities & CLIENT_SECURE_CONNECTION ?
1649 1650
      *passwd++ : strlen(passwd);
    db+= passwd_len + 1;
1651
#ifndef EMBEDDED_LIBRARY
1652
    /* Small check for incoming packet */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1653
    if ((uint) ((uchar*) db - net->read_pos) > packet_length)
1654
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1655
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
1656 1657
      break;
    }
1658
#endif
1659
    /* Convert database name to utf8 */
1660
    uint dummy_errors;
1661 1662
    db_buff[copy_and_convert(db_buff, sizeof(db_buff)-1,
                             system_charset_info, db, strlen(db),
1663
                             thd->charset(), &dummy_errors)]= 0;
1664
    db= db_buff;
peter@mysql.com's avatar
peter@mysql.com committed
1665

1666 1667 1668
    /* Save user and privileges */
    uint save_db_length= thd->db_length;
    char *save_db= thd->db;
1669
    Security_context save_security_ctx= *thd->security_ctx;
1670
    USER_CONN *save_user_connect= thd->user_connect;
1671 1672

    if (!(thd->security_ctx->user= my_strdup(user, MYF(0))))
1673
    {
1674
      thd->security_ctx->user= save_security_ctx.user;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1675
      my_message(ER_OUT_OF_RESOURCES, ER(ER_OUT_OF_RESOURCES), MYF(0));
1676 1677
      break;
    }
peter@mysql.com's avatar
peter@mysql.com committed
1678

1679 1680
    /* Clear variables that are allocated */
    thd->user_connect= 0;
monty@mysql.com's avatar
monty@mysql.com committed
1681
    int res= check_user(thd, COM_CHANGE_USER, passwd, passwd_len, db, FALSE);
peter@mysql.com's avatar
peter@mysql.com committed
1682

1683 1684
    if (res)
    {
1685
      /* authentication failure, we shall restore old user */
1686
      if (res > 0)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1687
        my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
1688 1689
      x_free(thd->security_ctx->user);
      *thd->security_ctx= save_security_ctx;
1690
      thd->user_connect= save_user_connect;
1691 1692 1693 1694 1695 1696
      thd->db= save_db;
      thd->db_length= save_db_length;
    }
    else
    {
      /* we've authenticated new user */
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
1697 1698
      if (save_user_connect)
	decrease_user_connections(save_user_connect);
1699
      x_free((gptr) save_db);
1700
      x_free((gptr)  save_security_ctx.user);
1701
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1702 1703
    break;
  }
1704
  case COM_STMT_EXECUTE:
1705
  {
1706
    mysql_stmt_execute(thd, packet, packet_length);
1707 1708
    break;
  }
1709
  case COM_STMT_FETCH:
1710 1711 1712 1713
  {
    mysql_stmt_fetch(thd, packet, packet_length);
    break;
  }
1714
  case COM_STMT_SEND_LONG_DATA:
1715
  {
1716
    mysql_stmt_get_longdata(thd, packet, packet_length);
1717 1718
    break;
  }
1719
  case COM_STMT_PREPARE:
1720
  {
1721
    mysql_stmt_prepare(thd, packet, packet_length);
1722 1723
    break;
  }
1724
  case COM_STMT_CLOSE:
1725
  {
1726
    mysql_stmt_close(thd, packet);
1727 1728
    break;
  }
1729
  case COM_STMT_RESET:
1730 1731 1732 1733
  {
    mysql_stmt_reset(thd, packet);
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1734 1735
  case COM_QUERY:
  {
1736 1737
    if (alloc_query(thd, packet, packet_length))
      break;					// fatal error is set
1738
    char *packet_end= thd->query + thd->query_length;
cmiller@zippy.(none)'s avatar
cmiller@zippy.(none) committed
1739
    mysql_log.write(thd,command, "%.*b", thd->query_length, thd->query);
1740
    DBUG_PRINT("query",("%-.4096s",thd->query));
1741 1742 1743 1744

    if (!(specialflag & SPECIAL_NO_PRIOR))
      my_pthread_setprio(pthread_self(),QUERY_PRIOR);

1745
    mysql_parse(thd,thd->query, thd->query_length);
1746

1747
    while (!thd->killed && thd->lex->found_semicolon && !thd->net.report_error)
1748
    {
1749
      char *packet= thd->lex->found_semicolon;
1750
      net->no_send_error= 0;
1751
      /*
1752 1753
        Multiple queries exits, execute them individually
      */
1754 1755
      if (thd->lock || thd->open_tables || thd->derived_tables ||
          thd->prelocked_mode)
1756
        close_thread_tables(thd);
1757
      ulong length= (ulong)(packet_end-packet);
1758

1759
      log_slow_statement(thd);
1760

1761
      /* Remove garbage at start of query */
1762
      while (my_isspace(thd->charset(), *packet) && length > 0)
1763 1764 1765 1766
      {
        packet++;
        length--;
      }
monty@mysql.com's avatar
monty@mysql.com committed
1767
      VOID(pthread_mutex_lock(&LOCK_thread_count));
1768
      thd->query_length= length;
1769
      thd->query= packet;
1770
      thd->query_id= next_query_id();
1771
      thd->set_time(); /* Reset the query start time. */
1772
      /* TODO: set thd->lex->sql_command to SQLCOM_END here */
1773
      VOID(pthread_mutex_unlock(&LOCK_thread_count));
1774 1775 1776
      mysql_parse(thd, packet, length);
    }

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1777 1778 1779 1780 1781
    if (!(specialflag & SPECIAL_NO_PRIOR))
      my_pthread_setprio(pthread_self(),WAIT_PRIOR);
    DBUG_PRINT("info",("query ready"));
    break;
  }
1782
  case COM_FIELD_LIST:				// This isn't actually needed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1783
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1784 1785
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0));	/* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1786 1787 1788
    break;
#else
  {
1789
    char *fields, *pend;
1790 1791
    /* Locked closure of all tables */
    TABLE_LIST *locked_tables= NULL;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1792
    TABLE_LIST table_list;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1793
    LEX_STRING conv_name;
1794
    /* Saved variable value */
1795 1796
    my_bool old_innodb_table_locks= 
              IF_INNOBASE_DB(thd->variables.innodb_table_locks, FALSE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1797 1798
    /* used as fields initializator */
    lex_start(thd, 0, 0);
1799

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1800

1801 1802
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_FIELDS],
			&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1803 1804 1805
    bzero((char*) &table_list,sizeof(table_list));
    if (!(table_list.db=thd->db))
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1806
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1807 1808
      break;
    }
1809
    pend= strend(packet);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1810 1811
    thd->convert_string(&conv_name, system_charset_info,
			packet, (uint) (pend-packet), thd->charset());
1812
    table_list.alias= table_list.table_name= conv_name.str;
1813
    packet= pend+1;
1814 1815 1816 1817 1818 1819 1820 1821 1822

    if (!my_strcasecmp(system_charset_info, table_list.db,
                       information_schema_name.str))
    {
      ST_SCHEMA_TABLE *schema_table= find_schema_table(thd, table_list.alias);
      if (schema_table)
        table_list.schema_table= schema_table;
    }

1823
    thd->query_length= strlen(packet);       // for simplicity: don't optimize
1824 1825
    if (!(thd->query=fields=thd->memdup(packet,thd->query_length+1)))
      break;
1826
    mysql_log.write(thd,command,"%s %s",table_list.table_name, fields);
1827
    if (lower_case_table_names)
1828 1829
      my_casedn_str(files_charset_info, table_list.table_name);
    remove_escape(table_list.table_name);	// This can't have wildcards
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1830

monty@mysql.com's avatar
monty@mysql.com committed
1831
    if (check_access(thd,SELECT_ACL,table_list.db,&table_list.grant.privilege,
1832
		     0, 0, test(table_list.schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1833
      break;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1834 1835
    if (grant_option &&
	check_grant(thd, SELECT_ACL, &table_list, 2, UINT_MAX, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1836
      break;
1837 1838 1839 1840 1841 1842
    /* init structures for VIEW processing */
    table_list.select_lex= &(thd->lex->select_lex);
    mysql_init_query(thd, (uchar*)"", 0);
    thd->lex->
      select_lex.table_list.link_in_list((byte*) &table_list,
                                         (byte**) &table_list.next_local);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
1843
    thd->lex->add_to_query_tables(&table_list);
1844

1845 1846
    /* switch on VIEW optimisation: do not fill temporary tables */
    thd->lex->sql_command= SQLCOM_SHOW_FIELDS;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1847
    mysqld_list_fields(thd,&table_list,fields);
1848
    thd->lex->unit.cleanup();
1849
    thd->cleanup_after_query();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1850 1851 1852 1853
    break;
  }
#endif
  case COM_QUIT:
1854
    /* We don't calculate statistics for this command */
1855
    mysql_log.write(thd,command,NullS);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1856 1857 1858 1859
    net->error=0;				// Don't give 'abort' message
    error=TRUE;					// End server
    break;

1860
  case COM_CREATE_DB:				// QQ: To be removed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1861
    {
1862
      char *db=thd->strdup(packet), *alias;
1863
      HA_CREATE_INFO create_info;
1864

1865 1866
      statistic_increment(thd->status_var.com_stat[SQLCOM_CREATE_DB],
			  &LOCK_status);
1867
      // null test to handle EOM
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
1868
      if (!db || !(alias= thd->strdup(db)) || check_db_name(db))
1869
      {
1870
	my_error(ER_WRONG_DB_NAME, MYF(0), db ? db : "NULL");
1871 1872
	break;
      }
1873
      if (check_access(thd,CREATE_ACL,db,0,1,0,is_schema_db(db)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1874
	break;
1875
      mysql_log.write(thd,command,packet);
1876
      bzero(&create_info, sizeof(create_info));
1877 1878
      mysql_create_db(thd, (lower_case_table_names == 2 ? alias : db),
                      &create_info, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1879 1880
      break;
    }
1881
  case COM_DROP_DB:				// QQ: To be removed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1882
    {
1883 1884
      statistic_increment(thd->status_var.com_stat[SQLCOM_DROP_DB],
			  &LOCK_status);
1885
      char *db=thd->strdup(packet);
monty@mysql.com's avatar
monty@mysql.com committed
1886
      /*  null test to handle EOM */
1887
      if (!db || check_db_name(db))
1888
      {
1889
	my_error(ER_WRONG_DB_NAME, MYF(0), db ? db : "NULL");
1890 1891
	break;
      }
1892
      if (check_access(thd,DROP_ACL,db,0,1,0,is_schema_db(db)))
1893
	break;
1894 1895
      if (thd->locked_tables || thd->active_transaction())
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1896 1897
	my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                   ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1898
	break;
1899
      }
1900
      mysql_log.write(thd,command,db);
1901
      mysql_rm_db(thd, db, 0, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1902 1903
      break;
    }
1904
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1905 1906
  case COM_BINLOG_DUMP:
    {
monty@mysql.com's avatar
monty@mysql.com committed
1907 1908 1909 1910
      ulong pos;
      ushort flags;
      uint32 slave_server_id;

1911
      statistic_increment(thd->status_var.com_other,&LOCK_status);
1912
      thd->enable_slow_log= opt_log_slow_admin_statements;
1913
      if (check_global_access(thd, REPL_SLAVE_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1914
	break;
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1915

1916
      /* TODO: The following has to be changed to an 8 byte integer */
1917 1918
      pos = uint4korr(packet);
      flags = uint2korr(packet + 4);
1919
      thd->server_id=0; /* avoid suicide */
1920
      if ((slave_server_id= uint4korr(packet+6))) // mysqlbinlog.server_id==0
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
1921
	kill_zombie_dump_threads(slave_server_id);
1922
      thd->server_id = slave_server_id;
monty@mysql.com's avatar
monty@mysql.com committed
1923 1924 1925

      mysql_log.write(thd, command, "Log: '%s'  Pos: %ld", packet+10,
                      (long) pos);
1926
      mysql_binlog_send(thd, thd->strdup(packet + 10), (my_off_t) pos, flags);
1927
      unregister_slave(thd,1,1);
monty@mysql.com's avatar
monty@mysql.com committed
1928
      /*  fake COM_QUIT -- if we get here, the thread needs to terminate */
1929 1930
      error = TRUE;
      net->error = 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1931 1932
      break;
    }
1933
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1934
  case COM_REFRESH:
1935 1936 1937 1938 1939 1940
  {
    bool not_used;
    statistic_increment(thd->status_var.com_stat[SQLCOM_FLUSH],
                        &LOCK_status);
    ulong options= (ulong) (uchar) packet[0];
    if (check_global_access(thd,RELOAD_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1941
      break;
1942 1943 1944 1945 1946
    mysql_log.write(thd,command,NullS);
    if (!reload_acl_and_cache(thd, options, (TABLE_LIST*) 0, &not_used))
      send_ok(thd);
    break;
  }
1947
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1948
  case COM_SHUTDOWN:
1949
  {
1950
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1951
    if (check_global_access(thd,SHUTDOWN_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1952
      break; /* purecov: inspected */
1953
    /*
1954 1955 1956 1957
      If the client is < 4.1.3, it is going to send us no argument; then
      packet_length is 1, packet[0] is the end 0 of the packet. Note that
      SHUTDOWN_DEFAULT is 0. If client is >= 4.1.3, the shutdown level is in
      packet[0].
1958
    */
1959 1960
    enum mysql_enum_shutdown_level level=
      (enum mysql_enum_shutdown_level) (uchar) packet[0];
1961
    DBUG_PRINT("quit",("Got shutdown command for level %u", level));
1962 1963 1964 1965 1966 1967 1968
    if (level == SHUTDOWN_DEFAULT)
      level= SHUTDOWN_WAIT_ALL_BUFFERS; // soon default will be configurable
    else if (level != SHUTDOWN_WAIT_ALL_BUFFERS)
    {
      my_error(ER_NOT_SUPPORTED_YET, MYF(0), "this shutdown level");
      break;
    }
1969
    DBUG_PRINT("quit",("Got shutdown command for level %u", level));
1970
    mysql_log.write(thd,command,NullS);
1971
    send_eof(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1972 1973 1974
#ifdef __WIN__
    sleep(1);					// must wait after eof()
#endif
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1975
#ifndef OS2
1976
    send_eof(thd);				// This is for 'quit request'
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1977
#endif
1978
    close_connection(thd, 0, 1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1979 1980 1981 1982
    close_thread_tables(thd);			// Free before kill
    kill_mysql();
    error=TRUE;
    break;
1983
  }
1984
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1985 1986
  case COM_STATISTICS:
  {
1987
    mysql_log.write(thd,command,NullS);
1988 1989
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_STATUS],
			&LOCK_status);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1990
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1991
    char buff[200];
hf@deer.(none)'s avatar
hf@deer.(none) committed
1992 1993 1994
#else
    char *buff= thd->net.last_error;
#endif
1995
    ulong uptime = (ulong) (thd->start_time - start_time);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1996
    sprintf((char*) buff,
1997
	    "Uptime: %lu  Threads: %d  Questions: %lu  Slow queries: %lu  Opens: %lu  Flush tables: %lu  Open tables: %u  Queries per second avg: %.3f",
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1998
	    uptime,
1999 2000 2001
	    (int) thread_count, (ulong) thd->query_id,
            (ulong) thd->status_var.long_query_count,
	    thd->status_var.opened_tables, refresh_version, cached_tables(),
2002 2003
	    (uptime ? (ulonglong2double(thd->query_id) / (double) uptime) :
	     (double) 0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2004
#ifdef SAFEMALLOC
2005
    if (sf_malloc_cur_memory)				// Using SAFEMALLOC
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2006
      sprintf(strend(buff), "  Memory in use: %ldK  Max memory used: %ldK",
2007 2008
	      (sf_malloc_cur_memory+1023L)/1024L,
	      (sf_malloc_max_memory+1023L)/1024L);
hf@deer.(none)'s avatar
hf@deer.(none) committed
2009 2010
#endif
#ifndef EMBEDDED_LIBRARY
2011
    VOID(my_net_write(net, buff,(uint) strlen(buff)));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2012
    VOID(net_flush(net));
hf@deer.(none)'s avatar
hf@deer.(none) committed
2013
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2014 2015 2016
    break;
  }
  case COM_PING:
2017
    statistic_increment(thd->status_var.com_other, &LOCK_status);
2018
    send_ok(thd);				// Tell client we are alive
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2019 2020
    break;
  case COM_PROCESS_INFO:
2021 2022
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_PROCESSLIST],
			&LOCK_status);
2023 2024
    if (!thd->security_ctx->priv_user[0] &&
        check_global_access(thd, PROCESS_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2025
      break;
2026
    mysql_log.write(thd,command,NullS);
hf@deer.(none)'s avatar
hf@deer.(none) committed
2027
    mysqld_list_processes(thd,
2028 2029
			  thd->security_ctx->master_access & PROCESS_ACL ? 
			  NullS : thd->security_ctx->priv_user, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2030 2031 2032
    break;
  case COM_PROCESS_KILL:
  {
2033
    statistic_increment(thd->status_var.com_stat[SQLCOM_KILL], &LOCK_status);
2034
    ulong id=(ulong) uint4korr(packet);
hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
2035
    kill_one_thread(thd,id,false);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2036 2037
    break;
  }
2038 2039
  case COM_SET_OPTION:
  {
2040 2041
    statistic_increment(thd->status_var.com_stat[SQLCOM_SET_OPTION],
			&LOCK_status);
2042 2043 2044 2045
    enum_mysql_set_option command= (enum_mysql_set_option) uint2korr(packet);
    switch (command) {
    case MYSQL_OPTION_MULTI_STATEMENTS_ON:
      thd->client_capabilities|= CLIENT_MULTI_STATEMENTS;
2046
      send_eof(thd);
2047 2048 2049
      break;
    case MYSQL_OPTION_MULTI_STATEMENTS_OFF:
      thd->client_capabilities&= ~CLIENT_MULTI_STATEMENTS;
2050
      send_eof(thd);
2051 2052
      break;
    default:
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2053
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
2054 2055 2056 2057
      break;
    }
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2058
  case COM_DEBUG:
2059
    statistic_increment(thd->status_var.com_other, &LOCK_status);
2060
    if (check_global_access(thd, SUPER_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2061
      break;					/* purecov: inspected */
2062
    mysql_print_status();
2063
    mysql_log.write(thd,command,NullS);
2064
    send_eof(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2065 2066 2067 2068 2069
    break;
  case COM_SLEEP:
  case COM_CONNECT:				// Impossible here
  case COM_TIME:				// Impossible from client
  case COM_DELAYED_INSERT:
2070
  case COM_END:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2071
  default:
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2072
    my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2073 2074
    break;
  }
2075 2076
  if (thd->lock || thd->open_tables || thd->derived_tables ||
      thd->prelocked_mode)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2077 2078 2079 2080
  {
    thd->proc_info="closing tables";
    close_thread_tables(thd);			/* Free tables */
  }
2081 2082 2083 2084 2085 2086 2087 2088 2089 2090
  /*
    assume handlers auto-commit (if some doesn't - transaction handling
    in MySQL should be redesigned to support it; it's a big change,
    and it's not worth it - better to commit explicitly only writing
    transactions, read-only ones should better take care of themselves.
    saves some work in 2pc too)
    see also sql_base.cc - close_thread_tables()
  */
  bzero(&thd->transaction.stmt, sizeof(thd->transaction.stmt));
  if (!thd->active_transaction())
2091
    thd->transaction.xid_state.xid.null();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2092

2093 2094 2095
  /* report error issued during command execution */
  if (thd->killed_errno() && !thd->net.report_error)
    thd->send_kill_message();
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2096
  if (thd->net.report_error)
2097
    net_send_error(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2098

2099
  log_slow_statement(thd);
2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114

  thd->proc_info="cleaning up";
  VOID(pthread_mutex_lock(&LOCK_thread_count)); // For process list
  thd->proc_info=0;
  thd->command=COM_SLEEP;
  thd->query=0;
  thd->query_length=0;
  thread_running--;
  VOID(pthread_mutex_unlock(&LOCK_thread_count));
  thd->packet.shrink(thd->variables.net_buffer_length);	// Reclaim some memory
  free_root(thd->mem_root,MYF(MY_KEEP_PREALLOC));
  DBUG_RETURN(error);
}


2115
void log_slow_statement(THD *thd)
2116
{
2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127
  time_t start_of_query;

  /*
    The following should never be true with our current code base,
    but better to keep this here so we don't accidently try to log a
    statement in a trigger or stored function
  */
  if (unlikely(thd->in_sub_stmt))
    return;                                     // Don't set time for sub stmt

  start_of_query= thd->start_time;
2128
  thd->end_time();				// Set start time
2129

2130 2131 2132 2133 2134
  /*
    Do not log administrative statements unless the appropriate option is
    set; do not log into slow log if reading from backup.
  */
  if (thd->enable_slow_log && !thd->user_time)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2135
  {
2136 2137
    thd->proc_info="logging slow query";

2138 2139
    if ((ulong) (thd->start_time - thd->time_after_lock) >
	thd->variables.long_query_time ||
2140 2141
	((thd->server_status &
	  (SERVER_QUERY_NO_INDEX_USED | SERVER_QUERY_NO_GOOD_INDEX_USED)) &&
2142
	 (specialflag & SPECIAL_LOG_QUERIES_NOT_USING_INDEXES)))
2143
    {
2144
      thd->status_var.long_query_count++;
2145 2146
      mysql_slow_log.write(thd, thd->query, thd->query_length, start_of_query);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2147 2148 2149
  }
}

2150

2151 2152 2153 2154 2155
int prepare_schema_table(THD *thd, LEX *lex, Table_ident *table_ident,
                         enum enum_schema_tables schema_table_idx)
{
  DBUG_ENTER("prepare_schema_table");
  SELECT_LEX *sel= 0;
2156
  switch (schema_table_idx) {
2157 2158
  case SCH_SCHEMATA:
#if defined(DONT_ALLOW_SHOW_COMMANDS)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2159 2160
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0));   /* purecov: inspected */
2161 2162 2163 2164 2165 2166 2167 2168 2169 2170
    DBUG_RETURN(1);
#else
    if ((specialflag & SPECIAL_SKIP_SHOW_DB) &&
	check_global_access(thd, SHOW_DB_ACL))
      DBUG_RETURN(1);
    break;
#endif
  case SCH_TABLE_NAMES:
  case SCH_TABLES:
  case SCH_VIEWS:
2171
  case SCH_TRIGGERS:
2172
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2173 2174
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0)); /* purecov: inspected */
2175 2176 2177 2178 2179 2180
    DBUG_RETURN(1);
#else
    {
      char *db= lex->select_lex.db ? lex->select_lex.db : thd->db;
      if (!db)
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2181 2182
	my_message(ER_NO_DB_ERROR,
                   ER(ER_NO_DB_ERROR), MYF(0)); /* purecov: inspected */
2183 2184 2185 2186 2187
        DBUG_RETURN(1);				/* purecov: inspected */
      }
      remove_escape(db);				// Fix escaped '_'
      if (check_db_name(db))
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2188
        my_error(ER_WRONG_DB_NAME, MYF(0), db);
2189 2190
        DBUG_RETURN(1);
      }
2191 2192
      if (check_access(thd, SELECT_ACL, db, &thd->col_access, 0, 0,
                       is_schema_db(db)))
2193 2194 2195
        DBUG_RETURN(1);			        /* purecov: inspected */
      if (!thd->col_access && check_grant_db(thd,db))
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2196
	my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
2197 2198
                 thd->security_ctx->priv_user, thd->security_ctx->priv_host,
                 db);
2199 2200
	DBUG_RETURN(1);
      }
2201 2202 2203 2204 2205
      /*
        We need to do a copy to make this prepared statement safe if this
        was thd->db
      */
      lex->select_lex.db= thd->strdup(db);
2206 2207 2208 2209 2210 2211
      break;
    }
#endif
  case SCH_COLUMNS:
  case SCH_STATISTICS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2212 2213
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0)); /* purecov: inspected */
2214 2215 2216 2217 2218 2219
    DBUG_RETURN(1);
#else
    if (table_ident)
    {
      TABLE_LIST **query_tables_last= lex->query_tables_last;
      sel= new SELECT_LEX();
2220 2221
      /* 'parent_lex' is used in init_query() so it must be before it. */
      sel->parent_lex= lex;
2222
      sel->init_query();
monty@mishka.local's avatar
monty@mishka.local committed
2223
      if (!sel->add_table_to_list(thd, table_ident, 0, 0, TL_READ, 
2224 2225 2226 2227 2228 2229
                                 (List<String> *) 0, (List<String> *) 0))
        DBUG_RETURN(1);
      lex->query_tables_last= query_tables_last;
      TABLE_LIST *table_list= (TABLE_LIST*) sel->table_list.first;
      char *db= table_list->db;
      remove_escape(db);			// Fix escaped '_'
2230
      remove_escape(table_list->table_name);
2231
      if (check_access(thd,SELECT_ACL | EXTRA_ACL,db,
2232 2233
                       &table_list->grant.privilege, 0, 0,
                       test(table_list->schema_table)))
2234 2235 2236 2237 2238 2239 2240
        DBUG_RETURN(1);				/* purecov: inspected */
      if (grant_option && check_grant(thd, SELECT_ACL, table_list, 2,
                                      UINT_MAX, 0))
        DBUG_RETURN(1);
      break;
    }
#endif
2241 2242 2243
  case SCH_OPEN_TABLES:
  case SCH_VARIABLES:
  case SCH_STATUS:
2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264
  case SCH_PROCEDURES:
  case SCH_CHARSETS:
  case SCH_COLLATIONS:
  case SCH_COLLATION_CHARACTER_SET_APPLICABILITY:
  case SCH_USER_PRIVILEGES:
  case SCH_SCHEMA_PRIVILEGES:
  case SCH_TABLE_PRIVILEGES:
  case SCH_COLUMN_PRIVILEGES:
  case SCH_TABLE_CONSTRAINTS:
  case SCH_KEY_COLUMN_USAGE:
  default:
    break;
  }
  
  SELECT_LEX *select_lex= lex->current_select;
  if (make_schema_select(thd, select_lex, schema_table_idx))
  {
    DBUG_RETURN(1);
  }
  TABLE_LIST *table_list= (TABLE_LIST*) select_lex->table_list.first;
  table_list->schema_select_lex= sel;
2265
  table_list->schema_table_reformed= 1;
2266 2267
  statistic_increment(thd->status_var.com_stat[lex->orig_sql_command],
                      &LOCK_status);
2268 2269 2270 2271
  DBUG_RETURN(0);
}


2272 2273
/*
  Read query from packet and store in thd->query
2274
  Used in COM_QUERY and COM_STMT_PREPARE
2275 2276 2277 2278 2279 2280 2281

  DESCRIPTION
    Sets the following THD variables:
      query
      query_length

  RETURN VALUES
2282 2283
    FALSE ok
    TRUE  error;  In this case thd->fatal_error is set
2284 2285
*/

2286
bool alloc_query(THD *thd, const char *packet, uint packet_length)
2287 2288
{
  packet_length--;				// Remove end null
2289
  /* Remove garbage at start and end of query */
2290
  while (my_isspace(thd->charset(),packet[0]) && packet_length > 0)
2291 2292 2293 2294
  {
    packet++;
    packet_length--;
  }
2295
  const char *pos= packet + packet_length;     // Point at end null
peter@mysql.com's avatar
peter@mysql.com committed
2296
  while (packet_length > 0 &&
2297
	 (pos[-1] == ';' || my_isspace(thd->charset() ,pos[-1])))
2298 2299 2300 2301 2302
  {
    pos--;
    packet_length--;
  }
  /* We must allocate some extra memory for query cache */
monty@mysql.com's avatar
monty@mysql.com committed
2303
  thd->query_length= 0;                        // Extra safety: Avoid races
2304 2305
  if (!(thd->query= (char*) thd->memdup_w_gap((gptr) (packet),
					      packet_length,
2306 2307
					      thd->db_length+ 1 +
					      QUERY_CACHE_FLAGS_SIZE)))
2308
    return TRUE;
2309 2310
  thd->query[packet_length]=0;
  thd->query_length= packet_length;
2311 2312 2313 2314

  /* Reclaim some memory */
  thd->packet.shrink(thd->variables.net_buffer_length);
  thd->convert_buffer.shrink(thd->variables.net_buffer_length);
2315

2316
  return FALSE;
2317 2318
}

2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334
static void reset_one_shot_variables(THD *thd) 
{
  thd->variables.character_set_client=
    global_system_variables.character_set_client;
  thd->variables.collation_connection=
    global_system_variables.collation_connection;
  thd->variables.collation_database=
    global_system_variables.collation_database;
  thd->variables.collation_server=
    global_system_variables.collation_server;
  thd->update_charset();
  thd->variables.time_zone=
    global_system_variables.time_zone;
  thd->one_shot_set= 0;
}

2335

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2336 2337 2338 2339 2340
/****************************************************************************
** mysql_execute_command
** Execute command saved in thd and current_lex->sql_command
****************************************************************************/

2341
bool
2342
mysql_execute_command(THD *thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2343
{
2344
  bool	res= FALSE;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2345
  int result= 0;
2346
  LEX	*lex= thd->lex;
monty@mysql.com's avatar
monty@mysql.com committed
2347
  /* first SELECT_LEX (have special meaning for many of non-SELECTcommands) */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2348
  SELECT_LEX *select_lex= &lex->select_lex;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2349
  /* first table of first SELECT_LEX */
monty@mysql.com's avatar
monty@mysql.com committed
2350
  TABLE_LIST *first_table= (TABLE_LIST*) select_lex->table_list.first;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2351 2352 2353
  /* list of all tables in query */
  TABLE_LIST *all_tables;
  /* most outer SELECT_LEX_UNIT of query */
2354
  SELECT_LEX_UNIT *unit= &lex->unit;
2355
  /* Saved variable value */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2356
  DBUG_ENTER("mysql_execute_command");
2357
  thd->net.no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2358

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374
  /*
    In many cases first table of main SELECT_LEX have special meaning =>
    check that it is first table in global list and relink it first in 
    queries_tables list if it is necessary (we need such relinking only
    for queries with subqueries in select list, in this case tables of
    subqueries will go to global list first)

    all_tables will differ from first_table only if most upper SELECT_LEX
    do not contain tables.

    Because of above in place where should be at least one table in most
    outer SELECT_LEX we have following check:
    DBUG_ASSERT(first_table == all_tables);
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
  */
  lex->first_lists_tables_same();
2375
  /* should be assigned after making first tables same */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2376
  all_tables= lex->query_tables;
2377 2378 2379 2380
  /* set context for commands which do not use setup_tables */
  select_lex->
    context.resolve_in_table_list_only((TABLE_LIST*)select_lex->
                                       table_list.first);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2381

2382 2383 2384 2385 2386
  /*
    Reset warning count for each query that uses tables
    A better approach would be to reset this for any commands
    that is not a SHOW command or a select that only access local
    variables, but for now this is probably good enough.
2387
    Don't reset warnings when executing a stored routine.
2388
  */
2389
  if ((all_tables || &lex->select_lex != lex->all_selects_list ||
2390
       lex->sroutines.records) && !thd->spcont ||
2391
      lex->time_zone_tables_used)
monty@mysql.com's avatar
monty@mysql.com committed
2392
    mysql_reset_errors(thd, 0);
2393

hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
2394
#ifdef HAVE_REPLICATION
2395
  if (unlikely(thd->slave_thread))
2396
  {
peter@mysql.com's avatar
peter@mysql.com committed
2397
    /*
2398 2399
      Check if statment should be skipped because of slave filtering
      rules
2400 2401

      Exceptions are:
2402 2403
      - UPDATE MULTI: For this statement, we want to check the filtering
        rules later in the code
2404
      - SET: we always execute it (Not that many SET commands exists in
lars@mysql.com's avatar
lars@mysql.com committed
2405 2406
        the binary log anyway -- only 4.1 masters write SET statements,
	in 5.0 there are no SET statements in the binary log)
2407 2408
      - DROP TEMPORARY TABLE IF EXISTS: we always execute it (otherwise we
        have stale files on slave caused by exclusion of one tmp table).
monty@hundin.mysql.fi's avatar
merge  
monty@hundin.mysql.fi committed
2409
    */
2410 2411
    if (!(lex->sql_command == SQLCOM_UPDATE_MULTI) &&
	!(lex->sql_command == SQLCOM_SET_OPTION) &&
2412
	!(lex->sql_command == SQLCOM_DROP_TABLE &&
2413
          lex->drop_temporary && lex->drop_if_exists) &&
guilhem@mysql.com's avatar
Merge  
guilhem@mysql.com committed
2414
        all_tables_not_ok(thd, all_tables))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
2415 2416
    {
      /* we warn the slave SQL thread */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2417
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
2418
      reset_one_shot_variables(thd);
2419
      DBUG_RETURN(0);
guilhem@mysql.com's avatar
guilhem@mysql.com committed
2420
    }
2421
  }
2422
  else
2423
  {
2424
#endif /* HAVE_REPLICATION */
2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442
    /*
      When option readonly is set deny operations which change non-temporary
      tables. Except for the replication thread and the 'super' users.
    */
    if (opt_readonly &&
	!(thd->security_ctx->master_access & SUPER_ACL) &&
	uc_update_queries[lex->sql_command] &&
	!((lex->sql_command == SQLCOM_CREATE_TABLE) &&
	  (lex->create_info.options & HA_LEX_CREATE_TMP_TABLE)) &&
	((lex->sql_command != SQLCOM_UPDATE_MULTI) &&
	 some_non_temp_table_to_be_updated(thd, all_tables)))
    {
      my_error(ER_OPTION_PREVENTS_STATEMENT, MYF(0), "--read-only");
      DBUG_RETURN(-1);
    }
#ifdef HAVE_REPLICATION
  } /* endif unlikely slave */
#endif
2443 2444 2445
  if(lex->orig_sql_command == SQLCOM_END)
    statistic_increment(thd->status_var.com_stat[lex->sql_command],
                        &LOCK_status);
2446

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2447 2448 2449
  switch (lex->sql_command) {
  case SQLCOM_SELECT:
  {
2450 2451 2452 2453
    /* assign global limit variable if limit is not given */
    {
      SELECT_LEX *param= lex->unit.global_parameters;
      if (!param->explicit_limit)
2454 2455
	param->select_limit=
          new Item_int((ulonglong)thd->variables.select_limit);
2456 2457
    }

2458
    select_result *result=lex->result;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2459
    if (all_tables)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2460
    {
2461 2462 2463 2464 2465 2466
      if (lex->orig_sql_command != SQLCOM_SHOW_STATUS_PROC &&
          lex->orig_sql_command != SQLCOM_SHOW_STATUS_FUNC)
        res= check_table_access(thd,
                                lex->exchange ? SELECT_ACL | FILE_ACL :
                                SELECT_ACL,
                                all_tables, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2467 2468
    }
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2469 2470
      res= check_access(thd,
			lex->exchange ? SELECT_ACL | FILE_ACL : SELECT_ACL,
2471
			any_db, 0, 0, 0, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2472
    if (res)
2473
      goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2474

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2475
    if (!(res= open_and_lock_tables(thd, all_tables)))
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2476
    {
2477
      if (lex->describe)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2478
      {
2479 2480 2481 2482 2483 2484
        /*
          We always use select_send for EXPLAIN, even if it's an EXPLAIN
          for SELECT ... INTO OUTFILE: a user application should be able
          to prepend EXPLAIN to any query and receive output for it,
          even if the query itself redirects the output.
        */
2485
	if (!(result= new select_send()))
2486
	  goto error;
2487 2488
	else
	  thd->send_explain_fields(result);
2489
	res= mysql_explain_union(thd, &thd->lex->unit, result);
2490 2491 2492 2493 2494
	if (lex->describe & DESCRIBE_EXTENDED)
	{
	  char buff[1024];
	  String str(buff,(uint32) sizeof(buff), system_charset_info);
	  str.length(0);
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
2495
	  thd->lex->unit.print(&str);
2496 2497 2498 2499
	  str.append('\0');
	  push_warning(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
		       ER_YES, str.ptr());
	}
2500
	result->send_eof();
2501
        delete result;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2502 2503 2504
      }
      else
      {
2505
	if (!result && !(result= new select_send()))
2506
          goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2507
	query_cache_store_query(thd, all_tables);
2508
	res= handle_select(thd, lex, result, 0);
2509 2510
        if (result != lex->result)
          delete result;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2511
      }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2512
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2513 2514
    break;
  }
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2515
  case SQLCOM_PREPARE:
2516
  {
2517
    mysql_sql_stmt_prepare(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2518 2519 2520 2521
    break;
  }
  case SQLCOM_EXECUTE:
  {
2522
    mysql_sql_stmt_execute(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2523 2524 2525 2526
    break;
  }
  case SQLCOM_DEALLOCATE_PREPARE:
  {
2527
    mysql_sql_stmt_close(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2528 2529
    break;
  }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2530
  case SQLCOM_DO:
2531 2532
    if (check_table_access(thd, SELECT_ACL, all_tables, 0) ||
        open_and_lock_tables(thd, all_tables))
2533
      goto error;
2534 2535

    res= mysql_do(thd, *lex->insert_list);
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2536 2537
    break;

2538
  case SQLCOM_EMPTY_QUERY:
2539
    send_ok(thd);
2540 2541
    break;

2542 2543 2544 2545
  case SQLCOM_HELP:
    res= mysqld_help(thd,lex->help_arg);
    break;

2546
#ifndef EMBEDDED_LIBRARY
2547
  case SQLCOM_PURGE:
2548
  {
2549
    if (check_global_access(thd, SUPER_ACL))
2550
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
2551
    /* PURGE MASTER LOGS TO 'file' */
2552 2553 2554
    res = purge_master_logs(thd, lex->to_log);
    break;
  }
2555 2556
  case SQLCOM_PURGE_BEFORE:
  {
2557 2558
    Item *it;

2559 2560
    if (check_global_access(thd, SUPER_ACL))
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
2561
    /* PURGE MASTER LOGS BEFORE 'data' */
2562
    it= (Item *)lex->value_list.head();
2563
    if ((!it->fixed && it->fix_fields(lex->thd, &it)) ||
2564
        it->check_cols(1))
2565 2566 2567 2568 2569 2570 2571 2572 2573 2574 2575
    {
      my_error(ER_WRONG_ARGUMENTS, MYF(0), "PURGE LOGS BEFORE");
      goto error;
    }
    it= new Item_func_unix_timestamp(it);
    /*
      it is OK only emulate fix_fieds, because we need only
      value of constant
    */
    it->quick_fix_field();
    res = purge_master_logs_before_date(thd, (ulong)it->val_int());
2576 2577
    break;
  }
2578
#endif
2579 2580
  case SQLCOM_SHOW_WARNS:
  {
2581 2582
    res= mysqld_show_warnings(thd, (ulong)
			      ((1L << (uint) MYSQL_ERROR::WARN_LEVEL_NOTE) |
2583 2584 2585
			       (1L << (uint) MYSQL_ERROR::WARN_LEVEL_WARN) |
			       (1L << (uint) MYSQL_ERROR::WARN_LEVEL_ERROR)
			       ));
2586 2587 2588 2589
    break;
  }
  case SQLCOM_SHOW_ERRORS:
  {
2590 2591
    res= mysqld_show_warnings(thd, (ulong)
			      (1L << (uint) MYSQL_ERROR::WARN_LEVEL_ERROR));
2592 2593
    break;
  }
2594 2595
  case SQLCOM_SHOW_NEW_MASTER:
  {
2596
    if (check_global_access(thd, REPL_SLAVE_ACL))
2597
      goto error;
2598
    /* This query don't work now. See comment in repl_failsafe.cc */
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
2599
#ifndef WORKING_NEW_MASTER
2600 2601
    my_error(ER_NOT_SUPPORTED_YET, MYF(0), "SHOW NEW MASTER");
    goto error;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
2602
#else
2603 2604
    res = show_new_master(thd);
    break;
2605
#endif
2606
  }
2607

2608
#ifdef HAVE_REPLICATION
2609 2610
  case SQLCOM_SHOW_SLAVE_HOSTS:
  {
2611
    if (check_global_access(thd, REPL_SLAVE_ACL))
2612 2613 2614 2615
      goto error;
    res = show_slave_hosts(thd);
    break;
  }
2616 2617
  case SQLCOM_SHOW_BINLOG_EVENTS:
  {
2618
    if (check_global_access(thd, REPL_SLAVE_ACL))
2619
      goto error;
2620
    res = mysql_show_binlog_events(thd);
2621 2622
    break;
  }
2623 2624
#endif

2625
  case SQLCOM_BACKUP_TABLE:
2626
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2627 2628 2629
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL, all_tables, 0) ||
2630
	check_global_access(thd, FILE_ACL))
2631
      goto error; /* purecov: inspected */
2632
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2633
    res = mysql_backup_table(thd, first_table);
2634
    select_lex->table_list.first= (byte*) first_table;
2635
    lex->query_tables=all_tables;
2636 2637
    break;
  }
2638
  case SQLCOM_RESTORE_TABLE:
2639
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2640 2641 2642
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, INSERT_ACL, all_tables, 0) ||
2643
	check_global_access(thd, FILE_ACL))
2644
      goto error; /* purecov: inspected */
2645
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2646
    res = mysql_restore_table(thd, first_table);
2647
    select_lex->table_list.first= (byte*) first_table;
2648
    lex->query_tables=all_tables;
2649 2650
    break;
  }
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2651 2652
  case SQLCOM_ASSIGN_TO_KEYCACHE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2653 2654 2655
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
        check_access(thd, INDEX_ACL, first_table->db,
2656 2657
                     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2658
      goto error;
2659
    res= mysql_assign_to_keycache(thd, first_table, &lex->ident);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2660 2661
    break;
  }
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2662 2663
  case SQLCOM_PRELOAD_KEYS:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2664 2665 2666
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_access(thd, INDEX_ACL, first_table->db,
2667 2668
                     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
2669
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2670
    res = mysql_preload_keys(thd, first_table);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2671 2672
    break;
  }
2673
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2674
  case SQLCOM_CHANGE_MASTER:
2675
  {
2676
    if (check_global_access(thd, SUPER_ACL))
2677
      goto error;
2678
    pthread_mutex_lock(&LOCK_active_mi);
2679
    res = change_master(thd,active_mi);
2680
    pthread_mutex_unlock(&LOCK_active_mi);
2681 2682
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2683
  case SQLCOM_SHOW_SLAVE_STAT:
2684
  {
2685 2686
    /* Accept one of two privileges */
    if (check_global_access(thd, SUPER_ACL | REPL_CLIENT_ACL))
2687
      goto error;
2688
    pthread_mutex_lock(&LOCK_active_mi);
2689
    res = show_master_info(thd,active_mi);
2690
    pthread_mutex_unlock(&LOCK_active_mi);
2691 2692
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2693
  case SQLCOM_SHOW_MASTER_STAT:
2694
  {
2695 2696
    /* Accept one of two privileges */
    if (check_global_access(thd, SUPER_ACL | REPL_CLIENT_ACL))
2697 2698 2699 2700
      goto error;
    res = show_binlog_info(thd);
    break;
  }
peter@mysql.com's avatar
peter@mysql.com committed
2701

2702
  case SQLCOM_LOAD_MASTER_DATA: // sync with master
2703
    if (check_global_access(thd, SUPER_ACL))
2704
      goto error;
2705
    if (end_active_trans(thd))
2706
      goto error;
2707 2708
    else
      res = load_master_data(thd);
2709
    break;
2710
#endif /* HAVE_REPLICATION */
2711 2712 2713 2714 2715 2716 2717
#ifdef HAVE_NDBCLUSTER_DB
  case SQLCOM_SHOW_NDBCLUSTER_STATUS:
    {
      res = ndbcluster_show_status(thd);
      break;
    }
#endif
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2718 2719 2720
#ifdef HAVE_INNOBASE_DB
  case SQLCOM_SHOW_INNODB_STATUS:
    {
2721
      if (check_global_access(thd, SUPER_ACL))
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2722 2723 2724 2725
	goto error;
      res = innodb_show_status(thd);
      break;
    }
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2726 2727 2728
  case SQLCOM_SHOW_MUTEX_STATUS:
    {
      if (check_global_access(thd, SUPER_ACL))
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2729
        goto error;
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2730 2731 2732
      res = innodb_mutex_show_status(thd);
      break;
    }
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2733
#endif
2734
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2735
  case SQLCOM_LOAD_MASTER_TABLE:
2736
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2737 2738 2739 2740
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (!first_table->db)
      first_table->db= thd->db;
    if (check_access(thd, CREATE_ACL, first_table->db,
2741 2742
		     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2743 2744 2745 2746
      goto error;				/* purecov: inspected */
    if (grant_option)
    {
      /* Check that the first table has CREATE privilege */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2747
      if (check_grant(thd, CREATE_ACL, all_tables, 0, 1, 0))
2748
	goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2749
    }
2750
    if (strlen(first_table->table_name) > NAME_LEN)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2751
    {
2752
      my_error(ER_WRONG_TABLE_NAME, MYF(0), first_table->table_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2753 2754
      break;
    }
2755
    pthread_mutex_lock(&LOCK_active_mi);
2756 2757 2758 2759
    /*
      fetch_master_table will send the error to the client on failure.
      Give error if the table already exists.
    */
2760
    if (!fetch_master_table(thd, first_table->db, first_table->table_name,
2761
			    active_mi, 0, 0))
2762
    {
2763
      send_ok(thd);
2764
    }
2765
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2766
    break;
2767
  }
2768
#endif /* HAVE_REPLICATION */
2769

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2770
  case SQLCOM_CREATE_TABLE:
2771
  {
2772
    /* If CREATE TABLE of non-temporary table, do implicit commit */
2773 2774 2775 2776 2777 2778 2779 2780 2781 2782
    if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE))
    {
      if (end_active_trans(thd))
      {
	res= -1;
	break;
      }
    }
    else 
    {
2783 2784
      /* So that CREATE TEMPORARY TABLE gets to binlog at commit/rollback */
      thd->options|= OPTION_STATUS_NO_TRANS_UPDATE;
2785
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2786 2787 2788 2789 2790
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    bool link_to_local;
    // Skip first table, which is the table we are creating
    TABLE_LIST *create_table= lex->unlink_first_table(&link_to_local);
    TABLE_LIST *select_tables= lex->query_tables;
monty@mysql.com's avatar
monty@mysql.com committed
2791

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2792
    if ((res= create_table_precheck(thd, select_tables, create_table)))
monty@mysql.com's avatar
monty@mysql.com committed
2793
      goto end_with_restore_list;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2794

2795 2796 2797
#ifndef HAVE_READLINK
    lex->create_info.data_file_name=lex->create_info.index_file_name=0;
#else
2798
    /* Fix names if symlinked tables */
2799
    if (append_file_to_dir(thd, &lex->create_info.data_file_name,
2800
			   create_table->table_name) ||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2801
	append_file_to_dir(thd, &lex->create_info.index_file_name,
2802
			   create_table->table_name))
monty@mysql.com's avatar
monty@mysql.com committed
2803
      goto end_with_restore_list;
2804
#endif
2805
    /*
2806
      If we are using SET CHARSET without DEFAULT, add an implicit
2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817
      DEFAULT to not confuse old users. (This may change).
    */
    if ((lex->create_info.used_fields & 
	 (HA_CREATE_USED_DEFAULT_CHARSET | HA_CREATE_USED_CHARSET)) ==
	HA_CREATE_USED_CHARSET)
    {
      lex->create_info.used_fields&= ~HA_CREATE_USED_CHARSET;
      lex->create_info.used_fields|= HA_CREATE_USED_DEFAULT_CHARSET;
      lex->create_info.default_table_charset= lex->create_info.table_charset;
      lex->create_info.table_charset= 0;
    }
2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 2832
    /*
      The create-select command will open and read-lock the select table
      and then create, open and write-lock the new table. If a global
      read lock steps in, we get a deadlock. The write lock waits for
      the global read lock, while the global read lock waits for the
      select table to be closed. So we wait until the global readlock is
      gone before starting both steps. Note that
      wait_if_global_read_lock() sets a protection against a new global
      read lock when it succeeds. This needs to be released by
      start_waiting_global_read_lock(). We protect the normal CREATE
      TABLE in the same way. That way we avoid that a new table is
      created during a gobal read lock.
    */
    if (wait_if_global_read_lock(thd, 0, 1))
    {
monty@mysql.com's avatar
monty@mysql.com committed
2833 2834
      res= 1;
      goto end_with_restore_list;
2835
    }
2836
    if (select_lex->item_list.elements)		// With select
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2837 2838
    {
      select_result *result;
2839

2840
      select_lex->options|= SELECT_NO_UNLOCK;
2841
      unit->set_limit(select_lex);
2842

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2843
      if (!(res= open_and_lock_tables(thd, select_tables)))
2844
      {
2845 2846 2847 2848
        /*
          Is table which we are changing used somewhere in other parts
          of query
        */
2849
        if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE))
2850
        {
2851
          TABLE_LIST *duplicate;
2852
          if ((duplicate= unique_table(thd, create_table, select_tables)))
2853 2854 2855 2856 2857
          {
            update_non_unique_table_error(create_table, "CREATE", duplicate);
            res= 1;
            goto end_with_restart_wait;
          }
2858
        }
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2859 2860 2861 2862 2863 2864 2865 2866
        /* If we create merge table, we have to test tables in merge, too */
        if (lex->create_info.used_fields & HA_CREATE_USED_UNION)
        {
          TABLE_LIST *tab;
          for (tab= (TABLE_LIST*) lex->create_info.merge_list.first;
               tab;
               tab= tab->next_local)
          {
2867
            TABLE_LIST *duplicate;
2868
            if ((duplicate= unique_table(thd, tab, select_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2869
            {
2870
              update_non_unique_table_error(tab, "CREATE", duplicate);
monty@mysql.com's avatar
monty@mysql.com committed
2871 2872
              res= 1;
              goto end_with_restart_wait;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2873 2874 2875
            }
          }
        }
2876

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2877 2878 2879 2880 2881
        if ((result= new select_create(create_table,
				       &lex->create_info,
				       lex->create_list,
				       lex->key_list,
				       select_lex->item_list,
2882 2883
				       lex->duplicates,
				       lex->ignore)))
2884 2885 2886 2887 2888
        {
          /*
            CREATE from SELECT give its SELECT_LEX for SELECT,
            and item_list belong to SELECT
          */
2889
          res= handle_select(thd, lex, result, 0);
2890
          delete result;
2891
        }
monty@mysql.com's avatar
monty@mysql.com committed
2892
	/* reset for PS */
2893 2894
	lex->create_list.empty();
	lex->key_list.empty();
2895 2896
      }
    }
monty@mysql.com's avatar
monty@mysql.com committed
2897
    else
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2898
    {
monty@mysql.com's avatar
monty@mysql.com committed
2899
      /* regular create */
venu@myvenu.com's avatar
venu@myvenu.com committed
2900
      if (lex->name)
monty@mysql.com's avatar
monty@mysql.com committed
2901
        res= mysql_create_like_table(thd, create_table, &lex->create_info, 
venu@myvenu.com's avatar
venu@myvenu.com committed
2902 2903
                                     (Table_ident *)lex->name); 
      else
2904
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2905
        res= mysql_create_table(thd, create_table->db,
2906
				create_table->table_name, &lex->create_info,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2907
				lex->create_list,
monty@mysql.com's avatar
monty@mysql.com committed
2908
				lex->key_list, 0, 0);
2909
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2910
      if (!res)
2911
	send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2912
    }
2913

monty@mysql.com's avatar
monty@mysql.com committed
2914
end_with_restart_wait:
2915 2916 2917 2918 2919 2920
    /*
      Release the protection against the global read lock and wake
      everyone, who might want to set a global read lock.
    */
    start_waiting_global_read_lock(thd);

monty@mysql.com's avatar
monty@mysql.com committed
2921
    /* put tables back for PS rexecuting */
monty@mysql.com's avatar
monty@mysql.com committed
2922
end_with_restore_list:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2923
    lex->link_first_table_back(create_table, link_to_local);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2924
    break;
2925
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2926
  case SQLCOM_CREATE_INDEX:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2927 2928
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_one_table_access(thd, INDEX_ACL, all_tables))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2929
      goto error; /* purecov: inspected */
2930
    thd->enable_slow_log= opt_log_slow_admin_statements;
2931
    if (end_active_trans(thd))
2932
      goto error;
2933
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2934
      res = mysql_create_index(thd, first_table, lex->key_list);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2935 2936
    break;

2937
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2938
  case SQLCOM_SLAVE_START:
2939
  {
2940
    pthread_mutex_lock(&LOCK_active_mi);
2941
    start_slave(thd,active_mi,1 /* net report*/);
2942
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2943
    break;
2944
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2945
  case SQLCOM_SLAVE_STOP:
2946 2947 2948 2949 2950 2951
  /*
    If the client thread has locked tables, a deadlock is possible.
    Assume that
    - the client thread does LOCK TABLE t READ.
    - then the master updates t.
    - then the SQL slave thread wants to update t,
2952
      so it waits for the client thread because t is locked by it.
2953
    - then the client thread does SLAVE STOP.
2954 2955
      SLAVE STOP waits for the SQL slave thread to terminate its
      update t, which waits for the client thread because t is locked by it.
2956 2957 2958
    To prevent that, refuse SLAVE STOP if the
    client thread has locked tables
  */
2959
  if (thd->locked_tables || thd->active_transaction() || thd->global_read_lock)
2960
  {
2961 2962
    my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
               ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
2963
    goto error;
2964
  }
2965
  {
2966
    pthread_mutex_lock(&LOCK_active_mi);
2967
    stop_slave(thd,active_mi,1/* net report*/);
2968
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2969
    break;
2970
  }
2971
#endif /* HAVE_REPLICATION */
2972

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2973
  case SQLCOM_ALTER_TABLE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2974
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2975
#if defined(DONT_ALLOW_SHOW_COMMANDS)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2976 2977
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
2978
    goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2979 2980
#else
    {
2981
      ulong priv=0;
Sinisa@sinisa.nasamreza.org's avatar
Sinisa@sinisa.nasamreza.org committed
2982
      if (lex->name && (!lex->name[0] || strlen(lex->name) > NAME_LEN))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2983
      {
2984
	my_error(ER_WRONG_TABLE_NAME, MYF(0), lex->name);
2985
        goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2986
      }
2987
      if (!select_lex->db)
2988 2989 2990 2991 2992 2993 2994 2995 2996 2997
      {
        /*
          In the case of ALTER TABLE ... RENAME we should supply the
          default database if the new name is not explicitly qualified
          by a database. (Bug #11493)
        */
        if (lex->alter_info.flags & ALTER_RENAME)
        {
          if (! thd->db)
          {
ingo@mysql.com's avatar
ingo@mysql.com committed
2998
            my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
2999 3000 3001 3002 3003
            goto error;
          }
          select_lex->db= thd->db;
        }
        else
3004
          select_lex->db= first_table->db;
3005
      }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3006
      if (check_access(thd, ALTER_ACL, first_table->db,
3007 3008 3009 3010
		       &first_table->grant.privilege, 0, 0,
                       test(first_table->schema_table)) ||
	  check_access(thd,INSERT_ACL | CREATE_ACL,select_lex->db,&priv,0,0,
                       is_schema_db(select_lex->db))||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3011
	  check_merge_table_access(thd, first_table->db,
3012 3013 3014
				   (TABLE_LIST *)
				   lex->create_info.merge_list.first))
	goto error;				/* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3015 3016
      if (grant_option)
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3017
	if (check_grant(thd, ALTER_ACL, all_tables, 0, UINT_MAX, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3018 3019 3020 3021 3022
	  goto error;
	if (lex->name && !test_all_bits(priv,INSERT_ACL | CREATE_ACL))
	{					// Rename of table
	  TABLE_LIST tmp_table;
	  bzero((char*) &tmp_table,sizeof(tmp_table));
3023
	  tmp_table.table_name=lex->name;
3024
	  tmp_table.db=select_lex->db;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3025
	  tmp_table.grant.privilege=priv;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3026 3027
	  if (check_grant(thd, INSERT_ACL | CREATE_ACL, &tmp_table, 0,
			  UINT_MAX, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3028 3029 3030
	    goto error;
	}
      }
3031 3032
      /* Don't yet allow changing of symlinks with ALTER TABLE */
      lex->create_info.data_file_name=lex->create_info.index_file_name=0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3033
      /* ALTER TABLE ends previous transaction */
3034
      if (end_active_trans(thd))
3035
	goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3036
      else
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3037
      {
3038
        thd->enable_slow_log= opt_log_slow_admin_statements;
3039
	res= mysql_alter_table(thd, select_lex->db, lex->name,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3040
			       &lex->create_info,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3041
			       first_table, lex->create_list,
3042
			       lex->key_list,
3043
			       select_lex->order_list.elements,
3044
                               (ORDER *) select_lex->order_list.first,
monty@mysql.com's avatar
monty@mysql.com committed
3045 3046
			       lex->duplicates, lex->ignore, &lex->alter_info,
                               1);
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3047
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3048 3049
      break;
    }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3050
#endif /*DONT_ALLOW_SHOW_COMMANDS*/
3051
  case SQLCOM_RENAME_TABLE:
3052
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3053
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3054
    TABLE_LIST *table;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3055
    if (check_db_used(thd, all_tables))
3056
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3057
    for (table= first_table; table; table= table->next_local->next_local)
3058
    {
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
3059
      if (check_access(thd, ALTER_ACL | DROP_ACL, table->db,
3060
		       &table->grant.privilege,0,0, test(table->schema_table)) ||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3061
	  check_access(thd, INSERT_ACL | CREATE_ACL, table->next_local->db,
3062 3063
		       &table->next_local->grant.privilege, 0, 0,
                       test(table->next_local->schema_table)))
3064 3065 3066
	goto error;
      if (grant_option)
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3067
	TABLE_LIST old_list, new_list;
3068 3069 3070 3071
	/*
	  we do not need initialize old_list and new_list because we will
	  come table[0] and table->next[0] there
	*/
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3072 3073 3074 3075
	old_list= table[0];
	new_list= table->next_local[0];
	if (check_grant(thd, ALTER_ACL, &old_list, 0, 1, 0) ||
	    (!test_all_bits(table->next_local->grant.privilege,
3076
			    INSERT_ACL | CREATE_ACL) &&
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3077
	     check_grant(thd, INSERT_ACL | CREATE_ACL, &new_list, 0, 1, 0)))
3078 3079 3080
	  goto error;
      }
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3081
    query_cache_invalidate3(thd, first_table, 0);
3082 3083
    if (end_active_trans(thd) || mysql_rename_tables(thd, first_table))
      goto error;
3084
    break;
3085
  }
3086
#ifndef EMBEDDED_LIBRARY
3087 3088
  case SQLCOM_SHOW_BINLOGS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3089 3090
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3091
    goto error;
3092 3093
#else
    {
3094
      if (check_global_access(thd, SUPER_ACL))
3095 3096 3097 3098
	goto error;
      res = show_binlogs(thd);
      break;
    }
peter@mysql.com's avatar
peter@mysql.com committed
3099
#endif
3100
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3101
  case SQLCOM_SHOW_CREATE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3102
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3103
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3104 3105
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3106
    goto error;
3107
#else
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3108
    {
3109 3110 3111 3112
      /* Ignore temporary tables if this is "SHOW CREATE VIEW" */
      if (lex->only_view)
        first_table->skip_temporary= 1;

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3113 3114
      if (check_db_used(thd, all_tables) ||
	  check_access(thd, SELECT_ACL | EXTRA_ACL, first_table->db,
3115 3116
		       &first_table->grant.privilege, 0, 0, 
                       test(first_table->schema_table)))
3117
	goto error;
monty@mishka.local's avatar
monty@mishka.local committed
3118
      if (grant_option && check_grant(thd, SELECT_ACL, all_tables, 2, UINT_MAX, 0))
3119
	goto error;
monty@mishka.local's avatar
monty@mishka.local committed
3120
      res= mysqld_show_create(thd, first_table);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3121 3122
      break;
    }
3123
#endif
3124 3125
  case SQLCOM_CHECKSUM:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3126 3127 3128
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL | EXTRA_ACL, all_tables, 0))
3129
      goto error; /* purecov: inspected */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3130
    res = mysql_checksum_table(thd, first_table, &lex->check_opt);
3131 3132
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3133
  case SQLCOM_REPAIR:
3134
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3135 3136 3137
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL | INSERT_ACL, all_tables, 0))
3138
      goto error; /* purecov: inspected */
3139
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3140
    res= mysql_repair_table(thd, first_table, &lex->check_opt);
3141 3142 3143 3144 3145
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3146
	thd->clear_error(); // No binlog error generated
3147
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3148 3149 3150
        mysql_bin_log.write(&qinfo);
      }
    }
3151
    select_lex->table_list.first= (byte*) first_table;
3152
    lex->query_tables=all_tables;
3153 3154
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3155
  case SQLCOM_CHECK:
3156
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3157 3158 3159
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL | EXTRA_ACL , all_tables, 0))
3160
      goto error; /* purecov: inspected */
3161
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3162
    res = mysql_check_table(thd, first_table, &lex->check_opt);
3163
    select_lex->table_list.first= (byte*) first_table;
3164
    lex->query_tables=all_tables;
3165 3166
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3167 3168
  case SQLCOM_ANALYZE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3169 3170 3171
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL | INSERT_ACL, all_tables, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3172
      goto error; /* purecov: inspected */
3173
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3174
    res = mysql_analyze_table(thd, first_table, &lex->check_opt);
3175 3176 3177 3178 3179
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3180
	thd->clear_error(); // No binlog error generated
3181
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3182 3183 3184
        mysql_bin_log.write(&qinfo);
      }
    }
3185
    select_lex->table_list.first= (byte*) first_table;
3186
    lex->query_tables=all_tables;
3187
    break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3188
  }
3189

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3190 3191
  case SQLCOM_OPTIMIZE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3192 3193 3194
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL | INSERT_ACL, all_tables, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3195
      goto error; /* purecov: inspected */
3196
    thd->enable_slow_log= opt_log_slow_admin_statements;
3197
    res= (specialflag & (SPECIAL_SAFE_MODE | SPECIAL_NO_NEW_FUNC)) ?
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3198 3199
      mysql_recreate_table(thd, first_table, 1) :
      mysql_optimize_table(thd, first_table, &lex->check_opt);
3200 3201 3202 3203 3204
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3205
	thd->clear_error(); // No binlog error generated
3206
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3207 3208 3209
        mysql_bin_log.write(&qinfo);
      }
    }
3210
    select_lex->table_list.first= (byte*) first_table;
3211
    lex->query_tables=all_tables;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3212 3213 3214
    break;
  }
  case SQLCOM_UPDATE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3215 3216
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (update_precheck(thd, all_tables))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3217
      break;
3218 3219
    DBUG_ASSERT(select_lex->offset_limit == 0);
    unit->set_limit(select_lex);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3220 3221 3222 3223 3224 3225
    res= (result= mysql_update(thd, all_tables,
                               select_lex->item_list,
                               lex->value_list,
                               select_lex->where,
                               select_lex->order_list.elements,
                               (ORDER *) select_lex->order_list.first,
3226
                               unit->select_limit_cnt,
3227
                               lex->duplicates, lex->ignore));
3228
    /* mysql_update return 2 if we need to switch to multi-update */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3229
    if (result != 2)
3230
      break;
3231
  case SQLCOM_UPDATE_MULTI:
3232 3233 3234 3235
  {
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    /* if we switched from normal update, rights are checked */
    if (result != 2)
3236
    {
3237 3238 3239 3240 3241
      if ((res= multi_update_precheck(thd, all_tables)))
        break;
    }
    else
      res= 0;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3242

3243
    res= mysql_multi_update_prepare(thd);
3244

3245
#ifdef HAVE_REPLICATION
3246
    /* Check slave filtering rules */
3247
    if (unlikely(thd->slave_thread))
3248
    {
3249 3250
      if (all_tables_not_ok(thd, all_tables))
      {
3251 3252 3253 3254 3255
        if (res!= 0)
        {
          res= 0;             /* don't care of prev failure  */
          thd->clear_error(); /* filters are of highest prior */
        }
3256 3257 3258 3259
        /* we warn the slave SQL thread */
        my_error(ER_SLAVE_IGNORED_TABLE, MYF(0));
        break;
      }
3260 3261
      if (res)
        break;
3262
    }
3263 3264
    else
    {
3265 3266 3267 3268 3269 3270 3271 3272 3273 3274 3275 3276 3277
#endif /* HAVE_REPLICATION */
      if (res)
        break;
      if (opt_readonly &&
	  !(thd->security_ctx->master_access & SUPER_ACL) &&
	  some_non_temp_table_to_be_updated(thd, all_tables))
      {
	my_error(ER_OPTION_PREVENTS_STATEMENT, MYF(0), "--read-only");
	break;
      }
#ifdef HAVE_REPLICATION
    }  /* unlikely */
#endif
3278

3279 3280 3281 3282 3283 3284
    res= mysql_multi_update(thd, all_tables,
                            &select_lex->item_list,
                            &lex->value_list,
                            select_lex->where,
                            select_lex->options,
                            lex->duplicates, lex->ignore, unit, select_lex);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3285
    break;
monty@mysql.com's avatar
monty@mysql.com committed
3286
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3287
  case SQLCOM_REPLACE:
3288 3289
  case SQLCOM_INSERT:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3290
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
monty@mysql.com's avatar
monty@mysql.com committed
3291
    if ((res= insert_precheck(thd, all_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3292
      break;
3293 3294
    /* Skip first table, which is the table we are inserting in */
    select_lex->context.table_list= first_table->next_local;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3295
    res= mysql_insert(thd, all_tables, lex->field_list, lex->many_values,
monty@mishka.local's avatar
monty@mishka.local committed
3296
		      lex->update_list, lex->value_list,
3297
                      lex->duplicates, lex->ignore);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3298 3299
    if (first_table->view && !first_table->contain_auto_increment)
      thd->last_insert_id= 0; // do not show last insert ID if VIEW have not it
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3300
    break;
3301
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3302 3303 3304
  case SQLCOM_REPLACE_SELECT:
  case SQLCOM_INSERT_SELECT:
  {
monty@mysql.com's avatar
monty@mysql.com committed
3305
    select_result *result;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3306
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
monty@mishka.local's avatar
monty@mishka.local committed
3307
    if ((res= insert_precheck(thd, all_tables)))
3308
      break;
monty@mysql.com's avatar
monty@mysql.com committed
3309

3310
    /* Fix lock for first table */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3311 3312
    if (first_table->lock_type == TL_WRITE_DELAYED)
      first_table->lock_type= TL_WRITE;
3313

3314 3315
    /* Don't unlock tables until command is written to binary log */
    select_lex->options|= SELECT_NO_UNLOCK;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3316

3317
    unit->set_limit(select_lex);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3318
    if (!(res= open_and_lock_tables(thd, all_tables)))
3319
    {
3320
      /* Skip first table, which is the table we are inserting in */
3321 3322
      TABLE_LIST *second_table= first_table->next_local;
      select_lex->table_list.first= (byte*) second_table;
3323 3324
      select_lex->context.table_list= 
        select_lex->context.first_name_resolution_table= second_table;
3325 3326 3327
      res= mysql_insert_select_prepare(thd);
      if (!res && (result= new select_insert(first_table, first_table->table,
                                             &lex->field_list,
3328 3329
                                             &lex->update_list,
                                             &lex->value_list,
3330
                                             lex->duplicates, lex->ignore)))
3331
      {
3332 3333 3334 3335 3336 3337 3338
        /*
          Skip first table, which is the table we are inserting in.
          Below we set context.table_list again because the call above to
          mysql_insert_select_prepare() calls resolve_in_table_list_only(),
          which in turn resets context.table_list and
          context.first_name_resolution_table.
        */
3339 3340
        select_lex->context.table_list= 
          select_lex->context.first_name_resolution_table= second_table;
3341
	res= handle_select(thd, lex, result, OPTION_SETUP_TABLES_DONE);
3342 3343 3344 3345 3346 3347 3348 3349 3350 3351 3352 3353 3354
        /*
          Invalidate the table in the query cache if something changed
          after unlocking when changes become visible.
          TODO: this is workaround. right way will be move invalidating in
          the unlock procedure.
        */
        if (first_table->lock_type ==  TL_WRITE_CONCURRENT_INSERT &&
            thd->lock)
        {
          mysql_unlock_tables(thd, thd->lock);
          query_cache_invalidate3(thd, first_table, 1);
          thd->lock=0;
        }
3355 3356
        delete result;
      }
3357
      /* revert changes for SP */
msvensson@neptunus.(none)'s avatar
msvensson@neptunus.(none) committed
3358
      select_lex->table_list.first= (byte*) first_table;
3359
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3360 3361 3362

    if (first_table->view && !first_table->contain_auto_increment)
      thd->last_insert_id= 0; // do not show last insert ID if VIEW have not it
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3363 3364
    break;
  }
3365
  case SQLCOM_TRUNCATE:
3366 3367 3368 3369 3370
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3371 3372
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_one_table_access(thd, DELETE_ACL, all_tables))
3373
      goto error;
3374 3375 3376 3377
    /*
      Don't allow this within a transaction because we want to use
      re-generate table
    */
3378
    if (thd->locked_tables || thd->active_transaction())
3379
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3380 3381
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3382 3383
      goto error;
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3384

monty@mysql.com's avatar
monty@mysql.com committed
3385
    res= mysql_truncate(thd, first_table, 0);
3386
    break;
3387
  case SQLCOM_DELETE:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3388
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3389 3390
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if ((res= delete_precheck(thd, all_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3391
      break;
3392 3393
    DBUG_ASSERT(select_lex->offset_limit == 0);
    unit->set_limit(select_lex);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3394
    res = mysql_delete(thd, all_tables, select_lex->where,
3395
                       &select_lex->order_list,
osku@127.(none)'s avatar
osku@127.(none) committed
3396 3397
                       unit->select_limit_cnt, select_lex->options,
                       FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3398 3399
    break;
  }
3400
  case SQLCOM_DELETE_MULTI:
3401
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3402
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3403 3404
    TABLE_LIST *aux_tables=
      (TABLE_LIST *)thd->lex->auxilliary_table_list.first;
3405
    multi_delete *result;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3406

3407
    if ((res= multi_delete_precheck(thd, all_tables)))
3408
      break;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3409

3410
    /* condition will be TRUE on SP re-excuting */
3411 3412
    if (select_lex->item_list.elements != 0)
      select_lex->item_list.empty();
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
3413
    if (add_item_to_list(thd, new Item_null()))
3414
      goto error;
3415

3416
    thd->proc_info="init";
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3417 3418 3419 3420
    if ((res= open_and_lock_tables(thd, all_tables)))
      break;

    if ((res= mysql_multi_delete_prepare(thd)))
3421
      goto error;
3422

3423
    if (!thd->is_fatal_error && (result= new multi_delete(aux_tables,
3424
							  lex->table_count)))
3425
    {
3426 3427 3428
      res= mysql_select(thd, &select_lex->ref_pointer_array,
			select_lex->get_table_list(),
			select_lex->with_wild,
3429
			select_lex->item_list,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3430
			select_lex->where,
3431
			0, (ORDER *)NULL, (ORDER *)NULL, (Item *)NULL,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3432 3433
			(ORDER *)NULL,
			select_lex->options | thd->options |
3434 3435
			SELECT_NO_JOIN_CACHE | SELECT_NO_UNLOCK |
                        OPTION_SETUP_TABLES_DONE,
3436
			result, unit, select_lex);
3437
      delete result;
3438 3439
    }
    else
3440
      res= TRUE;                                // Error
3441 3442
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3443
  case SQLCOM_DROP_TABLE:
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3444
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3445
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3446 3447
    if (!lex->drop_temporary)
    {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3448
      if (check_table_access(thd, DROP_ACL, all_tables, 0))
3449 3450
	goto error;				/* purecov: inspected */
      if (end_active_trans(thd))
3451
        goto error;
3452
    }
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3453
    else
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
3454 3455 3456 3457 3458 3459
    {
      /*
	If this is a slave thread, we may sometimes execute some 
	DROP / * 40005 TEMPORARY * / TABLE
	that come from parts of binlogs (likely if we use RESET SLAVE or CHANGE
	MASTER TO), while the temporary table has already been dropped.
monty@mysql.com's avatar
monty@mysql.com committed
3460 3461
	To not generate such irrelevant "table does not exist errors",
	we silently add IF EXISTS if TEMPORARY was used.
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
3462 3463 3464
      */
      if (thd->slave_thread)
	lex->drop_if_exists= 1;
3465

3466 3467
      /* So that DROP TEMPORARY TABLE gets to binlog at commit/rollback */
      thd->options|= OPTION_STATUS_NO_TRANS_UPDATE;
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
3468
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3469 3470
    res= mysql_rm_table(thd, first_table, lex->drop_if_exists,
			lex->drop_temporary);
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3471 3472
  }
  break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3473
  case SQLCOM_DROP_INDEX:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3474 3475
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_one_table_access(thd, INDEX_ACL, all_tables))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3476
      goto error;				/* purecov: inspected */
3477
    if (end_active_trans(thd))
3478
      goto error;
3479
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3480
      res = mysql_drop_index(thd, first_table, &lex->alter_info);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3481 3482
    break;
  case SQLCOM_SHOW_PROCESSLIST:
3483 3484
    if (!thd->security_ctx->priv_user[0] &&
        check_global_access(thd,PROCESS_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3485
      break;
hf@deer.(none)'s avatar
hf@deer.(none) committed
3486
    mysqld_list_processes(thd,
3487 3488 3489 3490
			  (thd->security_ctx->master_access & PROCESS_ACL ?
                           NullS :
                           thd->security_ctx->priv_user),
                          lex->verbose);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3491
    break;
3492 3493
  case SQLCOM_SHOW_STORAGE_ENGINES:
    res= mysqld_show_storage_engines(thd);
3494 3495 3496 3497 3498 3499 3500
    break;
  case SQLCOM_SHOW_PRIVILEGES:
    res= mysqld_show_privileges(thd);
    break;
  case SQLCOM_SHOW_COLUMN_TYPES:
    res= mysqld_show_column_types(thd);
    break;
tim@cane.mysql.fi's avatar
tim@cane.mysql.fi committed
3501 3502
  case SQLCOM_SHOW_LOGS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3503 3504
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0));	/* purecov: inspected */
3505
    goto error;
tim@cane.mysql.fi's avatar
tim@cane.mysql.fi committed
3506 3507
#else
    {
3508
      if (grant_option && check_access(thd, FILE_ACL, any_db,0,0,0,0))
tim@cane.mysql.fi's avatar
tim@cane.mysql.fi committed
3509 3510 3511 3512
	goto error;
      res= mysqld_show_logs(thd);
      break;
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3513 3514
#endif
  case SQLCOM_CHANGE_DB:
3515 3516
    if (!mysql_change_db(thd,select_lex->db,FALSE))
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3517
    break;
3518

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3519 3520
  case SQLCOM_LOAD:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3521
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3522
    uint privilege= (lex->duplicates == DUP_REPLACE ?
3523 3524
		     INSERT_ACL | DELETE_ACL : INSERT_ACL) |
                    (lex->local_file ? 0 : FILE_ACL);
3525

3526
    if (lex->local_file)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3527
    {
3528
      if (!(thd->client_capabilities & CLIENT_LOCAL_FILES) ||
3529
          !opt_local_infile)
3530
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3531
	my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND), MYF(0));
3532 3533
	goto error;
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3534
    }
3535 3536 3537 3538

    if (check_one_table_access(thd, privilege, all_tables))
      goto error;

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3539
    res= mysql_load(thd, lex->exchange, first_table, lex->field_list,
3540
                    lex->update_list, lex->value_list, lex->duplicates,
3541
                    lex->ignore, (bool) lex->local_file);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3542 3543
    break;
  }
3544

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3545
  case SQLCOM_SET_OPTION:
3546 3547
  {
    List<set_var_base> *lex_var_list= &lex->var_list;
3548
    if ((check_table_access(thd, SELECT_ACL, all_tables, 0) ||
3549 3550
	 open_and_lock_tables(thd, all_tables)))
      goto error;
3551 3552
    if (lex->one_shot_set && not_all_support_one_shot(lex_var_list))
    {
3553 3554
      my_error(ER_RESERVED_SYNTAX, MYF(0), "SET ONE_SHOT");
      goto error;
3555 3556 3557 3558 3559 3560 3561 3562
    }
    if (!(res= sql_set_variables(thd, lex_var_list)))
    {
      /*
        If the previous command was a SET ONE_SHOT, we don't want to forget
        about the ONE_SHOT property of that SET. So we use a |= instead of = .
      */
      thd->one_shot_set|= lex->one_shot_set;
3563
      send_ok(thd);
3564
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3565
    break;
3566
  }
3567

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3568
  case SQLCOM_UNLOCK_TABLES:
3569 3570 3571 3572 3573 3574
    /*
      It is critical for mysqldump --single-transaction --master-data that
      UNLOCK TABLES does not implicitely commit a connection which has only
      done FLUSH TABLES WITH READ LOCK + BEGIN. If this assumption becomes
      false, mysqldump will not work.
    */
3575
    unlock_locked_tables(thd);
3576 3577
    if (thd->options & OPTION_TABLE_LOCK)
    {
3578
      end_active_trans(thd);
3579
      thd->options&= ~(ulong) (OPTION_TABLE_LOCK);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3580 3581
    }
    if (thd->global_read_lock)
3582
      unlock_global_read_lock(thd);
3583
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3584 3585
    break;
  case SQLCOM_LOCK_TABLES:
3586
    unlock_locked_tables(thd);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3587
    if (check_db_used(thd, all_tables) || end_active_trans(thd))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3588
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3589
    if (check_table_access(thd, LOCK_TABLES_ACL | SELECT_ACL, all_tables, 0))
3590
      goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3591
    thd->in_lock_tables=1;
3592
    thd->options|= OPTION_TABLE_LOCK;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3593

3594
    if (!(res= simple_open_n_lock_tables(thd, all_tables)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3595
    {
3596 3597
#ifdef HAVE_QUERY_CACHE
      if (thd->variables.query_cache_wlock_invalidate)
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3598
	query_cache.invalidate_locked_for_write(first_table);
3599
#endif /*HAVE_QUERY_CACHE*/
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3600 3601
      thd->locked_tables=thd->lock;
      thd->lock=0;
3602
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3603
    }
3604 3605
    else
      thd->options&= ~(ulong) (OPTION_TABLE_LOCK);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3606 3607 3608
    thd->in_lock_tables=0;
    break;
  case SQLCOM_CREATE_DB:
3609
  {
3610 3611 3612 3613 3614
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
3615
    char *alias;
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
3616
    if (!(alias=thd->strdup(lex->name)) || check_db_name(lex->name))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3617
    {
3618
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3619 3620
      break;
    }
3621 3622 3623
    /*
      If in a slave thread :
      CREATE DATABASE DB was certainly not preceded by USE DB.
3624
      For that reason, db_ok() in sql/slave.cc did not check the
3625 3626 3627
      do_db/ignore_db. And as this query involves no tables, tables_ok()
      above was not called. So we have to check rules again here.
    */
3628
#ifdef HAVE_REPLICATION
3629
    if (thd->slave_thread &&
3630 3631
	(!db_ok(lex->name, replicate_do_db, replicate_ignore_db) ||
	 !db_ok_with_wild_table(lex->name)))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3632
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3633
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
3634
      break;
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3635
    }
3636
#endif
3637
    if (check_access(thd,CREATE_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3638
      break;
monty@mysql.com's avatar
monty@mysql.com committed
3639
    res= mysql_create_db(thd,(lower_case_table_names == 2 ? alias : lex->name),
monty@mysql.com's avatar
monty@mysql.com committed
3640
			 &lex->create_info, 0);
3641 3642
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3643
  case SQLCOM_DROP_DB:
3644
  {
3645 3646 3647 3648 3649
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
3650
    if (check_db_name(lex->name))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3651
    {
3652
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3653 3654
      break;
    }
3655 3656 3657 3658 3659 3660 3661
    /*
      If in a slave thread :
      DROP DATABASE DB may not be preceded by USE DB.
      For that reason, maybe db_ok() in sql/slave.cc did not check the 
      do_db/ignore_db. And as this query involves no tables, tables_ok()
      above was not called. So we have to check rules again here.
    */
3662
#ifdef HAVE_REPLICATION
3663 3664 3665
    if (thd->slave_thread && 
	(!db_ok(lex->name, replicate_do_db, replicate_ignore_db) ||
	 !db_ok_with_wild_table(lex->name)))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3666
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3667
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
3668
      break;
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3669
    }
3670
#endif
3671
    if (check_access(thd,DROP_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3672
      break;
3673 3674
    if (thd->locked_tables || thd->active_transaction())
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3675 3676
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3677 3678
      goto error;
    }
3679
    res= mysql_rm_db(thd, lex->name, lex->drop_if_exists, 0);
3680 3681
    break;
  }
3682 3683
  case SQLCOM_ALTER_DB:
  {
3684 3685
    char *db= lex->name ? lex->name : thd->db;
    if (!db)
3686
    {
monty@mishka.local's avatar
monty@mishka.local committed
3687 3688
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
      break;
3689 3690
    }
    if (!strip_sp(db) || check_db_name(db))
3691
    {
3692
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
3693 3694
      break;
    }
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3695 3696 3697
    /*
      If in a slave thread :
      ALTER DATABASE DB may not be preceded by USE DB.
3698
      For that reason, maybe db_ok() in sql/slave.cc did not check the
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3699 3700 3701 3702
      do_db/ignore_db. And as this query involves no tables, tables_ok()
      above was not called. So we have to check rules again here.
    */
#ifdef HAVE_REPLICATION
3703
    if (thd->slave_thread &&
3704 3705
	(!db_ok(db, replicate_do_db, replicate_ignore_db) ||
	 !db_ok_with_wild_table(db)))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3706
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3707
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3708 3709 3710
      break;
    }
#endif
3711
    if (check_access(thd, ALTER_ACL, db, 0, 1, 0, is_schema_db(db)))
3712 3713 3714
      break;
    if (thd->locked_tables || thd->active_transaction())
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3715 3716
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3717 3718
      goto error;
    }
3719
    res= mysql_alter_db(thd, db, &lex->create_info);
3720 3721
    break;
  }
3722 3723 3724 3725
  case SQLCOM_SHOW_CREATE_DB:
  {
    if (!strip_sp(lex->name) || check_db_name(lex->name))
    {
3726
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
3727 3728
      break;
    }
3729
    if (check_access(thd,SELECT_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3730
      break;
3731
    res=mysqld_show_create_db(thd,lex->name,&lex->create_info);
3732 3733
    break;
  }
monty@mysql.com's avatar
monty@mysql.com committed
3734
  case SQLCOM_CREATE_FUNCTION:                  // UDF function
monty@mysql.com's avatar
monty@mysql.com committed
3735
  {
3736
    if (check_access(thd,INSERT_ACL,"mysql",0,1,0,0))
monty@mysql.com's avatar
monty@mysql.com committed
3737
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3738
#ifdef HAVE_DLOPEN
3739 3740
    if (sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                        &thd->sp_func_cache, FALSE))
monty@mysql.com's avatar
monty@mysql.com committed
3741
    {
3742
      my_error(ER_UDF_EXISTS, MYF(0), lex->spname->m_name.str);
monty@mysql.com's avatar
monty@mysql.com committed
3743 3744
      goto error;
    }
3745
    if (!(res = mysql_create_function(thd, &lex->udf)))
monty@mysql.com's avatar
monty@mysql.com committed
3746
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3747
#else
hf@deer.(none)'s avatar
hf@deer.(none) committed
3748
    my_error(ER_CANT_OPEN_LIBRARY, MYF(0), lex->udf.dl, 0, "feature disabled");
3749
    res= TRUE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3750 3751
#endif
    break;
monty@mysql.com's avatar
monty@mysql.com committed
3752
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3753
#ifndef NO_EMBEDDED_ACCESS_CHECKS
3754 3755
  case SQLCOM_CREATE_USER:
  {
3756
    if (check_access(thd, INSERT_ACL, "mysql", 0, 1, 1, 0) &&
3757
        check_global_access(thd,CREATE_USER_ACL))
3758
      break;
3759 3760
    if (end_active_trans(thd))
      goto error;
3761 3762 3763 3764
    if (!(res= mysql_create_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3765
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3766 3767 3768 3769 3770 3771
        mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
3772 3773
  case SQLCOM_DROP_USER:
  {
3774
    if (check_access(thd, DELETE_ACL, "mysql", 0, 1, 1, 0) &&
3775
        check_global_access(thd,CREATE_USER_ACL))
3776
      break;
3777 3778
    if (end_active_trans(thd))
      goto error;
3779 3780 3781 3782
    if (!(res= mysql_drop_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3783
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3784 3785 3786 3787 3788 3789 3790 3791
        mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
  case SQLCOM_RENAME_USER:
  {
3792
    if (check_access(thd, UPDATE_ACL, "mysql", 0, 1, 1, 0) &&
3793
        check_global_access(thd,CREATE_USER_ACL))
3794
      break;
3795 3796
    if (end_active_trans(thd))
      goto error;
3797 3798 3799 3800
    if (!(res= mysql_rename_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3801
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3802
        mysql_bin_log.write(&qinfo);
3803 3804 3805 3806 3807 3808 3809
      }
      send_ok(thd);
    }
    break;
  }
  case SQLCOM_REVOKE_ALL:
  {
3810
    if (check_access(thd, UPDATE_ACL, "mysql", 0, 1, 1, 0) &&
3811
        check_global_access(thd,CREATE_USER_ACL))
3812 3813 3814 3815 3816
      break;
    if (!(res = mysql_revoke_all(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
3817
	Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3818 3819 3820 3821 3822 3823
	mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
3824 3825 3826 3827
  case SQLCOM_REVOKE:
  case SQLCOM_GRANT:
  {
    if (check_access(thd, lex->grant | lex->grant_tot_col | GRANT_ACL,
serg@serg.mylan's avatar
serg@serg.mylan committed
3828
		     first_table ?  first_table->db : select_lex->db,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3829
		     first_table ? &first_table->grant.privilege : 0,
3830 3831 3832
		     first_table ? 0 : 1, 0,
                     first_table ? (bool) first_table->schema_table :
                     select_lex->db ? is_schema_db(select_lex->db) : 0))
3833 3834
      goto error;

3835
    if (thd->security_ctx->user)              // If not replication
3836 3837
    {
      LEX_USER *user;
3838 3839
      uint counter;

3840
      List_iterator <LEX_USER> user_list(lex->users_list);
3841
      while ((user= user_list++))
3842
      {
3843 3844 3845 3846 3847 3848 3849 3850
        if (specialflag & SPECIAL_NO_RESOLVE &&
            hostname_requires_resolving(user->host.str))
          push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_WARN,
                              ER_WARN_HOSTNAME_WONT_WORK,
                              ER(ER_WARN_HOSTNAME_WONT_WORK),
                              user->host.str);
        // Are we trying to change a password of another user
        DBUG_ASSERT(user->host.str != 0);
3851
        if (strcmp(thd->security_ctx->user, user->user.str) ||
3852
            my_strcasecmp(system_charset_info,
3853
                          user->host.str, thd->security_ctx->host_or_ip))
3854 3855 3856
        {
          // TODO: use check_change_password()
          if (check_acl_user(user, &counter) && user->password.str &&
3857
              check_access(thd, UPDATE_ACL,"mysql",0,1,1,0))
3858 3859 3860 3861 3862 3863
          {
            my_message(ER_PASSWORD_NOT_ALLOWED,
                       ER(ER_PASSWORD_NOT_ALLOWED), MYF(0));
            goto error;
          }
        }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
3864 3865
      }
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3866
    if (first_table)
3867
    {
3868 3869
      if (lex->type == TYPE_ENUM_PROCEDURE ||
          lex->type == TYPE_ENUM_FUNCTION)
3870 3871 3872 3873 3874
      {
        uint grants= lex->all_privileges 
		   ? (PROC_ACLS & ~GRANT_ACL) | (lex->grant & GRANT_ACL)
		   : lex->grant;
        if (grant_option && 
3875 3876
	    check_grant_routine(thd, grants | GRANT_ACL, all_tables,
                                lex->type == TYPE_ENUM_PROCEDURE, 0))
3877
	  goto error;
3878 3879 3880 3881
        res= mysql_routine_grant(thd, all_tables,
                                 lex->type == TYPE_ENUM_PROCEDURE, 
                                 lex->users_list, grants,
                                 lex->sql_command == SQLCOM_REVOKE, 0);
3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894
      }
      else
      {
	if (grant_option && check_grant(thd,
					(lex->grant | lex->grant_tot_col |
					 GRANT_ACL),
					all_tables, 0, UINT_MAX, 0))
	  goto error;
        res= mysql_table_grant(thd, all_tables, lex->users_list,
			       lex->columns, lex->grant,
			       lex->sql_command == SQLCOM_REVOKE);
      }
      if (!res && mysql_bin_log.is_open())
3895
      {
pem@mysql.com's avatar
pem@mysql.com committed
3896
        thd->clear_error();
monty@mysql.com's avatar
monty@mysql.com committed
3897
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3898
        mysql_bin_log.write(&qinfo);
3899 3900 3901 3902
      }
    }
    else
    {
3903
      if (lex->columns.elements || lex->type)
3904
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3905 3906
	my_message(ER_ILLEGAL_GRANT_FOR_TABLE, ER(ER_ILLEGAL_GRANT_FOR_TABLE),
                   MYF(0));
3907
        goto error;
3908 3909 3910 3911 3912 3913 3914 3915
      }
      else
	res = mysql_grant(thd, select_lex->db, lex->users_list, lex->grant,
			  lex->sql_command == SQLCOM_REVOKE);
      if (!res)
      {
	if (mysql_bin_log.is_open())
	{
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3916
          thd->clear_error();
3917
	  Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3918 3919
	  mysql_bin_log.write(&qinfo);
	}
3920
	if (lex->sql_command == SQLCOM_GRANT)
3921
	{
3922 3923 3924
	  List_iterator <LEX_USER> str_list(lex->users_list);
	  LEX_USER *user;
	  while ((user=str_list++))
monty@mysql.com's avatar
monty@mysql.com committed
3925
	    reset_mqh(user);
3926
	}
3927 3928 3929 3930
      }
    }
    break;
  }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
3931
#endif /*!NO_EMBEDDED_ACCESS_CHECKS*/
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
3932
  case SQLCOM_RESET:
3933 3934 3935
    /*
      RESET commands are never written to the binary log, so we have to
      initialize this variable because RESET shares the same code as FLUSH
3936 3937 3938 3939
    */
    lex->no_write_to_binlog= 1;
  case SQLCOM_FLUSH:
  {
3940
    bool write_to_binlog;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3941
    if (check_global_access(thd,RELOAD_ACL) || check_db_used(thd, all_tables))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3942
      goto error;
3943 3944 3945 3946
    /*
      reload_acl_and_cache() will tell us if we are allowed to write to the
      binlog or not.
    */
3947
    if (!reload_acl_and_cache(thd, lex->type, first_table, &write_to_binlog))
3948 3949 3950 3951 3952 3953 3954 3955 3956
    {
      /*
        We WANT to write and we CAN write.
        ! we write after unlocking the table.
      */
      if (!lex->no_write_to_binlog && write_to_binlog)
      {
        if (mysql_bin_log.is_open())
        {
3957
          Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3958 3959 3960 3961 3962
          mysql_bin_log.write(&qinfo);
        }
      }
      send_ok(thd);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3963
    break;
3964
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3965
  case SQLCOM_KILL:
3966 3967 3968
  {
    Item *it= (Item *)lex->value_list.head();

3969
    if ((!it->fixed && it->fix_fields(lex->thd, &it)) || it->check_cols(1))
3970 3971 3972 3973 3974 3975
    {
      my_message(ER_SET_CONSTANTS_ONLY, ER(ER_SET_CONSTANTS_ONLY),
		 MYF(0));
      goto error;
    }
    kill_one_thread(thd, (ulong)it->val_int(), lex->type & ONLY_KILL_QUERY);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3976
    break;
3977
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3978
#ifndef NO_EMBEDDED_ACCESS_CHECKS
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3979
  case SQLCOM_SHOW_GRANTS:
3980 3981
    if ((thd->security_ctx->priv_user &&
	 !strcmp(thd->security_ctx->priv_user, lex->grant_user->user.str)) ||
3982
	!check_access(thd, SELECT_ACL, "mysql",0,1,0,0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3983 3984 3985 3986
    {
      res = mysql_show_grants(thd,lex->grant_user);
    }
    break;
hf@deer.(none)'s avatar
hf@deer.(none) committed
3987
#endif
3988
  case SQLCOM_HA_OPEN:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3989 3990 3991
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_table_access(thd, SELECT_ACL, all_tables, 0))
3992
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
3993
    res= mysql_ha_open(thd, first_table, 0);
3994 3995
    break;
  case SQLCOM_HA_CLOSE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3996 3997
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables))
3998
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3999
    res= mysql_ha_close(thd, first_table);
4000 4001
    break;
  case SQLCOM_HA_READ:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4002
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
4003 4004 4005 4006 4007
    /*
      There is no need to check for table permissions here, because
      if a user has no permissions to read a table, he won't be
      able to open it (with SQLCOM_HA_OPEN) in the first place.
    */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4008
    if (check_db_used(thd, all_tables))
4009
      goto error;
4010
    unit->set_limit(select_lex);
4011
    res= mysql_ha_read(thd, first_table, lex->ha_read_mode, lex->ident.str,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4012
                       lex->insert_list, lex->ha_rkey_mode, select_lex->where,
4013
                       unit->select_limit_cnt, unit->offset_limit_cnt);
4014 4015
    break;

bk@work.mysql.com's avatar
bk@work.mysql.com committed
4016
  case SQLCOM_BEGIN:
4017 4018 4019 4020 4021 4022
    if (thd->transaction.xid_state.xa_state != XA_NOTR)
    {
      my_error(ER_XAER_RMFAIL, MYF(0),
               xa_state_names[thd->transaction.xid_state.xa_state]);
      break;
    }
4023
    if (begin_trans(thd))
4024
      goto error;
serg@serg.mylan's avatar
serg@serg.mylan committed
4025
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4026 4027
    break;
  case SQLCOM_COMMIT:
4028
    if (end_trans(thd, lex->tx_release ? COMMIT_RELEASE :
serg@serg.mylan's avatar
serg@serg.mylan committed
4029
                              lex->tx_chain ? COMMIT_AND_CHAIN : COMMIT))
4030
      goto error;
4031
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4032 4033
    break;
  case SQLCOM_ROLLBACK:
4034
    if (end_trans(thd, lex->tx_release ? ROLLBACK_RELEASE :
serg@serg.mylan's avatar
serg@serg.mylan committed
4035
                              lex->tx_chain ? ROLLBACK_AND_CHAIN : ROLLBACK))
4036
      goto error;
4037
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4038
    break;
serg@serg.mylan's avatar
serg@serg.mylan committed
4039
  case SQLCOM_RELEASE_SAVEPOINT:
serg@serg.mylan's avatar
serg@serg.mylan committed
4040
  {
4041 4042
    SAVEPOINT *sv;
    for (sv=thd->transaction.savepoints; sv; sv=sv->prev)
serg@serg.mylan's avatar
serg@serg.mylan committed
4043 4044 4045
    {
      if (my_strnncoll(system_charset_info,
                       (uchar *)lex->ident.str, lex->ident.length,
4046
                       (uchar *)sv->name, sv->length) == 0)
serg@serg.mylan's avatar
serg@serg.mylan committed
4047 4048
        break;
    }
4049
    if (sv)
serg@serg.mylan's avatar
serg@serg.mylan committed
4050
    {
4051
      if (ha_release_savepoint(thd, sv))
serg@serg.mylan's avatar
serg@serg.mylan committed
4052
        res= TRUE; // cannot happen
serg@serg.mylan's avatar
serg@serg.mylan committed
4053 4054
      else
        send_ok(thd);
4055
      thd->transaction.savepoints=sv->prev;
serg@serg.mylan's avatar
serg@serg.mylan committed
4056
    }
4057
    else
serg@serg.mylan's avatar
serg@serg.mylan committed
4058
      my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "SAVEPOINT", lex->ident.str);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4059
    break;
serg@serg.mylan's avatar
serg@serg.mylan committed
4060
  }
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4061
  case SQLCOM_ROLLBACK_TO_SAVEPOINT:
serg@serg.mylan's avatar
serg@serg.mylan committed
4062
  {
4063 4064
    SAVEPOINT *sv;
    for (sv=thd->transaction.savepoints; sv; sv=sv->prev)
4065 4066 4067
    {
      if (my_strnncoll(system_charset_info,
                       (uchar *)lex->ident.str, lex->ident.length,
4068
                       (uchar *)sv->name, sv->length) == 0)
4069 4070
        break;
    }
4071
    if (sv)
4072
    {
4073
      if (ha_rollback_to_savepoint(thd, sv))
4074 4075
        res= TRUE; // cannot happen
      else
serg@serg.mylan's avatar
serg@serg.mylan committed
4076 4077 4078 4079 4080 4081 4082 4083
      {
        if ((thd->options & OPTION_STATUS_NO_TRANS_UPDATE) &&
            !thd->slave_thread)
          push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN,
                       ER_WARNING_NOT_COMPLETE_ROLLBACK,
                       ER(ER_WARNING_NOT_COMPLETE_ROLLBACK));
        send_ok(thd);
      }
4084
      thd->transaction.savepoints=sv;
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4085 4086
    }
    else
4087
      my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "SAVEPOINT", lex->ident.str);
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4088
    break;
4089
  }
4090
  case SQLCOM_SAVEPOINT:
4091 4092
    if (!(thd->options & (OPTION_NOT_AUTOCOMMIT | OPTION_BEGIN) ||
          thd->in_sub_stmt) || !opt_using_transactions)
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
4093
      send_ok(thd);
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4094
    else
4095 4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118 4119 4120 4121 4122 4123 4124 4125 4126 4127 4128 4129 4130 4131 4132
    {
      SAVEPOINT **sv, *newsv;
      for (sv=&thd->transaction.savepoints; *sv; sv=&(*sv)->prev)
      {
        if (my_strnncoll(system_charset_info,
                         (uchar *)lex->ident.str, lex->ident.length,
                         (uchar *)(*sv)->name, (*sv)->length) == 0)
          break;
      }
      if (*sv) /* old savepoint of the same name exists */
      {
        newsv=*sv;
        ha_release_savepoint(thd, *sv); // it cannot fail
        *sv=(*sv)->prev;
      }
      else if ((newsv=(SAVEPOINT *) alloc_root(&thd->transaction.mem_root,
                                               savepoint_alloc_size)) == 0)
      {
        my_error(ER_OUT_OF_RESOURCES, MYF(0));
        break;
      }
      newsv->name=strmake_root(&thd->transaction.mem_root,
                               lex->ident.str, lex->ident.length);
      newsv->length=lex->ident.length;
      /*
        if we'll get an error here, don't add new savepoint to the list.
        we'll lose a little bit of memory in transaction mem_root, but it'll
        be free'd when transaction ends anyway
      */
      if (ha_savepoint(thd, newsv))
        res= TRUE;
      else
      {
        newsv->prev=thd->transaction.savepoints;
        thd->transaction.savepoints=newsv;
        send_ok(thd);
      }
    }
4133
    break;
4134 4135
  case SQLCOM_CREATE_PROCEDURE:
  case SQLCOM_CREATE_SPFUNCTION:
monty@mysql.com's avatar
monty@mysql.com committed
4136
  {
4137
    uint namelen;
4138
    char *name, *db;
4139
    int result;
4140

4141
    DBUG_ASSERT(lex->sphead != 0);
4142

4143 4144
    if (!lex->sphead->m_db.str || !lex->sphead->m_db.str[0])
    {
4145
      if (!thd->db)
4146 4147 4148 4149 4150 4151 4152 4153 4154 4155
      {
        my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
        delete lex->sphead;
        lex->sphead= 0;
        goto error;
      }
      lex->sphead->m_db.length= strlen(thd->db);
      lex->sphead->m_db.str= thd->db;
    }

4156 4157
    if (check_access(thd, CREATE_PROC_ACL, lex->sphead->m_db.str, 0, 0, 0,
                     is_schema_db(lex->sphead->m_db.str)))
4158 4159 4160 4161 4162 4163
    {
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
    }

4164
    if (end_active_trans(thd)) 
4165
    {
4166 4167 4168
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
4169
    }
4170 4171

    name= lex->sphead->name(&namelen);
4172
#ifdef HAVE_DLOPEN
monty@mysql.com's avatar
monty@mysql.com committed
4173 4174 4175
    if (lex->sphead->m_type == TYPE_ENUM_FUNCTION)
    {
      udf_func *udf = find_udf(name, namelen);
4176

monty@mysql.com's avatar
monty@mysql.com committed
4177
      if (udf)
4178
      {
4179
	my_error(ER_UDF_EXISTS, MYF(0), name);
4180
	delete lex->sphead;
4181
	lex->sphead= 0;
4182
	goto error;
4183
      }
monty@mysql.com's avatar
monty@mysql.com committed
4184 4185 4186
    }
#endif

4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207 4208 4209 4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 4220 4221 4222 4223 4224 4225 4226 4227 4228 4229 4230 4231 4232 4233 4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252 4253 4254 4255 4256 4257 4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4270
    /*
      If the definer is not specified, this means that CREATE-statement missed
      DEFINER-clause. DEFINER-clause can be missed in two cases:
      
        - The user submitted a statement w/o the clause. This is a normal
          case, we should assign CURRENT_USER as definer.

        - Our slave received an updated from the master, that does not
          replicate definer for stored rountines. We should also assign
          CURRENT_USER as definer here, but also we should mark this routine
          as NON-SUID. This is essential for the sake of backward
          compatibility.
          
          The problem is the slave thread is running under "special" user (@),
          that actually does not exist. In the older versions we do not fail
          execution of a stored routine if its definer does not exist and
          continue the execution under the authorization of the invoker
          (BUG#13198). And now if we try to switch to slave-current-user (@),
          we will fail.

          Actually, this leads to the inconsistent state of master and
          slave (different definers, different SUID behaviour), but it seems,
          this is the best we can do.
    */

    if (!lex->definer)
    {
      bool res= FALSE;
      Query_arena original_arena;
      Query_arena *ps_arena = thd->activate_stmt_arena_if_needed(&original_arena);

      if (!(lex->definer= create_default_definer(thd)))
        res= TRUE;

      if (ps_arena)
        thd->restore_active_arena(ps_arena, &original_arena);

      if (res)
      {
        /* Error has been already reported. */
        delete lex->sphead;
        lex->sphead= 0;
        goto error;
      }

      if (thd->slave_thread)
        lex->sphead->m_chistics->suid= SP_IS_NOT_SUID;
    }

    /*
      If the specified definer differs from the current user, we should check
      that the current user has SUPER privilege (in order to create a stored
      routine under another user one must have SUPER privilege).
    */
    
    else if (strcmp(lex->definer->user.str, thd->security_ctx->priv_user) ||
        my_strcasecmp(system_charset_info,
                      lex->definer->host.str,
                      thd->security_ctx->priv_host))
    {
      if (check_global_access(thd, SUPER_ACL))
      {
        my_error(ER_SPECIFIC_ACCESS_DENIED_ERROR, MYF(0), "SUPER");
        delete lex->sphead;
        lex->sphead= 0;
        goto error;
      }
    }

    /* Check that the specified definer exists. Emit a warning if not. */

#ifndef NO_EMBEDDED_ACCESS_CHECKS
    if (!is_acl_user(lex->definer->host.str,
                     lex->definer->user.str))
    {
      push_warning_printf(thd,
                          MYSQL_ERROR::WARN_LEVEL_NOTE,
                          ER_NO_SUCH_USER,
                          ER(ER_NO_SUCH_USER),
                          lex->definer->user.str,
                          lex->definer->host.str);
    }
#endif /* NO_EMBEDDED_ACCESS_CHECKS */

4271 4272 4273 4274 4275
    /*
      We need to copy name and db in order to use them for
      check_routine_access which is called after lex->sphead has
      been deleted.
    */
4276
    name= thd->strdup(name); 
4277 4278
    lex->sphead->m_db.str= db= thd->strmake(lex->sphead->m_db.str,
                                            lex->sphead->m_db.length);
4279
    res= (result= lex->sphead->create(thd));
4280 4281
    if (result == SP_OK)
    {
4282 4283 4284
      /*
        We must cleanup the unit and the lex here because
        sp_grant_privileges calls (indirectly) db_find_routine,
4285
        which in turn may call MYSQLparse with THD::lex.
4286 4287
        TODO: fix db_find_routine to use a temporary lex.
      */
4288
      lex->unit.cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
4289 4290
      delete lex->sphead;
      lex->sphead= 0;
4291
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4292
      /* only add privileges if really neccessary */
4293
      if (sp_automatic_privileges && !opt_noacl &&
4294 4295 4296
          check_routine_access(thd, DEFAULT_CREATE_PROC_ACLS,
      			       db, name,
                               lex->sql_command == SQLCOM_CREATE_PROCEDURE, 1))
4297 4298
      {
        close_thread_tables(thd);
4299 4300
        if (sp_grant_privileges(thd, db, name, 
                                lex->sql_command == SQLCOM_CREATE_PROCEDURE))
4301 4302 4303 4304
          push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 
	  	       ER_PROC_AUTO_GRANT_FAIL,
		       ER(ER_PROC_AUTO_GRANT_FAIL));
      }
4305
#endif
4306
      send_ok(thd);
4307 4308 4309 4310 4311 4312 4313 4314 4315 4316 4317 4318 4319 4320 4321 4322 4323 4324 4325 4326
    }
    else
    {
      switch (result) {
      case SP_WRITE_ROW_FAILED:
	my_error(ER_SP_ALREADY_EXISTS, MYF(0), SP_TYPE_STRING(lex), name);
	break;
      case SP_NO_DB_ERROR:
	my_error(ER_BAD_DB_ERROR, MYF(0), lex->sphead->m_db.str);
	break;
      case SP_BAD_IDENTIFIER:
	my_error(ER_TOO_LONG_IDENT, MYF(0), name);
	break;
      case SP_BODY_TOO_LONG:
	my_error(ER_TOO_LONG_BODY, MYF(0), name);
	break;
      default:
	my_error(ER_SP_STORE_FAILED, MYF(0), SP_TYPE_STRING(lex), name);
	break;
      }
4327
      lex->unit.cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
4328 4329 4330
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
4331
    }
monty@mysql.com's avatar
monty@mysql.com committed
4332 4333
    break;
  }
4334 4335 4336 4337
  case SQLCOM_CALL:
    {
      sp_head *sp;

4338 4339 4340 4341 4342 4343 4344 4345 4346
      /*
        This will cache all SP and SF and open and lock all tables
        required for execution.
      */
      if (check_table_access(thd, SELECT_ACL, all_tables, 0) ||
	  open_and_lock_tables(thd, all_tables))
       goto error;

      /*
4347 4348
        By this moment all needed SPs should be in cache so no need to look 
        into DB. 
4349
      */
4350 4351
      if (!(sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                                &thd->sp_proc_cache, TRUE)))
4352
      {
4353
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "PROCEDURE",
4354
                 lex->spname->m_qname.str);
4355
	goto error;
4356 4357 4358
      }
      else
      {
4359
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4360
	Security_context *save_ctx;
4361
#endif
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4362
	ha_rows select_limit;
monty@mysql.com's avatar
monty@mysql.com committed
4363 4364
        /* bits that should be cleared in thd->server_status */
	uint bits_to_be_cleared= 0;
4365 4366 4367 4368 4369 4370 4371 4372 4373 4374 4375 4376
        /*
          Check that the stored procedure doesn't contain Dynamic SQL
          and doesn't return result sets: such stored procedures can't
          be called from a function or trigger.
        */
        if (thd->in_sub_stmt)
        {
          const char *where= (thd->in_sub_stmt & SUB_STMT_TRIGGER ?
                              "trigger" : "function");
          if (sp->is_not_allowed_in_function(where))
            goto error;
        }
4377

4378 4379
	my_bool nsok= thd->net.no_send_ok;
	thd->net.no_send_ok= TRUE;
4380
	if (sp->m_flags & sp_head::MULTI_RESULTS)
4381
	{
4382
	  if (! (thd->client_capabilities & CLIENT_MULTI_RESULTS))
4383
	  {
4384 4385 4386 4387
            /*
              The client does not support multiple result sets being sent
              back
            */
4388
	    my_error(ER_SP_BADSELECT, MYF(0), sp->m_qname.str);
4389 4390 4391
	    thd->net.no_send_ok= nsok;
	    goto error;
	  }
monty@mysql.com's avatar
monty@mysql.com committed
4392 4393 4394 4395 4396 4397 4398
          /*
            If SERVER_MORE_RESULTS_EXISTS is not set,
            then remember that it should be cleared
          */
	  bits_to_be_cleared= (~thd->server_status &
                               SERVER_MORE_RESULTS_EXISTS);
	  thd->server_status|= SERVER_MORE_RESULTS_EXISTS;
4399 4400
	}

4401
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4402 4403 4404
	if (check_routine_access(thd, EXECUTE_ACL,
				 sp->m_db.str, sp->m_name.str, TRUE, 0) ||
          sp_change_security_context(thd, sp, &save_ctx))
4405 4406 4407 4408
	{
	  thd->net.no_send_ok= nsok;
	  goto error;
	}
4409 4410 4411
	if (save_ctx &&
            check_routine_access(thd, EXECUTE_ACL,
                                 sp->m_db.str, sp->m_name.str, TRUE, 0))
4412 4413
	{
	  thd->net.no_send_ok= nsok;
4414
	  sp_restore_security_context(thd, save_ctx);
4415 4416 4417
	  goto error;
	}

4418
#endif
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4419 4420
	select_limit= thd->variables.select_limit;
	thd->variables.select_limit= HA_POS_ERROR;
4421

4422
        thd->row_count_func= 0;
4423 4424
        
        /* 
4425
          We never write CALL statements into binlog:
4426 4427 4428 4429 4430
           - If the mode is non-prelocked, each statement will be logged
             separately.
           - If the mode is prelocked, the invoking statement will care
             about writing into binlog.
          So just execute the statement.
4431
        */
4432
	res= sp->execute_procedure(thd, &lex->value_list);
4433 4434 4435
	/*
          If warnings have been cleared, we have to clear total_warn_count
          too, otherwise the clients get confused.
4436 4437 4438 4439
	 */
	if (thd->warn_list.is_empty())
	  thd->total_warn_count= 0;

pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4440
	thd->variables.select_limit= select_limit;
4441
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4442
	sp_restore_security_context(thd, save_ctx);
4443
#endif
4444

4445
	thd->net.no_send_ok= nsok;
monty@mysql.com's avatar
monty@mysql.com committed
4446
        thd->server_status&= ~bits_to_be_cleared;
4447

4448
	if (!res)
monty@mysql.com's avatar
monty@mysql.com committed
4449 4450
	  send_ok(thd, (ulong) (thd->row_count_func < 0 ? 0 :
                                thd->row_count_func));
4451 4452
	else
	  goto error;		// Substatement should already have sent error
4453
      }
4454
      break;
4455 4456
    }
  case SQLCOM_ALTER_PROCEDURE:
4457
  case SQLCOM_ALTER_FUNCTION:
4458
    {
4459
      int result;
4460 4461 4462 4463
      sp_head *sp;
      st_sp_chistics chistics;

      memcpy(&chistics, &lex->sp_chistics, sizeof(chistics));
4464
      if (lex->sql_command == SQLCOM_ALTER_PROCEDURE)
4465 4466
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
4467
      else
4468 4469
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
monty@mysql.com's avatar
monty@mysql.com committed
4470
      mysql_reset_errors(thd, 0);
4471
      if (! sp)
4472 4473 4474 4475 4476 4477 4478 4479 4480
      {
	if (lex->spname->m_db.str)
	  result= SP_KEY_NOT_FOUND;
	else
	{
	  my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
	  goto error;
	}
      }
4481 4482
      else
      {
4483 4484 4485
        if (check_routine_access(thd, ALTER_PROC_ACL, sp->m_db.str, 
				 sp->m_name.str,
                                 lex->sql_command == SQLCOM_ALTER_PROCEDURE, 0))
4486
	  goto error;
4487 4488 4489

        if (end_active_trans(thd)) 
          goto error;
4490
	memcpy(&lex->sp_chistics, &chistics, sizeof(lex->sp_chistics));
4491 4492
        if ((sp->m_type == TYPE_ENUM_FUNCTION) &&
            !trust_function_creators &&  mysql_bin_log.is_open() &&
4493 4494 4495 4496 4497 4498 4499 4500 4501 4502
            !sp->m_chistics->detistic &&
            (chistics.daccess == SP_CONTAINS_SQL ||
             chistics.daccess == SP_MODIFIES_SQL_DATA))
        {
          my_message(ER_BINLOG_UNSAFE_ROUTINE,
		     ER(ER_BINLOG_UNSAFE_ROUTINE), MYF(0));
          result= SP_INTERNAL_ERROR;
        }
        else
        {
4503 4504 4505 4506 4507 4508
          /*
            Note that if you implement the capability of ALTER FUNCTION to
            alter the body of the function, this command should be made to
            follow the restrictions that log-bin-trust-function-creators=0
            already puts on CREATE FUNCTION.
          */
4509 4510 4511 4512 4513
          if (lex->sql_command == SQLCOM_ALTER_PROCEDURE)
            result= sp_update_procedure(thd, lex->spname, &lex->sp_chistics);
          else
            result= sp_update_function(thd, lex->spname, &lex->sp_chistics);
        }
4514
      }
4515
      switch (result)
4516
      {
4517
      case SP_OK:
4518 4519 4520 4521 4522 4523
        if (mysql_bin_log.is_open())
        {
          thd->clear_error();
          Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
          mysql_bin_log.write(&qinfo);
        }
4524
	send_ok(thd);
4525 4526
	break;
      case SP_KEY_NOT_FOUND:
4527 4528
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4529 4530
	goto error;
      default:
4531 4532
	my_error(ER_SP_CANT_ALTER, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4533
	goto error;
4534
      }
4535
      break;
4536 4537
    }
  case SQLCOM_DROP_PROCEDURE:
4538
  case SQLCOM_DROP_FUNCTION:
4539
    {
4540
      int result;
4541 4542
      int type= (lex->sql_command == SQLCOM_DROP_PROCEDURE ?
                 TYPE_ENUM_PROCEDURE : TYPE_ENUM_FUNCTION);
4543

4544
      result= sp_routine_exists_in_table(thd, type, lex->spname);
monty@mysql.com's avatar
monty@mysql.com committed
4545
      mysql_reset_errors(thd, 0);
4546
      if (result == SP_OK)
4547
      {
4548 4549 4550
        char *db= lex->spname->m_db.str;
	char *name= lex->spname->m_name.str;

4551 4552
	if (check_routine_access(thd, ALTER_PROC_ACL, db, name,
                                 lex->sql_command == SQLCOM_DROP_PROCEDURE, 0))
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4553
          goto error;
4554 4555 4556

        if (end_active_trans(thd)) 
          goto error;
4557
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4558
	if (sp_automatic_privileges && !opt_noacl &&
4559 4560
	    sp_revoke_privileges(thd, db, name, 
                                 lex->sql_command == SQLCOM_DROP_PROCEDURE))
4561 4562 4563 4564 4565
	{
	  push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 
		       ER_PROC_AUTO_REVOKE_FAIL,
		       ER(ER_PROC_AUTO_REVOKE_FAIL));
	}
4566
#endif
4567
	if (lex->sql_command == SQLCOM_DROP_PROCEDURE)
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4568
	  result= sp_drop_procedure(thd, lex->spname);
4569
	else
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4570
	  result= sp_drop_function(thd, lex->spname);
4571 4572 4573
      }
      else
      {
4574
#ifdef HAVE_DLOPEN
4575 4576 4577 4578 4579 4580
	if (lex->sql_command == SQLCOM_DROP_FUNCTION)
	{
          udf_func *udf = find_udf(lex->spname->m_name.str,
                                   lex->spname->m_name.length);
          if (udf)
          {
4581
	    if (check_access(thd, DELETE_ACL, "mysql", 0, 1, 0, 0))
4582 4583
	      goto error;
	    if (!(res = mysql_drop_function(thd, &lex->spname->m_name)))
4584
	    {
4585 4586
	      send_ok(thd);
	      break;
4587 4588
	    }
	  }
4589
	}
4590
#endif
4591 4592 4593 4594 4595 4596 4597
	if (lex->spname->m_db.str)
	  result= SP_KEY_NOT_FOUND;
	else
	{
	  my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
	  goto error;
	}
4598
      }
4599 4600
      res= result;
      switch (result)
4601 4602
      {
      case SP_OK:
4603 4604 4605 4606 4607 4608
        if (mysql_bin_log.is_open())
        {
          thd->clear_error();
          Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
          mysql_bin_log.write(&qinfo);
        }
4609
	send_ok(thd);
4610 4611
	break;
      case SP_KEY_NOT_FOUND:
4612 4613
	if (lex->drop_if_exists)
	{
4614
	  push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
4615
			      ER_SP_DOES_NOT_EXIST, ER(ER_SP_DOES_NOT_EXIST),
4616
			      SP_COM_STRING(lex), lex->spname->m_name.str);
4617
	  res= FALSE;
4618 4619 4620
	  send_ok(thd);
	  break;
	}
4621 4622
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4623 4624
	goto error;
      default:
4625 4626
	my_error(ER_SP_DROP_FAILED, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4627
	goto error;
4628
      }
4629
      break;
4630
    }
4631 4632
  case SQLCOM_SHOW_CREATE_PROC:
    {
4633
      if (lex->spname->m_name.length > NAME_LEN)
4634
      {
4635
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
4636 4637
	goto error;
      }
4638
      if (sp_show_create_procedure(thd, lex->spname) != SP_OK)
4639
      {			/* We don't distinguish between errors for now */
4640 4641
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
4642 4643 4644 4645 4646 4647
	goto error;
      }
      break;
    }
  case SQLCOM_SHOW_CREATE_FUNC:
    {
4648
      if (lex->spname->m_name.length > NAME_LEN)
4649
      {
4650
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
4651 4652
	goto error;
      }
4653
      if (sp_show_create_function(thd, lex->spname) != SP_OK)
4654
      {			/* We don't distinguish between errors for now */
4655 4656
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
4657 4658 4659 4660 4661 4662
	goto error;
      }
      break;
    }
  case SQLCOM_SHOW_STATUS_PROC:
    {
4663
      res= sp_show_status_procedure(thd, (lex->wild ?
4664 4665 4666 4667 4668
					  lex->wild->ptr() : NullS));
      break;
    }
  case SQLCOM_SHOW_STATUS_FUNC:
    {
4669
      res= sp_show_status_function(thd, (lex->wild ? 
4670 4671 4672
					 lex->wild->ptr() : NullS));
      break;
    }
pem@mysql.com's avatar
pem@mysql.com committed
4673 4674 4675 4676 4677 4678 4679 4680 4681 4682 4683 4684
#ifndef DBUG_OFF
  case SQLCOM_SHOW_PROC_CODE:
  case SQLCOM_SHOW_FUNC_CODE:
    {
      sp_head *sp;

      if (lex->spname->m_name.length > NAME_LEN)
      {
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
	goto error;
      }
      if (lex->sql_command == SQLCOM_SHOW_PROC_CODE)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4685 4686
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
pem@mysql.com's avatar
pem@mysql.com committed
4687
      else
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4688 4689
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
4690
      if (!sp || sp->show_routine_code(thd))
4691 4692
      {
        /* We don't distinguish between errors for now */
pem@mysql.com's avatar
pem@mysql.com committed
4693 4694 4695 4696 4697 4698 4699
        my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
        goto error;
      }
      break;
    }
#endif // ifndef DBUG_OFF
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4700 4701
  case SQLCOM_CREATE_VIEW:
    {
4702 4703 4704
      if (end_active_trans(thd))
        goto error;

4705 4706 4707
      if (!(res= mysql_create_view(thd, thd->lex->create_view_mode)) &&
          mysql_bin_log.is_open())
      {
4708
        String buff;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4709 4710 4711 4712
        const LEX_STRING command[3]=
          {{(char *)STRING_WITH_LEN("CREATE ")},
           {(char *)STRING_WITH_LEN("ALTER ")},
           {(char *)STRING_WITH_LEN("CREATE OR REPLACE ")}};
4713
        thd->clear_error();
4714 4715 4716 4717

        buff.append(command[thd->lex->create_view_mode].str,
                    command[thd->lex->create_view_mode].length);
        view_store_options(thd, first_table, &buff);
4718
        buff.append(STRING_WITH_LEN("VIEW "));
4719 4720
        /* Test if user supplied a db (ie: we did not use thd->db) */
        if (first_table->db != thd->db && first_table->db[0])
4721 4722 4723 4724 4725 4726 4727
        {
          append_identifier(thd, &buff, first_table->db,
                            first_table->db_length);
          buff.append('.');
        }
        append_identifier(thd, &buff, first_table->table_name,
                          first_table->table_name_length);
4728
        buff.append(STRING_WITH_LEN(" AS "));
4729 4730 4731
        buff.append(first_table->source.str, first_table->source.length);

        Query_log_event qinfo(thd, buff.ptr(), buff.length(), 0, FALSE);
4732 4733
        mysql_bin_log.write(&qinfo);
      }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4734 4735 4736 4737
      break;
    }
  case SQLCOM_DROP_VIEW:
    {
4738 4739 4740
      if (check_table_access(thd, DROP_ACL, all_tables, 0) ||
          end_active_trans(thd))
        goto error;
4741 4742 4743
      if (!(res= mysql_drop_view(thd, first_table, thd->lex->drop_mode)) &&
          mysql_bin_log.is_open())
      {
4744
        thd->clear_error();
4745 4746 4747
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
        mysql_bin_log.write(&qinfo);
      }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4748 4749
      break;
    }
4750 4751
  case SQLCOM_CREATE_TRIGGER:
  {
4752 4753 4754
    if (end_active_trans(thd))
      goto error;

4755 4756 4757
    res= mysql_create_or_drop_trigger(thd, all_tables, 1);

    /* We don't care about trigger body after this point */
4758 4759 4760 4761 4762 4763
    delete lex->sphead;
    lex->sphead= 0;
    break;
  }
  case SQLCOM_DROP_TRIGGER:
  {
4764 4765 4766
    if (end_active_trans(thd))
      goto error;

4767 4768 4769
    res= mysql_create_or_drop_trigger(thd, all_tables, 0);
    break;
  }
4770
  case SQLCOM_XA_START:
4771 4772
    if (thd->transaction.xid_state.xa_state == XA_IDLE &&
        thd->lex->xa_opt == XA_RESUME)
4773
    {
4774
      if (! thd->transaction.xid_state.xid.eq(thd->lex->xid))
4775 4776 4777 4778
      {
        my_error(ER_XAER_NOTA, MYF(0));
        break;
      }
4779
      thd->transaction.xid_state.xa_state=XA_ACTIVE;
4780 4781 4782
      send_ok(thd);
      break;
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
4783
    if (thd->lex->xa_opt != XA_NONE)
4784 4785 4786 4787
    { // JOIN is not supported yet. TODO
      my_error(ER_XAER_INVAL, MYF(0));
      break;
    }
4788
    if (thd->transaction.xid_state.xa_state != XA_NOTR)
4789
    {
4790
      my_error(ER_XAER_RMFAIL, MYF(0),
4791
               xa_state_names[thd->transaction.xid_state.xa_state]);
4792 4793 4794 4795 4796 4797 4798
      break;
    }
    if (thd->active_transaction() || thd->locked_tables)
    {
      my_error(ER_XAER_OUTSIDE, MYF(0));
      break;
    }
4799 4800 4801 4802 4803 4804 4805 4806 4807
    if (xid_cache_search(thd->lex->xid))
    {
      my_error(ER_XAER_DUPID, MYF(0));
      break;
    }
    DBUG_ASSERT(thd->transaction.xid_state.xid.is_null());
    thd->transaction.xid_state.xa_state=XA_ACTIVE;
    thd->transaction.xid_state.xid.set(thd->lex->xid);
    xid_cache_insert(&thd->transaction.xid_state);
4808 4809 4810 4811 4812 4813 4814 4815 4816 4817 4818 4819
    thd->options= ((thd->options & (ulong) ~(OPTION_STATUS_NO_TRANS_UPDATE)) |
                   OPTION_BEGIN);
    thd->server_status|= SERVER_STATUS_IN_TRANS;
    send_ok(thd);
    break;
  case SQLCOM_XA_END:
    /* fake it */
    if (thd->lex->xa_opt != XA_NONE)
    { // SUSPEND and FOR MIGRATE are not supported yet. TODO
      my_error(ER_XAER_INVAL, MYF(0));
      break;
    }
4820
    if (thd->transaction.xid_state.xa_state != XA_ACTIVE)
4821
    {
4822
      my_error(ER_XAER_RMFAIL, MYF(0),
4823
               xa_state_names[thd->transaction.xid_state.xa_state]);
4824 4825
      break;
    }
4826
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4827 4828 4829 4830
    {
      my_error(ER_XAER_NOTA, MYF(0));
      break;
    }
4831
    thd->transaction.xid_state.xa_state=XA_IDLE;
4832 4833 4834
    send_ok(thd);
    break;
  case SQLCOM_XA_PREPARE:
4835
    if (thd->transaction.xid_state.xa_state != XA_IDLE)
4836
    {
4837
      my_error(ER_XAER_RMFAIL, MYF(0),
4838
               xa_state_names[thd->transaction.xid_state.xa_state]);
4839 4840
      break;
    }
4841
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4842 4843 4844 4845 4846 4847 4848
    {
      my_error(ER_XAER_NOTA, MYF(0));
      break;
    }
    if (ha_prepare(thd))
    {
      my_error(ER_XA_RBROLLBACK, MYF(0));
4849 4850
      xid_cache_delete(&thd->transaction.xid_state);
      thd->transaction.xid_state.xa_state=XA_NOTR;
4851 4852
      break;
    }
4853
    thd->transaction.xid_state.xa_state=XA_PREPARED;
4854 4855 4856
    send_ok(thd);
    break;
  case SQLCOM_XA_COMMIT:
4857
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4858
    {
4859 4860
      XID_STATE *xs=xid_cache_search(thd->lex->xid);
      if (!xs || xs->in_thd)
4861
        my_error(ER_XAER_NOTA, MYF(0));
serg@serg.mylan's avatar
serg@serg.mylan committed
4862
      else
4863 4864 4865
      {
        ha_commit_or_rollback_by_xid(thd->lex->xid, 1);
        xid_cache_delete(xs);
serg@serg.mylan's avatar
serg@serg.mylan committed
4866
        send_ok(thd);
4867
      }
4868 4869
      break;
    }
4870
    if (thd->transaction.xid_state.xa_state == XA_IDLE &&
monty@mysql.com's avatar
monty@mysql.com committed
4871
        thd->lex->xa_opt == XA_ONE_PHASE)
4872
    {
4873 4874 4875
      int r;
      if ((r= ha_commit(thd)))
        my_error(r == 1 ? ER_XA_RBROLLBACK : ER_XAER_RMERR, MYF(0));
4876 4877 4878
      else
        send_ok(thd);
    }
4879
    else if (thd->transaction.xid_state.xa_state == XA_PREPARED &&
monty@mysql.com's avatar
monty@mysql.com committed
4880
             thd->lex->xa_opt == XA_NONE)
4881
    {
4882 4883 4884
      if (wait_if_global_read_lock(thd, 0, 0))
      {
        ha_rollback(thd);
4885
        my_error(ER_XAER_RMERR, MYF(0));
4886
      }
4887
      else
4888 4889 4890 4891 4892 4893 4894
      {
        if (ha_commit_one_phase(thd, 1))
          my_error(ER_XAER_RMERR, MYF(0));
        else
          send_ok(thd);
        start_waiting_global_read_lock(thd);
      }
4895 4896 4897
    }
    else
    {
4898
      my_error(ER_XAER_RMFAIL, MYF(0),
4899
               xa_state_names[thd->transaction.xid_state.xa_state]);
4900 4901 4902 4903
      break;
    }
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
4904 4905
    xid_cache_delete(&thd->transaction.xid_state);
    thd->transaction.xid_state.xa_state=XA_NOTR;
4906 4907
    break;
  case SQLCOM_XA_ROLLBACK:
4908
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4909
    {
4910 4911
      XID_STATE *xs=xid_cache_search(thd->lex->xid);
      if (!xs || xs->in_thd)
4912
        my_error(ER_XAER_NOTA, MYF(0));
serg@serg.mylan's avatar
serg@serg.mylan committed
4913
      else
4914 4915 4916
      {
        ha_commit_or_rollback_by_xid(thd->lex->xid, 0);
        xid_cache_delete(xs);
serg@serg.mylan's avatar
serg@serg.mylan committed
4917
        send_ok(thd);
4918
      }
4919 4920
      break;
    }
4921 4922
    if (thd->transaction.xid_state.xa_state != XA_IDLE &&
        thd->transaction.xid_state.xa_state != XA_PREPARED)
4923
    {
4924
      my_error(ER_XAER_RMFAIL, MYF(0),
4925
               xa_state_names[thd->transaction.xid_state.xa_state]);
4926 4927 4928 4929 4930 4931 4932 4933
      break;
    }
    if (ha_rollback(thd))
      my_error(ER_XAER_RMERR, MYF(0));
    else
      send_ok(thd);
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
4934 4935
    xid_cache_delete(&thd->transaction.xid_state);
    thd->transaction.xid_state.xa_state=XA_NOTR;
4936 4937
    break;
  case SQLCOM_XA_RECOVER:
4938
    res= mysql_xa_recover(thd);
4939 4940
    break;
  default:
4941
#ifndef EMBEDDED_LIBRARY
4942
    DBUG_ASSERT(0);                             /* Impossible */
4943
#endif
4944
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4945 4946
    break;
  }
monty@mysql.com's avatar
monty@mysql.com committed
4947
  thd->proc_info="query end";
4948
  /* Two binlog-related cleanups: */
4949 4950 4951 4952 4953 4954 4955 4956 4957 4958 4959 4960 4961

  /*
    Reset system variables temporarily modified by SET ONE SHOT.

    Exception: If this is a SET, do nothing. This is to allow
    mysqlbinlog to print many SET commands (in this case we want the
    charset temp setting to live until the real query). This is also
    needed so that SET CHARACTER_SET_CLIENT... does not cancel itself
    immediately.
  */
  if (thd->one_shot_set && lex->sql_command != SQLCOM_SET_OPTION)
    reset_one_shot_variables(thd);

4962
  /*
4963 4964 4965 4966 4967 4968
    The return value for ROW_COUNT() is "implementation dependent" if the
    statement is not DELETE, INSERT or UPDATE, but -1 is what JDBC and ODBC
    wants.

    We do not change the value for a CALL or EXECUTE statement, so the value
    generated by the last called (or executed) statement is preserved.
4969
   */
4970 4971
  if (lex->sql_command != SQLCOM_CALL && lex->sql_command != SQLCOM_EXECUTE &&
      uc_update_queries[lex->sql_command]<2)
4972
    thd->row_count_func= -1;
4973
  DBUG_RETURN(res || thd->net.report_error);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4974 4975

error:
4976
  DBUG_RETURN(1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4977 4978 4979
}


bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4980 4981
/*
  Check grants for commands which work only with one table and all other
4982
  tables belonging to subselects or implicitly opened tables.
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4983

4984
  SYNOPSIS
monty@mysql.com's avatar
monty@mysql.com committed
4985 4986
    check_one_table_access()
    thd			Thread handler
4987
    privilege		requested privilege
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4988
    all_tables		global table list of query
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4989 4990 4991

  RETURN
    0 - OK
monty@mysql.com's avatar
monty@mysql.com committed
4992
    1 - access denied, error is sent to client
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4993 4994
*/

4995
bool check_one_table_access(THD *thd, ulong privilege, TABLE_LIST *all_tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4996
{
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4997
  if (check_access(thd, privilege, all_tables->db,
4998 4999
		   &all_tables->grant.privilege, 0, 0,
                   test(all_tables->schema_table)))
monty@mysql.com's avatar
monty@mysql.com committed
5000
    return 1;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5001

5002
  /* Show only 1 table for check_grant */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5003
  if (grant_option && check_grant(thd, privilege, all_tables, 0, 1, 0))
monty@mysql.com's avatar
monty@mysql.com committed
5004
    return 1;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5005

5006
  /* Check rights on tables of subselects and implictly opened tables */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5007
  TABLE_LIST *subselects_tables;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5008
  if ((subselects_tables= all_tables->next_global))
monty@mysql.com's avatar
monty@mysql.com committed
5009
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5010
    if ((check_table_access(thd, SELECT_ACL, subselects_tables, 0)))
monty@mysql.com's avatar
monty@mysql.com committed
5011 5012 5013
      return 1;
  }
  return 0;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5014 5015 5016
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
5017
/****************************************************************************
5018
  Get the user (global) and database privileges for all used tables
5019 5020 5021 5022 5023 5024 5025 5026 5027 5028 5029 5030 5031

  NOTES
    The idea of EXTRA_ACL is that one will be granted access to the table if
    one has the asked privilege on any column combination of the table; For
    example to be able to check a table one needs to have SELECT privilege on
    any column of the table.

  RETURN
    0  ok
    1  If we can't get the privileges and we don't use table/column grants.

    save_priv	In this we store global and db level grants for the table
		Note that we don't store db level grants if the global grants
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5032 5033
                is enough to satisfy the request and the global grants contains
                a SELECT grant.
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5034 5035 5036
****************************************************************************/

bool
5037
check_access(THD *thd, ulong want_access, const char *db, ulong *save_priv,
5038
	     bool dont_check_global_grants, bool no_errors, bool schema_db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5039
{
5040
  Security_context *sctx= thd->security_ctx;
5041 5042
#ifndef NO_EMBEDDED_ACCESS_CHECKS
  ulong db_access;
5043
  bool  db_is_pattern= test(want_access & GRANT_ACL);
5044 5045
#endif
  ulong dummy;
5046 5047
  DBUG_ENTER("check_access");
  DBUG_PRINT("enter",("db: %s  want_access: %lu  master_access: %lu",
5048
                      db ? db : "", want_access, sctx->master_access));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5049 5050 5051 5052 5053
  if (save_priv)
    *save_priv=0;
  else
    save_priv= &dummy;

5054
  if ((!db || !db[0]) && !thd->db && !dont_check_global_grants)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5055
  {
5056
    DBUG_PRINT("error",("No database"));
5057
    if (!no_errors)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5058 5059
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR),
                 MYF(0));                       /* purecov: tested */
5060
    DBUG_RETURN(TRUE);				/* purecov: tested */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5061 5062
  }

5063 5064 5065 5066 5067
  if (schema_db)
  {
    if (want_access & ~(SELECT_ACL | EXTRA_ACL))
    {
      if (!no_errors)
5068 5069
      {
        const char *db_name= db ? db : thd->db;
5070
        my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5071 5072
                 sctx->priv_user, sctx->priv_host, db_name);
      }
5073 5074 5075 5076 5077 5078 5079 5080 5081
      DBUG_RETURN(TRUE);
    }
    else
    {
      *save_priv= SELECT_ACL;
      DBUG_RETURN(FALSE);
    }
  }

monty@mysql.com's avatar
monty@mysql.com committed
5082 5083 5084
#ifdef NO_EMBEDDED_ACCESS_CHECKS
  DBUG_RETURN(0);
#else
5085
  if ((sctx->master_access & want_access) == want_access)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5086
  {
5087 5088 5089 5090 5091
    /*
      If we don't have a global SELECT privilege, we have to get the database
      specific access rights to be able to handle queries of type
      UPDATE t1 SET a=1 WHERE b > 0
    */
5092 5093
    db_access= sctx->db_access;
    if (!(sctx->master_access & SELECT_ACL) &&
5094
	(db && (!thd->db || db_is_pattern || strcmp(db,thd->db))))
5095 5096 5097
      db_access=acl_get(sctx->host, sctx->ip, sctx->priv_user, db,
                        db_is_pattern);
    *save_priv=sctx->master_access | db_access;
5098
    DBUG_RETURN(FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5099
  }
5100
  if (((want_access & ~sctx->master_access) & ~(DB_ACLS | EXTRA_ACL)) ||
5101
      ! db && dont_check_global_grants)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5102
  {						// We can never grant this
5103
    DBUG_PRINT("error",("No possible access"));
5104
    if (!no_errors)
5105
      my_error(ER_ACCESS_DENIED_ERROR, MYF(0),
5106 5107
               sctx->priv_user,
               sctx->priv_host,
5108 5109 5110
               (thd->password ?
                ER(ER_YES) :
                ER(ER_NO)));                    /* purecov: tested */
5111
    DBUG_RETURN(TRUE);				/* purecov: tested */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5112 5113 5114
  }

  if (db == any_db)
5115
    DBUG_RETURN(FALSE);				// Allow select on anything
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5116

5117
  if (db && (!thd->db || db_is_pattern || strcmp(db,thd->db)))
5118 5119
    db_access= acl_get(sctx->host, sctx->ip, sctx->priv_user, db,
                       db_is_pattern);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5120
  else
5121
    db_access= sctx->db_access;
5122
  DBUG_PRINT("info",("db_access: %lu", db_access));
monty@mysql.com's avatar
monty@mysql.com committed
5123
  /* Remove SHOW attribute and access rights we already have */
5124
  want_access &= ~(sctx->master_access | EXTRA_ACL);
5125 5126
  DBUG_PRINT("info",("db_access: %lu  want_access: %lu",
                     db_access, want_access));
5127
  db_access= ((*save_priv=(db_access | sctx->master_access)) & want_access);
5128 5129

  /* grant_option is set if there exists a single table or column grant */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5130
  if (db_access == want_access ||
5131
      (grant_option && !dont_check_global_grants &&
5132
       !(want_access & ~(db_access | TABLE_ACLS | PROC_ACLS))))
5133
    DBUG_RETURN(FALSE);				/* Ok */
5134 5135

  DBUG_PRINT("error",("Access denied"));
5136
  if (!no_errors)
5137
    my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5138
             sctx->priv_user, sctx->priv_host,
5139 5140 5141
             (db ? db : (thd->db ?
                         thd->db :
                         "unknown")));          /* purecov: tested */
5142
  DBUG_RETURN(TRUE);				/* purecov: tested */
monty@mysql.com's avatar
monty@mysql.com committed
5143
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5144 5145 5146
}


5147 5148 5149 5150 5151 5152 5153 5154 5155
/*
  check for global access and give descriptive error message if it fails

  SYNOPSIS
    check_global_access()
    thd			Thread handler
    want_access		Use should have any of these global rights

  WARNING
5156
    One gets access right if one has ANY of the rights in want_access
5157 5158 5159 5160 5161 5162 5163 5164
    This is useful as one in most cases only need one global right,
    but in some case we want to check if the user has SUPER or
    REPL_CLIENT_ACL rights.

  RETURN
    0	ok
    1	Access denied.  In this case an error is sent to the client
*/
5165 5166

bool check_global_access(THD *thd, ulong want_access)
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
5167
{
monty@mysql.com's avatar
monty@mysql.com committed
5168 5169 5170
#ifdef NO_EMBEDDED_ACCESS_CHECKS
  return 0;
#else
5171
  char command[128];
5172
  if ((thd->security_ctx->master_access & want_access))
5173 5174
    return 0;
  get_privilege_desc(command, sizeof(command), want_access);
5175
  my_error(ER_SPECIFIC_ACCESS_DENIED_ERROR, MYF(0), command);
5176
  return 1;
monty@mysql.com's avatar
monty@mysql.com committed
5177
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
5178 5179 5180
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
5181
/*
5182 5183
  Check the privilege for all used tables.  Table privileges are cached
  in the table list for GRANT checking
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5184 5185
*/

5186
bool
5187
check_table_access(THD *thd, ulong want_access,TABLE_LIST *tables,
5188
		   bool no_errors)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5189
{
5190 5191
  uint found=0;
  ulong found_access=0;
5192 5193 5194
  TABLE_LIST *org_tables= tables;
  TABLE_LIST *first_not_own_table= thd->lex->first_not_own_table();
  /*
5195 5196 5197
    The check that first_not_own_table is not reached is for the case when
    the given table list refers to the list for prelocking (contains tables
    of other queries). For simple queries first_not_own_table is 0.
5198
  */
5199
  for (; tables != first_not_own_table; tables= tables->next_global)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5200
  {
5201
    if (tables->schema_table && 
5202
        (want_access & ~(SELECT_ACL | EXTRA_ACL | FILE_ACL)))
5203 5204 5205
    {
      if (!no_errors)
        my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5206
                 thd->security_ctx->priv_user, thd->security_ctx->priv_host,
5207 5208 5209
                 information_schema_name.str);
      return TRUE;
    }
5210 5211 5212 5213 5214
    /*
       Register access for view underlying table.
       Remove SHOW_VIEW_ACL, because it will be checked during making view
     */
    tables->grant.orig_want_privilege= (want_access & ~SHOW_VIEW_ACL);
5215
    if (tables->derived || tables->schema_table || tables->belong_to_view ||
5216
        (tables->table && (int)tables->table->s->tmp_table) ||
5217 5218
        my_tz_check_n_skip_implicit_tables(&tables,
                                           thd->lex->time_zone_tables_used))
Sinisa@sinisa.nasamreza.org's avatar
Sinisa@sinisa.nasamreza.org committed
5219
      continue;
5220 5221
    if ((thd->security_ctx->master_access & want_access) ==
        (want_access & ~EXTRA_ACL) &&
5222
	thd->db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5223
      tables->grant.privilege= want_access;
5224
    else if (tables->db && tables->db == thd->db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5225 5226 5227 5228 5229
    {
      if (found && !grant_option)		// db already checked
	tables->grant.privilege=found_access;
      else
      {
5230
	if (check_access(thd,want_access,tables->db,&tables->grant.privilege,
5231
			 0, no_errors, test(tables->schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5232 5233
	  return TRUE;				// Access denied
	found_access=tables->grant.privilege;
5234
	found=1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5235 5236
      }
    }
5237
    else if (check_access(thd,want_access,tables->db,&tables->grant.privilege,
5238
			  0, no_errors, test(tables->schema_table)))
5239
      return TRUE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5240 5241
  }
  if (grant_option)
5242
    return check_grant(thd,want_access & ~EXTRA_ACL,org_tables,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5243
		       test(want_access & EXTRA_ACL), UINT_MAX, no_errors);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5244 5245 5246
  return FALSE;
}

5247

5248
bool
5249 5250
check_routine_access(THD *thd, ulong want_access,char *db, char *name,
		     bool is_proc, bool no_errors)
5251 5252 5253 5254 5255
{
  TABLE_LIST tables[1];
  
  bzero((char *)tables, sizeof(TABLE_LIST));
  tables->db= db;
5256
  tables->table_name= tables->alias= name;
5257
  
monty@mysql.com's avatar
monty@mysql.com committed
5258 5259 5260 5261 5262 5263 5264
  /*
    The following test is just a shortcut for check_access() (to avoid
    calculating db_access) under the assumption that it's common to
    give persons global right to execute all stored SP (but not
    necessary to create them).
  */
  if ((thd->security_ctx->master_access & want_access) == want_access)
5265 5266
    tables->grant.privilege= want_access;
  else if (check_access(thd,want_access,db,&tables->grant.privilege,
monty@mysql.com's avatar
monty@mysql.com committed
5267
			0, no_errors, 0))
5268 5269
    return TRUE;
  
5270
#ifndef NO_EMBEDDED_ACCESS_CHECKS
5271
  if (grant_option)
5272
    return check_grant_routine(thd, want_access, tables, is_proc, no_errors);
5273
#endif
5274 5275 5276 5277

  return FALSE;
}

5278 5279 5280 5281 5282 5283 5284 5285 5286 5287 5288 5289 5290 5291 5292

/*
  Check if the routine has any of the routine privileges

  SYNOPSIS
    check_some_routine_access()
    thd		 Thread handler
    db           Database name
    name         Routine name

  RETURN
    0            ok
    1            error
*/

5293 5294
bool check_some_routine_access(THD *thd, const char *db, const char *name,
                               bool is_proc)
5295 5296
{
  ulong save_priv;
5297
  if (thd->security_ctx->master_access & SHOW_PROC_ACLS)
5298
    return FALSE;
5299 5300 5301 5302 5303
  /*
    There are no routines in information_schema db. So we can safely
    pass zero to last paramter of check_access function
  */
  if (!check_access(thd, SHOW_PROC_ACLS, db, &save_priv, 0, 1, 0) ||
5304 5305
      (save_priv & SHOW_PROC_ACLS))
    return FALSE;
5306
  return check_routine_level_acl(thd, db, name, is_proc);
5307 5308 5309
}


5310 5311 5312 5313 5314 5315 5316 5317 5318 5319 5320 5321 5322 5323 5324 5325 5326 5327 5328 5329 5330 5331 5332 5333 5334
/*
  Check if the given table has any of the asked privileges

  SYNOPSIS
    check_some_access()
    thd		 Thread handler
    want_access	 Bitmap of possible privileges to check for

  RETURN
    0  ok
    1  error
*/


bool check_some_access(THD *thd, ulong want_access, TABLE_LIST *table)
{
  ulong access;
  DBUG_ENTER("check_some_access");

  /* This loop will work as long as we have less than 32 privileges */
  for (access= 1; access < want_access ; access<<= 1)
  {
    if (access & want_access)
    {
      if (!check_access(thd, access, table->db,
5335 5336
                        &table->grant.privilege, 0, 1,
                        test(table->schema_table)) &&
5337 5338 5339 5340 5341 5342 5343 5344 5345
          !grant_option || !check_grant(thd, access, table, 0, 1, 1))
        DBUG_RETURN(0);
    }
  }
  DBUG_PRINT("exit",("no matching access rights"));
  DBUG_RETURN(1);
}


5346 5347
bool check_merge_table_access(THD *thd, char *db,
			      TABLE_LIST *table_list)
5348 5349 5350 5351
{
  int error=0;
  if (table_list)
  {
5352
    /* Check that all tables use the current database */
5353
    TABLE_LIST *tmp;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5354
    for (tmp= table_list; tmp; tmp= tmp->next_local)
5355 5356 5357 5358
    {
      if (!tmp->db || !tmp->db[0])
	tmp->db=db;
    }
5359
    error=check_table_access(thd, SELECT_ACL | UPDATE_ACL | DELETE_ACL,
hf@deer.(none)'s avatar
hf@deer.(none) committed
5360
			     table_list,0);
5361 5362 5363 5364
  }
  return error;
}

hf@deer.(none)'s avatar
hf@deer.(none) committed
5365 5366 5367

static bool check_db_used(THD *thd,TABLE_LIST *tables)
{
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5368
  for (; tables; tables= tables->next_global)
hf@deer.(none)'s avatar
hf@deer.(none) committed
5369 5370 5371 5372 5373
  {
    if (!tables->db)
    {
      if (!(tables->db=thd->db))
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5374 5375
	my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR),
                   MYF(0));                     /* purecov: tested */
hf@deer.(none)'s avatar
hf@deer.(none) committed
5376 5377 5378 5379 5380 5381
	return TRUE;				/* purecov: tested */
      }
    }
  }
  return FALSE;
}
5382

5383

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5384 5385 5386 5387 5388 5389 5390 5391 5392 5393
/****************************************************************************
	Check stack size; Send error if there isn't enough stack to continue
****************************************************************************/

#if STACK_DIRECTION < 0
#define used_stack(A,B) (long) (A - B)
#else
#define used_stack(A,B) (long) (B - A)
#endif

monty@mysql.com's avatar
monty@mysql.com committed
5394 5395 5396 5397
#ifndef DBUG_OFF
long max_stack_used;
#endif

5398
#ifndef EMBEDDED_LIBRARY
5399 5400 5401 5402 5403 5404 5405 5406
/*
  Note: The 'buf' parameter is necessary, even if it is unused here.
  - fix_fields functions has a "dummy" buffer large enough for the
    corresponding exec. (Thus we only have to check in fix_fields.)
  - Passing to check_stack_overrun() prevents the compiler from removing it.
 */
bool check_stack_overrun(THD *thd, long margin,
			 char *buf __attribute__((unused)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5407 5408
{
  long stack_used;
5409
  DBUG_ASSERT(thd == current_thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5410
  if ((stack_used=used_stack(thd->thread_stack,(char*) &stack_used)) >=
monty@mysql.com's avatar
monty@mysql.com committed
5411
      (long) (thread_stack - margin))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5412
  {
5413 5414 5415
    sprintf(errbuff[0],ER(ER_STACK_OVERRUN_NEED_MORE),
            stack_used,thread_stack,margin);
    my_message(ER_STACK_OVERRUN_NEED_MORE,errbuff[0],MYF(0));
5416
    thd->fatal_error();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5417 5418
    return 1;
  }
monty@mysql.com's avatar
monty@mysql.com committed
5419 5420 5421
#ifndef DBUG_OFF
  max_stack_used= max(max_stack_used, stack_used);
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5422 5423
  return 0;
}
5424
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5425 5426 5427 5428

#define MY_YACC_INIT 1000			// Start with big alloc
#define MY_YACC_MAX  32000			// Because of 'short'

5429
bool my_yyoverflow(short **yyss, YYSTYPE **yyvs, ulong *yystacksize)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5430 5431
{
  LEX	*lex=current_lex;
5432
  ulong old_info=0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5433 5434 5435 5436 5437 5438 5439 5440 5441 5442 5443 5444 5445 5446 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458
  if ((uint) *yystacksize >= MY_YACC_MAX)
    return 1;
  if (!lex->yacc_yyvs)
    old_info= *yystacksize;
  *yystacksize= set_zone((*yystacksize)*2,MY_YACC_INIT,MY_YACC_MAX);
  if (!(lex->yacc_yyvs= (char*)
	my_realloc((gptr) lex->yacc_yyvs,
		   *yystacksize*sizeof(**yyvs),
		   MYF(MY_ALLOW_ZERO_PTR | MY_FREE_ON_ERROR))) ||
      !(lex->yacc_yyss= (char*)
	my_realloc((gptr) lex->yacc_yyss,
		   *yystacksize*sizeof(**yyss),
		   MYF(MY_ALLOW_ZERO_PTR | MY_FREE_ON_ERROR))))
    return 1;
  if (old_info)
  {						// Copy old info from stack
    memcpy(lex->yacc_yyss, (gptr) *yyss, old_info*sizeof(**yyss));
    memcpy(lex->yacc_yyvs, (gptr) *yyvs, old_info*sizeof(**yyvs));
  }
  *yyss=(short*) lex->yacc_yyss;
  *yyvs=(YYSTYPE*) lex->yacc_yyvs;
  return 0;
}


/****************************************************************************
5459
  Initialize global thd variables needed for query
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5460 5461
****************************************************************************/

5462
void
5463
mysql_init_query(THD *thd, uchar *buf, uint length)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5464 5465
{
  DBUG_ENTER("mysql_init_query");
5466
  lex_start(thd, buf, length);
5467 5468 5469 5470 5471 5472 5473 5474 5475 5476 5477 5478 5479 5480 5481 5482 5483 5484 5485 5486 5487
  mysql_reset_thd_for_next_command(thd);
  DBUG_VOID_RETURN;
}


/*
 Reset THD part responsible for command processing state.

 DESCRIPTION
   This needs to be called before execution of every statement
   (prepared or conventional).

 TODO
   Make it a method of THD and align its name with the rest of
   reset/end/start/init methods.
   Call it after we use THD for queries, not before.
*/

void mysql_reset_thd_for_next_command(THD *thd)
{
  DBUG_ENTER("mysql_reset_thd_for_next_command");
5488
  thd->free_list= 0;
5489
  thd->select_number= 1;
5490
  thd->last_insert_id_used= thd->query_start_used= thd->insert_id_used=0;
5491
  thd->is_fatal_error= thd->time_zone_used= 0;
monty@mysql.com's avatar
monty@mysql.com committed
5492
  thd->server_status&= ~ (SERVER_MORE_RESULTS_EXISTS | 
monty@mysql.com's avatar
monty@mysql.com committed
5493 5494
                          SERVER_QUERY_NO_INDEX_USED |
                          SERVER_QUERY_NO_GOOD_INDEX_USED);
5495
  DBUG_ASSERT(thd->security_ctx== &thd->main_security_ctx);
5496
  thd->tmp_table_used= 0;
5497 5498
  if (!thd->in_sub_stmt)
  {
5499
    if (opt_bin_log)
5500
    {
5501
      reset_dynamic(&thd->user_var_events);
5502 5503
      thd->user_var_events_alloc= thd->mem_root;
    }
5504
    thd->clear_error();
5505 5506 5507 5508
    thd->total_warn_count=0;			// Warnings for this query
    thd->rand_used= 0;
    thd->sent_row_count= thd->examined_row_count= 0;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5509 5510 5511
  DBUG_VOID_RETURN;
}

5512

5513 5514 5515
void
mysql_init_select(LEX *lex)
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5516
  SELECT_LEX *select_lex= lex->current_select;
5517
  select_lex->init_select();
5518
  lex->wild= 0;
5519 5520
  if (select_lex == &lex->select_lex)
  {
5521
    DBUG_ASSERT(lex->result == 0);
5522 5523
    lex->exchange= 0;
  }
5524 5525
}

5526

5527
bool
5528
mysql_new_select(LEX *lex, bool move_down)
5529
{
5530
  SELECT_LEX *select_lex;
5531
  THD *thd= lex->thd;
5532 5533
  DBUG_ENTER("mysql_new_select");

5534
  if (!(select_lex= new (thd->mem_root) SELECT_LEX()))
5535
    DBUG_RETURN(1);
5536
  select_lex->select_number= ++thd->select_number;
5537
  select_lex->parent_lex= lex; /* Used in init_query. */
5538 5539
  select_lex->init_query();
  select_lex->init_select();
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
5540 5541
  lex->nest_level++;
  select_lex->nest_level= lex->nest_level;
5542 5543 5544 5545 5546
  /*
    Don't evaluate this subquery during statement prepare even if
    it's a constant one. The flag is switched off in the end of
    mysql_stmt_prepare.
  */
konstantin@mysql.com's avatar
konstantin@mysql.com committed
5547
  if (thd->stmt_arena->is_stmt_prepare())
5548
    select_lex->uncacheable|= UNCACHEABLE_PREPARE;
5549 5550
  if (move_down)
  {
5551
    SELECT_LEX_UNIT *unit;
5552
    lex->subqueries= TRUE;
5553
    /* first select_lex of subselect or derived table */
5554
    if (!(unit= new (thd->mem_root) SELECT_LEX_UNIT()))
5555
      DBUG_RETURN(1);
5556

5557 5558
    unit->init_query();
    unit->init_select();
5559
    unit->thd= thd;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5560
    unit->include_down(lex->current_select);
5561 5562
    unit->link_next= 0;
    unit->link_prev= 0;
5563
    unit->return_to= lex->current_select;
5564
    select_lex->include_down(unit);
5565 5566 5567 5568 5569
    /*
      By default we assume that it is usual subselect and we have outer name
      resolution context, if no we will assign it to 0 later
    */
    select_lex->context.outer_context= &select_lex->outer_select()->context;
5570 5571
  }
  else
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5572
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5573 5574
    if (lex->current_select->order_list.first && !lex->current_select->braces)
    {
5575
      my_error(ER_WRONG_USAGE, MYF(0), "UNION", "ORDER BY");
5576
      DBUG_RETURN(1);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5577
    }
5578
    select_lex->include_neighbour(lex->current_select);
5579 5580 5581 5582 5583
    SELECT_LEX_UNIT *unit= select_lex->master_unit();                              
    if (!unit->fake_select_lex && unit->add_fake_select_lex(lex->thd))
      DBUG_RETURN(1);
    select_lex->context.outer_context= 
                unit->first_select()->context.outer_context;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5584
  }
peter@mysql.com's avatar
peter@mysql.com committed
5585

5586
  select_lex->master_unit()->global_parameters= select_lex;
5587
  select_lex->include_global((st_select_lex_node**)&lex->all_selects_list);
5588
  lex->current_select= select_lex;
5589 5590 5591 5592 5593
  /*
    in subquery is SELECT query and we allow resolution of names in SELECT
    list
  */
  select_lex->context.resolve_in_select_list= TRUE;
5594
  DBUG_RETURN(0);
5595
}
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5596

5597 5598 5599 5600 5601 5602 5603 5604 5605 5606 5607 5608 5609 5610 5611
/*
  Create a select to return the same output as 'SELECT @@var_name'.

  SYNOPSIS
    create_select_for_variable()
    var_name		Variable name

  DESCRIPTION
    Used for SHOW COUNT(*) [ WARNINGS | ERROR]

    This will crash with a core dump if the variable doesn't exists
*/

void create_select_for_variable(const char *var_name)
{
5612
  THD *thd;
5613
  LEX *lex;
5614
  LEX_STRING tmp, null_lex_string;
5615 5616
  Item *var;
  char buff[MAX_SYS_VAR_LENGTH*2+4+8], *end;
5617
  DBUG_ENTER("create_select_for_variable");
5618 5619

  thd= current_thd;
pem@mysql.telia.com's avatar
pem@mysql.telia.com committed
5620
  lex= thd->lex;
5621 5622 5623 5624
  mysql_init_select(lex);
  lex->sql_command= SQLCOM_SELECT;
  tmp.str= (char*) var_name;
  tmp.length=strlen(var_name);
5625
  bzero((char*) &null_lex_string.str, sizeof(null_lex_string));
5626 5627 5628 5629
  /*
    We set the name of Item to @@session.var_name because that then is used
    as the column name in the output.
  */
monty@mysql.com's avatar
monty@mysql.com committed
5630 5631 5632 5633 5634 5635
  if ((var= get_system_var(thd, OPT_SESSION, tmp, null_lex_string)))
  {
    end= strxmov(buff, "@@session.", var_name, NullS);
    var->set_name(buff, end-buff, system_charset_info);
    add_item_to_list(thd, var);
  }
5636 5637 5638
  DBUG_VOID_RETURN;
}

5639

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5640 5641
void mysql_init_multi_delete(LEX *lex)
{
5642
  lex->sql_command=  SQLCOM_DELETE_MULTI;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5643
  mysql_init_select(lex);
5644 5645
  lex->select_lex.select_limit= 0;
  lex->unit.select_limit_cnt= HA_POS_ERROR;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5646
  lex->select_lex.table_list.save_and_clear(&lex->auxilliary_table_list);
5647
  lex->lock_option= using_update_log ? TL_READ_NO_INSERT : TL_READ;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5648 5649
  lex->query_tables= 0;
  lex->query_tables_last= &lex->query_tables;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5650
}
5651

5652

5653 5654 5655 5656
/*
  When you modify mysql_parse(), you may need to mofify
  mysql_test_parse_for_slave() in this same file.
*/
5657

5658
void mysql_parse(THD *thd, char *inBuf, uint length)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5659 5660
{
  DBUG_ENTER("mysql_parse");
5661
  mysql_init_query(thd, (uchar*) inBuf, length);
5662
  if (query_cache_send_result_to_client(thd, inBuf, length) <= 0)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5663
  {
5664
    LEX *lex= thd->lex;
5665
    
5666 5667
    sp_cache_flush_obsolete(&thd->sp_proc_cache);
    sp_cache_flush_obsolete(&thd->sp_func_cache);
5668
    
5669
    if (!MYSQLparse((void *)thd) && ! thd->is_fatal_error)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5670
    {
hf@deer.(none)'s avatar
hf@deer.(none) committed
5671
#ifndef NO_EMBEDDED_ACCESS_CHECKS
5672
      if (mqh_used && thd->user_connect &&
5673
	  check_mqh(thd, lex->sql_command))
5674 5675 5676 5677
      {
	thd->net.error = 0;
      }
      else
hf@deer.(none)'s avatar
hf@deer.(none) committed
5678
#endif
5679
      {
5680
	if (thd->net.report_error)
5681 5682
	{
	  if (thd->lex->sphead)
5683 5684 5685 5686
	  {
	    delete thd->lex->sphead;
	    thd->lex->sphead= NULL;
	  }
5687
	}
5688 5689
	else
	{
5690 5691 5692 5693 5694 5695 5696 5697 5698 5699
          /*
            Binlog logs a string starting from thd->query and having length
            thd->query_length; so we set thd->query_length correctly (to not
            log several statements in one event, when we executed only first).
            We set it to not see the ';' (otherwise it would get into binlog
            and Query_log_event::print() would give ';;' output).
            This also helps display only the current query in SHOW
            PROCESSLIST.
            Note that we don't need LOCK_thread_count to modify query_length.
          */
serg@serg.mylan's avatar
serg@serg.mylan committed
5700 5701
          if (lex->found_semicolon &&
              (thd->query_length= (ulong)(lex->found_semicolon - thd->query)))
5702 5703
            thd->query_length--;
          /* Actually execute the query */
5704
	  mysql_execute_command(thd);
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
5705
	  query_cache_end_of_result(thd);
5706
	}
5707
      }
5708
      lex->unit.cleanup();
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5709 5710
    }
    else
5711 5712
    {
      DBUG_PRINT("info",("Command aborted. Fatal_error: %d",
5713
			 thd->is_fatal_error));
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5714
      query_cache_abort(&thd->net);
5715
      lex->unit.cleanup();
5716
      if (thd->lex->sphead)
5717
      {
monty@mysql.com's avatar
monty@mysql.com committed
5718
	/* Clean up after failed stored procedure/function */
5719 5720 5721
	delete thd->lex->sphead;
	thd->lex->sphead= NULL;
      }
5722
    }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5723
    thd->proc_info="freeing items";
5724
    thd->end_statement();
5725
    thd->cleanup_after_query();
5726
    DBUG_ASSERT(thd->change_list.is_empty());
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5727
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5728 5729 5730 5731
  DBUG_VOID_RETURN;
}


monty@mysql.com's avatar
monty@mysql.com committed
5732
#ifdef HAVE_REPLICATION
5733 5734 5735 5736 5737 5738 5739 5740 5741 5742 5743
/*
  Usable by the replication SQL thread only: just parse a query to know if it
  can be ignored because of replicate-*-table rules.

  RETURN VALUES
    0	cannot be ignored
    1	can be ignored
*/

bool mysql_test_parse_for_slave(THD *thd, char *inBuf, uint length)
{
5744
  LEX *lex= thd->lex;
5745
  bool error= 0;
monty@mysql.com's avatar
monty@mysql.com committed
5746
  DBUG_ENTER("mysql_test_parse_for_slave");
5747

5748
  mysql_init_query(thd, (uchar*) inBuf, length);
5749
  if (!MYSQLparse((void*) thd) && ! thd->is_fatal_error &&
5750
      all_tables_not_ok(thd,(TABLE_LIST*) lex->select_lex.table_list.first))
monty@mysql.com's avatar
monty@mysql.com committed
5751
    error= 1;                  /* Ignore question */
5752
  thd->end_statement();
5753
  thd->cleanup_after_query();
monty@mysql.com's avatar
monty@mysql.com committed
5754
  DBUG_RETURN(error);
5755
}
monty@mysql.com's avatar
monty@mysql.com committed
5756
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5757

5758

monty@mysql.com's avatar
monty@mysql.com committed
5759

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5760 5761 5762 5763 5764
/*****************************************************************************
** Store field definition for create
** Return 0 if ok
******************************************************************************/

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5765
bool add_field_to_list(THD *thd, char *field_name, enum_field_types type,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5766
		       char *length, char *decimals,
5767
		       uint type_modifier,
5768 5769
		       Item *default_value, Item *on_update_value,
                       LEX_STRING *comment,
5770 5771
		       char *change,
                       List<String> *interval_list, CHARSET_INFO *cs,
5772
		       uint uint_geom_type)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5773 5774
{
  register create_field *new_field;
5775
  LEX  *lex= thd->lex;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5776 5777 5778 5779
  DBUG_ENTER("add_field_to_list");

  if (strlen(field_name) > NAME_LEN)
  {
5780
    my_error(ER_TOO_LONG_IDENT, MYF(0), field_name); /* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5781 5782 5783 5784 5785
    DBUG_RETURN(1);				/* purecov: inspected */
  }
  if (type_modifier & PRI_KEY_FLAG)
  {
    lex->col_list.push_back(new key_part_spec(field_name,0));
5786
    lex->key_list.push_back(new Key(Key::PRIMARY, NullS, HA_KEY_ALG_UNDEF,
5787
				    0, lex->col_list));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5788 5789 5790 5791 5792
    lex->col_list.empty();
  }
  if (type_modifier & (UNIQUE_FLAG | UNIQUE_KEY_FLAG))
  {
    lex->col_list.push_back(new key_part_spec(field_name,0));
5793
    lex->key_list.push_back(new Key(Key::UNIQUE, NullS, HA_KEY_ALG_UNDEF, 0,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5794 5795 5796 5797
				    lex->col_list));
    lex->col_list.empty();
  }

5798
  if (default_value)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5799
  {
5800
    /* 
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5801 5802
      Default value should be literal => basic constants =>
      no need fix_fields()
5803 5804 5805
      
      We allow only one function as part of default value - 
      NOW() as default for TIMESTAMP type.
5806
    */
5807 5808 5809
    if (default_value->type() == Item::FUNC_ITEM && 
        !(((Item_func*)default_value)->functype() == Item_func::NOW_FUNC &&
         type == FIELD_TYPE_TIMESTAMP))
5810
    {
5811
      my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
5812 5813 5814
      DBUG_RETURN(1);
    }
    else if (default_value->type() == Item::NULL_ITEM)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5815
    {
5816
      default_value= 0;
5817 5818 5819
      if ((type_modifier & (NOT_NULL_FLAG | AUTO_INCREMENT_FLAG)) ==
	  NOT_NULL_FLAG)
      {
5820
	my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
5821 5822 5823 5824 5825
	DBUG_RETURN(1);
      }
    }
    else if (type_modifier & AUTO_INCREMENT_FLAG)
    {
5826
      my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5827 5828 5829
      DBUG_RETURN(1);
    }
  }
5830 5831 5832

  if (on_update_value && type != FIELD_TYPE_TIMESTAMP)
  {
5833
    my_error(ER_INVALID_ON_UPDATE, MYF(0), field_name);
5834 5835
    DBUG_RETURN(1);
  }
5836

5837 5838 5839 5840 5841 5842
  if (type == FIELD_TYPE_TIMESTAMP && length)
  {
    /* Display widths are no longer supported for TIMSTAMP as of MySQL 4.1.
       In other words, for declarations such as TIMESTAMP(2), TIMESTAMP(4),
       and so on, the display width is ignored.
    */
msvensson@neptunus.(none)'s avatar
msvensson@neptunus.(none) committed
5843
    char buf[32];
5844
    my_snprintf(buf, sizeof(buf), "TIMESTAMP(%s)", length);
5845 5846 5847
    push_warning_printf(thd,MYSQL_ERROR::WARN_LEVEL_WARN,
                        ER_WARN_DEPRECATED_SYNTAX,
                        ER(ER_WARN_DEPRECATED_SYNTAX),
msvensson@neptunus.(none)'s avatar
msvensson@neptunus.(none) committed
5848
                        buf, "TIMESTAMP");
5849 5850
  }

5851 5852 5853 5854
  if (!(new_field= new create_field()) ||
      new_field->init(thd, field_name, type, length, decimals, type_modifier,
                      default_value, on_update_value, comment, change,
                      interval_list, cs, uint_geom_type))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5855
    DBUG_RETURN(1);
5856 5857 5858 5859 5860 5861

  lex->create_list.push_back(new_field);
  lex->last_field=new_field;
  DBUG_RETURN(0);
}

5862

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5863 5864 5865 5866 5867 5868 5869 5870
/* Store position for column in ALTER TABLE .. ADD column */

void store_position_for_column(const char *name)
{
  current_lex->last_field->after=my_const_cast(char*) (name);
}

bool
5871
add_proc_to_list(THD* thd, Item *item)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5872 5873 5874 5875
{
  ORDER *order;
  Item	**item_ptr;

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5876
  if (!(order = (ORDER *) thd->alloc(sizeof(ORDER)+sizeof(Item*))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5877 5878 5879 5880 5881
    return 1;
  item_ptr = (Item**) (order+1);
  *item_ptr= item;
  order->item=item_ptr;
  order->free_me=0;
5882
  thd->lex->proc_list.link_in_list((byte*) order,(byte**) &order->next);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5883 5884 5885 5886 5887 5888 5889 5890
  return 0;
}


/* Fix escaping of _, % and \ in database and table names (for ODBC) */

static void remove_escape(char *name)
{
5891 5892
  if (!*name)					// For empty DB names
    return;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5893 5894
  char *to;
#ifdef USE_MB
5895
  char *strend=name+(uint) strlen(name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5896 5897 5898 5899 5900
#endif
  for (to=name; *name ; name++)
  {
#ifdef USE_MB
    int l;
5901 5902
    if (use_mb(system_charset_info) &&
        (l = my_ismbchar(system_charset_info, name, strend)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5903 5904 5905 5906 5907 5908 5909 5910
    {
	while (l--)
	    *to++ = *name++;
	name--;
	continue;
    }
#endif
    if (*name == '\\' && name[1])
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5911
      name++;					// Skip '\\'
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5912 5913 5914 5915 5916 5917 5918 5919 5920 5921
    *to++= *name;
  }
  *to=0;
}

/****************************************************************************
** save order by and tables in own lists
****************************************************************************/


monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5922
bool add_to_list(THD *thd, SQL_LIST &list,Item *item,bool asc)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5923 5924 5925
{
  ORDER *order;
  DBUG_ENTER("add_to_list");
5926
  if (!(order = (ORDER *) thd->alloc(sizeof(ORDER))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5927
    DBUG_RETURN(1);
5928 5929
  order->item_ptr= item;
  order->item= &order->item_ptr;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5930 5931 5932
  order->asc = asc;
  order->free_me=0;
  order->used=0;
5933
  order->counter_used= 0;
5934
  list.link_in_list((byte*) order,(byte**) &order->next);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5935 5936 5937 5938
  DBUG_RETURN(0);
}


monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5939 5940 5941 5942 5943 5944 5945 5946 5947 5948 5949 5950 5951 5952 5953 5954 5955 5956 5957
/*
  Add a table to list of used tables

  SYNOPSIS
    add_table_to_list()
    table		Table to add
    alias		alias for table (or null if no alias)
    table_options	A set of the following bits:
			TL_OPTION_UPDATING	Table will be updated
			TL_OPTION_FORCE_INDEX	Force usage of index
    lock_type		How table should be locked
    use_index		List of indexed used in USE INDEX
    ignore_index	List of indexed used in IGNORE INDEX

    RETURN
      0		Error
      #		Pointer to TABLE_LIST element added to the total table list
*/

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5958 5959
TABLE_LIST *st_select_lex::add_table_to_list(THD *thd,
					     Table_ident *table,
5960
					     LEX_STRING *alias,
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5961 5962
					     ulong table_options,
					     thr_lock_type lock_type,
5963 5964
					     List<String> *use_index_arg,
					     List<String> *ignore_index_arg,
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
5965
                                             LEX_STRING *option)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5966 5967
{
  register TABLE_LIST *ptr;
5968
  TABLE_LIST *previous_table_ref; /* The table preceding the current one. */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5969
  char *alias_str;
5970
  LEX *lex= thd->lex;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5971
  DBUG_ENTER("add_table_to_list");
5972
  LINT_INIT(previous_table_ref);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5973 5974 5975 5976

  if (!table)
    DBUG_RETURN(0);				// End of memory
  alias_str= alias ? alias->str : table->table.str;
5977
  if (check_table_name(table->table.str,table->table.length) ||
5978
      table->db.str && check_db_name(table->db.str))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5979
  {
5980
    my_error(ER_WRONG_TABLE_NAME, MYF(0), table->table.str);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5981 5982 5983 5984
    DBUG_RETURN(0);
  }

  if (!alias)					/* Alias is case sensitive */
5985 5986 5987
  {
    if (table->sel)
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5988 5989
      my_message(ER_DERIVED_MUST_HAVE_ALIAS,
                 ER(ER_DERIVED_MUST_HAVE_ALIAS), MYF(0));
5990 5991
      DBUG_RETURN(0);
    }
5992
    if (!(alias_str=thd->memdup(alias_str,table->table.length+1)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5993
      DBUG_RETURN(0);
5994
  }
5995
  if (!(ptr = (TABLE_LIST *) thd->calloc(sizeof(TABLE_LIST))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5996
    DBUG_RETURN(0);				/* purecov: inspected */
peter@mysql.com's avatar
peter@mysql.com committed
5997
  if (table->db.str)
5998 5999 6000 6001 6002 6003 6004 6005 6006 6007 6008
  {
    ptr->db= table->db.str;
    ptr->db_length= table->db.length;
  }
  else if (thd->db)
  {
    ptr->db= thd->db;
    ptr->db_length= thd->db_length;
  }
  else
  {
6009 6010
    /* The following can't be "" as we may do 'casedn_str()' on it */
    ptr->db= empty_c_string;
6011 6012
    ptr->db_length= 0;
  }
konstantin@mysql.com's avatar
konstantin@mysql.com committed
6013
  if (thd->stmt_arena->is_stmt_prepare_or_first_sp_execute())
6014
    ptr->db= thd->strdup(ptr->db);
peter@mysql.com's avatar
peter@mysql.com committed
6015

6016
  ptr->alias= alias_str;
6017 6018
  if (lower_case_table_names && table->table.length)
    my_casedn_str(files_charset_info, table->table.str);
6019 6020
  ptr->table_name=table->table.str;
  ptr->table_name_length=table->table.length;
6021
  ptr->lock_type=   lock_type;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6022 6023
  ptr->updating=    test(table_options & TL_OPTION_UPDATING);
  ptr->force_index= test(table_options & TL_OPTION_FORCE_INDEX);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6024
  ptr->ignore_leaves= test(table_options & TL_OPTION_IGNORE_LEAVES);
6025
  ptr->derived=	    table->sel;
6026 6027
  if (!ptr->derived && !my_strcasecmp(system_charset_info, ptr->db,
                                      information_schema_name.str))
6028
  {
6029
    ST_SCHEMA_TABLE *schema_table= find_schema_table(thd, ptr->table_name);
6030 6031 6032
    if (!schema_table ||
        (schema_table->hidden && 
         lex->orig_sql_command == SQLCOM_END))  // not a 'show' command
6033
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6034
      my_error(ER_UNKNOWN_TABLE, MYF(0),
6035
               ptr->table_name, information_schema_name.str);
6036 6037
      DBUG_RETURN(0);
    }
6038
    ptr->schema_table_name= ptr->table_name;
6039 6040
    ptr->schema_table= schema_table;
  }
6041
  ptr->select_lex=  lex->current_select;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6042
  ptr->cacheable_table= 1;
6043 6044 6045 6046 6047 6048
  if (use_index_arg)
    ptr->use_index=(List<String> *) thd->memdup((gptr) use_index_arg,
						sizeof(*use_index_arg));
  if (ignore_index_arg)
    ptr->ignore_index=(List<String> *) thd->memdup((gptr) ignore_index_arg,
						   sizeof(*ignore_index_arg));
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6049
  ptr->option= option ? option->str : 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6050
  /* check that used name is unique */
6051
  if (lock_type != TL_IGNORE)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6052
  {
timour@mysql.com's avatar
timour@mysql.com committed
6053 6054 6055 6056
    TABLE_LIST *first_table= (TABLE_LIST*) table_list.first;
    if (lex->sql_command == SQLCOM_CREATE_VIEW)
      first_table= first_table ? first_table->next_local : NULL;
    for (TABLE_LIST *tables= first_table ;
6057
	 tables ;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6058
	 tables=tables->next_local)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6059
    {
6060 6061
      if (!my_strcasecmp(table_alias_charset, alias_str, tables->alias) &&
	  !strcmp(ptr->db, tables->db))
6062
      {
6063
	my_error(ER_NONUNIQ_TABLE, MYF(0), alias_str); /* purecov: tested */
6064 6065
	DBUG_RETURN(0);				/* purecov: tested */
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6066 6067
    }
  }
6068 6069 6070
  /* Store the table reference preceding the current one. */
  if (table_list.elements > 0)
  {
6071 6072 6073
    /*
      table_list.next points to the last inserted TABLE_LIST->next_local'
      element
6074
      We don't use the offsetof() macro here to avoid warnings from gcc
6075
    */
6076 6077 6078
    previous_table_ref= (TABLE_LIST*) ((char*) table_list.next -
                                       ((char*) &(ptr->next_local) -
                                        (char*) ptr));
6079 6080 6081 6082 6083 6084 6085 6086
    /*
      Set next_name_resolution_table of the previous table reference to point
      to the current table reference. In effect the list
      TABLE_LIST::next_name_resolution_table coincides with
      TABLE_LIST::next_local. Later this may be changed in
      store_top_level_join_columns() for NATURAL/USING joins.
    */
    previous_table_ref->next_name_resolution_table= ptr;
6087
  }
6088

6089 6090 6091 6092 6093 6094
  /*
    Link the current table reference in a local list (list for current select).
    Notice that as a side effect here we set the next_local field of the
    previous table reference to 'ptr'. Here we also add one element to the
    list 'table_list'.
  */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6095
  table_list.link_in_list((byte*) ptr, (byte**) &ptr->next_local);
6096
  ptr->next_name_resolution_table= NULL;
6097
  /* Link table in global list (all used tables) */
6098
  lex->add_to_query_tables(ptr);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6099 6100 6101
  DBUG_RETURN(ptr);
}

monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
6102

6103 6104 6105 6106
/*
  Initialize a new table list for a nested join

  SYNOPSIS
6107
    init_nested_join()
6108
    thd         current thread
6109

6110 6111 6112 6113 6114 6115 6116 6117 6118 6119 6120 6121 6122 6123 6124 6125 6126 6127 6128
  DESCRIPTION
    The function initializes a structure of the TABLE_LIST type
    for a nested join. It sets up its nested join list as empty.
    The created structure is added to the front of the current
    join list in the st_select_lex object. Then the function
    changes the current nest level for joins to refer to the newly
    created empty list after having saved the info on the old level
    in the initialized structure.

  RETURN VALUE
    0,  if success
    1,  otherwise
*/

bool st_select_lex::init_nested_join(THD *thd)
{
  TABLE_LIST *ptr;
  NESTED_JOIN *nested_join;
  DBUG_ENTER("init_nested_join");
6129

6130 6131
  if (!(ptr= (TABLE_LIST*) thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST))+
                                       sizeof(NESTED_JOIN))))
6132
    DBUG_RETURN(1);
6133 6134 6135
  nested_join= ptr->nested_join=
    ((NESTED_JOIN*) ((byte*) ptr + ALIGN_SIZE(sizeof(TABLE_LIST))));

6136 6137 6138 6139 6140 6141 6142 6143 6144 6145 6146 6147 6148 6149 6150 6151 6152 6153 6154 6155
  join_list->push_front(ptr);
  ptr->embedding= embedding;
  ptr->join_list= join_list;
  embedding= ptr;
  join_list= &nested_join->join_list;
  join_list->empty();
  DBUG_RETURN(0);
}


/*
  End a nested join table list

  SYNOPSIS
    end_nested_join()
    thd         current thread

  DESCRIPTION
    The function returns to the previous join nest level.
    If the current level contains only one member, the function
6156
    moves it one level up, eliminating the nest.
6157 6158 6159 6160 6161 6162 6163 6164 6165

  RETURN VALUE
    Pointer to TABLE_LIST element added to the total table list, if success
    0, otherwise
*/

TABLE_LIST *st_select_lex::end_nested_join(THD *thd)
{
  TABLE_LIST *ptr;
6166
  NESTED_JOIN *nested_join;
6167
  DBUG_ENTER("end_nested_join");
6168

6169
  DBUG_ASSERT(embedding);
6170 6171 6172
  ptr= embedding;
  join_list= ptr->join_list;
  embedding= ptr->embedding;
6173
  nested_join= ptr->nested_join;
6174 6175 6176 6177 6178 6179 6180 6181 6182
  if (nested_join->join_list.elements == 1)
  {
    TABLE_LIST *embedded= nested_join->join_list.head();
    join_list->pop();
    embedded->join_list= join_list;
    embedded->embedding= embedding;
    join_list->push_front(embedded);
    ptr= embedded;
  }
6183
  else if (nested_join->join_list.elements == 0)
6184 6185
  {
    join_list->pop();
6186
    ptr= 0;                                     // return value
6187
  }
6188 6189 6190 6191 6192 6193 6194 6195
  DBUG_RETURN(ptr);
}


/*
  Nest last join operation

  SYNOPSIS
6196
    nest_last_join()
6197 6198 6199 6200 6201 6202
    thd         current thread

  DESCRIPTION
    The function nest last join operation as if it was enclosed in braces.

  RETURN VALUE
6203 6204 6205
    0  Error
    #  Pointer to TABLE_LIST element created for the new nested join

6206 6207 6208 6209 6210 6211
*/

TABLE_LIST *st_select_lex::nest_last_join(THD *thd)
{
  TABLE_LIST *ptr;
  NESTED_JOIN *nested_join;
6212
  List<TABLE_LIST> *embedded_list;
6213
  DBUG_ENTER("nest_last_join");
6214

6215 6216
  if (!(ptr= (TABLE_LIST*) thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST))+
                                       sizeof(NESTED_JOIN))))
6217
    DBUG_RETURN(0);
6218 6219 6220
  nested_join= ptr->nested_join=
    ((NESTED_JOIN*) ((byte*) ptr + ALIGN_SIZE(sizeof(TABLE_LIST))));

6221 6222
  ptr->embedding= embedding;
  ptr->join_list= join_list;
6223
  embedded_list= &nested_join->join_list;
6224
  embedded_list->empty();
6225 6226

  for (uint i=0; i < 2; i++)
6227 6228 6229 6230 6231
  {
    TABLE_LIST *table= join_list->pop();
    table->join_list= embedded_list;
    table->embedding= ptr;
    embedded_list->push_back(table);
6232 6233 6234 6235 6236 6237 6238 6239 6240 6241 6242 6243 6244
    if (table->natural_join)
    {
      ptr->is_natural_join= TRUE;
      /*
        If this is a JOIN ... USING, move the list of joined fields to the
        table reference that describes the join.
      */
      if (table->join_using_fields)
      {
        ptr->join_using_fields= table->join_using_fields;
        table->join_using_fields= NULL;
      }
    }
6245 6246 6247 6248 6249 6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260 6261 6262 6263 6264 6265 6266 6267 6268 6269 6270 6271 6272 6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284
  }
  join_list->push_front(ptr);
  nested_join->used_tables= nested_join->not_null_tables= (table_map) 0;
  DBUG_RETURN(ptr);
}


/*
  Add a table to the current join list

  SYNOPSIS
    add_joined_table()
    table       the table to add

  DESCRIPTION
    The function puts a table in front of the current join list
    of st_select_lex object.
    Thus, joined tables are put into this list in the reverse order
    (the most outer join operation follows first).

  RETURN VALUE
    None
*/

void st_select_lex::add_joined_table(TABLE_LIST *table)
{
  DBUG_ENTER("add_joined_table");
  join_list->push_front(table);
  table->join_list= join_list;
  table->embedding= embedding;
  DBUG_VOID_RETURN;
}


/*
  Convert a right join into equivalent left join

  SYNOPSIS
    convert_right_join()
    thd         current thread
6285 6286 6287

  DESCRIPTION
    The function takes the current join list t[0],t[1] ... and
6288 6289 6290 6291 6292 6293 6294 6295 6296 6297 6298 6299 6300 6301 6302 6303 6304 6305 6306 6307 6308 6309 6310
    effectively converts it into the list t[1],t[0] ...
    Although the outer_join flag for the new nested table contains
    JOIN_TYPE_RIGHT, it will be handled as the inner table of a left join
    operation.

  EXAMPLES
    SELECT * FROM t1 RIGHT JOIN t2 ON on_expr =>
      SELECT * FROM t2 LEFT JOIN t1 ON on_expr

    SELECT * FROM t1,t2 RIGHT JOIN t3 ON on_expr =>
      SELECT * FROM t1,t3 LEFT JOIN t2 ON on_expr

    SELECT * FROM t1,t2 RIGHT JOIN (t3,t4) ON on_expr =>
      SELECT * FROM t1,(t3,t4) LEFT JOIN t2 ON on_expr

    SELECT * FROM t1 LEFT JOIN t2 ON on_expr1 RIGHT JOIN t3  ON on_expr2 =>
      SELECT * FROM t3 LEFT JOIN (t1 LEFT JOIN t2 ON on_expr2) ON on_expr1

  RETURN
    Pointer to the table representing the inner table, if success
    0, otherwise
*/

6311
TABLE_LIST *st_select_lex::convert_right_join()
6312 6313
{
  TABLE_LIST *tab2= join_list->pop();
6314
  TABLE_LIST *tab1= join_list->pop();
6315 6316 6317 6318 6319 6320 6321 6322 6323
  DBUG_ENTER("convert_right_join");

  join_list->push_front(tab2);
  join_list->push_front(tab1);
  tab1->outer_join|= JOIN_TYPE_RIGHT;

  DBUG_RETURN(tab1);
}

6324 6325 6326 6327 6328 6329 6330 6331 6332 6333 6334 6335 6336
/*
  Set lock for all tables in current select level

  SYNOPSIS:
    set_lock_for_tables()
    lock_type			Lock to set for tables

  NOTE:
    If lock is a write lock, then tables->updating is set 1
    This is to get tables_ok to know that the table is updated by the
    query
*/

6337
void st_select_lex::set_lock_for_tables(thr_lock_type lock_type)
6338 6339 6340 6341 6342 6343
{
  bool for_update= lock_type >= TL_READ_NO_INSERT;
  DBUG_ENTER("set_lock_for_tables");
  DBUG_PRINT("enter", ("lock_type: %d  for_update: %d", lock_type,
		       for_update));

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6344 6345 6346
  for (TABLE_LIST *tables= (TABLE_LIST*) table_list.first;
       tables;
       tables= tables->next_local)
6347 6348 6349 6350 6351 6352 6353
  {
    tables->lock_type= lock_type;
    tables->updating=  for_update;
  }
  DBUG_VOID_RETURN;
}

monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
6354

igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6355 6356 6357 6358 6359 6360 6361 6362 6363 6364 6365 6366 6367 6368 6369 6370 6371 6372 6373 6374 6375 6376 6377 6378 6379 6380 6381 6382 6383
/*
  Create a fake SELECT_LEX for a unit

  SYNOPSIS:
    add_fake_select_lex()
    thd			   thread handle

  DESCRIPTION
    The method create a fake SELECT_LEX object for a unit.
    This object is created for any union construct containing a union
    operation and also for any single select union construct of the form
    (SELECT ... ORDER BY order_list [LIMIT n]) ORDER BY ... 
    or of the form
    (SELECT ... ORDER BY LIMIT n) ORDER BY ...
  
  NOTES
    The object is used to retrieve rows from the temporary table
    where the result on the union is obtained.

  RETURN VALUES
    1     on failure to create the object
    0     on success
*/

bool st_select_lex_unit::add_fake_select_lex(THD *thd)
{
  SELECT_LEX *first_sl= first_select();
  DBUG_ENTER("add_fake_select_lex");
  DBUG_ASSERT(!fake_select_lex);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6384

igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6385 6386 6387 6388 6389
  if (!(fake_select_lex= new (thd->mem_root) SELECT_LEX()))
      DBUG_RETURN(1);
  fake_select_lex->include_standalone(this, 
                                      (SELECT_LEX_NODE**)&fake_select_lex);
  fake_select_lex->select_number= INT_MAX;
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6390
  fake_select_lex->parent_lex= thd->lex; /* Used in init_query. */
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6391 6392
  fake_select_lex->make_empty_select();
  fake_select_lex->linkage= GLOBAL_OPTIONS_TYPE;
6393 6394
  fake_select_lex->select_limit= 0;

igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6395
  fake_select_lex->context.outer_context=first_sl->context.outer_context;
6396 6397 6398
  /* allow item list resolving in fake select for ORDER BY */
  fake_select_lex->context.resolve_in_select_list= TRUE;
  fake_select_lex->context.select_lex= fake_select_lex;
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409 6410 6411

  if (!first_sl->next_select())
  {
    /* 
      This works only for 
      (SELECT ... ORDER BY list [LIMIT n]) ORDER BY order_list [LIMIT m],
      (SELECT ... LIMIT n) ORDER BY order_list [LIMIT m]
      just before the parser starts processing order_list
    */ 
    global_parameters= fake_select_lex;
    fake_select_lex->no_table_names_allowed= 1;
    thd->lex->current_select= fake_select_lex;
  }
6412
  thd->lex->pop_context();
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6413 6414 6415
  DBUG_RETURN(0);
}

6416

6417
/*
6418 6419
  Push a new name resolution context for a JOIN ... ON clause to the
  context stack of a query block.
6420 6421

  SYNOPSIS
6422
    push_new_name_resolution_context()
6423
    thd       pointer to current thread
timour@mysql.com's avatar
timour@mysql.com committed
6424
    left_op   left  operand of the JOIN
6425 6426 6427 6428
    right_op  rigth operand of the JOIN

  DESCRIPTION
    Create a new name resolution context for a JOIN ... ON clause,
6429 6430 6431
    set the first and last leaves of the list of table references
    to be used for name resolution, and push the newly created
    context to the stack of contexts of the query.
6432 6433

  RETURN
6434 6435
    FALSE  if all is OK
    TRUE   if a memory allocation error occured
6436 6437
*/

6438 6439 6440
bool
push_new_name_resolution_context(THD *thd,
                                 TABLE_LIST *left_op, TABLE_LIST *right_op)
6441 6442
{
  Name_resolution_context *on_context;
6443
  if (!(on_context= new (thd->mem_root) Name_resolution_context))
6444
    return TRUE;
6445 6446 6447 6448 6449
  on_context->init();
  on_context->first_name_resolution_table=
    left_op->first_leaf_for_name_resolution();
  on_context->last_name_resolution_table=
    right_op->last_leaf_for_name_resolution();
6450
  return thd->lex->push_context(on_context);
6451 6452 6453 6454 6455 6456 6457 6458 6459 6460 6461 6462 6463 6464 6465 6466 6467 6468 6469 6470
}


/*
  Add an ON condition to the second operand of a JOIN ... ON.

  SYNOPSIS
    add_join_on
    b     the second operand of a JOIN ... ON
    expr  the condition to be added to the ON clause

  DESCRIPTION
    Add an ON condition to the right operand of a JOIN ... ON clause.

  RETURN
    FALSE  if there was some error
    TRUE   if all is OK
*/

void add_join_on(TABLE_LIST *b, Item *expr)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6471
{
6472
  if (expr)
6473
  {
6474
    if (!b->on_expr)
6475
      b->on_expr= expr;
6476 6477
    else
    {
6478 6479 6480 6481 6482 6483
      /*
        If called from the parser, this happens if you have both a
        right and left join. If called later, it happens if we add more
        than one condition to the ON clause.
      */
      b->on_expr= new Item_cond_and(b->on_expr,expr);
6484 6485
    }
    b->on_expr->top_level_item();
6486
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6487 6488 6489
}


6490
/*
6491 6492
  Mark that there is a NATURAL JOIN or JOIN ... USING between two
  tables.
6493 6494 6495

  SYNOPSIS
    add_join_natural()
6496 6497 6498 6499
    a			Left join argument
    b			Right join argument
    using_fields        Field names from USING clause
  
6500
  IMPLEMENTATION
6501 6502 6503 6504 6505 6506 6507 6508 6509 6510
    This function marks that table b should be joined with a either via
    a NATURAL JOIN or via JOIN ... USING. Both join types are special
    cases of each other, so we treat them together. The function
    setup_conds() creates a list of equal condition between all fields
    of the same name for NATURAL JOIN or the fields in 'using_fields'
    for JOIN ... USING. The list of equality conditions is stored
    either in b->on_expr, or in JOIN::conds, depending on whether there
    was an outer join.

  EXAMPLE
6511 6512 6513
    SELECT * FROM t1 NATURAL LEFT JOIN t2
     <=>
    SELECT * FROM t1 LEFT JOIN t2 ON (t1.i=t2.i and t1.j=t2.j ... )
6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524

    SELECT * FROM t1 NATURAL JOIN t2 WHERE <some_cond>
     <=>
    SELECT * FROM t1, t2 WHERE (t1.i=t2.i and t1.j=t2.j and <some_cond>)

    SELECT * FROM t1 JOIN t2 USING(j) WHERE <some_cond>
     <=>
    SELECT * FROM t1, t2 WHERE (t1.j=t2.j and <some_cond>)

  RETURN
    None
6525 6526
*/

6527
void add_join_natural(TABLE_LIST *a, TABLE_LIST *b, List<String> *using_fields)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6528
{
6529 6530
  b->natural_join= a;
  b->join_using_fields= using_fields;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6531 6532
}

6533

6534
/*
6535 6536 6537 6538
  Reload/resets privileges and the different caches.

  SYNOPSIS
    reload_acl_and_cache()
6539
    thd			Thread handler (can be NULL!)
6540 6541 6542 6543 6544
    options             What should be reset/reloaded (tables, privileges,
    slave...)
    tables              Tables to flush (if any)
    write_to_binlog     Depending on 'options', it may be very bad to write the
                        query to the binlog (e.g. FLUSH SLAVE); this is a
6545 6546 6547
                        pointer where reload_acl_and_cache() will put 0 if
                        it thinks we really should not write to the binlog.
                        Otherwise it will put 1.
6548 6549 6550

  RETURN
    0	 ok
6551
    !=0  error.  thd->killed or thd->net.report_error is set
6552 6553
*/

6554 6555
bool reload_acl_and_cache(THD *thd, ulong options, TABLE_LIST *tables,
                          bool *write_to_binlog)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6556 6557 6558
{
  bool result=0;
  select_errors=0;				/* Write if more errors */
6559
  bool tmp_write_to_binlog= 1;
6560

6561
  if (thd && thd->in_sub_stmt)
6562 6563 6564 6565 6566
  {
    my_error(ER_STMT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0), "FLUSH");
    return 1;
  }

hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
6567
#ifndef NO_EMBEDDED_ACCESS_CHECKS
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6568 6569
  if (options & REFRESH_GRANT)
  {
6570 6571 6572 6573 6574 6575
    THD *tmp_thd= 0;
    /*
      If reload_acl_and_cache() is called from SIGHUP handler we have to
      allocate temporary THD for execution of acl_reload()/grant_reload().
    */
    if (!thd && (thd= (tmp_thd= new THD)))
6576 6577
    {
      thd->thread_stack= (char*) &tmp_thd;
6578
      thd->store_globals();
6579
    }
6580 6581 6582 6583 6584 6585 6586 6587 6588 6589 6590 6591
    if (thd)
    {
      (void)acl_reload(thd);
      (void)grant_reload(thd);
    }
    if (tmp_thd)
    {
      delete tmp_thd;
      /* Remember that we don't have a THD */
      my_pthread_setspecific_ptr(THR_THD,  0);
      thd= 0;
    }
6592
    reset_mqh((LEX_USER *)NULL, TRUE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6593
  }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
6594
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6595 6596
  if (options & REFRESH_LOG)
  {
6597
    /*
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6598 6599
      Flush the normal query log, the update log, the binary log,
      the slow query log, and the relay log (if it exists).
6600
    */
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6601

6602
    /*
monty@mysql.com's avatar
monty@mysql.com committed
6603 6604 6605 6606
      Writing this command to the binlog may result in infinite loops
      when doing mysqlbinlog|mysql, and anyway it does not really make
      sense to log it automatically (would cause more trouble to users
      than it would help them)
6607 6608
    */
    tmp_write_to_binlog= 0;
6609 6610
    mysql_log.new_file(1);
    mysql_slow_log.new_file(1);
6611
    mysql_bin_log.rotate_and_purge(RP_FORCE_ROTATE);
6612
#ifdef HAVE_REPLICATION
6613
    pthread_mutex_lock(&LOCK_active_mi);
6614
    rotate_relay_log(active_mi);
6615
    pthread_mutex_unlock(&LOCK_active_mi);
6616
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6617 6618
    if (ha_flush_logs())
      result=1;
6619 6620
    if (flush_error_log())
      result=1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6621
  }
6622
#ifdef HAVE_QUERY_CACHE
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6623 6624
  if (options & REFRESH_QUERY_CACHE_FREE)
  {
6625
    query_cache.pack();				// FLUSH QUERY CACHE
6626
    options &= ~REFRESH_QUERY_CACHE;    // Don't flush cache, just free memory
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6627 6628 6629
  }
  if (options & (REFRESH_TABLES | REFRESH_QUERY_CACHE))
  {
6630
    query_cache.flush();			// RESET QUERY CACHE
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6631
  }
6632
#endif /*HAVE_QUERY_CACHE*/
6633 6634 6635 6636 6637
  /*
    Note that if REFRESH_READ_LOCK bit is set then REFRESH_TABLES is set too
    (see sql_yacc.yy)
  */
  if (options & (REFRESH_TABLES | REFRESH_READ_LOCK)) 
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6638
  {
6639
    if ((options & REFRESH_READ_LOCK) && thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6640
    {
6641 6642 6643 6644 6645 6646 6647 6648 6649 6650 6651
      /*
        We must not try to aspire a global read lock if we have a write
        locked table. This would lead to a deadlock when trying to
        reopen (and re-lock) the table after the flush.
      */
      if (thd->locked_tables)
      {
        THR_LOCK_DATA **lock_p= thd->locked_tables->locks;
        THR_LOCK_DATA **end_p= lock_p + thd->locked_tables->lock_count;

        for (; lock_p < end_p; lock_p++)
monty@mysql.com's avatar
monty@mysql.com committed
6652
        {
6653 6654 6655 6656 6657
          if ((*lock_p)->type == TL_WRITE)
          {
            my_error(ER_LOCK_OR_ACTIVE_TRANSACTION, MYF(0));
            return 1;
          }
monty@mysql.com's avatar
monty@mysql.com committed
6658
        }
6659
      }
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
6660 6661 6662 6663
      /*
	Writing to the binlog could cause deadlocks, as we don't log
	UNLOCK TABLES
      */
6664
      tmp_write_to_binlog= 0;
6665
      if (lock_global_read_lock(thd))
6666
	return 1;                               // Killed
6667 6668
      result=close_cached_tables(thd,(options & REFRESH_FAST) ? 0 : 1,
                                 tables);
6669
      if (make_global_read_lock_block_commit(thd)) // Killed
6670 6671 6672 6673 6674
      {
        /* Don't leave things in a half-locked state */
        unlock_global_read_lock(thd);
        return 1;
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6675
    }
6676 6677
    else
      result=close_cached_tables(thd,(options & REFRESH_FAST) ? 0 : 1, tables);
6678
    my_dbopt_cleanup();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6679 6680 6681
  }
  if (options & REFRESH_HOSTS)
    hostname_cache_refresh();
monty@mysql.com's avatar
monty@mysql.com committed
6682
  if (thd && (options & REFRESH_STATUS))
6683
    refresh_status(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6684 6685
  if (options & REFRESH_THREADS)
    flush_thread_cache();
6686
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6687
  if (options & REFRESH_MASTER)
6688
  {
6689
    DBUG_ASSERT(thd);
6690
    tmp_write_to_binlog= 0;
6691
    if (reset_master(thd))
6692
    {
6693
      result=1;
6694 6695
      thd->fatal_error();                       // Ensure client get error
    }
6696
  }
6697
#endif
6698
#ifdef OPENSSL
6699 6700 6701 6702 6703 6704
   if (options & REFRESH_DES_KEY_FILE)
   {
     if (des_key_file)
       result=load_des_key_file(des_key_file);
   }
#endif
6705
#ifdef HAVE_REPLICATION
6706 6707
 if (options & REFRESH_SLAVE)
 {
6708
   tmp_write_to_binlog= 0;
6709
   pthread_mutex_lock(&LOCK_active_mi);
6710
   if (reset_slave(thd, active_mi))
6711
     result=1;
6712
   pthread_mutex_unlock(&LOCK_active_mi);
6713
 }
6714
#endif
6715
 if (options & REFRESH_USER_RESOURCES)
monty@mysql.com's avatar
monty@mysql.com committed
6716
   reset_mqh((LEX_USER *) NULL);
6717
 *write_to_binlog= tmp_write_to_binlog;
6718
 return result;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6719 6720
}

6721 6722 6723 6724 6725 6726 6727 6728 6729 6730 6731 6732
/*
  kill on thread

  SYNOPSIS
    kill_one_thread()
    thd			Thread class
    id			Thread id

  NOTES
    This is written such that we have a short lock on LOCK_thread_count
*/

hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
6733
void kill_one_thread(THD *thd, ulong id, bool only_kill_query)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6734 6735 6736
{
  THD *tmp;
  uint error=ER_NO_SUCH_THREAD;
6737 6738
  VOID(pthread_mutex_lock(&LOCK_thread_count)); // For unlink from list
  I_List_iterator<THD> it(threads);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6739 6740 6741 6742
  while ((tmp=it++))
  {
    if (tmp->thread_id == id)
    {
6743 6744
      pthread_mutex_lock(&tmp->LOCK_delete);	// Lock from delete
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6745 6746 6747
    }
  }
  VOID(pthread_mutex_unlock(&LOCK_thread_count));
6748 6749
  if (tmp)
  {
6750 6751
    if ((thd->security_ctx->master_access & SUPER_ACL) ||
	!strcmp(thd->security_ctx->user, tmp->security_ctx->user))
6752
    {
hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
6753
      tmp->awake(only_kill_query ? THD::KILL_QUERY : THD::KILL_CONNECTION);
6754 6755 6756 6757 6758 6759 6760
      error=0;
    }
    else
      error=ER_KILL_DENIED_ERROR;
    pthread_mutex_unlock(&tmp->LOCK_delete);
  }

bk@work.mysql.com's avatar
bk@work.mysql.com committed
6761
  if (!error)
6762
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6763
  else
6764
    my_error(error, MYF(0), id);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6765 6766
}

timour@mysql.com's avatar
timour@mysql.com committed
6767

6768 6769
	/* If pointer is not a null pointer, append filename to it */

6770 6771
static bool append_file_to_dir(THD *thd, const char **filename_ptr,
			       const char *table_name)
6772
{
6773
  char buff[FN_REFLEN],*ptr, *end;
6774 6775 6776 6777 6778 6779 6780
  if (!*filename_ptr)
    return 0;					// nothing to do

  /* Check that the filename is not too long and it's a hard path */
  if (strlen(*filename_ptr)+strlen(table_name) >= FN_REFLEN-1 ||
      !test_if_hard_path(*filename_ptr))
  {
6781
    my_error(ER_WRONG_TABLE_NAME, MYF(0), *filename_ptr);
6782 6783 6784 6785
    return 1;
  }
  /* Fix is using unix filename format on dos */
  strmov(buff,*filename_ptr);
6786
  end=convert_dirname(buff, *filename_ptr, NullS);
6787
  if (!(ptr=thd->alloc((uint) (end-buff)+(uint) strlen(table_name)+1)))
6788 6789
    return 1;					// End of memory
  *filename_ptr=ptr;
6790
  strxmov(ptr,buff,table_name,NullS);
6791 6792
  return 0;
}
6793

6794

6795 6796 6797 6798 6799 6800 6801 6802 6803 6804 6805 6806 6807 6808
/*
  Check if the select is a simple select (not an union)

  SYNOPSIS
    check_simple_select()

  RETURN VALUES
    0	ok
    1	error	; In this case the error messege is sent to the client
*/

bool check_simple_select()
{
  THD *thd= current_thd;
6809 6810
  LEX *lex= thd->lex;
  if (lex->current_select != &lex->select_lex)
6811 6812
  {
    char command[80];
6813 6814
    strmake(command, lex->yylval->symbol.str,
	    min(lex->yylval->symbol.length, sizeof(command)-1));
6815
    my_error(ER_CANT_USE_OPTION_HERE, MYF(0), command);
6816 6817 6818 6819
    return 1;
  }
  return 0;
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6820

6821

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6822
Comp_creator *comp_eq_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6823
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6824
  return invert?(Comp_creator *)&ne_creator:(Comp_creator *)&eq_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6825 6826
}

6827

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6828
Comp_creator *comp_ge_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6829
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6830
  return invert?(Comp_creator *)&lt_creator:(Comp_creator *)&ge_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6831 6832
}

6833

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6834
Comp_creator *comp_gt_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6835
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6836
  return invert?(Comp_creator *)&le_creator:(Comp_creator *)&gt_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6837 6838
}

6839

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6840
Comp_creator *comp_le_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6841
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6842
  return invert?(Comp_creator *)&gt_creator:(Comp_creator *)&le_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6843 6844
}

6845

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6846
Comp_creator *comp_lt_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6847
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6848
  return invert?(Comp_creator *)&ge_creator:(Comp_creator *)&lt_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6849 6850
}

6851

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6852
Comp_creator *comp_ne_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6853
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6854
  return invert?(Comp_creator *)&eq_creator:(Comp_creator *)&ne_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6855
}
6856 6857 6858 6859 6860 6861 6862 6863 6864 6865 6866 6867 6868 6869 6870 6871 6872 6873 6874 6875


/*
  Construct ALL/ANY/SOME subquery Item

  SYNOPSIS
    all_any_subquery_creator()
    left_expr - pointer to left expression
    cmp - compare function creator
    all - true if we create ALL subquery
    select_lex - pointer on parsed subquery structure

  RETURN VALUE
    constructed Item (or 0 if out of memory)
*/
Item * all_any_subquery_creator(Item *left_expr,
				chooser_compare_func_creator cmp,
				bool all,
				SELECT_LEX *select_lex)
{
serg@serg.mylan's avatar
serg@serg.mylan committed
6876
  if ((cmp == &comp_eq_creator) && !all)       //  = ANY <=> IN
6877
    return new Item_in_subselect(left_expr, select_lex);
serg@serg.mylan's avatar
serg@serg.mylan committed
6878 6879

  if ((cmp == &comp_ne_creator) && all)        // <> ALL <=> NOT IN
6880 6881 6882
    return new Item_func_not(new Item_in_subselect(left_expr, select_lex));

  Item_allany_subselect *it=
6883
    new Item_allany_subselect(left_expr, (*cmp)(all), select_lex, all);
6884
  if (all)
6885
    return it->upper_item= new Item_func_not_all(it);	/* ALL */
6886

6887
  return it->upper_item= new Item_func_nop_all(it);      /* ANY/SOME */
6888
}
6889 6890


6891 6892 6893 6894 6895 6896 6897 6898 6899 6900 6901 6902
/*
  CREATE INDEX and DROP INDEX are implemented by calling ALTER TABLE with
  the proper arguments.  This isn't very fast but it should work for most
  cases.

  In the future ALTER TABLE will notice that only added indexes
  and create these one by one for the existing table without having to do
  a full rebuild.

  One should normally create all indexes with CREATE TABLE or ALTER TABLE.
*/

6903
bool mysql_create_index(THD *thd, TABLE_LIST *table_list, List<Key> &keys)
6904 6905
{
  List<create_field> fields;
6906 6907
  ALTER_INFO alter_info;
  alter_info.flags= ALTER_ADD_INDEX;
6908 6909 6910 6911 6912
  HA_CREATE_INFO create_info;
  DBUG_ENTER("mysql_create_index");
  bzero((char*) &create_info,sizeof(create_info));
  create_info.db_type=DB_TYPE_DEFAULT;
  create_info.default_table_charset= thd->variables.collation_database;
6913
  DBUG_RETURN(mysql_alter_table(thd,table_list->db,table_list->table_name,
6914
				&create_info, table_list,
6915
				fields, keys, 0, (ORDER*)0,
monty@mysql.com's avatar
monty@mysql.com committed
6916
				DUP_ERROR, 0, &alter_info, 1));
6917 6918 6919
}


6920
bool mysql_drop_index(THD *thd, TABLE_LIST *table_list, ALTER_INFO *alter_info)
6921 6922 6923 6924 6925 6926 6927 6928
{
  List<create_field> fields;
  List<Key> keys;
  HA_CREATE_INFO create_info;
  DBUG_ENTER("mysql_drop_index");
  bzero((char*) &create_info,sizeof(create_info));
  create_info.db_type=DB_TYPE_DEFAULT;
  create_info.default_table_charset= thd->variables.collation_database;
6929 6930
  alter_info->clear();
  alter_info->flags= ALTER_DROP_INDEX;
6931
  DBUG_RETURN(mysql_alter_table(thd,table_list->db,table_list->table_name,
6932
				&create_info, table_list,
6933
				fields, keys, 0, (ORDER*)0,
monty@mysql.com's avatar
monty@mysql.com committed
6934
				DUP_ERROR, 0, alter_info, 1));
6935
}
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
6936 6937


6938 6939 6940 6941 6942
/*
  Multi update query pre-check

  SYNOPSIS
    multi_update_precheck()
6943
    thd		Thread handler
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6944
    tables	Global/local table list (have to be the same)
6945

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6946
  RETURN VALUE
6947 6948
    FALSE OK
    TRUE  Error
6949
*/
6950

6951
bool multi_update_precheck(THD *thd, TABLE_LIST *tables)
6952 6953 6954 6955 6956
{
  const char *msg= 0;
  TABLE_LIST *table;
  LEX *lex= thd->lex;
  SELECT_LEX *select_lex= &lex->select_lex;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6957
  DBUG_ENTER("multi_update_precheck");
6958 6959 6960

  if (select_lex->item_list.elements != lex->value_list.elements)
  {
6961
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
6962
    DBUG_RETURN(TRUE);
6963 6964 6965 6966 6967
  }
  /*
    Ensure that we have UPDATE or SELECT privilege for each table
    The exact privilege is checked in mysql_multi_update()
  */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6968
  for (table= tables; table; table= table->next_local)
6969
  {
6970 6971 6972
    if (table->derived)
      table->grant.privilege= SELECT_ACL;
    else if ((check_access(thd, UPDATE_ACL, table->db,
6973 6974
                           &table->grant.privilege, 0, 1,
                           test(table->schema_table)) ||
6975 6976
              grant_option &&
              check_grant(thd, UPDATE_ACL, table, 0, 1, 1)) &&
monty@mysql.com's avatar
monty@mysql.com committed
6977
             (check_access(thd, SELECT_ACL, table->db,
6978 6979
                           &table->grant.privilege, 0, 0,
                           test(table->schema_table)) ||
monty@mysql.com's avatar
monty@mysql.com committed
6980
              grant_option && check_grant(thd, SELECT_ACL, table, 0, 1, 0)))
6981
      DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6982

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6983
    table->table_in_first_from_clause= 1;
6984
  }
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6985 6986 6987
  /*
    Is there tables of subqueries?
  */
6988
  if (&lex->select_lex != lex->all_selects_list || lex->time_zone_tables_used)
6989
  {
6990
    DBUG_PRINT("info",("Checking sub query list"));
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6991
    for (table= tables; table; table= table->next_global)
6992
    {
monty@mysql.com's avatar
monty@mysql.com committed
6993 6994 6995
      if (!my_tz_check_n_skip_implicit_tables(&table,
                                              lex->time_zone_tables_used) &&
          !table->table_in_first_from_clause)
6996 6997
      {
	if (check_access(thd, SELECT_ACL, table->db,
6998 6999
			 &table->grant.privilege, 0, 0,
                         test(table->schema_table)) ||
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7000
	    grant_option && check_grant(thd, SELECT_ACL, table, 0, 1, 0))
7001
	  DBUG_RETURN(TRUE);
7002 7003 7004 7005 7006 7007
      }
    }
  }

  if (select_lex->order_list.elements)
    msg= "ORDER BY";
7008
  else if (select_lex->select_limit)
7009 7010 7011 7012
    msg= "LIMIT";
  if (msg)
  {
    my_error(ER_WRONG_USAGE, MYF(0), "UPDATE", msg);
7013
    DBUG_RETURN(TRUE);
7014
  }
7015
  DBUG_RETURN(FALSE);
7016 7017 7018 7019 7020 7021 7022
}

/*
  Multi delete query pre-check

  SYNOPSIS
    multi_delete_precheck()
7023
    thd			Thread handler
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7024
    tables		Global/local table list
7025

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7026
  RETURN VALUE
7027 7028
    FALSE OK
    TRUE  error
7029
*/
7030

7031
bool multi_delete_precheck(THD *thd, TABLE_LIST *tables)
7032 7033 7034 7035
{
  SELECT_LEX *select_lex= &thd->lex->select_lex;
  TABLE_LIST *aux_tables=
    (TABLE_LIST *)thd->lex->auxilliary_table_list.first;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7036
  DBUG_ENTER("multi_delete_precheck");
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7037

7038 7039 7040 7041 7042
  /* sql_yacc guarantees that tables and aux_tables are not zero */
  DBUG_ASSERT(aux_tables != 0);
  if (check_db_used(thd, tables) || check_db_used(thd,aux_tables) ||
      check_table_access(thd,SELECT_ACL, tables,0) ||
      check_table_access(thd,DELETE_ACL, aux_tables,0))
7043
    DBUG_RETURN(TRUE);
7044 7045
  if ((thd->options & OPTION_SAFE_UPDATES) && !select_lex->where)
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7046 7047
    my_message(ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE,
               ER(ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE), MYF(0));
7048
    DBUG_RETURN(TRUE);
7049
  }
7050 7051 7052 7053 7054 7055 7056 7057 7058 7059 7060 7061 7062 7063 7064 7065 7066 7067 7068 7069 7070 7071 7072 7073 7074 7075 7076
  DBUG_RETURN(FALSE);
}


/*
  Link tables in auxilary table list of multi-delete with corresponding
  elements in main table list, and set proper locks for them.

  SYNOPSIS
    multi_delete_set_locks_and_link_aux_tables()
      lex - pointer to LEX representing multi-delete

  RETURN VALUE
    FALSE - success
    TRUE  - error
*/

bool multi_delete_set_locks_and_link_aux_tables(LEX *lex)
{
  TABLE_LIST *tables= (TABLE_LIST*)lex->select_lex.table_list.first;
  TABLE_LIST *target_tbl;
  DBUG_ENTER("multi_delete_set_locks_and_link_aux_tables");

  lex->table_count= 0;

  for (target_tbl= (TABLE_LIST *)lex->auxilliary_table_list.first;
       target_tbl; target_tbl= target_tbl->next_local)
7077
  {
7078
    lex->table_count++;
7079 7080
    /* All tables in aux_tables must be found in FROM PART */
    TABLE_LIST *walk;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7081
    for (walk= tables; walk; walk= walk->next_local)
7082
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7083 7084 7085
      if (!my_strcasecmp(table_alias_charset,
			 target_tbl->alias, walk->alias) &&
	  !strcmp(walk->db, target_tbl->db))
7086 7087 7088 7089
	break;
    }
    if (!walk)
    {
7090
      my_error(ER_UNKNOWN_TABLE, MYF(0),
7091
               target_tbl->table_name, "MULTI DELETE");
7092
      DBUG_RETURN(TRUE);
7093
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
7094 7095 7096 7097 7098
    if (!walk->derived)
    {
      target_tbl->table_name= walk->table_name;
      target_tbl->table_name_length= walk->table_name_length;
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
7099
    walk->updating= target_tbl->updating;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7100
    walk->lock_type= target_tbl->lock_type;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7101
    target_tbl->correspondent_table= walk;	// Remember corresponding table
7102
  }
7103
  DBUG_RETURN(FALSE);
7104 7105 7106
}


bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7107 7108 7109 7110 7111
/*
  simple UPDATE query pre-check

  SYNOPSIS
    update_precheck()
7112 7113
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7114 7115

  RETURN VALUE
7116 7117
    FALSE OK
    TRUE  Error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7118
*/
7119

7120
bool update_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7121 7122 7123 7124
{
  DBUG_ENTER("update_precheck");
  if (thd->lex->select_lex.item_list.elements != thd->lex->value_list.elements)
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7125
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7126
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7127
  }
7128 7129
  DBUG_RETURN(check_db_used(thd, tables) ||
	       check_one_table_access(thd, UPDATE_ACL, tables));
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7130 7131 7132 7133 7134 7135 7136 7137
}


/*
  simple DELETE query pre-check

  SYNOPSIS
    delete_precheck()
7138 7139
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7140 7141

  RETURN VALUE
7142 7143
    FALSE  OK
    TRUE   error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7144
*/
7145

7146
bool delete_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7147 7148 7149
{
  DBUG_ENTER("delete_precheck");
  if (check_one_table_access(thd, DELETE_ACL, tables))
7150
    DBUG_RETURN(TRUE);
7151
  /* Set privilege for the WHERE clause */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7152
  tables->grant.want_privilege=(SELECT_ACL & ~tables->grant.privilege);
7153
  DBUG_RETURN(FALSE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7154 7155 7156 7157 7158 7159 7160 7161
}


/*
  simple INSERT query pre-check

  SYNOPSIS
    insert_precheck()
7162 7163
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7164 7165

  RETURN VALUE
7166 7167
    FALSE  OK
    TRUE   error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7168
*/
7169

bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7170
bool insert_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7171 7172 7173 7174
{
  LEX *lex= thd->lex;
  DBUG_ENTER("insert_precheck");

7175 7176 7177 7178
  /*
    Check that we have modify privileges for the first table and
    select privileges for the rest
  */
monty@mysql.com's avatar
monty@mysql.com committed
7179 7180 7181
  ulong privilege= (INSERT_ACL |
                    (lex->duplicates == DUP_REPLACE ? DELETE_ACL : 0) |
                    (lex->value_list.elements ? UPDATE_ACL : 0));
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7182 7183

  if (check_one_table_access(thd, privilege, tables))
7184
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7185

7186
  if (lex->update_list.elements != lex->value_list.elements)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7187
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7188
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7189
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7190
  }
7191
  DBUG_RETURN(FALSE);
7192
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7193 7194 7195 7196 7197 7198 7199


/*
  CREATE TABLE query pre-check

  SYNOPSIS
    create_table_precheck()
7200 7201 7202
    thd			Thread handler
    tables		Global table list
    create_table	Table which will be created
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7203 7204

  RETURN VALUE
7205 7206
    FALSE   OK
    TRUE   Error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7207
*/
7208

7209 7210
bool create_table_precheck(THD *thd, TABLE_LIST *tables,
                           TABLE_LIST *create_table)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7211 7212
{
  LEX *lex= thd->lex;
7213 7214
  SELECT_LEX *select_lex= &lex->select_lex;
  ulong want_priv;
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7215
  bool error= TRUE;                                 // Error message is given
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7216
  DBUG_ENTER("create_table_precheck");
7217 7218 7219

  want_priv= ((lex->create_info.options & HA_LEX_CREATE_TMP_TABLE) ?
              CREATE_TMP_ACL : CREATE_ACL);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7220 7221
  lex->create_info.alias= create_table->alias;
  if (check_access(thd, want_priv, create_table->db,
7222 7223
		   &create_table->grant.privilege, 0, 0,
                   test(create_table->schema_table)) ||
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7224 7225 7226
      check_merge_table_access(thd, create_table->db,
			       (TABLE_LIST *)
			       lex->create_info.merge_list.first))
7227 7228 7229 7230 7231 7232 7233 7234 7235
    goto err;
  if (grant_option && want_priv != CREATE_TMP_ACL &&
      check_grant(thd, want_priv, create_table, 0, UINT_MAX, 0))
    goto err;

  if (select_lex->item_list.elements)
  {
    /* Check permissions for used tables in CREATE TABLE ... SELECT */

7236 7237
#ifdef NOT_NECESSARY_TO_CHECK_CREATE_TABLE_EXIST_WHEN_PREPARING_STATEMENT
    /* This code throws an ill error for CREATE TABLE t1 SELECT * FROM t1 */
7238
    /*
monty@mysql.com's avatar
monty@mysql.com committed
7239 7240 7241
      Only do the check for PS, becasue we on execute we have to check that
      against the opened tables to ensure we don't use a table that is part
      of the view (which can only be done after the table has been opened).
7242
    */
konstantin@mysql.com's avatar
konstantin@mysql.com committed
7243
    if (thd->stmt_arena->is_stmt_prepare_or_first_sp_execute())
7244
    {
monty@mysql.com's avatar
monty@mysql.com committed
7245 7246 7247 7248
      /*
        For temporary tables we don't have to check if the created table exists
      */
      if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE) &&
monty@mysql.com's avatar
monty@mysql.com committed
7249
          find_table_in_global_list(tables, create_table->db,
7250
                                    create_table->table_name))
monty@mysql.com's avatar
monty@mysql.com committed
7251
      {
7252
	error= FALSE;
monty@mysql.com's avatar
monty@mysql.com committed
7253 7254 7255
        goto err;
      }
    }
7256
#endif
7257 7258 7259
    if (tables && check_table_access(thd, SELECT_ACL, tables,0))
      goto err;
  }
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7260
  error= FALSE;
7261 7262 7263

err:
  DBUG_RETURN(error);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7264
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7265 7266 7267 7268 7269 7270 7271


/*
  negate given expression

  SYNOPSIS
    negate_expression()
7272
    thd  thread handler
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7273 7274 7275 7276 7277 7278 7279 7280 7281 7282 7283 7284 7285 7286 7287 7288 7289 7290 7291 7292 7293 7294 7295 7296 7297 7298 7299 7300
    expr expression for negation

  RETURN
    negated expression
*/

Item *negate_expression(THD *thd, Item *expr)
{
  Item *negated;
  if (expr->type() == Item::FUNC_ITEM &&
      ((Item_func *) expr)->functype() == Item_func::NOT_FUNC)
  {
    /* it is NOT(NOT( ... )) */
    Item *arg= ((Item_func *) expr)->arguments()[0];
    enum_parsing_place place= thd->lex->current_select->parsing_place;
    if (arg->is_bool_func() || place == IN_WHERE || place == IN_HAVING)
      return arg;
    /*
      if it is not boolean function then we have to emulate value of
      not(not(a)), it will be a != 0
    */
    return new Item_func_ne(arg, new Item_int((char*) "0", 0, 1));
  }

  if ((negated= expr->neg_transformer(thd)) != 0)
    return negated;
  return new Item_func_not(expr);
}
7301

7302 7303
/*
  Set the specified definer to the default value, which is the current user in
7304
  the thread.
7305 7306 7307 7308 7309 7310 7311
 
  SYNOPSIS
    get_default_definer()
    thd       [in] thread handler
    definer   [out] definer
*/
 
7312
void get_default_definer(THD *thd, LEX_USER *definer)
7313 7314 7315 7316 7317 7318 7319 7320 7321 7322
{
  const Security_context *sctx= thd->security_ctx;

  definer->user.str= (char *) sctx->priv_user;
  definer->user.length= strlen(definer->user.str);

  definer->host.str= (char *) sctx->priv_host;
  definer->host.length= strlen(definer->host.str);
}

7323

7324
/*
7325
  Create default definer for the specified THD.
7326 7327 7328 7329 7330 7331 7332 7333 7334 7335 7336 7337 7338 7339 7340 7341 7342 7343

  SYNOPSIS
    create_default_definer()
    thd         [in] thread handler

  RETURN
    On success, return a valid pointer to the created and initialized
    LEX_USER, which contains definer information.
    On error, return 0.
*/

LEX_USER *create_default_definer(THD *thd)
{
  LEX_USER *definer;

  if (! (definer= (LEX_USER*) thd->alloc(sizeof(LEX_USER))))
    return 0;

7344
  get_default_definer(thd, definer);
7345 7346 7347 7348 7349

  return definer;
}


7350
/*
7351
  Create definer with the given user and host names.
7352 7353

  SYNOPSIS
7354 7355 7356 7357
    create_definer()
    thd         [in] thread handler
    user_name   [in] user name
    host_name   [in] host name
7358 7359

  RETURN
7360
    On success, return a valid pointer to the created and initialized
7361
    LEX_USER, which contains definer information.
7362
    On error, return 0.
7363 7364
*/

7365
LEX_USER *create_definer(THD *thd, LEX_STRING *user_name, LEX_STRING *host_name)
7366
{
7367 7368 7369 7370
  LEX_USER *definer;

  /* Create and initialize. */

7371
  if (! (definer= (LEX_USER*) thd->alloc(sizeof(LEX_USER))))
7372 7373 7374 7375 7376 7377
    return 0;

  definer->user= *user_name;
  definer->host= *host_name;

  return definer;
7378
}