sql_parse.cc 223 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 17
   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 */

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

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

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

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

36 37 38 39 40 41 42 43 44 45 46
#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?
*/
47 48 49
#define SSL_HANDSHAKE_SIZE      2
#define NORMAL_HANDSHAKE_SIZE   6
#define MIN_HANDSHAKE_SIZE      2
50
#else
51
#define MIN_HANDSHAKE_SIZE      6
52
#endif /* HAVE_OPENSSL */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
53

54 55 56 57 58 59
/* 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 || \
60
   (LP)->sql_command == SQLCOM_SHOW_CREATE_FUNC || \
61 62 63
   (LP)->sql_command == SQLCOM_DROP_FUNCTION ? \
   "FUNCTION" : "PROCEDURE")

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

68
static void time_out_user_resource_limits(THD *thd, USER_CONN *uc);
69
#ifndef NO_EMBEDDED_ACCESS_CHECKS
70
static int check_for_max_user_connections(THD *thd, USER_CONN *uc);
71
#endif
72
static void decrease_user_connections(USER_CONN *uc);
73
static bool check_db_used(THD *thd,TABLE_LIST *tables);
74
static bool check_multi_update_lock(THD *thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
75 76
static void remove_escape(char *name);
static void refresh_status(void);
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 218 219 220 221 222
  char temp_user[USERNAME_LENGTH+HOSTNAME_LENGTH+2];
  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 747
    char temp_user[USERNAME_LENGTH+HOSTNAME_LENGTH+2];

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
  char *db= passwd;
996
  char db_buff[NAME_LEN+1];                     // buffer to store db in utf8
997
  char user_buff[USERNAME_LENGTH+1];		// buffer to store user in utf8
998 999 1000
  uint dummy_errors;

  /*
1001 1002 1003 1004
    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'.
  */
1005
  uint passwd_len= thd->client_capabilities & CLIENT_SECURE_CONNECTION ?
1006 1007 1008
    *passwd++ : strlen(passwd);
  db= thd->client_capabilities & CLIENT_CONNECT_WITH_DB ?
    db + passwd_len + 1 : 0;
peter@mysql.com's avatar
peter@mysql.com committed
1009

kostja@oak.local's avatar
kostja@oak.local committed
1010 1011
  /* Since 4.1 all database names are stored in utf8 */
  if (db)
peter@mysql.com's avatar
peter@mysql.com committed
1012
  {
1013 1014 1015
    db_buff[copy_and_convert(db_buff, sizeof(db_buff)-1,
                             system_charset_info,
                             db, strlen(db),
1016
                             thd->charset(), &dummy_errors)]= 0;
1017
    db= db_buff;
kostja@oak.local's avatar
kostja@oak.local committed
1018
  }
peter@mysql.com's avatar
peter@mysql.com committed
1019

1020 1021 1022 1023
  user_buff[copy_and_convert(user_buff, sizeof(user_buff)-1,
                             system_charset_info, user, strlen(user),
                             thd->charset(), &dummy_errors)]= '\0';
  user= user_buff;
1024

1025 1026 1027
  if (thd->main_security_ctx.user)
    x_free(thd->main_security_ctx.user);
  if (!(thd->main_security_ctx.user= my_strdup(user, MYF(0))))
1028
    return (ER_OUT_OF_RESOURCES);
1029
  return check_user(thd, COM_CONNECT, passwd, passwd_len, db, TRUE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1030 1031
}

1032

1033 1034
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
1035 1036 1037 1038
{
  Vio* save_vio;
  ulong save_client_capabilities;

1039 1040 1041 1042 1043 1044 1045 1046 1047
  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
1048 1049
  save_client_capabilities= thd->client_capabilities;
  thd->client_capabilities|= CLIENT_MULTI_QUERIES;
1050 1051 1052 1053
  /*
    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
1054 1055
  save_vio= thd->net.vio;
  thd->net.vio= 0;
1056
  thd->net.no_send_error= 0;
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1057
  dispatch_command(COM_QUERY, thd, thd->query, thd->query_length+1);
1058
  rw_unlock(var_mutex);
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1059 1060 1061 1062 1063
  thd->client_capabilities= save_client_capabilities;
  thd->net.vio= save_vio;
}


1064
pthread_handler_t handle_one_connection(void *arg)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1065 1066 1067
{
  THD *thd=(THD*) arg;
  uint launch_time  =
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1068
    (uint) ((thd->thr_create_time = time(NULL)) - thd->connect_time);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1069 1070 1071 1072 1073
  if (launch_time >= slow_launch_time)
    statistic_increment(slow_launch_threads,&LOCK_status );

  pthread_detach_this_thread();

1074
#if !defined( __WIN__) && !defined(OS2)	// Win32 calls this in pthread_create
monty@mysql.com's avatar
monty@mysql.com committed
1075
  /* The following calls needs to be done before we call DBUG_ macros */
1076
  if (!(test_flags & TEST_NO_THREADS) & my_thread_init())
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1077
  {
1078
    close_connection(thd, ER_OUT_OF_RESOURCES, 1);
1079
    statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1080 1081 1082 1083 1084
    end_thread(thd,0);
    return 0;
  }
#endif

1085 1086 1087 1088 1089 1090 1091
  /*
    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
1092 1093
  DBUG_PRINT("info", ("handle_one_connection called by thread %d\n",
		      thd->thread_id));
monty@mysql.com's avatar
monty@mysql.com committed
1094
  /* 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
1095

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1096
#if defined(__WIN__)
1097
  init_signals();
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1098
#elif !defined(OS2) && !defined(__NETWARE__)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1099 1100 1101 1102
  sigset_t set;
  VOID(sigemptyset(&set));			// Get mask in use
  VOID(pthread_sigmask(SIG_UNBLOCK,&set,&thd->block_signals));
#endif
1103
  thd->thread_stack= (char*) &thd;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1104 1105
  if (thd->store_globals())
  {
1106
    close_connection(thd, ER_OUT_OF_RESOURCES, 1);
1107
    statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1108 1109 1110 1111 1112 1113 1114 1115
    end_thread(thd,0);
    return 0;
  }

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

1119
    if ((error=check_connection(thd)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1120 1121
    {						// Wrong permissions
      if (error > 0)
1122
	net_printf_error(thd, error, sctx->host_or_ip);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1123 1124
#ifdef __NT__
      if (vio_type(net->vio) == VIO_TYPE_NAMEDPIPE)
1125
	my_sleep(1000);				/* must wait after eof() */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1126
#endif
1127
      statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1128 1129
      goto end_thread;
    }
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1130
#ifdef __NETWARE__
1131
    netware_reg_user(sctx->ip, sctx->user, "MySQL");
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1132
#endif
1133
    if (thd->variables.max_join_size == HA_POS_ERROR)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1134 1135 1136 1137
      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
1138
    thd->version= refresh_version;
1139
    thd->proc_info= 0;
1140
    thd->command= COM_SLEEP;
1141 1142
    thd->set_time();
    thd->init_for_queries();
monty@mysql.com's avatar
monty@mysql.com committed
1143

1144
    if (sys_init_connect.value_length && !(sctx->master_access & SUPER_ACL))
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1145
    {
1146 1147
      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
1148
	thd->killed= THD::KILL_CONNECTION;
1149 1150 1151
      thd->proc_info=0;
      thd->set_time();
      thd->init_for_queries();
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1152 1153
    }

1154 1155
    while (!net->error && net->vio != 0 &&
           !(thd->killed == THD::KILL_CONNECTION))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1156
    {
1157
      net->no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1158 1159 1160
      if (do_command(thd))
	break;
    }
1161 1162
    if (thd->user_connect)
      decrease_user_connections(thd->user_connect);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1163
    if (net->error && net->vio != 0 && net->report_error)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1164
    {
1165
      if (!thd->killed && thd->variables.log_warnings > 1)
monty@mysql.com's avatar
monty@mysql.com committed
1166
	sql_print_warning(ER(ER_NEW_ABORTING_CONNECTION),
serg@serg.mylan's avatar
serg@serg.mylan committed
1167
                          thd->thread_id,(thd->db ? thd->db : "unconnected"),
1168 1169
                          sctx->user ? sctx->user : "unauthenticated",
                          sctx->host_or_ip,
serg@serg.mylan's avatar
serg@serg.mylan committed
1170 1171
                          (net->last_errno ? ER(net->last_errno) :
                           ER(ER_UNKNOWN_ERROR)));
1172
      net_send_error(thd, net->last_errno, NullS);
1173
      statistic_increment(aborted_threads,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1174
    }
1175 1176 1177 1178
    else if (thd->killed)
    {
      statistic_increment(aborted_threads,&LOCK_status);
    }
1179
    
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1180
end_thread:
1181
    close_connection(thd, 0, 1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192
    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;
  } 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
1193 1194
#endif /* EMBEDDED_LIBRARY */

1195 1196 1197 1198
/*
  Execute commands from bootstrap_file.
  Used when creating the initial grant tables
*/
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1199

1200
pthread_handler_t handle_bootstrap(void *arg)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1201
{
1202 1203 1204
  THD *thd=(THD*) arg;
  FILE *file=bootstrap_file;
  char *buff;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1205

1206
  /* The following must be called before DBUG_ENTER */
1207
  thd->thread_stack= (char*) &thd;
1208
  if (my_thread_init() || thd->store_globals())
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1209
  {
hf@deer.(none)'s avatar
hf@deer.(none) committed
1210
#ifndef EMBEDDED_LIBRARY
1211
    close_connection(thd, ER_OUT_OF_RESOURCES, 1);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1212
#endif
1213
    thd->fatal_error();
1214
    goto end;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1215
  }
1216 1217
  DBUG_ENTER("handle_bootstrap");

hf@deer.(none)'s avatar
hf@deer.(none) committed
1218
#ifndef EMBEDDED_LIBRARY
1219 1220
  pthread_detach_this_thread();
  thd->thread_stack= (char*) &thd;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1221
#if !defined(__WIN__) && !defined(OS2) && !defined(__NETWARE__)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1222
  sigset_t set;
1223 1224
  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
1225
#endif
hf@deer.(none)'s avatar
hf@deer.(none) committed
1226
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1227

1228
  if (thd->variables.max_join_size == HA_POS_ERROR)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1229 1230 1231 1232
    thd->options |= OPTION_BIG_SELECTS;

  thd->proc_info=0;
  thd->version=refresh_version;
1233 1234
  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
1235

1236
  buff= (char*) thd->net.buff;
1237
  thd->init_for_queries();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1238 1239
  while (fgets(buff, thd->net.max_packet, file))
  {
monty@mishka.local's avatar
monty@mishka.local committed
1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259
   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;

1260
    while (length && (my_isspace(thd->charset(), buff[length-1]) ||
1261
           buff[length-1] == ';'))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1262 1263
      length--;
    buff[length]=0;
1264
    thd->query_length=length;
1265 1266
    thd->query= thd->memdup_w_gap(buff, length+1, 
				  thd->db_length+1+QUERY_CACHE_FLAGS_SIZE);
1267
    thd->query[length] = '\0';
1268 1269 1270 1271
    /*
      We don't need to obtain LOCK_thread_count here because in bootstrap
      mode we have only one thread.
    */
1272
    thd->query_id=next_query_id();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1273 1274
    mysql_parse(thd,thd->query,length);
    close_thread_tables(thd);			// Free tables
1275
    if (thd->is_fatal_error)
1276
      break;
1277
    free_root(thd->mem_root,MYF(MY_KEEP_PREALLOC));
1278
#ifdef USING_TRANSACTIONS
1279
    free_root(&thd->transaction.mem_root,MYF(MY_KEEP_PREALLOC));
1280
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1281
  }
1282 1283 1284

  /* thd->fatal_error should be set in case something went wrong */
end:
1285 1286 1287 1288 1289 1290
  bootstrap_error= thd->is_fatal_error;

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

hf@deer.(none)'s avatar
hf@deer.(none) committed
1291
#ifndef EMBEDDED_LIBRARY
1292 1293 1294
  (void) pthread_mutex_lock(&LOCK_thread_count);
  thread_count--;
  (void) pthread_mutex_unlock(&LOCK_thread_count);
1295
  (void) pthread_cond_broadcast(&COND_thread_count);
1296 1297
  my_thread_end();
  pthread_exit(0);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1298
#endif
1299
  DBUG_RETURN(0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1300 1301
}

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

1304
void free_items(Item *item)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1305
{
1306
  Item *next;
monty@mysql.com's avatar
monty@mysql.com committed
1307
  DBUG_ENTER("free_items");
1308 1309 1310
  for (; item ; item=next)
  {
    next=item->next;
1311
    item->delete_self();
1312
  }
monty@mysql.com's avatar
monty@mysql.com committed
1313
  DBUG_VOID_RETURN;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1314 1315
}

1316 1317 1318 1319
    /* This works because items are allocated with sql_alloc() */

void cleanup_items(Item *item)
{
monty@mysql.com's avatar
monty@mysql.com committed
1320
  DBUG_ENTER("cleanup_items");  
1321 1322
  for (; item ; item=item->next)
    item->cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
1323
  DBUG_VOID_RETURN;
1324 1325
}

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1326 1327 1328 1329 1330 1331 1332
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;
1333
  if (!(table_list = (TABLE_LIST*) thd->calloc(sizeof(TABLE_LIST))))
1334
    DBUG_RETURN(1); // out of memory
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
1335
  table_list->db= db;
1336
  table_list->table_name= table_list->alias= tbl_name;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
1337 1338
  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
1339

1340 1341
  if (!db || check_db_name(db))
  {
1342
    my_error(ER_WRONG_DB_NAME ,MYF(0), db ? db : "NULL");
1343 1344
    goto err;
  }
1345
  if (lower_case_table_names)
1346
    my_casedn_str(files_charset_info, tbl_name);
1347
  remove_escape(table_list->table_name);
1348 1349 1350 1351

  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
1352
  if (check_one_table_access(thd, SELECT_ACL, table_list))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1353 1354
    goto err;
  thd->free_list = 0;
1355
  thd->query_length=(uint) strlen(tbl_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1356
  thd->query = tbl_name;
1357
  if ((error = mysqld_dump_create_info(thd, table_list, -1)))
1358
  {
1359
    my_error(ER_GET_ERRNO, MYF(0), my_errno);
1360 1361
    goto err;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1362
  net_flush(&thd->net);
1363
  if ((error= table->file->dump(thd,fd)))
1364
    my_error(ER_GET_ERRNO, MYF(0), error);
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1365

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1366
err:
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1367
  DBUG_RETURN(error);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1368 1369
}

1370 1371 1372 1373
/*
  Ends the current transaction and (maybe) begin the next

  SYNOPSIS
1374
    end_trans()
1375 1376 1377 1378 1379 1380 1381
      thd            Current thread
      completion     Completion type

  RETURN
    0 - OK
*/

1382
int end_trans(THD *thd, enum enum_mysql_completiontype completion)
1383 1384 1385
{
  bool do_release= 0;
  int res= 0;
1386
  DBUG_ENTER("end_trans");
1387

1388
  if (unlikely(thd->in_sub_stmt))
1389 1390 1391 1392
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    DBUG_RETURN(1);
  }
1393 1394 1395 1396 1397 1398
  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);
  }
1399 1400 1401 1402 1403 1404 1405 1406
  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;
1407
    res= ha_commit(thd);
1408
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
1409 1410
    break;
  case COMMIT_RELEASE:
serg@serg.mylan's avatar
serg@serg.mylan committed
1411
    do_release= 1; /* fall through */
1412 1413 1414 1415 1416 1417
  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
1418
    do_release= 1; /* fall through */
1419 1420 1421 1422
  case ROLLBACK:
  case ROLLBACK_AND_CHAIN:
  {
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
serg@serg.mylan's avatar
serg@serg.mylan committed
1423
    if (ha_rollback(thd))
1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434
      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
1435

1436 1437 1438
  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
1439 1440
    thd->killed= THD::KILL_CONNECTION;

1441 1442
  DBUG_RETURN(res);
}
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1443

1444
#ifndef EMBEDDED_LIBRARY
1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455

/*
  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
1456 1457 1458
bool do_command(THD *thd)
{
  char *packet;
1459 1460
  uint old_timeout;
  ulong packet_length;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1461 1462 1463 1464 1465
  NET *net;
  enum enum_server_command command;
  DBUG_ENTER("do_command");

  net= &thd->net;
1466 1467 1468 1469
  /*
    indicator of uninitialized lex => normal flow of errors handling
    (see my_message_sql)
  */
1470
  thd->lex->current_select= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1471 1472

  packet=0;
1473
  old_timeout=net->read_timeout;
monty@mysql.com's avatar
monty@mysql.com committed
1474
  /* Wait max for 8 hours */
1475
  net->read_timeout=(uint) thd->variables.net_wait_timeout;
1476
  thd->clear_error();				// Clear error message
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1477 1478 1479 1480

  net_new_transaction(net);
  if ((packet_length=my_net_read(net)) == packet_error)
  {
1481 1482 1483 1484 1485
    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)
1486 1487
    {
      statistic_increment(aborted_threads,&LOCK_status);
1488
      DBUG_RETURN(TRUE);			// We have to close it.
1489
    }
1490
    net_send_error(thd, net->last_errno, NullS);
1491
    net->error= 0;
1492
    DBUG_RETURN(FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1493 1494 1495 1496 1497
  }
  else
  {
    packet=(char*) net->read_pos;
    command = (enum enum_server_command) (uchar) packet[0];
1498 1499
    if (command >= COM_END)
      command= COM_END;				// Wrong command
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1500 1501 1502
    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
1503
  }
1504
  net->read_timeout=old_timeout;		// restore it
1505 1506 1507 1508 1509 1510 1511 1512 1513
  /*
    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.
  */
1514
  DBUG_RETURN(dispatch_command(command,thd, packet+1, (uint) packet_length));
1515
}
1516
#endif  /* EMBEDDED_LIBRARY */
1517

1518

1519 1520
/*
   Perform one connection-level (COM_XXXX) command.
1521

1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534
  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
*/
1535

1536 1537 1538 1539
bool dispatch_command(enum enum_server_command command, THD *thd,
		      char* packet, uint packet_length)
{
  NET *net= &thd->net;
1540
  bool error= 0;
1541 1542
  DBUG_ENTER("dispatch_command");

1543 1544 1545
  if (thd->killed == THD::KILL_QUERY || thd->killed == THD::KILL_BAD_DATA)
    thd->killed= THD::NOT_KILLED;

1546
  thd->command=command;
1547
  /*
1548 1549
    Commands which always take a long time are logged into
    the slow log only if opt_log_slow_admin_statements is set.
1550
  */
1551
  thd->enable_slow_log= TRUE;
1552
  thd->lex->sql_command= SQLCOM_END; /* to avoid confusing VIEW detectors */
1553
  thd->set_time();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1554 1555 1556
  VOID(pthread_mutex_lock(&LOCK_thread_count));
  thd->query_id=query_id;
  if (command != COM_STATISTICS && command != COM_PING)
1557
    next_query_id();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1558
  thread_running++;
1559
  /* TODO: set thd->lex->sql_command to SQLCOM_END here */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1560
  VOID(pthread_mutex_unlock(&LOCK_thread_count));
1561

1562 1563
  thd->server_status&=
           ~(SERVER_QUERY_NO_INDEX_USED | SERVER_QUERY_NO_GOOD_INDEX_USED);
1564
  switch (command) {
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1565
  case COM_INIT_DB:
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1566 1567
  {
    LEX_STRING tmp;
1568 1569
    statistic_increment(thd->status_var.com_stat[SQLCOM_CHANGE_DB],
			&LOCK_status);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1570 1571
    thd->convert_string(&tmp, system_charset_info,
			packet, strlen(packet), thd->charset());
1572 1573
    if (!mysql_change_db(thd, tmp.str, FALSE))
    {
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1574
      mysql_log.write(thd,command,"%s",thd->db);
1575 1576
      send_ok(thd);
    }
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1577 1578
    break;
  }
1579
#ifdef HAVE_REPLICATION
1580 1581
  case COM_REGISTER_SLAVE:
  {
1582
    if (!register_slave(thd, (uchar*)packet, packet_length))
1583
      send_ok(thd);
1584 1585
    break;
  }
1586
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1587
  case COM_TABLE_DUMP:
1588 1589 1590 1591 1592
  {
    char *db, *tbl_name;
    uint db_len= *(uchar*) packet;
    uint tbl_len= *(uchar*) (packet + db_len + 1);

1593
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1594
    thd->enable_slow_log= opt_log_slow_admin_statements;
1595 1596 1597
    db= thd->alloc(db_len + tbl_len + 2);
    tbl_name= strmake(db, packet + 1, db_len)+1;
    strmake(tbl_name, packet + db_len + 2, tbl_len);
1598
    mysql_table_dump(thd, db, tbl_name, -1);
1599 1600
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1601 1602
  case COM_CHANGE_USER:
  {
1603
    thd->change_user();
1604
    thd->clear_error();                         // if errors from rollback
1605

1606
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1607
    char *user= (char*) packet;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1608
    char *passwd= strend(user)+1;
1609 1610 1611 1612 1613
    /* 
      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).
    */
1614
    char db_buff[NAME_LEN+1];                 // buffer to store db in utf8 
1615 1616 1617 1618
    char *db= passwd;
    uint passwd_len= thd->client_capabilities & CLIENT_SECURE_CONNECTION ? 
      *passwd++ : strlen(passwd);
    db+= passwd_len + 1;
1619
#ifndef EMBEDDED_LIBRARY
1620
    /* Small check for incoming packet */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1621
    if ((uint) ((uchar*) db - net->read_pos) > packet_length)
1622
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1623
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
1624 1625
      break;
    }
1626
#endif
1627
    /* Convert database name to utf8 */
1628
    uint dummy_errors;
1629 1630
    db_buff[copy_and_convert(db_buff, sizeof(db_buff)-1,
                             system_charset_info, db, strlen(db),
1631
                             thd->charset(), &dummy_errors)]= 0;
1632
    db= db_buff;
peter@mysql.com's avatar
peter@mysql.com committed
1633

1634 1635 1636
    /* Save user and privileges */
    uint save_db_length= thd->db_length;
    char *save_db= thd->db;
1637
    Security_context save_security_ctx= *thd->security_ctx;
1638
    USER_CONN *save_user_connect= thd->user_connect;
1639 1640

    if (!(thd->security_ctx->user= my_strdup(user, MYF(0))))
1641
    {
1642
      thd->security_ctx->user= save_security_ctx.user;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1643
      my_message(ER_OUT_OF_RESOURCES, ER(ER_OUT_OF_RESOURCES), MYF(0));
1644 1645
      break;
    }
peter@mysql.com's avatar
peter@mysql.com committed
1646

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

1651 1652
    if (res)
    {
1653
      /* authentication failure, we shall restore old user */
1654
      if (res > 0)
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
      x_free(thd->security_ctx->user);
      *thd->security_ctx= save_security_ctx;
1658
      thd->user_connect= save_user_connect;
1659 1660 1661 1662 1663 1664
      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
1665 1666
      if (save_user_connect)
	decrease_user_connections(save_user_connect);
1667
      x_free((gptr) save_db);
1668
      x_free((gptr)  save_security_ctx.user);
1669
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1670 1671
    break;
  }
1672
  case COM_STMT_EXECUTE:
1673
  {
1674
    mysql_stmt_execute(thd, packet, packet_length);
1675 1676
    break;
  }
1677
  case COM_STMT_FETCH:
1678 1679 1680 1681
  {
    mysql_stmt_fetch(thd, packet, packet_length);
    break;
  }
1682
  case COM_STMT_SEND_LONG_DATA:
1683
  {
1684
    mysql_stmt_get_longdata(thd, packet, packet_length);
1685 1686
    break;
  }
1687
  case COM_STMT_PREPARE:
1688
  {
1689
    mysql_stmt_prepare(thd, packet, packet_length);
1690 1691
    break;
  }
1692
  case COM_STMT_CLOSE:
1693
  {
1694
    mysql_stmt_close(thd, packet);
1695 1696
    break;
  }
1697
  case COM_STMT_RESET:
1698 1699 1700 1701
  {
    mysql_stmt_reset(thd, packet);
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1702 1703
  case COM_QUERY:
  {
1704 1705
    if (alloc_query(thd, packet, packet_length))
      break;					// fatal error is set
1706
    char *packet_end= thd->query + thd->query_length;
1707
    mysql_log.write(thd,command,"%s",thd->query);
1708
    DBUG_PRINT("query",("%-.4096s",thd->query));
1709 1710 1711 1712

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

1713
    mysql_parse(thd,thd->query, thd->query_length);
1714

1715
    while (!thd->killed && thd->lex->found_semicolon && !thd->net.report_error)
1716
    {
1717
      char *packet= thd->lex->found_semicolon;
1718
      net->no_send_error= 0;
1719
      /*
1720
        Multiple queries exits, execute them individually
1721
	in embedded server - just store them to be executed later 
1722
      */
1723
#ifndef EMBEDDED_LIBRARY
1724 1725
      if (thd->lock || thd->open_tables || thd->derived_tables ||
          thd->prelocked_mode)
1726
        close_thread_tables(thd);
1727
#endif
1728
      ulong length= (ulong)(packet_end-packet);
1729

1730
      log_slow_statement(thd);
1731

1732
      /* Remove garbage at start of query */
1733
      while (my_isspace(thd->charset(), *packet) && length > 0)
1734 1735 1736 1737
      {
        packet++;
        length--;
      }
monty@mysql.com's avatar
monty@mysql.com committed
1738
      VOID(pthread_mutex_lock(&LOCK_thread_count));
1739
      thd->query_length= length;
1740
      thd->query= packet;
1741
      thd->query_id= next_query_id();
1742
      thd->set_time(); /* Reset the query start time. */
1743
      /* TODO: set thd->lex->sql_command to SQLCOM_END here */
1744
      VOID(pthread_mutex_unlock(&LOCK_thread_count));
1745
#ifndef EMBEDDED_LIBRARY
1746
      mysql_parse(thd, packet, length);
1747
#else
hf@deer.(none)'s avatar
hf@deer.(none) committed
1748 1749 1750 1751 1752 1753 1754 1755 1756 1757
      /*
	'packet' can point inside the query_rest's buffer
	so we have to do memmove here
       */
      if (thd->query_rest.length() > length)
      {
	memmove(thd->query_rest.c_ptr(), packet, length);
	thd->query_rest.length(length);
      }
      else
1758
	thd->query_rest.copy(packet, length, thd->query_rest.charset());
1759 1760 1761

      thd->server_status&= ~ (SERVER_QUERY_NO_INDEX_USED |
                              SERVER_QUERY_NO_GOOD_INDEX_USED);
1762 1763
      break;
#endif /*EMBEDDED_LIBRARY*/
1764 1765
    }

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1766 1767 1768 1769 1770
    if (!(specialflag & SPECIAL_NO_PRIOR))
      my_pthread_setprio(pthread_self(),WAIT_PRIOR);
    DBUG_PRINT("info",("query ready"));
    break;
  }
1771
  case COM_FIELD_LIST:				// This isn't actually needed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1772
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1773 1774
    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
1775 1776 1777
    break;
#else
  {
1778
    char *fields, *pend;
1779 1780
    /* Locked closure of all tables */
    TABLE_LIST *locked_tables= NULL;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1781
    TABLE_LIST table_list;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1782
    LEX_STRING conv_name;
1783
    /* Saved variable value */
1784 1785
    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
1786 1787
    /* used as fields initializator */
    lex_start(thd, 0, 0);
1788

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

1790 1791
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_FIELDS],
			&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1792 1793 1794
    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
1795
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1796 1797
      break;
    }
1798
    pend= strend(packet);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1799 1800
    thd->convert_string(&conv_name, system_charset_info,
			packet, (uint) (pend-packet), thd->charset());
1801
    table_list.alias= table_list.table_name= conv_name.str;
1802
    packet= pend+1;
1803 1804 1805 1806 1807 1808 1809 1810 1811

    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;
    }

1812
    thd->query_length= strlen(packet);       // for simplicity: don't optimize
1813 1814
    if (!(thd->query=fields=thd->memdup(packet,thd->query_length+1)))
      break;
1815
    mysql_log.write(thd,command,"%s %s",table_list.table_name, fields);
1816
    if (lower_case_table_names)
1817 1818
      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
1819

monty@mysql.com's avatar
monty@mysql.com committed
1820
    if (check_access(thd,SELECT_ACL,table_list.db,&table_list.grant.privilege,
1821
		     0, 0, test(table_list.schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1822
      break;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1823 1824
    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
1825
      break;
1826 1827 1828 1829 1830 1831
    /* 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
1832
    thd->lex->add_to_query_tables(&table_list);
1833

1834 1835
    /* 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
1836
    mysqld_list_fields(thd,&table_list,fields);
1837
    thd->lex->unit.cleanup();
1838
    thd->cleanup_after_query();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1839 1840 1841 1842
    break;
  }
#endif
  case COM_QUIT:
1843
    /* We don't calculate statistics for this command */
1844
    mysql_log.write(thd,command,NullS);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1845 1846 1847 1848
    net->error=0;				// Don't give 'abort' message
    error=TRUE;					// End server
    break;

1849
  case COM_CREATE_DB:				// QQ: To be removed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1850
    {
1851
      char *db=thd->strdup(packet), *alias;
1852
      HA_CREATE_INFO create_info;
1853

1854 1855
      statistic_increment(thd->status_var.com_stat[SQLCOM_CREATE_DB],
			  &LOCK_status);
1856
      // null test to handle EOM
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
1857
      if (!db || !(alias= thd->strdup(db)) || check_db_name(db))
1858
      {
1859
	my_error(ER_WRONG_DB_NAME, MYF(0), db ? db : "NULL");
1860 1861
	break;
      }
1862
      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
1863
	break;
1864
      mysql_log.write(thd,command,packet);
1865
      bzero(&create_info, sizeof(create_info));
1866 1867
      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
1868 1869
      break;
    }
1870
  case COM_DROP_DB:				// QQ: To be removed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1871
    {
1872 1873
      statistic_increment(thd->status_var.com_stat[SQLCOM_DROP_DB],
			  &LOCK_status);
1874
      char *db=thd->strdup(packet);
monty@mysql.com's avatar
monty@mysql.com committed
1875
      /*  null test to handle EOM */
1876
      if (!db || check_db_name(db))
1877
      {
1878
	my_error(ER_WRONG_DB_NAME, MYF(0), db ? db : "NULL");
1879 1880
	break;
      }
1881
      if (check_access(thd,DROP_ACL,db,0,1,0,is_schema_db(db)))
1882
	break;
1883 1884
      if (thd->locked_tables || thd->active_transaction())
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1885 1886
	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
1887
	break;
1888
      }
1889
      mysql_log.write(thd,command,db);
1890
      mysql_rm_db(thd, db, 0, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1891 1892
      break;
    }
1893
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1894 1895
  case COM_BINLOG_DUMP:
    {
monty@mysql.com's avatar
monty@mysql.com committed
1896 1897 1898 1899
      ulong pos;
      ushort flags;
      uint32 slave_server_id;

1900
      statistic_increment(thd->status_var.com_other,&LOCK_status);
1901
      thd->enable_slow_log= opt_log_slow_admin_statements;
1902
      if (check_global_access(thd, REPL_SLAVE_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1903
	break;
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1904

1905
      /* TODO: The following has to be changed to an 8 byte integer */
1906 1907
      pos = uint4korr(packet);
      flags = uint2korr(packet + 4);
1908
      thd->server_id=0; /* avoid suicide */
1909
      if ((slave_server_id= uint4korr(packet+6))) // mysqlbinlog.server_id==0
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
1910
	kill_zombie_dump_threads(slave_server_id);
1911
      thd->server_id = slave_server_id;
monty@mysql.com's avatar
monty@mysql.com committed
1912 1913 1914

      mysql_log.write(thd, command, "Log: '%s'  Pos: %ld", packet+10,
                      (long) pos);
1915
      mysql_binlog_send(thd, thd->strdup(packet + 10), (my_off_t) pos, flags);
1916
      unregister_slave(thd,1,1);
monty@mysql.com's avatar
monty@mysql.com committed
1917
      /*  fake COM_QUIT -- if we get here, the thread needs to terminate */
1918 1919
      error = TRUE;
      net->error = 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1920 1921
      break;
    }
1922
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1923
  case COM_REFRESH:
1924 1925 1926 1927 1928 1929
  {
    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
1930
      break;
1931 1932 1933 1934 1935
    mysql_log.write(thd,command,NullS);
    if (!reload_acl_and_cache(thd, options, (TABLE_LIST*) 0, &not_used))
      send_ok(thd);
    break;
  }
1936
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1937
  case COM_SHUTDOWN:
1938
  {
1939
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1940
    if (check_global_access(thd,SHUTDOWN_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1941
      break; /* purecov: inspected */
1942
    /*
1943 1944 1945 1946
      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].
1947
    */
1948 1949
    enum mysql_enum_shutdown_level level=
      (enum mysql_enum_shutdown_level) (uchar) packet[0];
1950
    DBUG_PRINT("quit",("Got shutdown command for level %u", level));
1951 1952 1953 1954 1955 1956 1957
    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;
    }
1958
    DBUG_PRINT("quit",("Got shutdown command for level %u", level));
1959
    mysql_log.write(thd,command,NullS);
1960
    send_eof(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1961 1962 1963
#ifdef __WIN__
    sleep(1);					// must wait after eof()
#endif
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1964
#ifndef OS2
1965
    send_eof(thd);				// This is for 'quit request'
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1966
#endif
1967
    close_connection(thd, 0, 1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1968 1969 1970 1971
    close_thread_tables(thd);			// Free before kill
    kill_mysql();
    error=TRUE;
    break;
1972
  }
1973
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1974 1975
  case COM_STATISTICS:
  {
1976
    mysql_log.write(thd,command,NullS);
1977 1978
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_STATUS],
			&LOCK_status);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1979
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1980
    char buff[200];
hf@deer.(none)'s avatar
hf@deer.(none) committed
1981 1982 1983
#else
    char *buff= thd->net.last_error;
#endif
1984
    ulong uptime = (ulong) (thd->start_time - start_time);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1985
    sprintf((char*) buff,
1986
	    "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
1987
	    uptime,
1988 1989 1990
	    (int) thread_count, (ulong) thd->query_id,
            (ulong) thd->status_var.long_query_count,
	    thd->status_var.opened_tables, refresh_version, cached_tables(),
1991 1992
	    (uptime ? (ulonglong2double(thd->query_id) / (double) uptime) :
	     (double) 0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1993
#ifdef SAFEMALLOC
1994
    if (sf_malloc_cur_memory)				// Using SAFEMALLOC
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1995
      sprintf(strend(buff), "  Memory in use: %ldK  Max memory used: %ldK",
1996 1997
	      (sf_malloc_cur_memory+1023L)/1024L,
	      (sf_malloc_max_memory+1023L)/1024L);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1998 1999
#endif
#ifndef EMBEDDED_LIBRARY
2000
    VOID(my_net_write(net, buff,(uint) strlen(buff)));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2001
    VOID(net_flush(net));
hf@deer.(none)'s avatar
hf@deer.(none) committed
2002
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2003 2004 2005
    break;
  }
  case COM_PING:
2006
    statistic_increment(thd->status_var.com_other, &LOCK_status);
2007
    send_ok(thd);				// Tell client we are alive
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2008 2009
    break;
  case COM_PROCESS_INFO:
2010 2011
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_PROCESSLIST],
			&LOCK_status);
2012 2013
    if (!thd->security_ctx->priv_user[0] &&
        check_global_access(thd, PROCESS_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2014
      break;
2015
    mysql_log.write(thd,command,NullS);
hf@deer.(none)'s avatar
hf@deer.(none) committed
2016
    mysqld_list_processes(thd,
2017 2018
			  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
2019 2020 2021
    break;
  case COM_PROCESS_KILL:
  {
2022
    statistic_increment(thd->status_var.com_stat[SQLCOM_KILL], &LOCK_status);
2023
    ulong id=(ulong) uint4korr(packet);
hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
2024
    kill_one_thread(thd,id,false);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2025 2026
    break;
  }
2027 2028
  case COM_SET_OPTION:
  {
2029 2030
    statistic_increment(thd->status_var.com_stat[SQLCOM_SET_OPTION],
			&LOCK_status);
2031 2032 2033 2034
    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;
2035
      send_eof(thd);
2036 2037 2038
      break;
    case MYSQL_OPTION_MULTI_STATEMENTS_OFF:
      thd->client_capabilities&= ~CLIENT_MULTI_STATEMENTS;
2039
      send_eof(thd);
2040 2041
      break;
    default:
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2042
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
2043 2044 2045 2046
      break;
    }
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2047
  case COM_DEBUG:
2048
    statistic_increment(thd->status_var.com_other, &LOCK_status);
2049
    if (check_global_access(thd, SUPER_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2050
      break;					/* purecov: inspected */
2051
    mysql_print_status();
2052
    mysql_log.write(thd,command,NullS);
2053
    send_eof(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2054 2055 2056 2057 2058
    break;
  case COM_SLEEP:
  case COM_CONNECT:				// Impossible here
  case COM_TIME:				// Impossible from client
  case COM_DELAYED_INSERT:
2059
  case COM_END:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2060
  default:
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2061
    my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2062 2063
    break;
  }
2064 2065
  if (thd->lock || thd->open_tables || thd->derived_tables ||
      thd->prelocked_mode)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2066 2067 2068 2069
  {
    thd->proc_info="closing tables";
    close_thread_tables(thd);			/* Free tables */
  }
2070 2071 2072 2073 2074 2075 2076 2077 2078 2079
  /*
    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())
2080
    thd->transaction.xid_state.xid.null();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2081

2082 2083 2084
  /* 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
2085
  if (thd->net.report_error)
2086
    net_send_error(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2087

2088
  log_slow_statement(thd);
2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103

  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);
}


2104
void log_slow_statement(THD *thd)
2105
{
2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116
  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;
2117
  thd->end_time();				// Set start time
2118

2119 2120 2121 2122 2123
  /*
    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
2124
  {
2125 2126
    thd->proc_info="logging slow query";

2127 2128
    if ((ulong) (thd->start_time - thd->time_after_lock) >
	thd->variables.long_query_time ||
2129 2130
	((thd->server_status &
	  (SERVER_QUERY_NO_INDEX_USED | SERVER_QUERY_NO_GOOD_INDEX_USED)) &&
2131
	 (specialflag & SPECIAL_LOG_QUERIES_NOT_USING_INDEXES)))
2132
    {
2133
      thd->status_var.long_query_count++;
2134 2135
      mysql_slow_log.write(thd, thd->query, thd->query_length, start_of_query);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2136 2137 2138
  }
}

2139

2140 2141 2142 2143 2144
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;
2145
  switch (schema_table_idx) {
2146 2147
  case SCH_SCHEMATA:
#if defined(DONT_ALLOW_SHOW_COMMANDS)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2148 2149
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0));   /* purecov: inspected */
2150 2151 2152 2153 2154 2155 2156 2157 2158 2159
    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:
2160
  case SCH_TRIGGERS:
2161
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2162 2163
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0)); /* purecov: inspected */
2164 2165 2166 2167 2168 2169
    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
2170 2171
	my_message(ER_NO_DB_ERROR,
                   ER(ER_NO_DB_ERROR), MYF(0)); /* purecov: inspected */
2172 2173 2174 2175 2176
        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
2177
        my_error(ER_WRONG_DB_NAME, MYF(0), db);
2178 2179
        DBUG_RETURN(1);
      }
2180 2181
      if (check_access(thd, SELECT_ACL, db, &thd->col_access, 0, 0,
                       is_schema_db(db)))
2182 2183 2184
        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
2185
	my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
2186 2187
                 thd->security_ctx->priv_user, thd->security_ctx->priv_host,
                 db);
2188 2189
	DBUG_RETURN(1);
      }
2190 2191 2192 2193 2194
      /*
        We need to do a copy to make this prepared statement safe if this
        was thd->db
      */
      lex->select_lex.db= thd->strdup(db);
2195 2196 2197 2198 2199 2200
      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
2201 2202
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0)); /* purecov: inspected */
2203 2204 2205 2206 2207 2208
    DBUG_RETURN(1);
#else
    if (table_ident)
    {
      TABLE_LIST **query_tables_last= lex->query_tables_last;
      sel= new SELECT_LEX();
2209 2210
      /* 'parent_lex' is used in init_query() so it must be before it. */
      sel->parent_lex= lex;
2211
      sel->init_query();
monty@mishka.local's avatar
monty@mishka.local committed
2212
      if (!sel->add_table_to_list(thd, table_ident, 0, 0, TL_READ, 
2213 2214 2215 2216 2217 2218
                                 (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 '_'
2219
      remove_escape(table_list->table_name);
2220
      if (check_access(thd,SELECT_ACL | EXTRA_ACL,db,
2221 2222
                       &table_list->grant.privilege, 0, 0,
                       test(table_list->schema_table)))
2223 2224 2225 2226 2227 2228 2229
        DBUG_RETURN(1);				/* purecov: inspected */
      if (grant_option && check_grant(thd, SELECT_ACL, table_list, 2,
                                      UINT_MAX, 0))
        DBUG_RETURN(1);
      break;
    }
#endif
2230 2231 2232
  case SCH_OPEN_TABLES:
  case SCH_VARIABLES:
  case SCH_STATUS:
2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253
  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;
2254
  table_list->schema_table_reformed= 1;
2255 2256
  statistic_increment(thd->status_var.com_stat[lex->orig_sql_command],
                      &LOCK_status);
2257 2258 2259 2260
  DBUG_RETURN(0);
}


2261 2262
/*
  Read query from packet and store in thd->query
2263
  Used in COM_QUERY and COM_STMT_PREPARE
2264 2265 2266 2267 2268 2269 2270

  DESCRIPTION
    Sets the following THD variables:
      query
      query_length

  RETURN VALUES
2271 2272
    FALSE ok
    TRUE  error;  In this case thd->fatal_error is set
2273 2274
*/

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

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

2305
  return FALSE;
2306 2307
}

2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323
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;
}

2324

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2325 2326 2327 2328 2329
/****************************************************************************
** mysql_execute_command
** Execute command saved in thd and current_lex->sql_command
****************************************************************************/

2330
bool
2331
mysql_execute_command(THD *thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2332
{
2333
  bool	res= FALSE;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2334
  int result= 0;
2335
  LEX	*lex= thd->lex;
monty@mysql.com's avatar
monty@mysql.com committed
2336
  /* first SELECT_LEX (have special meaning for many of non-SELECTcommands) */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2337
  SELECT_LEX *select_lex= &lex->select_lex;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2338
  /* first table of first SELECT_LEX */
monty@mysql.com's avatar
monty@mysql.com committed
2339
  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
2340 2341 2342
  /* list of all tables in query */
  TABLE_LIST *all_tables;
  /* most outer SELECT_LEX_UNIT of query */
2343
  SELECT_LEX_UNIT *unit= &lex->unit;
2344
  /* Saved variable value */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2345
  DBUG_ENTER("mysql_execute_command");
2346
  thd->net.no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2347

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363
  /*
    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();
2364
  /* should be assigned after making first tables same */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2365
  all_tables= lex->query_tables;
2366 2367 2368 2369
  /* 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
2370

2371 2372 2373 2374 2375
  /*
    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.
2376
    Don't reset warnings when executing a stored routine.
2377
  */
2378
  if ((all_tables || &lex->select_lex != lex->all_selects_list ||
2379
       lex->sroutines.records) && !thd->spcont ||
2380
      lex->time_zone_tables_used)
monty@mysql.com's avatar
monty@mysql.com committed
2381
    mysql_reset_errors(thd, 0);
2382

hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
2383
#ifdef HAVE_REPLICATION
2384
  if (unlikely(thd->slave_thread))
2385
  {
peter@mysql.com's avatar
peter@mysql.com committed
2386
    /*
2387 2388
      Check if statment should be skipped because of slave filtering
      rules
2389 2390

      Exceptions are:
2391 2392
      - UPDATE MULTI: For this statement, we want to check the filtering
        rules later in the code
2393
      - SET: we always execute it (Not that many SET commands exists in
lars@mysql.com's avatar
lars@mysql.com committed
2394 2395
        the binary log anyway -- only 4.1 masters write SET statements,
	in 5.0 there are no SET statements in the binary log)
2396 2397
      - 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
2398
    */
2399 2400
    if (!(lex->sql_command == SQLCOM_UPDATE_MULTI) &&
	!(lex->sql_command == SQLCOM_SET_OPTION) &&
2401
	!(lex->sql_command == SQLCOM_DROP_TABLE &&
2402
          lex->drop_temporary && lex->drop_if_exists) &&
guilhem@mysql.com's avatar
Merge  
guilhem@mysql.com committed
2403
        all_tables_not_ok(thd, all_tables))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
2404 2405
    {
      /* we warn the slave SQL thread */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2406
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
2407
      reset_one_shot_variables(thd);
2408
      DBUG_RETURN(0);
guilhem@mysql.com's avatar
guilhem@mysql.com committed
2409
    }
2410
  }
2411
  else
2412
#endif /* HAVE_REPLICATION */
2413

2414
  /*
2415 2416
    When option readonly is set deny operations which change non-temporary
    tables. Except for the replication thread and the 'super' users.
2417 2418
  */
  if (opt_readonly &&
2419 2420 2421 2422 2423 2424
      !(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)))
2425
  {
2426
    my_error(ER_OPTION_PREVENTS_STATEMENT, MYF(0), "--read-only");
2427
    DBUG_RETURN(-1);
2428
  }
2429 2430 2431
  if(lex->orig_sql_command == SQLCOM_END)
    statistic_increment(thd->status_var.com_stat[lex->sql_command],
                        &LOCK_status);
2432

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2433 2434 2435
  switch (lex->sql_command) {
  case SQLCOM_SELECT:
  {
2436 2437 2438 2439
    /* assign global limit variable if limit is not given */
    {
      SELECT_LEX *param= lex->unit.global_parameters;
      if (!param->explicit_limit)
2440 2441
	param->select_limit=
          new Item_int((ulonglong)thd->variables.select_limit);
2442 2443
    }

2444
    select_result *result=lex->result;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2445
    if (all_tables)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2446
    {
2447 2448 2449 2450 2451 2452
      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
2453 2454
    }
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2455 2456
      res= check_access(thd,
			lex->exchange ? SELECT_ACL | FILE_ACL : SELECT_ACL,
2457
			any_db, 0, 0, 0, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2458
    if (res)
2459
      goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2460

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2461
    if (!(res= open_and_lock_tables(thd, all_tables)))
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2462
    {
2463
      if (lex->describe)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2464
      {
2465 2466 2467 2468 2469 2470
        /*
          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.
        */
2471
	if (!(result= new select_send()))
2472
	  goto error;
2473 2474
	else
	  thd->send_explain_fields(result);
2475
	res= mysql_explain_union(thd, &thd->lex->unit, result);
2476 2477 2478 2479 2480
	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
2481
	  thd->lex->unit.print(&str);
2482 2483 2484 2485
	  str.append('\0');
	  push_warning(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
		       ER_YES, str.ptr());
	}
2486
	result->send_eof();
2487
        delete result;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2488 2489 2490
      }
      else
      {
2491
	if (!result && !(result= new select_send()))
2492
          goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2493
	query_cache_store_query(thd, all_tables);
2494
	res= handle_select(thd, lex, result, 0);
2495 2496
        if (result != lex->result)
          delete result;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2497
      }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2498
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2499 2500
    break;
  }
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2501
  case SQLCOM_PREPARE:
2502
  {
2503
    mysql_sql_stmt_prepare(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2504 2505 2506 2507
    break;
  }
  case SQLCOM_EXECUTE:
  {
2508
    mysql_sql_stmt_execute(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2509 2510 2511 2512
    break;
  }
  case SQLCOM_DEALLOCATE_PREPARE:
  {
2513
    mysql_sql_stmt_close(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2514 2515
    break;
  }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2516
  case SQLCOM_DO:
2517 2518
    if (check_table_access(thd, SELECT_ACL, all_tables, 0) ||
        open_and_lock_tables(thd, all_tables))
2519
      goto error;
2520 2521

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

2524
  case SQLCOM_EMPTY_QUERY:
2525
    send_ok(thd);
2526 2527
    break;

2528 2529 2530 2531
  case SQLCOM_HELP:
    res= mysqld_help(thd,lex->help_arg);
    break;

2532
#ifndef EMBEDDED_LIBRARY
2533
  case SQLCOM_PURGE:
2534
  {
2535
    if (check_global_access(thd, SUPER_ACL))
2536
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
2537
    /* PURGE MASTER LOGS TO 'file' */
2538 2539 2540
    res = purge_master_logs(thd, lex->to_log);
    break;
  }
2541 2542
  case SQLCOM_PURGE_BEFORE:
  {
2543 2544
    Item *it;

2545 2546
    if (check_global_access(thd, SUPER_ACL))
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
2547
    /* PURGE MASTER LOGS BEFORE 'data' */
2548
    it= (Item *)lex->value_list.head();
2549
    if ((!it->fixed && it->fix_fields(lex->thd, &it)) ||
2550
        it->check_cols(1))
2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561
    {
      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());
2562 2563
    break;
  }
2564
#endif
2565 2566
  case SQLCOM_SHOW_WARNS:
  {
2567 2568
    res= mysqld_show_warnings(thd, (ulong)
			      ((1L << (uint) MYSQL_ERROR::WARN_LEVEL_NOTE) |
2569 2570 2571
			       (1L << (uint) MYSQL_ERROR::WARN_LEVEL_WARN) |
			       (1L << (uint) MYSQL_ERROR::WARN_LEVEL_ERROR)
			       ));
2572 2573 2574 2575
    break;
  }
  case SQLCOM_SHOW_ERRORS:
  {
2576 2577
    res= mysqld_show_warnings(thd, (ulong)
			      (1L << (uint) MYSQL_ERROR::WARN_LEVEL_ERROR));
2578 2579
    break;
  }
2580 2581
  case SQLCOM_SHOW_NEW_MASTER:
  {
2582
    if (check_global_access(thd, REPL_SLAVE_ACL))
2583
      goto error;
2584
    /* This query don't work now. See comment in repl_failsafe.cc */
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
2585
#ifndef WORKING_NEW_MASTER
2586 2587
    my_error(ER_NOT_SUPPORTED_YET, MYF(0), "SHOW NEW MASTER");
    goto error;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
2588
#else
2589 2590
    res = show_new_master(thd);
    break;
2591
#endif
2592
  }
2593

2594
#ifdef HAVE_REPLICATION
2595 2596
  case SQLCOM_SHOW_SLAVE_HOSTS:
  {
2597
    if (check_global_access(thd, REPL_SLAVE_ACL))
2598 2599 2600 2601
      goto error;
    res = show_slave_hosts(thd);
    break;
  }
2602 2603
  case SQLCOM_SHOW_BINLOG_EVENTS:
  {
2604
    if (check_global_access(thd, REPL_SLAVE_ACL))
2605
      goto error;
2606
    res = mysql_show_binlog_events(thd);
2607 2608
    break;
  }
2609 2610
#endif

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

2688
  case SQLCOM_LOAD_MASTER_DATA: // sync with master
2689
    if (check_global_access(thd, SUPER_ACL))
2690
      goto error;
2691
    if (end_active_trans(thd))
2692
      goto error;
2693 2694
    else
      res = load_master_data(thd);
2695
    break;
2696
#endif /* HAVE_REPLICATION */
2697 2698 2699 2700 2701 2702 2703
#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
2704 2705 2706
#ifdef HAVE_INNOBASE_DB
  case SQLCOM_SHOW_INNODB_STATUS:
    {
2707
      if (check_global_access(thd, SUPER_ACL))
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2708 2709 2710 2711
	goto error;
      res = innodb_show_status(thd);
      break;
    }
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2712 2713 2714
  case SQLCOM_SHOW_MUTEX_STATUS:
    {
      if (check_global_access(thd, SUPER_ACL))
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2715
        goto error;
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2716 2717 2718
      res = innodb_mutex_show_status(thd);
      break;
    }
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2719
#endif
2720
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2721
  case SQLCOM_LOAD_MASTER_TABLE:
2722
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2723 2724 2725 2726
    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,
2727 2728
		     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2729 2730 2731 2732
      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
2733
      if (check_grant(thd, CREATE_ACL, all_tables, 0, 1, 0))
2734
	goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2735
    }
2736
    if (strlen(first_table->table_name) > NAME_LEN)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2737
    {
2738
      my_error(ER_WRONG_TABLE_NAME, MYF(0), first_table->table_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2739 2740
      break;
    }
2741
    pthread_mutex_lock(&LOCK_active_mi);
2742 2743 2744 2745
    /*
      fetch_master_table will send the error to the client on failure.
      Give error if the table already exists.
    */
2746
    if (!fetch_master_table(thd, first_table->db, first_table->table_name,
2747
			    active_mi, 0, 0))
2748
    {
2749
      send_ok(thd);
2750
    }
2751
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2752
    break;
2753
  }
2754
#endif /* HAVE_REPLICATION */
2755

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2756
  case SQLCOM_CREATE_TABLE:
2757
  {
2758
    /* If CREATE TABLE of non-temporary table, do implicit commit */
2759 2760 2761 2762 2763 2764 2765 2766 2767 2768
    if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE))
    {
      if (end_active_trans(thd))
      {
	res= -1;
	break;
      }
    }
    else 
    {
2769 2770
      /* So that CREATE TEMPORARY TABLE gets to binlog at commit/rollback */
      thd->options|= OPTION_STATUS_NO_TRANS_UPDATE;
2771
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2772 2773 2774 2775 2776
    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
2777

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

2781 2782 2783
#ifndef HAVE_READLINK
    lex->create_info.data_file_name=lex->create_info.index_file_name=0;
#else
2784
    /* Fix names if symlinked tables */
2785
    if (append_file_to_dir(thd, &lex->create_info.data_file_name,
2786
			   create_table->table_name) ||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2787
	append_file_to_dir(thd, &lex->create_info.index_file_name,
2788
			   create_table->table_name))
monty@mysql.com's avatar
monty@mysql.com committed
2789
      goto end_with_restore_list;
2790
#endif
2791
    /*
2792
      If we are using SET CHARSET without DEFAULT, add an implicit
2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803
      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;
    }
2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817 2818
    /*
      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
2819 2820
      res= 1;
      goto end_with_restore_list;
2821
    }
2822
    if (select_lex->item_list.elements)		// With select
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2823 2824
    {
      select_result *result;
2825

2826
      select_lex->options|= SELECT_NO_UNLOCK;
2827
      unit->set_limit(select_lex);
2828

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2829
      if (!(res= open_and_lock_tables(thd, select_tables)))
2830
      {
2831 2832 2833 2834
        /*
          Is table which we are changing used somewhere in other parts
          of query
        */
2835
        if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE))
2836
        {
2837 2838 2839 2840 2841 2842 2843
          TABLE_LIST *duplicate;
          if ((duplicate= unique_table(create_table, select_tables)))
          {
            update_non_unique_table_error(create_table, "CREATE", duplicate);
            res= 1;
            goto end_with_restart_wait;
          }
2844
        }
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2845 2846 2847 2848 2849 2850 2851 2852
        /* 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)
          {
2853 2854
            TABLE_LIST *duplicate;
            if ((duplicate= unique_table(tab, select_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2855
            {
2856
              update_non_unique_table_error(tab, "CREATE", duplicate);
monty@mysql.com's avatar
monty@mysql.com committed
2857 2858
              res= 1;
              goto end_with_restart_wait;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2859 2860 2861
            }
          }
        }
2862

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2863 2864 2865 2866 2867
        if ((result= new select_create(create_table,
				       &lex->create_info,
				       lex->create_list,
				       lex->key_list,
				       select_lex->item_list,
2868 2869
				       lex->duplicates,
				       lex->ignore)))
2870 2871 2872 2873 2874
        {
          /*
            CREATE from SELECT give its SELECT_LEX for SELECT,
            and item_list belong to SELECT
          */
2875
          res= handle_select(thd, lex, result, 0);
2876
          delete result;
2877
        }
monty@mysql.com's avatar
monty@mysql.com committed
2878
	/* reset for PS */
2879 2880
	lex->create_list.empty();
	lex->key_list.empty();
2881 2882
      }
    }
monty@mysql.com's avatar
monty@mysql.com committed
2883
    else
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2884
    {
monty@mysql.com's avatar
monty@mysql.com committed
2885
      /* regular create */
venu@myvenu.com's avatar
venu@myvenu.com committed
2886
      if (lex->name)
monty@mysql.com's avatar
monty@mysql.com committed
2887
        res= mysql_create_like_table(thd, create_table, &lex->create_info, 
venu@myvenu.com's avatar
venu@myvenu.com committed
2888 2889
                                     (Table_ident *)lex->name); 
      else
2890
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2891
        res= mysql_create_table(thd, create_table->db,
2892
				create_table->table_name, &lex->create_info,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2893
				lex->create_list,
monty@mysql.com's avatar
monty@mysql.com committed
2894
				lex->key_list, 0, 0);
2895
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2896
      if (!res)
2897
	send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2898
    }
2899

monty@mysql.com's avatar
monty@mysql.com committed
2900
end_with_restart_wait:
2901 2902 2903 2904 2905 2906
    /*
      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
2907
    /* put tables back for PS rexecuting */
monty@mysql.com's avatar
monty@mysql.com committed
2908
end_with_restore_list:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2909
    lex->link_first_table_back(create_table, link_to_local);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2910
    break;
2911
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2912
  case SQLCOM_CREATE_INDEX:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2913 2914
    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
2915
      goto error; /* purecov: inspected */
2916
    thd->enable_slow_log= opt_log_slow_admin_statements;
2917
    if (end_active_trans(thd))
2918
      goto error;
2919
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2920
      res = mysql_create_index(thd, first_table, lex->key_list);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2921 2922
    break;

2923
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2924
  case SQLCOM_SLAVE_START:
2925
  {
2926
    pthread_mutex_lock(&LOCK_active_mi);
2927
    start_slave(thd,active_mi,1 /* net report*/);
2928
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2929
    break;
2930
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2931
  case SQLCOM_SLAVE_STOP:
2932 2933 2934 2935 2936 2937
  /*
    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,
2938
      so it waits for the client thread because t is locked by it.
2939
    - then the client thread does SLAVE STOP.
2940 2941
      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.
2942 2943 2944
    To prevent that, refuse SLAVE STOP if the
    client thread has locked tables
  */
2945
  if (thd->locked_tables || thd->active_transaction() || thd->global_read_lock)
2946
  {
2947 2948
    my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
               ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
2949
    goto error;
2950
  }
2951
  {
2952
    pthread_mutex_lock(&LOCK_active_mi);
2953
    stop_slave(thd,active_mi,1/* net report*/);
2954
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2955
    break;
2956
  }
2957
#endif /* HAVE_REPLICATION */
2958

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2959
  case SQLCOM_ALTER_TABLE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2960
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2961
#if defined(DONT_ALLOW_SHOW_COMMANDS)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2962 2963
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
2964
    goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2965 2966
#else
    {
2967
      ulong priv=0;
Sinisa@sinisa.nasamreza.org's avatar
Sinisa@sinisa.nasamreza.org committed
2968
      if (lex->name && (!lex->name[0] || strlen(lex->name) > NAME_LEN))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2969
      {
2970
	my_error(ER_WRONG_TABLE_NAME, MYF(0), lex->name);
2971
        goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2972
      }
2973
      if (!select_lex->db)
2974 2975 2976 2977 2978 2979 2980 2981 2982 2983
      {
        /*
          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
2984
            my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
2985 2986 2987 2988 2989
            goto error;
          }
          select_lex->db= thd->db;
        }
        else
2990
          select_lex->db= first_table->db;
2991
      }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2992
      if (check_access(thd, ALTER_ACL, first_table->db,
2993 2994 2995 2996
		       &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
2997
	  check_merge_table_access(thd, first_table->db,
2998 2999 3000
				   (TABLE_LIST *)
				   lex->create_info.merge_list.first))
	goto error;				/* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3001 3002
      if (grant_option)
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3003
	if (check_grant(thd, ALTER_ACL, all_tables, 0, UINT_MAX, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3004 3005 3006 3007 3008
	  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));
3009
	  tmp_table.table_name=lex->name;
3010
	  tmp_table.db=select_lex->db;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3011
	  tmp_table.grant.privilege=priv;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3012 3013
	  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
3014 3015 3016
	    goto error;
	}
      }
3017 3018
      /* 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
3019
      /* ALTER TABLE ends previous transaction */
3020
      if (end_active_trans(thd))
3021
	goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3022
      else
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3023
      {
3024
        thd->enable_slow_log= opt_log_slow_admin_statements;
3025
	res= mysql_alter_table(thd, select_lex->db, lex->name,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3026
			       &lex->create_info,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3027
			       first_table, lex->create_list,
3028
			       lex->key_list,
3029
			       select_lex->order_list.elements,
3030
                               (ORDER *) select_lex->order_list.first,
monty@mysql.com's avatar
monty@mysql.com committed
3031 3032
			       lex->duplicates, lex->ignore, &lex->alter_info,
                               1);
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3033
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3034 3035
      break;
    }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3036
#endif /*DONT_ALLOW_SHOW_COMMANDS*/
3037
  case SQLCOM_RENAME_TABLE:
3038
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3039
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3040
    TABLE_LIST *table;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3041
    if (check_db_used(thd, all_tables))
3042
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3043
    for (table= first_table; table; table= table->next_local->next_local)
3044
    {
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
3045
      if (check_access(thd, ALTER_ACL | DROP_ACL, table->db,
3046
		       &table->grant.privilege,0,0, test(table->schema_table)) ||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3047
	  check_access(thd, INSERT_ACL | CREATE_ACL, table->next_local->db,
3048 3049
		       &table->next_local->grant.privilege, 0, 0,
                       test(table->next_local->schema_table)))
3050 3051 3052
	goto error;
      if (grant_option)
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3053
	TABLE_LIST old_list, new_list;
3054 3055 3056 3057
	/*
	  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
3058 3059 3060 3061
	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,
3062
			    INSERT_ACL | CREATE_ACL) &&
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3063
	     check_grant(thd, INSERT_ACL | CREATE_ACL, &new_list, 0, 1, 0)))
3064 3065 3066
	  goto error;
      }
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3067
    query_cache_invalidate3(thd, first_table, 0);
3068 3069
    if (end_active_trans(thd) || mysql_rename_tables(thd, first_table))
      goto error;
3070
    break;
3071
  }
3072
#ifndef EMBEDDED_LIBRARY
3073 3074
  case SQLCOM_SHOW_BINLOGS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3075 3076
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3077
    goto error;
3078 3079
#else
    {
3080
      if (check_global_access(thd, SUPER_ACL))
3081 3082 3083 3084
	goto error;
      res = show_binlogs(thd);
      break;
    }
peter@mysql.com's avatar
peter@mysql.com committed
3085
#endif
3086
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3087
  case SQLCOM_SHOW_CREATE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3088
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3089
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3090 3091
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3092
    goto error;
3093
#else
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3094
    {
3095 3096 3097 3098
      /* 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
3099 3100
      if (check_db_used(thd, all_tables) ||
	  check_access(thd, SELECT_ACL | EXTRA_ACL, first_table->db,
3101 3102
		       &first_table->grant.privilege, 0, 0, 
                       test(first_table->schema_table)))
3103
	goto error;
monty@mishka.local's avatar
monty@mishka.local committed
3104
      if (grant_option && check_grant(thd, SELECT_ACL, all_tables, 2, UINT_MAX, 0))
3105
	goto error;
monty@mishka.local's avatar
monty@mishka.local committed
3106
      res= mysqld_show_create(thd, first_table);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3107 3108
      break;
    }
3109
#endif
3110 3111
  case SQLCOM_CHECKSUM:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3112 3113 3114
    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))
3115
      goto error; /* purecov: inspected */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3116
    res = mysql_checksum_table(thd, first_table, &lex->check_opt);
3117 3118
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3119
  case SQLCOM_REPAIR:
3120
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3121 3122 3123
    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))
3124
      goto error; /* purecov: inspected */
3125
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3126
    res= mysql_repair_table(thd, first_table, &lex->check_opt);
3127 3128 3129 3130 3131
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3132
	thd->clear_error(); // No binlog error generated
3133
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3134 3135 3136
        mysql_bin_log.write(&qinfo);
      }
    }
3137 3138
    (TABLE_LIST*) select_lex->table_list.first=first_table;
    lex->query_tables=all_tables;
3139 3140
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3141
  case SQLCOM_CHECK:
3142
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3143 3144 3145
    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))
3146
      goto error; /* purecov: inspected */
3147
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3148
    res = mysql_check_table(thd, first_table, &lex->check_opt);
3149 3150
    (TABLE_LIST*) select_lex->table_list.first=first_table;
    lex->query_tables=all_tables;
3151 3152
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3153 3154
  case SQLCOM_ANALYZE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3155 3156 3157
    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
3158
      goto error; /* purecov: inspected */
3159
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3160
    res = mysql_analyze_table(thd, first_table, &lex->check_opt);
3161 3162 3163 3164 3165
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3166
	thd->clear_error(); // No binlog error generated
3167
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3168 3169 3170
        mysql_bin_log.write(&qinfo);
      }
    }
3171 3172
    (TABLE_LIST*) select_lex->table_list.first=first_table;
    lex->query_tables=all_tables;
3173
    break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3174
  }
3175

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3176 3177
  case SQLCOM_OPTIMIZE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3178 3179 3180
    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
3181
      goto error; /* purecov: inspected */
3182
    thd->enable_slow_log= opt_log_slow_admin_statements;
3183
    res= (specialflag & (SPECIAL_SAFE_MODE | SPECIAL_NO_NEW_FUNC)) ?
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3184 3185
      mysql_recreate_table(thd, first_table, 1) :
      mysql_optimize_table(thd, first_table, &lex->check_opt);
3186 3187 3188 3189 3190
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3191
	thd->clear_error(); // No binlog error generated
3192
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3193 3194 3195
        mysql_bin_log.write(&qinfo);
      }
    }
3196 3197
    (TABLE_LIST*) select_lex->table_list.first=first_table;
    lex->query_tables=all_tables;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3198 3199 3200
    break;
  }
  case SQLCOM_UPDATE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3201 3202
    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
3203
      break;
3204 3205
    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
3206 3207 3208 3209 3210 3211
    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,
3212
                               unit->select_limit_cnt,
3213
                               lex->duplicates, lex->ignore));
3214
    /* 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
3215
    if (result != 2)
3216
      break;
3217
  case SQLCOM_UPDATE_MULTI:
3218 3219 3220 3221
  {
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    /* if we switched from normal update, rights are checked */
    if (result != 2)
3222
    {
3223 3224 3225 3226 3227
      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
3228

3229 3230
    if ((res= mysql_multi_update_prepare(thd)))
      break;
3231

3232
#ifdef HAVE_REPLICATION
3233
    /* Check slave filtering rules */
3234
    if (unlikely(thd->slave_thread))
3235
    {
3236 3237 3238 3239 3240 3241
      if (all_tables_not_ok(thd, all_tables))
      {
        /* we warn the slave SQL thread */
        my_error(ER_SLAVE_IGNORED_TABLE, MYF(0));
        break;
      }
3242
    }
3243
    else
3244
#endif /* HAVE_REPLICATION */
3245 3246 3247 3248 3249 3250 3251
    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;
    }
3252

3253 3254 3255 3256 3257 3258
    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
3259
    break;
monty@mysql.com's avatar
monty@mysql.com committed
3260
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3261
  case SQLCOM_REPLACE:
3262 3263
  case SQLCOM_INSERT:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3264
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
monty@mysql.com's avatar
monty@mysql.com committed
3265
    if ((res= insert_precheck(thd, all_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3266
      break;
3267 3268
    /* 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
3269
    res= mysql_insert(thd, all_tables, lex->field_list, lex->many_values,
monty@mishka.local's avatar
monty@mishka.local committed
3270
		      lex->update_list, lex->value_list,
3271
                      lex->duplicates, lex->ignore);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3272 3273
    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
3274
    break;
3275
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3276 3277 3278
  case SQLCOM_REPLACE_SELECT:
  case SQLCOM_INSERT_SELECT:
  {
monty@mysql.com's avatar
monty@mysql.com committed
3279
    select_result *result;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3280
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
monty@mishka.local's avatar
monty@mishka.local committed
3281
    if ((res= insert_precheck(thd, all_tables)))
3282
      break;
monty@mysql.com's avatar
monty@mysql.com committed
3283

3284
    /* Fix lock for first table */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3285 3286
    if (first_table->lock_type == TL_WRITE_DELAYED)
      first_table->lock_type= TL_WRITE;
3287

3288 3289
    /* 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
3290

3291
    unit->set_limit(select_lex);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3292
    if (!(res= open_and_lock_tables(thd, all_tables)))
3293
    {
3294
      /* Skip first table, which is the table we are inserting in */
3295 3296
      TABLE_LIST *second_table= first_table->next_local;
      select_lex->table_list.first= (byte*) second_table;
3297 3298
      select_lex->context.table_list= 
        select_lex->context.first_name_resolution_table= second_table;
3299 3300 3301
      res= mysql_insert_select_prepare(thd);
      if (!res && (result= new select_insert(first_table, first_table->table,
                                             &lex->field_list,
3302 3303
                                             &lex->update_list,
                                             &lex->value_list,
3304
                                             lex->duplicates, lex->ignore)))
3305
      {
3306 3307 3308 3309 3310 3311 3312
        /*
          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.
        */
3313 3314
        select_lex->context.table_list= 
          select_lex->context.first_name_resolution_table= second_table;
3315
	res= handle_select(thd, lex, result, OPTION_SETUP_TABLES_DONE);
3316 3317
        delete result;
      }
3318
      /* revert changes for SP */
msvensson@neptunus.(none)'s avatar
msvensson@neptunus.(none) committed
3319
      select_lex->table_list.first= (byte*) first_table;
3320
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3321 3322 3323

    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
3324 3325
    break;
  }
3326
  case SQLCOM_TRUNCATE:
3327 3328 3329 3330 3331
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3332 3333
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_one_table_access(thd, DELETE_ACL, all_tables))
3334
      goto error;
3335 3336 3337 3338
    /*
      Don't allow this within a transaction because we want to use
      re-generate table
    */
3339
    if ((thd->locked_tables && !lex->sphead) || thd->active_transaction())
3340
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3341 3342
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3343 3344
      goto error;
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3345

monty@mysql.com's avatar
monty@mysql.com committed
3346
    res= mysql_truncate(thd, first_table, 0);
3347
    break;
3348
  case SQLCOM_DELETE:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3349
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3350 3351
    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
3352
      break;
3353 3354
    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
3355
    res = mysql_delete(thd, all_tables, select_lex->where,
3356
                       &select_lex->order_list,
osku@127.(none)'s avatar
osku@127.(none) committed
3357 3358
                       unit->select_limit_cnt, select_lex->options,
                       FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3359 3360
    break;
  }
3361
  case SQLCOM_DELETE_MULTI:
3362
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3363
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3364 3365
    TABLE_LIST *aux_tables=
      (TABLE_LIST *)thd->lex->auxilliary_table_list.first;
3366
    multi_delete *result;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3367

3368
    if ((res= multi_delete_precheck(thd, all_tables)))
3369
      break;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3370

3371
    /* condition will be TRUE on SP re-excuting */
3372 3373
    if (select_lex->item_list.elements != 0)
      select_lex->item_list.empty();
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
3374
    if (add_item_to_list(thd, new Item_null()))
3375
      goto error;
3376

3377
    thd->proc_info="init";
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3378 3379 3380 3381
    if ((res= open_and_lock_tables(thd, all_tables)))
      break;

    if ((res= mysql_multi_delete_prepare(thd)))
3382
      goto error;
3383

3384
    if (!thd->is_fatal_error && (result= new multi_delete(aux_tables,
3385
							  lex->table_count)))
3386
    {
3387 3388 3389
      res= mysql_select(thd, &select_lex->ref_pointer_array,
			select_lex->get_table_list(),
			select_lex->with_wild,
3390
			select_lex->item_list,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3391
			select_lex->where,
3392
			0, (ORDER *)NULL, (ORDER *)NULL, (Item *)NULL,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3393 3394
			(ORDER *)NULL,
			select_lex->options | thd->options |
3395 3396
			SELECT_NO_JOIN_CACHE | SELECT_NO_UNLOCK |
                        OPTION_SETUP_TABLES_DONE,
3397
			result, unit, select_lex);
3398
      delete result;
3399 3400
    }
    else
3401
      res= TRUE;                                // Error
3402 3403
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3404
  case SQLCOM_DROP_TABLE:
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3405
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3406
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3407 3408
    if (!lex->drop_temporary)
    {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3409
      if (check_table_access(thd, DROP_ACL, all_tables, 0))
3410 3411
	goto error;				/* purecov: inspected */
      if (end_active_trans(thd))
3412
        goto error;
3413
    }
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3414
    else
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
3415 3416 3417 3418 3419 3420
    {
      /*
	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
3421 3422
	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
3423 3424 3425
      */
      if (thd->slave_thread)
	lex->drop_if_exists= 1;
3426

3427 3428
      /* 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
3429
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3430 3431
    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
3432 3433
  }
  break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3434
  case SQLCOM_DROP_INDEX:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3435 3436
    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
3437
      goto error;				/* purecov: inspected */
3438
    if (end_active_trans(thd))
3439
      goto error;
3440
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3441
      res = mysql_drop_index(thd, first_table, &lex->alter_info);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3442 3443
    break;
  case SQLCOM_SHOW_PROCESSLIST:
3444 3445
    if (!thd->security_ctx->priv_user[0] &&
        check_global_access(thd,PROCESS_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3446
      break;
hf@deer.(none)'s avatar
hf@deer.(none) committed
3447
    mysqld_list_processes(thd,
3448 3449 3450 3451
			  (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
3452
    break;
3453 3454
  case SQLCOM_SHOW_STORAGE_ENGINES:
    res= mysqld_show_storage_engines(thd);
3455 3456 3457 3458 3459 3460 3461
    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
3462 3463
  case SQLCOM_SHOW_LOGS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3464 3465
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0));	/* purecov: inspected */
3466
    goto error;
tim@cane.mysql.fi's avatar
tim@cane.mysql.fi committed
3467 3468
#else
    {
3469
      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
3470 3471 3472 3473
	goto error;
      res= mysqld_show_logs(thd);
      break;
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3474 3475
#endif
  case SQLCOM_CHANGE_DB:
3476 3477
    if (!mysql_change_db(thd,select_lex->db,FALSE))
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3478
    break;
3479

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3480 3481
  case SQLCOM_LOAD:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3482
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3483
    uint privilege= (lex->duplicates == DUP_REPLACE ?
3484 3485
		     INSERT_ACL | DELETE_ACL : INSERT_ACL) |
                    (lex->local_file ? 0 : FILE_ACL);
3486

3487
    if (lex->local_file)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3488
    {
3489
      if (!(thd->client_capabilities & CLIENT_LOCAL_FILES) ||
3490
          !opt_local_infile)
3491
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3492
	my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND), MYF(0));
3493 3494
	goto error;
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3495
    }
3496 3497 3498 3499

    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
3500
    res= mysql_load(thd, lex->exchange, first_table, lex->field_list,
3501
                    lex->update_list, lex->value_list, lex->duplicates,
3502
                    lex->ignore, (bool) lex->local_file);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3503 3504
    break;
  }
3505

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3506
  case SQLCOM_SET_OPTION:
3507 3508
  {
    List<set_var_base> *lex_var_list= &lex->var_list;
3509
    if ((check_table_access(thd, SELECT_ACL, all_tables, 0) ||
3510 3511
	 open_and_lock_tables(thd, all_tables)))
      goto error;
3512 3513
    if (lex->one_shot_set && not_all_support_one_shot(lex_var_list))
    {
3514 3515
      my_error(ER_RESERVED_SYNTAX, MYF(0), "SET ONE_SHOT");
      goto error;
3516 3517 3518 3519 3520 3521 3522 3523
    }
    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;
3524
      send_ok(thd);
3525
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3526
    break;
3527
  }
3528

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3529
  case SQLCOM_UNLOCK_TABLES:
3530 3531 3532 3533 3534 3535
    /*
      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.
    */
3536
    unlock_locked_tables(thd);
3537 3538
    if (thd->options & OPTION_TABLE_LOCK)
    {
3539
      end_active_trans(thd);
3540
      thd->options&= ~(ulong) (OPTION_TABLE_LOCK);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3541 3542
    }
    if (thd->global_read_lock)
3543
      unlock_global_read_lock(thd);
3544
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3545 3546
    break;
  case SQLCOM_LOCK_TABLES:
3547
    unlock_locked_tables(thd);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3548
    if (check_db_used(thd, all_tables) || end_active_trans(thd))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3549
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3550
    if (check_table_access(thd, LOCK_TABLES_ACL | SELECT_ACL, all_tables, 0))
3551
      goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3552
    thd->in_lock_tables=1;
3553
    thd->options|= OPTION_TABLE_LOCK;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3554

3555
    if (!(res= simple_open_n_lock_tables(thd, all_tables)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3556
    {
3557 3558
#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
3559
	query_cache.invalidate_locked_for_write(first_table);
3560
#endif /*HAVE_QUERY_CACHE*/
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3561 3562
      thd->locked_tables=thd->lock;
      thd->lock=0;
3563
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3564
    }
3565 3566
    else
      thd->options&= ~(ulong) (OPTION_TABLE_LOCK);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3567 3568 3569
    thd->in_lock_tables=0;
    break;
  case SQLCOM_CREATE_DB:
3570
  {
3571 3572 3573 3574 3575
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
3576
    char *alias;
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
3577
    if (!(alias=thd->strdup(lex->name)) || check_db_name(lex->name))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3578
    {
3579
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3580 3581
      break;
    }
3582 3583 3584
    /*
      If in a slave thread :
      CREATE DATABASE DB was certainly not preceded by USE DB.
3585
      For that reason, db_ok() in sql/slave.cc did not check the
3586 3587 3588
      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.
    */
3589
#ifdef HAVE_REPLICATION
3590
    if (thd->slave_thread &&
3591 3592
	(!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
3593
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3594
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
3595
      break;
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3596
    }
3597
#endif
3598
    if (check_access(thd,CREATE_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3599
      break;
monty@mysql.com's avatar
monty@mysql.com committed
3600
    res= mysql_create_db(thd,(lower_case_table_names == 2 ? alias : lex->name),
monty@mysql.com's avatar
monty@mysql.com committed
3601
			 &lex->create_info, 0);
3602 3603
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3604
  case SQLCOM_DROP_DB:
3605
  {
3606 3607 3608 3609 3610
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
3611
    if (check_db_name(lex->name))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3612
    {
3613
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3614 3615
      break;
    }
3616 3617 3618 3619 3620 3621 3622
    /*
      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.
    */
3623
#ifdef HAVE_REPLICATION
3624 3625 3626
    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
3627
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3628
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
3629
      break;
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3630
    }
3631
#endif
3632
    if (check_access(thd,DROP_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3633
      break;
3634 3635
    if (thd->locked_tables || thd->active_transaction())
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3636 3637
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3638 3639
      goto error;
    }
3640
    res= mysql_rm_db(thd, lex->name, lex->drop_if_exists, 0);
3641 3642
    break;
  }
3643 3644
  case SQLCOM_ALTER_DB:
  {
3645 3646
    char *db= lex->name ? lex->name : thd->db;
    if (!db)
3647
    {
monty@mishka.local's avatar
monty@mishka.local committed
3648 3649
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));
      break;
3650 3651
    }
    if (!strip_sp(db) || check_db_name(db))
3652
    {
3653
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
3654 3655
      break;
    }
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3656 3657 3658
    /*
      If in a slave thread :
      ALTER DATABASE DB may not be preceded by USE DB.
3659
      For that reason, maybe db_ok() in sql/slave.cc did not check the
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3660 3661 3662 3663
      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
3664
    if (thd->slave_thread &&
3665 3666
	(!db_ok(db, replicate_do_db, replicate_ignore_db) ||
	 !db_ok_with_wild_table(db)))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3667
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3668
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3669 3670 3671
      break;
    }
#endif
3672
    if (check_access(thd, ALTER_ACL, db, 0, 1, 0, is_schema_db(db)))
3673 3674 3675
      break;
    if (thd->locked_tables || thd->active_transaction())
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3676 3677
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3678 3679
      goto error;
    }
3680
    res= mysql_alter_db(thd, db, &lex->create_info);
3681 3682
    break;
  }
3683 3684 3685 3686
  case SQLCOM_SHOW_CREATE_DB:
  {
    if (!strip_sp(lex->name) || check_db_name(lex->name))
    {
3687
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
3688 3689
      break;
    }
3690
    if (check_access(thd,SELECT_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3691
      break;
3692
    res=mysqld_show_create_db(thd,lex->name,&lex->create_info);
3693 3694
    break;
  }
monty@mysql.com's avatar
monty@mysql.com committed
3695
  case SQLCOM_CREATE_FUNCTION:                  // UDF function
monty@mysql.com's avatar
monty@mysql.com committed
3696
  {
3697
    if (check_access(thd,INSERT_ACL,"mysql",0,1,0,0))
monty@mysql.com's avatar
monty@mysql.com committed
3698
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3699
#ifdef HAVE_DLOPEN
3700 3701
    if (sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                        &thd->sp_func_cache, FALSE))
monty@mysql.com's avatar
monty@mysql.com committed
3702
    {
3703
      my_error(ER_UDF_EXISTS, MYF(0), lex->spname->m_name.str);
monty@mysql.com's avatar
monty@mysql.com committed
3704 3705
      goto error;
    }
3706
    if (!(res = mysql_create_function(thd, &lex->udf)))
monty@mysql.com's avatar
monty@mysql.com committed
3707
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3708
#else
hf@deer.(none)'s avatar
hf@deer.(none) committed
3709
    my_error(ER_CANT_OPEN_LIBRARY, MYF(0), lex->udf.dl, 0, "feature disabled");
3710
    res= TRUE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3711 3712
#endif
    break;
monty@mysql.com's avatar
monty@mysql.com committed
3713
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3714
#ifndef NO_EMBEDDED_ACCESS_CHECKS
3715 3716
  case SQLCOM_CREATE_USER:
  {
3717
    if (check_access(thd, INSERT_ACL, "mysql", 0, 1, 1, 0) &&
3718
        check_global_access(thd,CREATE_USER_ACL))
3719
      break;
3720 3721
    if (end_active_trans(thd))
      goto error;
3722 3723 3724 3725
    if (!(res= mysql_create_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3726
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3727 3728 3729 3730 3731 3732
        mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
3733 3734
  case SQLCOM_DROP_USER:
  {
3735
    if (check_access(thd, DELETE_ACL, "mysql", 0, 1, 1, 0) &&
3736
        check_global_access(thd,CREATE_USER_ACL))
3737
      break;
3738 3739
    if (end_active_trans(thd))
      goto error;
3740 3741 3742 3743
    if (!(res= mysql_drop_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3744
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3745 3746 3747 3748 3749 3750 3751 3752
        mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
  case SQLCOM_RENAME_USER:
  {
3753
    if (check_access(thd, UPDATE_ACL, "mysql", 0, 1, 1, 0) &&
3754
        check_global_access(thd,CREATE_USER_ACL))
3755
      break;
3756 3757
    if (end_active_trans(thd))
      goto error;
3758 3759 3760 3761
    if (!(res= mysql_rename_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3762
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3763
        mysql_bin_log.write(&qinfo);
3764 3765 3766 3767 3768 3769 3770
      }
      send_ok(thd);
    }
    break;
  }
  case SQLCOM_REVOKE_ALL:
  {
3771
    if (check_access(thd, UPDATE_ACL, "mysql", 0, 1, 1, 0) &&
3772
        check_global_access(thd,CREATE_USER_ACL))
3773 3774 3775 3776 3777
      break;
    if (!(res = mysql_revoke_all(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
3778
	Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3779 3780 3781 3782 3783 3784
	mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
3785 3786 3787 3788
  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
3789
		     first_table ?  first_table->db : select_lex->db,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3790
		     first_table ? &first_table->grant.privilege : 0,
3791 3792 3793
		     first_table ? 0 : 1, 0,
                     first_table ? (bool) first_table->schema_table :
                     select_lex->db ? is_schema_db(select_lex->db) : 0))
3794 3795
      goto error;

3796
    if (thd->security_ctx->user)              // If not replication
3797 3798
    {
      LEX_USER *user;
3799 3800
      uint counter;

3801
      List_iterator <LEX_USER> user_list(lex->users_list);
3802
      while ((user= user_list++))
3803
      {
3804 3805 3806 3807 3808 3809 3810 3811
        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);
3812
        if (strcmp(thd->security_ctx->user, user->user.str) ||
3813
            my_strcasecmp(system_charset_info,
3814
                          user->host.str, thd->security_ctx->host_or_ip))
3815 3816 3817
        {
          // TODO: use check_change_password()
          if (check_acl_user(user, &counter) && user->password.str &&
3818
              check_access(thd, UPDATE_ACL,"mysql",0,1,1,0))
3819 3820 3821 3822 3823 3824
          {
            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
3825 3826
      }
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3827
    if (first_table)
3828
    {
3829 3830
      if (lex->type == TYPE_ENUM_PROCEDURE ||
          lex->type == TYPE_ENUM_FUNCTION)
3831 3832 3833 3834 3835
      {
        uint grants= lex->all_privileges 
		   ? (PROC_ACLS & ~GRANT_ACL) | (lex->grant & GRANT_ACL)
		   : lex->grant;
        if (grant_option && 
3836 3837
	    check_grant_routine(thd, grants | GRANT_ACL, all_tables,
                                lex->type == TYPE_ENUM_PROCEDURE, 0))
3838
	  goto error;
3839 3840 3841 3842
        res= mysql_routine_grant(thd, all_tables,
                                 lex->type == TYPE_ENUM_PROCEDURE, 
                                 lex->users_list, grants,
                                 lex->sql_command == SQLCOM_REVOKE, 0);
3843 3844 3845 3846 3847 3848 3849 3850 3851 3852 3853 3854 3855
      }
      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())
3856
      {
pem@mysql.com's avatar
pem@mysql.com committed
3857
        thd->clear_error();
monty@mysql.com's avatar
monty@mysql.com committed
3858
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3859
        mysql_bin_log.write(&qinfo);
3860 3861 3862 3863
      }
    }
    else
    {
3864
      if (lex->columns.elements || lex->type)
3865
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3866 3867
	my_message(ER_ILLEGAL_GRANT_FOR_TABLE, ER(ER_ILLEGAL_GRANT_FOR_TABLE),
                   MYF(0));
3868
        goto error;
3869 3870 3871 3872 3873 3874 3875 3876
      }
      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
3877
          thd->clear_error();
3878
	  Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3879 3880
	  mysql_bin_log.write(&qinfo);
	}
3881
	if (lex->sql_command == SQLCOM_GRANT)
3882
	{
3883 3884 3885
	  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
3886
	    reset_mqh(user);
3887
	}
3888 3889 3890 3891
      }
    }
    break;
  }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
3892
#endif /*!NO_EMBEDDED_ACCESS_CHECKS*/
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
3893
  case SQLCOM_RESET:
3894 3895 3896
    /*
      RESET commands are never written to the binary log, so we have to
      initialize this variable because RESET shares the same code as FLUSH
3897 3898 3899 3900
    */
    lex->no_write_to_binlog= 1;
  case SQLCOM_FLUSH:
  {
3901
    bool write_to_binlog;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3902
    if (check_global_access(thd,RELOAD_ACL) || check_db_used(thd, all_tables))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3903
      goto error;
3904 3905 3906 3907
    /*
      reload_acl_and_cache() will tell us if we are allowed to write to the
      binlog or not.
    */
3908
    if (!reload_acl_and_cache(thd, lex->type, first_table, &write_to_binlog))
3909 3910 3911 3912 3913 3914 3915 3916 3917
    {
      /*
        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())
        {
3918
          Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3919 3920 3921 3922 3923
          mysql_bin_log.write(&qinfo);
        }
      }
      send_ok(thd);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3924
    break;
3925
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3926
  case SQLCOM_KILL:
3927 3928 3929
  {
    Item *it= (Item *)lex->value_list.head();

3930
    if ((!it->fixed && it->fix_fields(lex->thd, &it)) || it->check_cols(1))
3931 3932 3933 3934 3935 3936
    {
      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
3937
    break;
3938
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3939
#ifndef NO_EMBEDDED_ACCESS_CHECKS
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3940
  case SQLCOM_SHOW_GRANTS:
3941 3942
    if ((thd->security_ctx->priv_user &&
	 !strcmp(thd->security_ctx->priv_user, lex->grant_user->user.str)) ||
3943
	!check_access(thd, SELECT_ACL, "mysql",0,1,0,0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3944 3945 3946 3947
    {
      res = mysql_show_grants(thd,lex->grant_user);
    }
    break;
hf@deer.(none)'s avatar
hf@deer.(none) committed
3948
#endif
3949
  case SQLCOM_HA_OPEN:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3950 3951 3952
    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))
3953
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
3954
    res= mysql_ha_open(thd, first_table, 0);
3955 3956
    break;
  case SQLCOM_HA_CLOSE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3957 3958
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables))
3959
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3960
    res= mysql_ha_close(thd, first_table);
3961 3962
    break;
  case SQLCOM_HA_READ:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3963
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3964 3965 3966 3967 3968
    /*
      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
3969
    if (check_db_used(thd, all_tables))
3970
      goto error;
3971
    unit->set_limit(select_lex);
3972
    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
3973
                       lex->insert_list, lex->ha_rkey_mode, select_lex->where,
3974
                       unit->select_limit_cnt, unit->offset_limit_cnt);
3975 3976
    break;

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3977
  case SQLCOM_BEGIN:
3978 3979 3980 3981 3982 3983
    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;
    }
3984
    if (begin_trans(thd))
3985
      goto error;
serg@serg.mylan's avatar
serg@serg.mylan committed
3986
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3987 3988
    break;
  case SQLCOM_COMMIT:
3989
    if (end_trans(thd, lex->tx_release ? COMMIT_RELEASE :
serg@serg.mylan's avatar
serg@serg.mylan committed
3990
                              lex->tx_chain ? COMMIT_AND_CHAIN : COMMIT))
3991
      goto error;
3992
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3993 3994
    break;
  case SQLCOM_ROLLBACK:
3995
    if (end_trans(thd, lex->tx_release ? ROLLBACK_RELEASE :
serg@serg.mylan's avatar
serg@serg.mylan committed
3996
                              lex->tx_chain ? ROLLBACK_AND_CHAIN : ROLLBACK))
3997
      goto error;
3998
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3999
    break;
serg@serg.mylan's avatar
serg@serg.mylan committed
4000
  case SQLCOM_RELEASE_SAVEPOINT:
serg@serg.mylan's avatar
serg@serg.mylan committed
4001
  {
4002 4003
    SAVEPOINT *sv;
    for (sv=thd->transaction.savepoints; sv; sv=sv->prev)
serg@serg.mylan's avatar
serg@serg.mylan committed
4004 4005 4006
    {
      if (my_strnncoll(system_charset_info,
                       (uchar *)lex->ident.str, lex->ident.length,
4007
                       (uchar *)sv->name, sv->length) == 0)
serg@serg.mylan's avatar
serg@serg.mylan committed
4008 4009
        break;
    }
4010
    if (sv)
serg@serg.mylan's avatar
serg@serg.mylan committed
4011
    {
4012
      if (ha_release_savepoint(thd, sv))
serg@serg.mylan's avatar
serg@serg.mylan committed
4013
        res= TRUE; // cannot happen
serg@serg.mylan's avatar
serg@serg.mylan committed
4014 4015
      else
        send_ok(thd);
4016
      thd->transaction.savepoints=sv->prev;
serg@serg.mylan's avatar
serg@serg.mylan committed
4017
    }
4018
    else
serg@serg.mylan's avatar
serg@serg.mylan committed
4019
      my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "SAVEPOINT", lex->ident.str);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4020
    break;
serg@serg.mylan's avatar
serg@serg.mylan committed
4021
  }
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4022
  case SQLCOM_ROLLBACK_TO_SAVEPOINT:
serg@serg.mylan's avatar
serg@serg.mylan committed
4023
  {
4024 4025
    SAVEPOINT *sv;
    for (sv=thd->transaction.savepoints; sv; sv=sv->prev)
4026 4027 4028
    {
      if (my_strnncoll(system_charset_info,
                       (uchar *)lex->ident.str, lex->ident.length,
4029
                       (uchar *)sv->name, sv->length) == 0)
4030 4031
        break;
    }
4032
    if (sv)
4033
    {
4034
      if (ha_rollback_to_savepoint(thd, sv))
4035 4036
        res= TRUE; // cannot happen
      else
serg@serg.mylan's avatar
serg@serg.mylan committed
4037 4038 4039 4040 4041 4042 4043 4044
      {
        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);
      }
4045
      thd->transaction.savepoints=sv;
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4046 4047
    }
    else
4048
      my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "SAVEPOINT", lex->ident.str);
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4049
    break;
4050
  }
4051
  case SQLCOM_SAVEPOINT:
4052 4053
    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
4054
      send_ok(thd);
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4055
    else
4056 4057 4058 4059 4060 4061 4062 4063 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075 4076 4077 4078 4079 4080 4081 4082 4083 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093
    {
      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);
      }
    }
4094
    break;
4095 4096
  case SQLCOM_CREATE_PROCEDURE:
  case SQLCOM_CREATE_SPFUNCTION:
monty@mysql.com's avatar
monty@mysql.com committed
4097
  {
4098
    uint namelen;
4099
    char *name, *db;
4100
    int result;
4101

4102
    DBUG_ASSERT(lex->sphead != 0);
4103

4104 4105
    if (!lex->sphead->m_db.str || !lex->sphead->m_db.str[0])
    {
4106
      if (!thd->db)
4107 4108 4109 4110 4111 4112 4113 4114 4115 4116
      {
        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;
    }

4117 4118
    if (check_access(thd, CREATE_PROC_ACL, lex->sphead->m_db.str, 0, 0, 0,
                     is_schema_db(lex->sphead->m_db.str)))
4119 4120 4121 4122 4123 4124
    {
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
    }

4125
    if (end_active_trans(thd)) 
4126
    {
4127 4128 4129
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
4130
    }
4131 4132

    name= lex->sphead->name(&namelen);
4133
#ifdef HAVE_DLOPEN
monty@mysql.com's avatar
monty@mysql.com committed
4134 4135 4136
    if (lex->sphead->m_type == TYPE_ENUM_FUNCTION)
    {
      udf_func *udf = find_udf(name, namelen);
4137

monty@mysql.com's avatar
monty@mysql.com committed
4138
      if (udf)
4139
      {
4140
	my_error(ER_UDF_EXISTS, MYF(0), name);
4141
	delete lex->sphead;
4142
	lex->sphead= 0;
4143
	goto error;
4144
      }
monty@mysql.com's avatar
monty@mysql.com committed
4145 4146 4147
    }
#endif

4148 4149 4150 4151 4152
    /*
      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.
    */
4153
    name= thd->strdup(name); 
4154 4155
    lex->sphead->m_db.str= db= thd->strmake(lex->sphead->m_db.str,
                                            lex->sphead->m_db.length);
4156
    res= (result= lex->sphead->create(thd));
4157 4158
    if (result == SP_OK)
    {
4159 4160 4161 4162 4163 4164
      /*
        We must cleanup the unit and the lex here because
        sp_grant_privileges calls (indirectly) db_find_routine,
        which in turn may call yyparse with THD::lex.
        TODO: fix db_find_routine to use a temporary lex.
      */
4165
      lex->unit.cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
4166 4167
      delete lex->sphead;
      lex->sphead= 0;
4168
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4169
      /* only add privileges if really neccessary */
4170
      if (sp_automatic_privileges && !opt_noacl &&
4171 4172 4173
          check_routine_access(thd, DEFAULT_CREATE_PROC_ACLS,
      			       db, name,
                               lex->sql_command == SQLCOM_CREATE_PROCEDURE, 1))
4174 4175
      {
        close_thread_tables(thd);
4176 4177
        if (sp_grant_privileges(thd, db, name, 
                                lex->sql_command == SQLCOM_CREATE_PROCEDURE))
4178 4179 4180 4181
          push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 
	  	       ER_PROC_AUTO_GRANT_FAIL,
		       ER(ER_PROC_AUTO_GRANT_FAIL));
      }
4182
#endif
4183
      send_ok(thd);
4184 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4197 4198 4199 4200 4201 4202 4203
    }
    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;
      }
4204
      lex->unit.cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
4205 4206 4207
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
4208
    }
monty@mysql.com's avatar
monty@mysql.com committed
4209 4210
    break;
  }
4211 4212 4213 4214
  case SQLCOM_CALL:
    {
      sp_head *sp;

4215 4216 4217 4218 4219 4220 4221 4222 4223
      /*
        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;

      /*
4224 4225
        By this moment all needed SPs should be in cache so no need to look 
        into DB. 
4226
      */
4227 4228
      if (!(sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                                &thd->sp_proc_cache, TRUE)))
4229
      {
4230
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "PROCEDURE",
4231
                 lex->spname->m_qname.str);
4232
	goto error;
4233 4234 4235
      }
      else
      {
4236
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4237
	Security_context *save_ctx;
4238
#endif
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4239
	ha_rows select_limit;
monty@mysql.com's avatar
monty@mysql.com committed
4240 4241
        /* bits that should be cleared in thd->server_status */
	uint bits_to_be_cleared= 0;
4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252 4253
        /*
          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;
        }
4254

4255
#ifndef EMBEDDED_LIBRARY
4256 4257
	my_bool nsok= thd->net.no_send_ok;
	thd->net.no_send_ok= TRUE;
4258
#endif
4259
	if (sp->m_flags & sp_head::MULTI_RESULTS)
4260
	{
4261
	  if (! (thd->client_capabilities & CLIENT_MULTI_RESULTS))
4262
	  {
4263 4264 4265 4266
            /*
              The client does not support multiple result sets being sent
              back
            */
4267
	    my_error(ER_SP_BADSELECT, MYF(0), sp->m_qname.str);
4268 4269 4270 4271 4272
#ifndef EMBEDDED_LIBRARY
	    thd->net.no_send_ok= nsok;
#endif
	    goto error;
	  }
monty@mysql.com's avatar
monty@mysql.com committed
4273 4274 4275 4276 4277 4278 4279
          /*
            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;
4280 4281
	}

4282
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4283 4284 4285
	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))
4286 4287 4288 4289 4290 4291
	{
#ifndef EMBEDDED_LIBRARY
	  thd->net.no_send_ok= nsok;
#endif
	  goto error;
	}
4292 4293 4294
	if (save_ctx &&
            check_routine_access(thd, EXECUTE_ACL,
                                 sp->m_db.str, sp->m_name.str, TRUE, 0))
4295 4296 4297 4298
	{
#ifndef EMBEDDED_LIBRARY
	  thd->net.no_send_ok= nsok;
#endif
4299
	  sp_restore_security_context(thd, save_ctx);
4300 4301 4302
	  goto error;
	}

4303
#endif
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4304 4305
	select_limit= thd->variables.select_limit;
	thd->variables.select_limit= HA_POS_ERROR;
4306

4307
        thd->row_count_func= 0;
4308 4309
        
        /* 
4310
          We never write CALL statements into binlog:
4311 4312 4313 4314 4315
           - 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.
4316
        */
4317
	res= sp->execute_procedure(thd, &lex->value_list);
4318 4319 4320
	/*
          If warnings have been cleared, we have to clear total_warn_count
          too, otherwise the clients get confused.
4321 4322 4323 4324
	 */
	if (thd->warn_list.is_empty())
	  thd->total_warn_count= 0;

pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4325
	thd->variables.select_limit= select_limit;
4326
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4327
	sp_restore_security_context(thd, save_ctx);
4328
#endif
4329

4330
#ifndef EMBEDDED_LIBRARY
4331
	thd->net.no_send_ok= nsok;
4332
#endif
monty@mysql.com's avatar
monty@mysql.com committed
4333
        thd->server_status&= ~bits_to_be_cleared;
4334

4335
	if (!res)
monty@mysql.com's avatar
monty@mysql.com committed
4336 4337
	  send_ok(thd, (ulong) (thd->row_count_func < 0 ? 0 :
                                thd->row_count_func));
4338 4339
	else
	  goto error;		// Substatement should already have sent error
4340
      }
4341
      break;
4342 4343
    }
  case SQLCOM_ALTER_PROCEDURE:
4344
  case SQLCOM_ALTER_FUNCTION:
4345
    {
4346
      int result;
4347 4348 4349 4350
      sp_head *sp;
      st_sp_chistics chistics;

      memcpy(&chistics, &lex->sp_chistics, sizeof(chistics));
4351
      if (lex->sql_command == SQLCOM_ALTER_PROCEDURE)
4352 4353
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
4354
      else
4355 4356
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
monty@mysql.com's avatar
monty@mysql.com committed
4357
      mysql_reset_errors(thd, 0);
4358
      if (! sp)
4359 4360 4361 4362 4363 4364 4365 4366 4367
      {
	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;
	}
      }
4368 4369
      else
      {
4370 4371 4372
        if (check_routine_access(thd, ALTER_PROC_ACL, sp->m_db.str, 
				 sp->m_name.str,
                                 lex->sql_command == SQLCOM_ALTER_PROCEDURE, 0))
4373
	  goto error;
4374 4375 4376

        if (end_active_trans(thd)) 
          goto error;
4377
	memcpy(&lex->sp_chistics, &chistics, sizeof(lex->sp_chistics));
4378 4379
        if ((sp->m_type == TYPE_ENUM_FUNCTION) &&
            !trust_function_creators &&  mysql_bin_log.is_open() &&
4380 4381 4382 4383 4384 4385 4386 4387 4388 4389
            !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
        {
4390 4391 4392 4393 4394 4395
          /*
            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.
          */
4396 4397 4398 4399 4400
          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);
        }
4401
      }
4402
      switch (result)
4403
      {
4404
      case SP_OK:
4405 4406 4407 4408 4409 4410
        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);
        }
4411
	send_ok(thd);
4412 4413
	break;
      case SP_KEY_NOT_FOUND:
4414 4415
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4416 4417
	goto error;
      default:
4418 4419
	my_error(ER_SP_CANT_ALTER, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4420
	goto error;
4421
      }
4422
      break;
4423 4424
    }
  case SQLCOM_DROP_PROCEDURE:
4425
  case SQLCOM_DROP_FUNCTION:
4426
    {
4427
      sp_head *sp;
4428
      int result;
4429
      char *db, *name;
4430

4431
      if (lex->sql_command == SQLCOM_DROP_PROCEDURE)
4432 4433
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
4434
      else
4435 4436
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
monty@mysql.com's avatar
monty@mysql.com committed
4437
      mysql_reset_errors(thd, 0);
4438
      if (sp)
4439
      {
4440 4441
        db= thd->strdup(sp->m_db.str);
	name= thd->strdup(sp->m_name.str);
4442 4443
	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
4444
          goto error;
4445 4446 4447

        if (end_active_trans(thd)) 
          goto error;
4448
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4449
	if (sp_automatic_privileges && !opt_noacl &&
4450 4451
	    sp_revoke_privileges(thd, db, name, 
                                 lex->sql_command == SQLCOM_DROP_PROCEDURE))
4452 4453 4454 4455 4456
	{
	  push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 
		       ER_PROC_AUTO_REVOKE_FAIL,
		       ER(ER_PROC_AUTO_REVOKE_FAIL));
	}
4457
#endif
4458
	if (lex->sql_command == SQLCOM_DROP_PROCEDURE)
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4459
	  result= sp_drop_procedure(thd, lex->spname);
4460
	else
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4461
	  result= sp_drop_function(thd, lex->spname);
4462 4463 4464
      }
      else
      {
4465
#ifdef HAVE_DLOPEN
4466 4467 4468 4469 4470 4471
	if (lex->sql_command == SQLCOM_DROP_FUNCTION)
	{
          udf_func *udf = find_udf(lex->spname->m_name.str,
                                   lex->spname->m_name.length);
          if (udf)
          {
4472
	    if (check_access(thd, DELETE_ACL, "mysql", 0, 1, 0, 0))
4473 4474
	      goto error;
	    if (!(res = mysql_drop_function(thd, &lex->spname->m_name)))
4475
	    {
4476 4477
	      send_ok(thd);
	      break;
4478 4479
	    }
	  }
4480
	}
4481
#endif
4482 4483 4484 4485 4486 4487 4488
	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;
	}
4489
      }
4490 4491
      res= result;
      switch (result)
4492 4493
      {
      case SP_OK:
4494 4495 4496 4497 4498 4499
        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);
        }
4500
	send_ok(thd);
4501 4502
	break;
      case SP_KEY_NOT_FOUND:
4503 4504
	if (lex->drop_if_exists)
	{
4505
	  push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
4506
			      ER_SP_DOES_NOT_EXIST, ER(ER_SP_DOES_NOT_EXIST),
4507
			      SP_COM_STRING(lex), lex->spname->m_name.str);
4508
	  res= FALSE;
4509 4510 4511
	  send_ok(thd);
	  break;
	}
4512 4513
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4514 4515
	goto error;
      default:
4516 4517
	my_error(ER_SP_DROP_FAILED, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4518
	goto error;
4519
      }
4520
      break;
4521
    }
4522 4523
  case SQLCOM_SHOW_CREATE_PROC:
    {
4524
      if (lex->spname->m_name.length > NAME_LEN)
4525
      {
4526
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
4527 4528
	goto error;
      }
4529
      if (sp_show_create_procedure(thd, lex->spname) != SP_OK)
4530
      {			/* We don't distinguish between errors for now */
4531 4532
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
4533 4534 4535 4536 4537 4538
	goto error;
      }
      break;
    }
  case SQLCOM_SHOW_CREATE_FUNC:
    {
4539
      if (lex->spname->m_name.length > NAME_LEN)
4540
      {
4541
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
4542 4543
	goto error;
      }
4544
      if (sp_show_create_function(thd, lex->spname) != SP_OK)
4545
      {			/* We don't distinguish between errors for now */
4546 4547
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
4548 4549 4550 4551 4552 4553
	goto error;
      }
      break;
    }
  case SQLCOM_SHOW_STATUS_PROC:
    {
4554
      res= sp_show_status_procedure(thd, (lex->wild ?
4555 4556 4557 4558 4559
					  lex->wild->ptr() : NullS));
      break;
    }
  case SQLCOM_SHOW_STATUS_FUNC:
    {
4560
      res= sp_show_status_function(thd, (lex->wild ? 
4561 4562 4563
					 lex->wild->ptr() : NullS));
      break;
    }
pem@mysql.com's avatar
pem@mysql.com committed
4564 4565 4566 4567 4568 4569 4570 4571 4572 4573 4574 4575
#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
4576 4577
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
pem@mysql.com's avatar
pem@mysql.com committed
4578
      else
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4579 4580
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
pem@mysql.com's avatar
pem@mysql.com committed
4581
      if (!sp || !sp->show_routine_code(thd))
4582 4583
      {
        /* We don't distinguish between errors for now */
pem@mysql.com's avatar
pem@mysql.com committed
4584 4585 4586 4587 4588 4589 4590
        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
4591 4592
  case SQLCOM_CREATE_VIEW:
    {
4593 4594 4595
      if (end_active_trans(thd))
        goto error;

4596 4597 4598
      if (!(res= mysql_create_view(thd, thd->lex->create_view_mode)) &&
          mysql_bin_log.is_open())
      {
4599
        String buff;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4600 4601 4602 4603
        const LEX_STRING command[3]=
          {{(char *)STRING_WITH_LEN("CREATE ")},
           {(char *)STRING_WITH_LEN("ALTER ")},
           {(char *)STRING_WITH_LEN("CREATE OR REPLACE ")}};
4604
        thd->clear_error();
4605 4606 4607 4608

        buff.append(command[thd->lex->create_view_mode].str,
                    command[thd->lex->create_view_mode].length);
        view_store_options(thd, first_table, &buff);
4609
        buff.append(STRING_WITH_LEN("VIEW "));
4610 4611
        /* Test if user supplied a db (ie: we did not use thd->db) */
        if (first_table->db != thd->db && first_table->db[0])
4612 4613 4614 4615 4616 4617 4618
        {
          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);
4619
        buff.append(STRING_WITH_LEN(" AS "));
4620 4621 4622
        buff.append(first_table->source.str, first_table->source.length);

        Query_log_event qinfo(thd, buff.ptr(), buff.length(), 0, FALSE);
4623 4624
        mysql_bin_log.write(&qinfo);
      }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4625 4626 4627 4628
      break;
    }
  case SQLCOM_DROP_VIEW:
    {
4629 4630 4631
      if (check_table_access(thd, DROP_ACL, all_tables, 0) ||
          end_active_trans(thd))
        goto error;
4632 4633 4634
      if (!(res= mysql_drop_view(thd, first_table, thd->lex->drop_mode)) &&
          mysql_bin_log.is_open())
      {
4635
        thd->clear_error();
4636 4637 4638
        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
4639 4640
      break;
    }
4641 4642
  case SQLCOM_CREATE_TRIGGER:
  {
4643 4644 4645
    if (end_active_trans(thd))
      goto error;

4646 4647 4648
    res= mysql_create_or_drop_trigger(thd, all_tables, 1);

    /* We don't care about trigger body after this point */
4649 4650 4651 4652 4653 4654
    delete lex->sphead;
    lex->sphead= 0;
    break;
  }
  case SQLCOM_DROP_TRIGGER:
  {
4655 4656 4657
    if (end_active_trans(thd))
      goto error;

4658 4659 4660
    res= mysql_create_or_drop_trigger(thd, all_tables, 0);
    break;
  }
4661
  case SQLCOM_XA_START:
4662 4663
    if (thd->transaction.xid_state.xa_state == XA_IDLE &&
        thd->lex->xa_opt == XA_RESUME)
4664
    {
4665
      if (! thd->transaction.xid_state.xid.eq(thd->lex->xid))
4666 4667 4668 4669
      {
        my_error(ER_XAER_NOTA, MYF(0));
        break;
      }
4670
      thd->transaction.xid_state.xa_state=XA_ACTIVE;
4671 4672 4673
      send_ok(thd);
      break;
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
4674
    if (thd->lex->xa_opt != XA_NONE)
4675 4676 4677 4678
    { // JOIN is not supported yet. TODO
      my_error(ER_XAER_INVAL, MYF(0));
      break;
    }
4679
    if (thd->transaction.xid_state.xa_state != XA_NOTR)
4680
    {
4681
      my_error(ER_XAER_RMFAIL, MYF(0),
4682
               xa_state_names[thd->transaction.xid_state.xa_state]);
4683 4684 4685 4686 4687 4688 4689
      break;
    }
    if (thd->active_transaction() || thd->locked_tables)
    {
      my_error(ER_XAER_OUTSIDE, MYF(0));
      break;
    }
4690 4691 4692 4693 4694 4695 4696 4697 4698
    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);
4699 4700 4701 4702 4703 4704 4705 4706 4707 4708 4709 4710
    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;
    }
4711
    if (thd->transaction.xid_state.xa_state != XA_ACTIVE)
4712
    {
4713
      my_error(ER_XAER_RMFAIL, MYF(0),
4714
               xa_state_names[thd->transaction.xid_state.xa_state]);
4715 4716
      break;
    }
4717
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4718 4719 4720 4721
    {
      my_error(ER_XAER_NOTA, MYF(0));
      break;
    }
4722
    thd->transaction.xid_state.xa_state=XA_IDLE;
4723 4724 4725
    send_ok(thd);
    break;
  case SQLCOM_XA_PREPARE:
4726
    if (thd->transaction.xid_state.xa_state != XA_IDLE)
4727
    {
4728
      my_error(ER_XAER_RMFAIL, MYF(0),
4729
               xa_state_names[thd->transaction.xid_state.xa_state]);
4730 4731
      break;
    }
4732
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4733 4734 4735 4736 4737 4738 4739
    {
      my_error(ER_XAER_NOTA, MYF(0));
      break;
    }
    if (ha_prepare(thd))
    {
      my_error(ER_XA_RBROLLBACK, MYF(0));
4740 4741
      xid_cache_delete(&thd->transaction.xid_state);
      thd->transaction.xid_state.xa_state=XA_NOTR;
4742 4743
      break;
    }
4744
    thd->transaction.xid_state.xa_state=XA_PREPARED;
4745 4746 4747
    send_ok(thd);
    break;
  case SQLCOM_XA_COMMIT:
4748
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4749
    {
4750 4751
      XID_STATE *xs=xid_cache_search(thd->lex->xid);
      if (!xs || xs->in_thd)
4752
        my_error(ER_XAER_NOTA, MYF(0));
serg@serg.mylan's avatar
serg@serg.mylan committed
4753
      else
4754 4755 4756
      {
        ha_commit_or_rollback_by_xid(thd->lex->xid, 1);
        xid_cache_delete(xs);
serg@serg.mylan's avatar
serg@serg.mylan committed
4757
        send_ok(thd);
4758
      }
4759 4760
      break;
    }
4761
    if (thd->transaction.xid_state.xa_state == XA_IDLE &&
monty@mysql.com's avatar
monty@mysql.com committed
4762
        thd->lex->xa_opt == XA_ONE_PHASE)
4763
    {
4764 4765 4766
      int r;
      if ((r= ha_commit(thd)))
        my_error(r == 1 ? ER_XA_RBROLLBACK : ER_XAER_RMERR, MYF(0));
4767 4768 4769
      else
        send_ok(thd);
    }
4770
    else if (thd->transaction.xid_state.xa_state == XA_PREPARED &&
monty@mysql.com's avatar
monty@mysql.com committed
4771
             thd->lex->xa_opt == XA_NONE)
4772
    {
4773 4774 4775
      if (wait_if_global_read_lock(thd, 0, 0))
      {
        ha_rollback(thd);
4776
        my_error(ER_XAER_RMERR, MYF(0));
4777
      }
4778
      else
4779 4780 4781 4782 4783 4784 4785
      {
        if (ha_commit_one_phase(thd, 1))
          my_error(ER_XAER_RMERR, MYF(0));
        else
          send_ok(thd);
        start_waiting_global_read_lock(thd);
      }
4786 4787 4788
    }
    else
    {
4789
      my_error(ER_XAER_RMFAIL, MYF(0),
4790
               xa_state_names[thd->transaction.xid_state.xa_state]);
4791 4792 4793 4794
      break;
    }
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
4795 4796
    xid_cache_delete(&thd->transaction.xid_state);
    thd->transaction.xid_state.xa_state=XA_NOTR;
4797 4798
    break;
  case SQLCOM_XA_ROLLBACK:
4799
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4800
    {
4801 4802
      XID_STATE *xs=xid_cache_search(thd->lex->xid);
      if (!xs || xs->in_thd)
4803
        my_error(ER_XAER_NOTA, MYF(0));
serg@serg.mylan's avatar
serg@serg.mylan committed
4804
      else
4805 4806 4807
      {
        ha_commit_or_rollback_by_xid(thd->lex->xid, 0);
        xid_cache_delete(xs);
serg@serg.mylan's avatar
serg@serg.mylan committed
4808
        send_ok(thd);
4809
      }
4810 4811
      break;
    }
4812 4813
    if (thd->transaction.xid_state.xa_state != XA_IDLE &&
        thd->transaction.xid_state.xa_state != XA_PREPARED)
4814
    {
4815
      my_error(ER_XAER_RMFAIL, MYF(0),
4816
               xa_state_names[thd->transaction.xid_state.xa_state]);
4817 4818 4819 4820 4821 4822 4823 4824
      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;
4825 4826
    xid_cache_delete(&thd->transaction.xid_state);
    thd->transaction.xid_state.xa_state=XA_NOTR;
4827 4828
    break;
  case SQLCOM_XA_RECOVER:
4829
    res= mysql_xa_recover(thd);
4830 4831 4832
    break;
  default:
    DBUG_ASSERT(0);                             /* Impossible */
4833
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4834 4835
    break;
  }
monty@mysql.com's avatar
monty@mysql.com committed
4836
  thd->proc_info="query end";
4837
  /* Two binlog-related cleanups: */
4838 4839 4840 4841 4842 4843 4844 4845 4846 4847 4848 4849 4850

  /*
    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);

4851

4852
  /*
4853 4854 4855 4856 4857 4858
    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.
4859
   */
4860 4861
  if (lex->sql_command != SQLCOM_CALL && lex->sql_command != SQLCOM_EXECUTE &&
      uc_update_queries[lex->sql_command]<2)
4862
    thd->row_count_func= -1;
4863
  goto cleanup;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4864 4865

error:
4866
  res= 1;
4867

4868 4869
cleanup:
  DBUG_RETURN(res || thd->net.report_error);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4870 4871 4872
}


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

4877
  SYNOPSIS
monty@mysql.com's avatar
monty@mysql.com committed
4878 4879
    check_one_table_access()
    thd			Thread handler
4880
    privilege		requested privilege
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4881
    all_tables		global table list of query
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4882 4883 4884

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

4888
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
4889
{
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4890
  if (check_access(thd, privilege, all_tables->db,
4891 4892
		   &all_tables->grant.privilege, 0, 0,
                   test(all_tables->schema_table)))
monty@mysql.com's avatar
monty@mysql.com committed
4893
    return 1;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4894

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

4899
  /* Check rights on tables of subselects and implictly opened tables */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4900
  TABLE_LIST *subselects_tables;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4901
  if ((subselects_tables= all_tables->next_global))
monty@mysql.com's avatar
monty@mysql.com committed
4902
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4903
    if ((check_table_access(thd, SELECT_ACL, subselects_tables, 0)))
monty@mysql.com's avatar
monty@mysql.com committed
4904 4905 4906
      return 1;
  }
  return 0;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4907 4908 4909
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
4910
/****************************************************************************
4911
  Get the user (global) and database privileges for all used tables
4912 4913 4914 4915 4916 4917 4918 4919 4920 4921 4922 4923 4924

  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
4925 4926
                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
4927 4928 4929
****************************************************************************/

bool
4930
check_access(THD *thd, ulong want_access, const char *db, ulong *save_priv,
4931
	     bool dont_check_global_grants, bool no_errors, bool schema_db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4932
{
4933
  Security_context *sctx= thd->security_ctx;
4934 4935
#ifndef NO_EMBEDDED_ACCESS_CHECKS
  ulong db_access;
4936
  bool  db_is_pattern= test(want_access & GRANT_ACL);
4937 4938
#endif
  ulong dummy;
4939 4940
  DBUG_ENTER("check_access");
  DBUG_PRINT("enter",("db: %s  want_access: %lu  master_access: %lu",
4941
                      db ? db : "", want_access, sctx->master_access));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4942 4943 4944 4945 4946
  if (save_priv)
    *save_priv=0;
  else
    save_priv= &dummy;

4947
  if ((!db || !db[0]) && !thd->db && !dont_check_global_grants)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4948
  {
4949
    DBUG_PRINT("error",("No database"));
4950
    if (!no_errors)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4951 4952
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR),
                 MYF(0));                       /* purecov: tested */
4953
    DBUG_RETURN(TRUE);				/* purecov: tested */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4954 4955
  }

4956 4957 4958 4959 4960
  if (schema_db)
  {
    if (want_access & ~(SELECT_ACL | EXTRA_ACL))
    {
      if (!no_errors)
4961 4962
      {
        const char *db_name= db ? db : thd->db;
4963
        my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
4964 4965
                 sctx->priv_user, sctx->priv_host, db_name);
      }
4966 4967 4968 4969 4970 4971 4972 4973 4974
      DBUG_RETURN(TRUE);
    }
    else
    {
      *save_priv= SELECT_ACL;
      DBUG_RETURN(FALSE);
    }
  }

monty@mysql.com's avatar
monty@mysql.com committed
4975 4976 4977
#ifdef NO_EMBEDDED_ACCESS_CHECKS
  DBUG_RETURN(0);
#else
4978
  if ((sctx->master_access & want_access) == want_access)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4979
  {
4980 4981 4982 4983 4984
    /*
      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
    */
4985 4986
    db_access= sctx->db_access;
    if (!(sctx->master_access & SELECT_ACL) &&
4987
	(db && (!thd->db || db_is_pattern || strcmp(db,thd->db))))
4988 4989 4990
      db_access=acl_get(sctx->host, sctx->ip, sctx->priv_user, db,
                        db_is_pattern);
    *save_priv=sctx->master_access | db_access;
4991
    DBUG_RETURN(FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4992
  }
4993
  if (((want_access & ~sctx->master_access) & ~(DB_ACLS | EXTRA_ACL)) ||
4994
      ! db && dont_check_global_grants)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4995
  {						// We can never grant this
4996
    DBUG_PRINT("error",("No possible access"));
4997
    if (!no_errors)
4998
      my_error(ER_ACCESS_DENIED_ERROR, MYF(0),
4999 5000
               sctx->priv_user,
               sctx->priv_host,
5001 5002 5003
               (thd->password ?
                ER(ER_YES) :
                ER(ER_NO)));                    /* purecov: tested */
5004
    DBUG_RETURN(TRUE);				/* purecov: tested */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5005 5006 5007
  }

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

5010
  if (db && (!thd->db || db_is_pattern || strcmp(db,thd->db)))
5011 5012
    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
5013
  else
5014
    db_access= sctx->db_access;
5015
  DBUG_PRINT("info",("db_access: %lu", db_access));
monty@mysql.com's avatar
monty@mysql.com committed
5016
  /* Remove SHOW attribute and access rights we already have */
5017
  want_access &= ~(sctx->master_access | EXTRA_ACL);
5018 5019
  DBUG_PRINT("info",("db_access: %lu  want_access: %lu",
                     db_access, want_access));
5020
  db_access= ((*save_priv=(db_access | sctx->master_access)) & want_access);
5021 5022

  /* grant_option is set if there exists a single table or column grant */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5023
  if (db_access == want_access ||
5024
      (grant_option && !dont_check_global_grants &&
5025
       !(want_access & ~(db_access | TABLE_ACLS | PROC_ACLS))))
5026
    DBUG_RETURN(FALSE);				/* Ok */
5027 5028

  DBUG_PRINT("error",("Access denied"));
5029
  if (!no_errors)
5030
    my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5031
             sctx->priv_user, sctx->priv_host,
5032 5033 5034
             (db ? db : (thd->db ?
                         thd->db :
                         "unknown")));          /* purecov: tested */
5035
  DBUG_RETURN(TRUE);				/* purecov: tested */
monty@mysql.com's avatar
monty@mysql.com committed
5036
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5037 5038 5039
}


5040 5041 5042 5043 5044 5045 5046 5047 5048
/*
  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
5049
    One gets access right if one has ANY of the rights in want_access
5050 5051 5052 5053 5054 5055 5056 5057
    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
*/
5058 5059

bool check_global_access(THD *thd, ulong want_access)
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
5060
{
monty@mysql.com's avatar
monty@mysql.com committed
5061 5062 5063
#ifdef NO_EMBEDDED_ACCESS_CHECKS
  return 0;
#else
5064
  char command[128];
5065
  if ((thd->security_ctx->master_access & want_access))
5066 5067
    return 0;
  get_privilege_desc(command, sizeof(command), want_access);
5068
  my_error(ER_SPECIFIC_ACCESS_DENIED_ERROR, MYF(0), command);
5069
  return 1;
monty@mysql.com's avatar
monty@mysql.com committed
5070
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
5071 5072 5073
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
5074
/*
5075 5076
  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
5077 5078
*/

5079
bool
5080
check_table_access(THD *thd, ulong want_access,TABLE_LIST *tables,
5081
		   bool no_errors)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5082
{
5083 5084
  uint found=0;
  ulong found_access=0;
5085 5086 5087
  TABLE_LIST *org_tables= tables;
  TABLE_LIST *first_not_own_table= thd->lex->first_not_own_table();
  /*
5088 5089 5090
    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.
5091
  */
5092
  for (; tables && tables != first_not_own_table; tables= tables->next_global)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5093
  {
5094
    if (tables->schema_table && 
5095
        (want_access & ~(SELECT_ACL | EXTRA_ACL | FILE_ACL)))
5096 5097 5098
    {
      if (!no_errors)
        my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5099
                 thd->security_ctx->priv_user, thd->security_ctx->priv_host,
5100 5101 5102
                 information_schema_name.str);
      return TRUE;
    }
5103 5104 5105 5106 5107
    /*
       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);
5108
    if (tables->derived || tables->schema_table || tables->belong_to_view ||
5109
        (tables->table && (int)tables->table->s->tmp_table) ||
5110 5111
        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
5112
      continue;
5113 5114
    if ((thd->security_ctx->master_access & want_access) ==
        (want_access & ~EXTRA_ACL) &&
5115
	thd->db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5116
      tables->grant.privilege= want_access;
5117
    else if (tables->db && tables->db == thd->db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5118 5119 5120 5121 5122
    {
      if (found && !grant_option)		// db already checked
	tables->grant.privilege=found_access;
      else
      {
5123
	if (check_access(thd,want_access,tables->db,&tables->grant.privilege,
5124
			 0, no_errors, test(tables->schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5125 5126
	  return TRUE;				// Access denied
	found_access=tables->grant.privilege;
5127
	found=1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5128 5129
      }
    }
5130
    else if (check_access(thd,want_access,tables->db,&tables->grant.privilege,
5131
			  0, no_errors, test(tables->schema_table)))
5132
      return TRUE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5133 5134
  }
  if (grant_option)
5135
    return check_grant(thd,want_access & ~EXTRA_ACL,org_tables,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5136
		       test(want_access & EXTRA_ACL), UINT_MAX, no_errors);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5137 5138 5139
  return FALSE;
}

5140

5141
bool
5142 5143
check_routine_access(THD *thd, ulong want_access,char *db, char *name,
		     bool is_proc, bool no_errors)
5144 5145 5146 5147 5148
{
  TABLE_LIST tables[1];
  
  bzero((char *)tables, sizeof(TABLE_LIST));
  tables->db= db;
5149
  tables->table_name= tables->alias= name;
5150
  
monty@mysql.com's avatar
monty@mysql.com committed
5151 5152 5153 5154 5155 5156 5157
  /*
    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)
5158 5159
    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
5160
			0, no_errors, 0))
5161 5162
    return TRUE;
  
5163
#ifndef NO_EMBEDDED_ACCESS_CHECKS
5164
  if (grant_option)
5165
    return check_grant_routine(thd, want_access, tables, is_proc, no_errors);
5166
#endif
5167 5168 5169 5170

  return FALSE;
}

5171 5172 5173 5174 5175 5176 5177 5178 5179 5180 5181 5182 5183 5184 5185

/*
  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
*/

5186 5187
bool check_some_routine_access(THD *thd, const char *db, const char *name,
                               bool is_proc)
5188 5189
{
  ulong save_priv;
5190
  if (thd->security_ctx->master_access & SHOW_PROC_ACLS)
5191
    return FALSE;
5192 5193 5194 5195 5196
  /*
    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) ||
5197 5198
      (save_priv & SHOW_PROC_ACLS))
    return FALSE;
5199
  return check_routine_level_acl(thd, db, name, is_proc);
5200 5201 5202
}


5203 5204 5205 5206 5207 5208 5209 5210 5211 5212 5213 5214 5215 5216 5217 5218 5219 5220 5221 5222 5223 5224 5225 5226 5227
/*
  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,
5228 5229
                        &table->grant.privilege, 0, 1,
                        test(table->schema_table)) &&
5230 5231 5232 5233 5234 5235 5236 5237 5238
          !grant_option || !check_grant(thd, access, table, 0, 1, 1))
        DBUG_RETURN(0);
    }
  }
  DBUG_PRINT("exit",("no matching access rights"));
  DBUG_RETURN(1);
}


5239 5240
bool check_merge_table_access(THD *thd, char *db,
			      TABLE_LIST *table_list)
5241 5242 5243 5244
{
  int error=0;
  if (table_list)
  {
5245
    /* Check that all tables use the current database */
5246
    TABLE_LIST *tmp;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5247
    for (tmp= table_list; tmp; tmp= tmp->next_local)
5248 5249 5250 5251
    {
      if (!tmp->db || !tmp->db[0])
	tmp->db=db;
    }
5252
    error=check_table_access(thd, SELECT_ACL | UPDATE_ACL | DELETE_ACL,
hf@deer.(none)'s avatar
hf@deer.(none) committed
5253
			     table_list,0);
5254 5255 5256 5257
  }
  return error;
}

hf@deer.(none)'s avatar
hf@deer.(none) committed
5258 5259 5260

static bool check_db_used(THD *thd,TABLE_LIST *tables)
{
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5261
  for (; tables; tables= tables->next_global)
hf@deer.(none)'s avatar
hf@deer.(none) committed
5262 5263 5264 5265 5266
  {
    if (!tables->db)
    {
      if (!(tables->db=thd->db))
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5267 5268
	my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR),
                   MYF(0));                     /* purecov: tested */
hf@deer.(none)'s avatar
hf@deer.(none) committed
5269 5270 5271 5272 5273 5274
	return TRUE;				/* purecov: tested */
      }
    }
  }
  return FALSE;
}
5275

5276

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5277 5278 5279 5280 5281 5282 5283 5284 5285 5286
/****************************************************************************
	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
5287 5288 5289 5290
#ifndef DBUG_OFF
long max_stack_used;
#endif

5291
#ifndef EMBEDDED_LIBRARY
5292 5293 5294 5295 5296 5297 5298 5299
/*
  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
5300 5301
{
  long stack_used;
5302
  DBUG_ASSERT(thd == current_thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5303
  if ((stack_used=used_stack(thd->thread_stack,(char*) &stack_used)) >=
monty@mysql.com's avatar
monty@mysql.com committed
5304
      (long) (thread_stack - margin))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5305
  {
5306 5307 5308
    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));
5309
    thd->fatal_error();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5310 5311
    return 1;
  }
monty@mysql.com's avatar
monty@mysql.com committed
5312 5313 5314
#ifndef DBUG_OFF
  max_stack_used= max(max_stack_used, stack_used);
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5315 5316
  return 0;
}
5317
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5318 5319 5320 5321

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

5322
bool my_yyoverflow(short **yyss, YYSTYPE **yyvs, ulong *yystacksize)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5323 5324
{
  LEX	*lex=current_lex;
5325
  ulong old_info=0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5326 5327 5328 5329 5330 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340 5341 5342 5343 5344 5345 5346 5347 5348 5349 5350 5351
  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;
}


/****************************************************************************
5352
  Initialize global thd variables needed for query
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5353 5354
****************************************************************************/

5355
void
5356
mysql_init_query(THD *thd, uchar *buf, uint length)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5357 5358
{
  DBUG_ENTER("mysql_init_query");
5359
  lex_start(thd, buf, length);
5360 5361 5362 5363 5364 5365 5366 5367 5368 5369 5370 5371 5372 5373 5374 5375 5376 5377 5378 5379 5380
  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");
5381
  thd->free_list= 0;
5382
  thd->select_number= 1;
5383
  thd->last_insert_id_used= thd->query_start_used= thd->insert_id_used=0;
5384
  thd->is_fatal_error= thd->time_zone_used= 0;
monty@mysql.com's avatar
monty@mysql.com committed
5385
  thd->server_status&= ~ (SERVER_MORE_RESULTS_EXISTS | 
monty@mysql.com's avatar
monty@mysql.com committed
5386 5387
                          SERVER_QUERY_NO_INDEX_USED |
                          SERVER_QUERY_NO_GOOD_INDEX_USED);
5388
  DBUG_ASSERT(thd->security_ctx== &thd->main_security_ctx);
5389
  thd->tmp_table_used= 0;
5390 5391
  if (!thd->in_sub_stmt)
  {
5392
    if (opt_bin_log)
5393
    {
5394
      reset_dynamic(&thd->user_var_events);
5395 5396
      thd->user_var_events_alloc= thd->mem_root;
    }
5397
    thd->clear_error();
5398 5399 5400 5401
    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
5402 5403 5404
  DBUG_VOID_RETURN;
}

5405

5406 5407 5408
void
mysql_init_select(LEX *lex)
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5409
  SELECT_LEX *select_lex= lex->current_select;
5410
  select_lex->init_select();
5411
  lex->wild= 0;
5412 5413
  if (select_lex == &lex->select_lex)
  {
5414
    DBUG_ASSERT(lex->result == 0);
5415 5416
    lex->exchange= 0;
  }
5417 5418
}

5419

5420
bool
5421
mysql_new_select(LEX *lex, bool move_down)
5422
{
5423
  SELECT_LEX *select_lex;
5424
  THD *thd= lex->thd;
5425 5426
  DBUG_ENTER("mysql_new_select");

5427
  if (!(select_lex= new (thd->mem_root) SELECT_LEX()))
5428
    DBUG_RETURN(1);
5429
  select_lex->select_number= ++thd->select_number;
5430
  select_lex->parent_lex= lex; /* Used in init_query. */
5431 5432
  select_lex->init_query();
  select_lex->init_select();
5433 5434 5435 5436 5437
  /*
    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
5438
  if (thd->stmt_arena->is_stmt_prepare())
5439
    select_lex->uncacheable|= UNCACHEABLE_PREPARE;
5440 5441
  if (move_down)
  {
5442
    SELECT_LEX_UNIT *unit;
5443
    lex->subqueries= TRUE;
5444
    /* first select_lex of subselect or derived table */
5445
    if (!(unit= new (thd->mem_root) SELECT_LEX_UNIT()))
5446
      DBUG_RETURN(1);
5447

5448 5449
    unit->init_query();
    unit->init_select();
5450
    unit->thd= thd;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5451
    unit->include_down(lex->current_select);
5452 5453
    unit->link_next= 0;
    unit->link_prev= 0;
5454
    unit->return_to= lex->current_select;
5455
    select_lex->include_down(unit);
5456 5457 5458 5459 5460
    /*
      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;
5461 5462
  }
  else
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5463
  {
5464
    Name_resolution_context *outer_context;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5465 5466
    if (lex->current_select->order_list.first && !lex->current_select->braces)
    {
5467
      my_error(ER_WRONG_USAGE, MYF(0), "UNION", "ORDER BY");
5468
      DBUG_RETURN(1);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5469
    }
5470
    select_lex->include_neighbour(lex->current_select);
5471 5472 5473 5474 5475 5476
    /*
      we are not sure that we have one level of SELECTs above, so we take
      outer_context address from first select of unit
    */
    outer_context=
      select_lex->master_unit()->first_select()->context.outer_context;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5477 5478 5479 5480 5481 5482 5483 5484
    SELECT_LEX_UNIT *unit= select_lex->master_unit();
    SELECT_LEX *fake= unit->fake_select_lex;
    if (!fake)
    {
      /*
	as far as we included SELECT_LEX for UNION unit should have
	fake SELECT_LEX for UNION processing
      */
5485
      if (!(fake= unit->fake_select_lex= new (thd->mem_root) SELECT_LEX()))
5486
        DBUG_RETURN(1);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5487 5488 5489
      fake->include_standalone(unit,
			       (SELECT_LEX_NODE**)&unit->fake_select_lex);
      fake->select_number= INT_MAX;
5490
      fake->parent_lex= lex; /* Used in init_query. */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5491 5492
      fake->make_empty_select();
      fake->linkage= GLOBAL_OPTIONS_TYPE;
5493
      fake->select_limit= 0;
5494 5495 5496 5497 5498

      fake->context.outer_context= outer_context;
      /* allow item list resolving in fake select for ORDER BY */
      fake->context.resolve_in_select_list= TRUE;
      fake->context.select_lex= fake;
5499 5500 5501 5502 5503
      /*
        Remove the name resolution context of the fake select from the
        context stack.
       */
      lex->pop_context();
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5504
    }
5505
    select_lex->context.outer_context= outer_context;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5506
  }
peter@mysql.com's avatar
peter@mysql.com committed
5507

5508
  select_lex->master_unit()->global_parameters= select_lex;
5509
  select_lex->include_global((st_select_lex_node**)&lex->all_selects_list);
5510
  lex->current_select= select_lex;
5511 5512 5513 5514 5515
  /*
    in subquery is SELECT query and we allow resolution of names in SELECT
    list
  */
  select_lex->context.resolve_in_select_list= TRUE;
5516
  DBUG_RETURN(0);
5517
}
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5518

5519 5520 5521 5522 5523 5524 5525 5526 5527 5528 5529 5530 5531 5532 5533
/*
  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)
{
5534
  THD *thd;
5535
  LEX *lex;
5536
  LEX_STRING tmp, null_lex_string;
5537 5538
  Item *var;
  char buff[MAX_SYS_VAR_LENGTH*2+4+8], *end;
5539
  DBUG_ENTER("create_select_for_variable");
5540 5541

  thd= current_thd;
pem@mysql.telia.com's avatar
pem@mysql.telia.com committed
5542
  lex= thd->lex;
5543 5544 5545 5546
  mysql_init_select(lex);
  lex->sql_command= SQLCOM_SELECT;
  tmp.str= (char*) var_name;
  tmp.length=strlen(var_name);
5547
  bzero((char*) &null_lex_string.str, sizeof(null_lex_string));
5548 5549 5550 5551
  /*
    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
5552 5553 5554 5555 5556 5557
  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);
  }
5558 5559 5560
  DBUG_VOID_RETURN;
}

5561

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5562 5563
void mysql_init_multi_delete(LEX *lex)
{
5564
  lex->sql_command=  SQLCOM_DELETE_MULTI;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5565
  mysql_init_select(lex);
5566 5567
  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
5568
  lex->select_lex.table_list.save_and_clear(&lex->auxilliary_table_list);
5569
  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
5570 5571
  lex->query_tables= 0;
  lex->query_tables_last= &lex->query_tables;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5572
}
5573

5574

5575 5576 5577 5578
/*
  When you modify mysql_parse(), you may need to mofify
  mysql_test_parse_for_slave() in this same file.
*/
5579

5580
void mysql_parse(THD *thd, char *inBuf, uint length)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5581 5582
{
  DBUG_ENTER("mysql_parse");
5583
  mysql_init_query(thd, (uchar*) inBuf, length);
5584
  if (query_cache_send_result_to_client(thd, inBuf, length) <= 0)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5585
  {
5586
    LEX *lex= thd->lex;
5587
    
5588 5589
    sp_cache_flush_obsolete(&thd->sp_proc_cache);
    sp_cache_flush_obsolete(&thd->sp_func_cache);
5590
    
5591
    if (!yyparse((void *)thd) && ! thd->is_fatal_error)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5592
    {
hf@deer.(none)'s avatar
hf@deer.(none) committed
5593
#ifndef NO_EMBEDDED_ACCESS_CHECKS
5594
      if (mqh_used && thd->user_connect &&
5595
	  check_mqh(thd, lex->sql_command))
5596 5597 5598 5599
      {
	thd->net.error = 0;
      }
      else
hf@deer.(none)'s avatar
hf@deer.(none) committed
5600
#endif
5601
      {
5602
	if (thd->net.report_error)
5603 5604
	{
	  if (thd->lex->sphead)
5605 5606 5607 5608
	  {
	    delete thd->lex->sphead;
	    thd->lex->sphead= NULL;
	  }
5609
	}
5610 5611
	else
	{
5612 5613 5614 5615 5616 5617 5618 5619 5620 5621
          /*
            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
5622 5623
          if (lex->found_semicolon &&
              (thd->query_length= (ulong)(lex->found_semicolon - thd->query)))
5624 5625
            thd->query_length--;
          /* Actually execute the query */
5626
	  mysql_execute_command(thd);
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
5627
	  query_cache_end_of_result(thd);
5628
	}
5629
      }
5630
      lex->unit.cleanup();
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5631 5632
    }
    else
5633 5634
    {
      DBUG_PRINT("info",("Command aborted. Fatal_error: %d",
5635
			 thd->is_fatal_error));
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5636
      query_cache_abort(&thd->net);
5637
      lex->unit.cleanup();
5638
      if (thd->lex->sphead)
5639
      {
monty@mysql.com's avatar
monty@mysql.com committed
5640
	/* Clean up after failed stored procedure/function */
5641 5642 5643
	delete thd->lex->sphead;
	thd->lex->sphead= NULL;
      }
5644
    }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5645
    thd->proc_info="freeing items";
5646
    thd->end_statement();
5647
    thd->cleanup_after_query();
5648
    DBUG_ASSERT(thd->change_list.is_empty());
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5649
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5650 5651 5652 5653
  DBUG_VOID_RETURN;
}


monty@mysql.com's avatar
monty@mysql.com committed
5654
#ifdef HAVE_REPLICATION
5655 5656 5657 5658 5659 5660 5661 5662 5663 5664 5665
/*
  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)
{
5666
  LEX *lex= thd->lex;
5667
  bool error= 0;
monty@mysql.com's avatar
monty@mysql.com committed
5668
  DBUG_ENTER("mysql_test_parse_for_slave");
5669

5670
  mysql_init_query(thd, (uchar*) inBuf, length);
monty@mysql.com's avatar
monty@mysql.com committed
5671
  if (!yyparse((void*) thd) && ! thd->is_fatal_error &&
5672
      all_tables_not_ok(thd,(TABLE_LIST*) lex->select_lex.table_list.first))
monty@mysql.com's avatar
monty@mysql.com committed
5673
    error= 1;                  /* Ignore question */
5674
  thd->end_statement();
5675
  thd->cleanup_after_query();
monty@mysql.com's avatar
monty@mysql.com committed
5676
  DBUG_RETURN(error);
5677
}
monty@mysql.com's avatar
monty@mysql.com committed
5678
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5679

5680

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

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5682 5683 5684 5685 5686
/*****************************************************************************
** Store field definition for create
** Return 0 if ok
******************************************************************************/

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5687
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
5688
		       char *length, char *decimals,
5689
		       uint type_modifier,
5690 5691
		       Item *default_value, Item *on_update_value,
                       LEX_STRING *comment,
5692 5693
		       char *change,
                       List<String> *interval_list, CHARSET_INFO *cs,
5694
		       uint uint_geom_type)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5695 5696
{
  register create_field *new_field;
5697
  LEX  *lex= thd->lex;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5698 5699 5700 5701
  DBUG_ENTER("add_field_to_list");

  if (strlen(field_name) > NAME_LEN)
  {
5702
    my_error(ER_TOO_LONG_IDENT, MYF(0), field_name); /* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5703 5704 5705 5706 5707
    DBUG_RETURN(1);				/* purecov: inspected */
  }
  if (type_modifier & PRI_KEY_FLAG)
  {
    lex->col_list.push_back(new key_part_spec(field_name,0));
5708
    lex->key_list.push_back(new Key(Key::PRIMARY, NullS, HA_KEY_ALG_UNDEF,
5709
				    0, lex->col_list));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5710 5711 5712 5713 5714
    lex->col_list.empty();
  }
  if (type_modifier & (UNIQUE_FLAG | UNIQUE_KEY_FLAG))
  {
    lex->col_list.push_back(new key_part_spec(field_name,0));
5715
    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
5716 5717 5718 5719
				    lex->col_list));
    lex->col_list.empty();
  }

5720
  if (default_value)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5721
  {
5722
    /* 
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5723 5724
      Default value should be literal => basic constants =>
      no need fix_fields()
5725 5726 5727
      
      We allow only one function as part of default value - 
      NOW() as default for TIMESTAMP type.
5728
    */
5729 5730 5731
    if (default_value->type() == Item::FUNC_ITEM && 
        !(((Item_func*)default_value)->functype() == Item_func::NOW_FUNC &&
         type == FIELD_TYPE_TIMESTAMP))
5732
    {
5733
      my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
5734 5735 5736
      DBUG_RETURN(1);
    }
    else if (default_value->type() == Item::NULL_ITEM)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5737
    {
5738
      default_value= 0;
5739 5740 5741
      if ((type_modifier & (NOT_NULL_FLAG | AUTO_INCREMENT_FLAG)) ==
	  NOT_NULL_FLAG)
      {
5742
	my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
5743 5744 5745 5746 5747
	DBUG_RETURN(1);
      }
    }
    else if (type_modifier & AUTO_INCREMENT_FLAG)
    {
5748
      my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5749 5750 5751
      DBUG_RETURN(1);
    }
  }
5752 5753 5754

  if (on_update_value && type != FIELD_TYPE_TIMESTAMP)
  {
5755
    my_error(ER_INVALID_ON_UPDATE, MYF(0), field_name);
5756 5757
    DBUG_RETURN(1);
  }
5758

5759 5760 5761 5762 5763 5764
  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
5765
    char buf[32];
5766
    my_snprintf(buf, sizeof(buf), "TIMESTAMP(%s)", length);
5767 5768 5769
    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
5770
                        buf, "TIMESTAMP");
5771 5772
  }

5773 5774 5775
  if (!(new_field= new_create_field(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
5776
    DBUG_RETURN(1);
5777 5778 5779 5780 5781 5782 5783 5784 5785 5786 5787 5788 5789 5790 5791 5792 5793 5794 5795 5796 5797 5798 5799 5800 5801 5802 5803

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

/*****************************************************************************
** Create field definition for create
** Return 0 on failure, otherwise return create_field instance
******************************************************************************/
  
create_field *
new_create_field(THD *thd, char *field_name, enum_field_types type,
		 char *length, char *decimals,
		 uint type_modifier, 
		 Item *default_value, Item *on_update_value,
		 LEX_STRING *comment,
		 char *change, List<String> *interval_list, CHARSET_INFO *cs,
		 uint uint_geom_type)
{
  register create_field *new_field;
  uint sign_len, allowed_type_modifier=0;
  ulong max_field_charlength= MAX_FIELD_CHARLENGTH;
  DBUG_ENTER("new_create_field");
  
  if (!(new_field=new create_field()))
    DBUG_RETURN(NULL);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5804 5805
  new_field->field=0;
  new_field->field_name=field_name;
5806
  new_field->def= default_value;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5807 5808 5809
  new_field->flags= type_modifier;
  new_field->unireg_check= (type_modifier & AUTO_INCREMENT_FLAG ?
			    Field::NEXT_NUMBER : Field::NONE);
5810 5811 5812 5813 5814 5815 5816 5817
  new_field->decimals= decimals ? (uint)atoi(decimals) : 0;
  if (new_field->decimals >= NOT_FIXED_DEC)
  {
    my_error(ER_TOO_BIG_SCALE, MYF(0), new_field->decimals, field_name,
             NOT_FIXED_DEC-1);
    DBUG_RETURN(NULL);
  }

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5818 5819 5820 5821
  new_field->sql_type=type;
  new_field->length=0;
  new_field->change=change;
  new_field->interval=0;
5822
  new_field->pack_length= new_field->key_length= 0;
5823
  new_field->charset=cs;
5824
  new_field->geom_type= (Field::geometry_type) uint_geom_type;
5825

5826
  new_field->comment=*comment;
5827 5828 5829
  /*
    Set flag if this field doesn't have a default value
  */
5830
  if (!default_value && !(type_modifier & AUTO_INCREMENT_FLAG) &&
5831
      (type_modifier & NOT_NULL_FLAG) && type != FIELD_TYPE_TIMESTAMP)
5832 5833
    new_field->flags|= NO_DEFAULT_VALUE_FLAG;

5834 5835
  if (length && !(new_field->length= (uint) atoi(length)))
    length=0; /* purecov: inspected */
5836
  sign_len=type_modifier & UNSIGNED_FLAG ? 0 : 1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5837 5838 5839

  switch (type) {
  case FIELD_TYPE_TINY:
5840
    if (!length) new_field->length=MAX_TINYINT_WIDTH+sign_len;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5841 5842 5843
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
  case FIELD_TYPE_SHORT:
5844
    if (!length) new_field->length=MAX_SMALLINT_WIDTH+sign_len;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5845 5846 5847
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
  case FIELD_TYPE_INT24:
5848
    if (!length) new_field->length=MAX_MEDIUMINT_WIDTH+sign_len;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5849 5850 5851
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
  case FIELD_TYPE_LONG:
5852
    if (!length) new_field->length=MAX_INT_WIDTH+sign_len;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5853 5854 5855
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
  case FIELD_TYPE_LONGLONG:
5856
    if (!length) new_field->length=MAX_BIGINT_WIDTH;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5857 5858 5859 5860
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
  case FIELD_TYPE_NULL:
    break;
5861
  case FIELD_TYPE_NEWDECIMAL:
5862
    if (!length && !new_field->decimals)
5863 5864
      new_field->length= 10;
    if (new_field->length > DECIMAL_MAX_PRECISION)
monty@mysql.com's avatar
monty@mysql.com committed
5865
    {
5866 5867 5868
      my_error(ER_TOO_BIG_PRECISION, MYF(0), new_field->length, field_name,
               DECIMAL_MAX_PRECISION);
      DBUG_RETURN(NULL);
monty@mysql.com's avatar
monty@mysql.com committed
5869
    }
5870
    if (new_field->length < new_field->decimals)
5871
    {
5872
      my_error(ER_M_BIGGER_THAN_D, MYF(0), field_name);
5873
      DBUG_RETURN(NULL);
5874
    }
5875 5876 5877 5878 5879 5880
    new_field->length=
      my_decimal_precision_to_length(new_field->length, new_field->decimals,
                                     type_modifier & UNSIGNED_FLAG);
    new_field->pack_length=
      my_decimal_get_binary_size(new_field->length, new_field->decimals);
    break;
5881 5882 5883 5884 5885 5886 5887 5888 5889
  case MYSQL_TYPE_VARCHAR:
    /*
      Long VARCHAR's are automaticly converted to blobs in mysql_prepare_table
      if they don't have a default value
    */
    max_field_charlength= MAX_FIELD_VARCHARLENGTH;
    break;
  case MYSQL_TYPE_STRING:
    break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5890 5891 5892 5893
  case FIELD_TYPE_BLOB:
  case FIELD_TYPE_TINY_BLOB:
  case FIELD_TYPE_LONG_BLOB:
  case FIELD_TYPE_MEDIUM_BLOB:
5894
  case FIELD_TYPE_GEOMETRY:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5895 5896 5897 5898 5899 5900
    if (default_value)				// Allow empty as default value
    {
      String str,*res;
      res=default_value->val_str(&str);
      if (res->length())
      {
5901 5902
	my_error(ER_BLOB_CANT_HAVE_DEFAULT, MYF(0),
                 field_name); /* purecov: inspected */
5903
	DBUG_RETURN(NULL);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5904 5905 5906 5907 5908 5909 5910 5911 5912 5913 5914 5915 5916 5917 5918 5919 5920 5921
      }
      new_field->def=0;
    }
    new_field->flags|=BLOB_FLAG;
    break;
  case FIELD_TYPE_YEAR:
    if (!length || new_field->length != 2)
      new_field->length=4;			// Default length
    new_field->flags|= ZEROFILL_FLAG | UNSIGNED_FLAG;
    break;
  case FIELD_TYPE_FLOAT:
    /* change FLOAT(precision) to FLOAT or DOUBLE */
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    if (length && !decimals)
    {
      uint tmp_length=new_field->length;
      if (tmp_length > PRECISION_FOR_DOUBLE)
      {
5922
	my_error(ER_WRONG_FIELD_SPEC, MYF(0), field_name);
5923
	DBUG_RETURN(NULL);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5924 5925 5926 5927 5928 5929 5930 5931 5932 5933 5934
      }
      else if (tmp_length > PRECISION_FOR_FLOAT)
      {
	new_field->sql_type=FIELD_TYPE_DOUBLE;
	new_field->length=DBL_DIG+7;			// -[digits].E+###
      }
      else
	new_field->length=FLT_DIG+6;			// -[digits].E+##
      new_field->decimals= NOT_FIXED_DEC;
      break;
    }
5935
    if (!length && !decimals)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5936 5937 5938 5939
    {
      new_field->length =  FLT_DIG+6;
      new_field->decimals= NOT_FIXED_DEC;
    }
5940 5941 5942
    if (new_field->length < new_field->decimals &&
        new_field->decimals != NOT_FIXED_DEC)
    {
5943
      my_error(ER_M_BIGGER_THAN_D, MYF(0), field_name);
5944 5945
      DBUG_RETURN(NULL);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5946 5947 5948
    break;
  case FIELD_TYPE_DOUBLE:
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
5949
    if (!length && !decimals)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5950 5951 5952 5953
    {
      new_field->length = DBL_DIG+7;
      new_field->decimals=NOT_FIXED_DEC;
    }
5954 5955 5956
    if (new_field->length < new_field->decimals &&
        new_field->decimals != NOT_FIXED_DEC)
    {
5957
      my_error(ER_M_BIGGER_THAN_D, MYF(0), field_name);
5958 5959
      DBUG_RETURN(NULL);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5960 5961 5962 5963
    break;
  case FIELD_TYPE_TIMESTAMP:
    if (!length)
      new_field->length= 14;			// Full date YYYYMMDDHHMMSS
5964
    else if (new_field->length != 19)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5965
    {
5966 5967 5968 5969
      /*
        We support only even TIMESTAMP lengths less or equal than 14
        and 19 as length of 4.1 compatible representation.
      */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5970 5971 5972
      new_field->length=((new_field->length+1)/2)*2; /* purecov: inspected */
      new_field->length= min(new_field->length,14); /* purecov: inspected */
    }
5973
    new_field->flags|= ZEROFILL_FLAG | UNSIGNED_FLAG;
5974 5975 5976 5977 5978 5979 5980 5981 5982 5983 5984 5985 5986 5987 5988 5989 5990 5991 5992 5993
    if (default_value)
    {
      /* Grammar allows only NOW() value for ON UPDATE clause */
      if (default_value->type() == Item::FUNC_ITEM && 
          ((Item_func*)default_value)->functype() == Item_func::NOW_FUNC)
      {
        new_field->unireg_check= (on_update_value?Field::TIMESTAMP_DNUN_FIELD:
                                                  Field::TIMESTAMP_DN_FIELD);
        /*
          We don't need default value any longer moreover it is dangerous.
          Everything handled by unireg_check further.
        */
        new_field->def= 0;
      }
      else
        new_field->unireg_check= (on_update_value?Field::TIMESTAMP_UN_FIELD:
                                                  Field::NONE);
    }
    else
    {
5994 5995 5996 5997 5998 5999 6000 6001
      /*
        If we have default TIMESTAMP NOT NULL column without explicit DEFAULT
        or ON UPDATE values then for the sake of compatiblity we should treat
        this column as having DEFAULT NOW() ON UPDATE NOW() (when we don't
        have another TIMESTAMP column with auto-set option before this one)
        or DEFAULT 0 (in other cases).
        So here we are setting TIMESTAMP_OLD_FIELD only temporary, and will
        replace this value by TIMESTAMP_DNUN_FIELD or NONE later when
6002
        information about all TIMESTAMP fields in table will be availiable.
6003 6004 6005

        If we have TIMESTAMP NULL column without explicit DEFAULT value
        we treat it as having DEFAULT NULL attribute.
6006
      */
monty@mysql.com's avatar
monty@mysql.com committed
6007 6008 6009 6010 6011
      new_field->unireg_check= (on_update_value ?
                                Field::TIMESTAMP_UN_FIELD :
                                (new_field->flags & NOT_NULL_FLAG ?
                                 Field::TIMESTAMP_OLD_FIELD:
                                 Field::NONE));
6012
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6013 6014 6015 6016 6017 6018 6019 6020 6021 6022 6023 6024 6025 6026 6027 6028
    break;
  case FIELD_TYPE_DATE:				// Old date type
    if (protocol_version != PROTOCOL_VERSION-1)
      new_field->sql_type=FIELD_TYPE_NEWDATE;
    /* fall trough */
  case FIELD_TYPE_NEWDATE:
    new_field->length=10;
    break;
  case FIELD_TYPE_TIME:
    new_field->length=10;
    break;
  case FIELD_TYPE_DATETIME:
    new_field->length=19;
    break;
  case FIELD_TYPE_SET:
    {
6029
      if (interval_list->elements > sizeof(longlong)*8)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6030
      {
6031
	my_error(ER_TOO_BIG_SET, MYF(0), field_name); /* purecov: inspected */
6032
	DBUG_RETURN(NULL);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6033
      }
6034
      new_field->pack_length= get_set_pack_length(interval_list->elements);
6035 6036 6037 6038 6039 6040 6041 6042 6043 6044 6045

      List_iterator<String> it(*interval_list);
      String *tmp;
      while ((tmp= it++))
        new_field->interval_list.push_back(tmp);
      /*
        Set fake length to 1 to pass the below conditions.
        Real length will be set in mysql_prepare_table()
        when we know the character set of the column
      */
      new_field->length= 1;
6046
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6047 6048 6049
    }
  case FIELD_TYPE_ENUM:
    {
6050
      // Should be safe
6051
      new_field->pack_length= get_enum_pack_length(interval_list->elements);
6052

6053 6054 6055 6056 6057
      List_iterator<String> it(*interval_list);
      String *tmp;
      while ((tmp= it++))
        new_field->interval_list.push_back(tmp);
      new_field->length= 1; // See comment for FIELD_TYPE_SET above.
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6058
      break;
6059
   }
6060 6061
  case MYSQL_TYPE_VAR_STRING:
    DBUG_ASSERT(0);                             // Impossible
6062
    break;
ram@gw.mysql.r18.ru's avatar
ram@gw.mysql.r18.ru committed
6063 6064 6065 6066 6067 6068
  case MYSQL_TYPE_BIT:
    {
      if (!length)
        new_field->length= 1;
      if (new_field->length > MAX_BIT_FIELD_LENGTH)
      {
6069
        my_error(ER_TOO_BIG_DISPLAYWIDTH, MYF(0), field_name,
ram@gw.mysql.r18.ru's avatar
ram@gw.mysql.r18.ru committed
6070
                 MAX_BIT_FIELD_LENGTH);
6071
        DBUG_RETURN(NULL);
ram@gw.mysql.r18.ru's avatar
ram@gw.mysql.r18.ru committed
6072 6073 6074 6075
      }
      new_field->pack_length= (new_field->length + 7) / 8;
      break;
    }
6076 6077
  case FIELD_TYPE_DECIMAL:
    DBUG_ASSERT(0); /* Was obsolete */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6078 6079
  }

6080 6081 6082 6083 6084 6085 6086
  if (!(new_field->flags & BLOB_FLAG) &&
      ((new_field->length > max_field_charlength && type != FIELD_TYPE_SET && 
        type != FIELD_TYPE_ENUM &&
        (type != MYSQL_TYPE_VARCHAR || default_value)) ||
       (!new_field->length &&
        type != MYSQL_TYPE_STRING &&
        type != MYSQL_TYPE_VARCHAR && type != FIELD_TYPE_GEOMETRY)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6087
  {
6088 6089 6090 6091
    my_error((type == MYSQL_TYPE_VAR_STRING || type == MYSQL_TYPE_VARCHAR ||
              type == MYSQL_TYPE_STRING) ?  ER_TOO_BIG_FIELDLENGTH :
             ER_TOO_BIG_DISPLAYWIDTH,
             MYF(0),
6092
             field_name, max_field_charlength); /* purecov: inspected */
6093
    DBUG_RETURN(NULL);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6094 6095 6096 6097
  }
  type_modifier&= AUTO_INCREMENT_FLAG;
  if ((~allowed_type_modifier) & type_modifier)
  {
6098
    my_error(ER_WRONG_FIELD_SPEC, MYF(0), field_name);
6099
    DBUG_RETURN(NULL);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6100
  }
6101
  DBUG_RETURN(new_field);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6102 6103
}

6104

bk@work.mysql.com's avatar
bk@work.mysql.com committed
6105 6106 6107 6108 6109 6110 6111 6112
/* 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
6113
add_proc_to_list(THD* thd, Item *item)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6114 6115 6116 6117
{
  ORDER *order;
  Item	**item_ptr;

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6118
  if (!(order = (ORDER *) thd->alloc(sizeof(ORDER)+sizeof(Item*))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6119 6120 6121 6122 6123
    return 1;
  item_ptr = (Item**) (order+1);
  *item_ptr= item;
  order->item=item_ptr;
  order->free_me=0;
6124
  thd->lex->proc_list.link_in_list((byte*) order,(byte**) &order->next);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6125 6126 6127 6128 6129 6130 6131 6132
  return 0;
}


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

static void remove_escape(char *name)
{
6133 6134
  if (!*name)					// For empty DB names
    return;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6135 6136
  char *to;
#ifdef USE_MB
6137
  char *strend=name+(uint) strlen(name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6138 6139 6140 6141 6142
#endif
  for (to=name; *name ; name++)
  {
#ifdef USE_MB
    int l;
6143 6144
    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
6145 6146 6147 6148 6149 6150 6151 6152
    {
	while (l--)
	    *to++ = *name++;
	name--;
	continue;
    }
#endif
    if (*name == '\\' && name[1])
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6153
      name++;					// Skip '\\'
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6154 6155 6156 6157 6158 6159 6160 6161 6162 6163
    *to++= *name;
  }
  *to=0;
}

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


monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6164
bool add_to_list(THD *thd, SQL_LIST &list,Item *item,bool asc)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6165 6166 6167
{
  ORDER *order;
  DBUG_ENTER("add_to_list");
6168
  if (!(order = (ORDER *) thd->alloc(sizeof(ORDER))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6169
    DBUG_RETURN(1);
6170 6171
  order->item_ptr= item;
  order->item= &order->item_ptr;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6172 6173 6174
  order->asc = asc;
  order->free_me=0;
  order->used=0;
6175
  order->counter_used= 0;
6176
  list.link_in_list((byte*) order,(byte**) &order->next);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6177 6178 6179 6180
  DBUG_RETURN(0);
}


monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6181 6182 6183 6184 6185 6186 6187 6188 6189 6190 6191 6192 6193 6194 6195 6196 6197 6198 6199
/*
  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
6200 6201
TABLE_LIST *st_select_lex::add_table_to_list(THD *thd,
					     Table_ident *table,
6202
					     LEX_STRING *alias,
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6203 6204
					     ulong table_options,
					     thr_lock_type lock_type,
6205 6206
					     List<String> *use_index_arg,
					     List<String> *ignore_index_arg,
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6207
                                             LEX_STRING *option)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6208 6209
{
  register TABLE_LIST *ptr;
6210
  TABLE_LIST *previous_table_ref; /* The table preceding the current one. */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6211
  char *alias_str;
6212
  LEX *lex= thd->lex;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6213
  DBUG_ENTER("add_table_to_list");
6214
  LINT_INIT(previous_table_ref);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6215 6216 6217 6218

  if (!table)
    DBUG_RETURN(0);				// End of memory
  alias_str= alias ? alias->str : table->table.str;
6219
  if (check_table_name(table->table.str,table->table.length) ||
6220
      table->db.str && check_db_name(table->db.str))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6221
  {
6222
    my_error(ER_WRONG_TABLE_NAME, MYF(0), table->table.str);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6223 6224 6225 6226
    DBUG_RETURN(0);
  }

  if (!alias)					/* Alias is case sensitive */
6227 6228 6229
  {
    if (table->sel)
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6230 6231
      my_message(ER_DERIVED_MUST_HAVE_ALIAS,
                 ER(ER_DERIVED_MUST_HAVE_ALIAS), MYF(0));
6232 6233
      DBUG_RETURN(0);
    }
6234
    if (!(alias_str=thd->memdup(alias_str,table->table.length+1)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6235
      DBUG_RETURN(0);
6236
  }
6237
  if (!(ptr = (TABLE_LIST *) thd->calloc(sizeof(TABLE_LIST))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6238
    DBUG_RETURN(0);				/* purecov: inspected */
peter@mysql.com's avatar
peter@mysql.com committed
6239
  if (table->db.str)
6240 6241 6242 6243 6244 6245 6246 6247 6248 6249 6250
  {
    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
  {
6251 6252
    /* The following can't be "" as we may do 'casedn_str()' on it */
    ptr->db= empty_c_string;
6253 6254
    ptr->db_length= 0;
  }
konstantin@mysql.com's avatar
konstantin@mysql.com committed
6255
  if (thd->stmt_arena->is_stmt_prepare_or_first_sp_execute())
6256
    ptr->db= thd->strdup(ptr->db);
peter@mysql.com's avatar
peter@mysql.com committed
6257

6258
  ptr->alias= alias_str;
6259 6260
  if (lower_case_table_names && table->table.length)
    my_casedn_str(files_charset_info, table->table.str);
6261 6262
  ptr->table_name=table->table.str;
  ptr->table_name_length=table->table.length;
6263
  ptr->lock_type=   lock_type;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6264 6265
  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
6266
  ptr->ignore_leaves= test(table_options & TL_OPTION_IGNORE_LEAVES);
6267
  ptr->derived=	    table->sel;
6268 6269
  if (!ptr->derived && !my_strcasecmp(system_charset_info, ptr->db,
                                      information_schema_name.str))
6270
  {
6271
    ST_SCHEMA_TABLE *schema_table= find_schema_table(thd, ptr->table_name);
6272 6273 6274
    if (!schema_table ||
        (schema_table->hidden && 
         lex->orig_sql_command == SQLCOM_END))  // not a 'show' command
6275
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6276
      my_error(ER_UNKNOWN_TABLE, MYF(0),
6277
               ptr->table_name, information_schema_name.str);
6278 6279
      DBUG_RETURN(0);
    }
6280
    ptr->schema_table_name= ptr->table_name;
6281 6282
    ptr->schema_table= schema_table;
  }
6283
  ptr->select_lex=  lex->current_select;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6284
  ptr->cacheable_table= 1;
6285 6286 6287 6288 6289 6290
  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
6291
  ptr->option= option ? option->str : 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6292
  /* check that used name is unique */
6293
  if (lock_type != TL_IGNORE)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6294
  {
timour@mysql.com's avatar
timour@mysql.com committed
6295 6296 6297 6298
    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 ;
6299
	 tables ;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6300
	 tables=tables->next_local)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6301
    {
6302 6303
      if (!my_strcasecmp(table_alias_charset, alias_str, tables->alias) &&
	  !strcmp(ptr->db, tables->db))
6304
      {
6305
	my_error(ER_NONUNIQ_TABLE, MYF(0), alias_str); /* purecov: tested */
6306 6307
	DBUG_RETURN(0);				/* purecov: tested */
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6308 6309
    }
  }
6310 6311 6312
  /* Store the table reference preceding the current one. */
  if (table_list.elements > 0)
  {
6313 6314 6315 6316 6317 6318
    /*
      table_list.next points to the last inserted TABLE_LIST->next_local'
      element
    */
    previous_table_ref= (TABLE_LIST*) (table_list.next -
                                       offsetof(TABLE_LIST, next_local));
6319
    DBUG_ASSERT(previous_table_ref);
6320 6321 6322 6323 6324 6325 6326 6327
    /*
      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;
6328
  }
6329

6330 6331 6332 6333 6334 6335
  /*
    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
6336
  table_list.link_in_list((byte*) ptr, (byte**) &ptr->next_local);
6337
  ptr->next_name_resolution_table= NULL;
6338
  /* Link table in global list (all used tables) */
6339
  lex->add_to_query_tables(ptr);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6340 6341 6342
  DBUG_RETURN(ptr);
}

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

6344 6345 6346 6347
/*
  Initialize a new table list for a nested join

  SYNOPSIS
6348
    init_nested_join()
6349
    thd         current thread
6350

6351 6352 6353 6354 6355 6356 6357 6358 6359 6360 6361 6362 6363 6364 6365 6366 6367 6368 6369
  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");
6370

6371 6372
  if (!(ptr= (TABLE_LIST*) thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST))+
                                       sizeof(NESTED_JOIN))))
6373
    DBUG_RETURN(1);
6374 6375 6376
  nested_join= ptr->nested_join=
    ((NESTED_JOIN*) ((byte*) ptr + ALIGN_SIZE(sizeof(TABLE_LIST))));

6377 6378 6379 6380 6381 6382 6383 6384 6385 6386 6387 6388 6389 6390 6391 6392 6393 6394 6395 6396
  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
6397
    moves it one level up, eliminating the nest.
6398 6399 6400 6401 6402 6403 6404 6405 6406

  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;
6407
  NESTED_JOIN *nested_join;
6408
  DBUG_ENTER("end_nested_join");
6409

6410
  DBUG_ASSERT(embedding);
6411 6412 6413
  ptr= embedding;
  join_list= ptr->join_list;
  embedding= ptr->embedding;
6414
  nested_join= ptr->nested_join;
6415 6416 6417 6418 6419 6420 6421 6422 6423
  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;
  }
6424
  else if (nested_join->join_list.elements == 0)
6425 6426
  {
    join_list->pop();
6427
    ptr= 0;                                     // return value
6428
  }
6429 6430 6431 6432 6433 6434 6435 6436
  DBUG_RETURN(ptr);
}


/*
  Nest last join operation

  SYNOPSIS
6437
    nest_last_join()
6438 6439 6440 6441 6442 6443
    thd         current thread

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

  RETURN VALUE
6444 6445 6446
    0  Error
    #  Pointer to TABLE_LIST element created for the new nested join

6447 6448 6449 6450 6451 6452
*/

TABLE_LIST *st_select_lex::nest_last_join(THD *thd)
{
  TABLE_LIST *ptr;
  NESTED_JOIN *nested_join;
6453
  List<TABLE_LIST> *embedded_list;
6454
  DBUG_ENTER("nest_last_join");
6455

6456 6457
  if (!(ptr= (TABLE_LIST*) thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST))+
                                       sizeof(NESTED_JOIN))))
6458
    DBUG_RETURN(0);
6459 6460 6461
  nested_join= ptr->nested_join=
    ((NESTED_JOIN*) ((byte*) ptr + ALIGN_SIZE(sizeof(TABLE_LIST))));

6462 6463
  ptr->embedding= embedding;
  ptr->join_list= join_list;
6464
  embedded_list= &nested_join->join_list;
6465
  embedded_list->empty();
6466 6467

  for (uint i=0; i < 2; i++)
6468 6469 6470 6471 6472
  {
    TABLE_LIST *table= join_list->pop();
    table->join_list= embedded_list;
    table->embedding= ptr;
    embedded_list->push_back(table);
6473 6474 6475 6476 6477 6478 6479 6480 6481 6482 6483 6484 6485
    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;
      }
    }
6486 6487 6488 6489 6490 6491 6492 6493 6494 6495 6496 6497 6498 6499 6500 6501 6502 6503 6504 6505 6506 6507 6508 6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524 6525
  }
  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
6526 6527 6528

  DESCRIPTION
    The function takes the current join list t[0],t[1] ... and
6529 6530 6531 6532 6533 6534 6535 6536 6537 6538 6539 6540 6541 6542 6543 6544 6545 6546 6547 6548 6549 6550 6551
    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
*/

6552
TABLE_LIST *st_select_lex::convert_right_join()
6553 6554
{
  TABLE_LIST *tab2= join_list->pop();
6555
  TABLE_LIST *tab1= join_list->pop();
6556 6557 6558 6559 6560 6561 6562 6563 6564
  DBUG_ENTER("convert_right_join");

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

  DBUG_RETURN(tab1);
}

6565 6566 6567 6568 6569 6570 6571 6572 6573 6574 6575 6576 6577
/*
  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
*/

6578
void st_select_lex::set_lock_for_tables(thr_lock_type lock_type)
6579 6580 6581 6582 6583 6584
{
  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
6585 6586 6587
  for (TABLE_LIST *tables= (TABLE_LIST*) table_list.first;
       tables;
       tables= tables->next_local)
6588 6589 6590 6591 6592 6593 6594
  {
    tables->lock_type= lock_type;
    tables->updating=  for_update;
  }
  DBUG_VOID_RETURN;
}

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

6596
/*
6597 6598
  Push a new name resolution context for a JOIN ... ON clause to the
  context stack of a query block.
6599 6600

  SYNOPSIS
6601
    push_new_name_resolution_context()
6602
    thd       pointer to current thread
timour@mysql.com's avatar
timour@mysql.com committed
6603
    left_op   left  operand of the JOIN
6604 6605 6606 6607
    right_op  rigth operand of the JOIN

  DESCRIPTION
    Create a new name resolution context for a JOIN ... ON clause,
6608 6609 6610
    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.
6611 6612

  RETURN
6613 6614
    FALSE  if all is OK
    TRUE   if a memory allocation error occured
6615 6616
*/

6617 6618 6619
bool
push_new_name_resolution_context(THD *thd,
                                 TABLE_LIST *left_op, TABLE_LIST *right_op)
6620 6621
{
  Name_resolution_context *on_context;
6622
  if (!(on_context= new (thd->mem_root) Name_resolution_context))
6623
    return TRUE;
6624 6625 6626 6627 6628
  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();
6629
  return thd->lex->push_context(on_context);
6630 6631 6632 6633 6634 6635 6636 6637 6638 6639 6640 6641 6642 6643 6644 6645 6646 6647 6648 6649
}


/*
  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
6650
{
6651
  if (expr)
6652
  {
6653
    if (!b->on_expr)
6654
      b->on_expr= expr;
6655 6656
    else
    {
6657 6658 6659 6660 6661 6662
      /*
        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);
6663 6664
    }
    b->on_expr->top_level_item();
6665
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6666 6667 6668
}


6669
/*
6670 6671
  Mark that there is a NATURAL JOIN or JOIN ... USING between two
  tables.
6672 6673 6674

  SYNOPSIS
    add_join_natural()
6675 6676 6677 6678
    a			Left join argument
    b			Right join argument
    using_fields        Field names from USING clause
  
6679
  IMPLEMENTATION
6680 6681 6682 6683 6684 6685 6686 6687 6688 6689
    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
6690 6691 6692
    SELECT * FROM t1 NATURAL LEFT JOIN t2
     <=>
    SELECT * FROM t1 LEFT JOIN t2 ON (t1.i=t2.i and t1.j=t2.j ... )
6693 6694 6695 6696 6697 6698 6699 6700 6701 6702 6703

    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
6704 6705
*/

6706
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
6707
{
6708 6709
  b->natural_join= a;
  b->join_using_fields= using_fields;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6710 6711
}

6712

6713
/*
6714 6715 6716 6717
  Reload/resets privileges and the different caches.

  SYNOPSIS
    reload_acl_and_cache()
6718
    thd			Thread handler (can be NULL!)
6719 6720 6721 6722 6723
    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
6724 6725 6726
                        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.
6727 6728 6729

  RETURN
    0	 ok
6730
    !=0  error.  thd->killed or thd->net.report_error is set
6731 6732
*/

6733 6734
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
6735 6736 6737
{
  bool result=0;
  select_errors=0;				/* Write if more errors */
6738
  bool tmp_write_to_binlog= 1;
6739

6740
  if (thd && thd->in_sub_stmt)
6741 6742 6743 6744 6745
  {
    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
6746
#ifndef NO_EMBEDDED_ACCESS_CHECKS
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6747 6748
  if (options & REFRESH_GRANT)
  {
6749 6750 6751 6752 6753 6754
    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)))
6755 6756
    {
      thd->thread_stack= (char*) &tmp_thd;
6757
      thd->store_globals();
6758
    }
6759 6760 6761 6762 6763 6764 6765 6766 6767 6768 6769 6770
    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;
    }
6771
    reset_mqh((LEX_USER *)NULL, TRUE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6772
  }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
6773
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6774 6775
  if (options & REFRESH_LOG)
  {
6776
    /*
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6777 6778
      Flush the normal query log, the update log, the binary log,
      the slow query log, and the relay log (if it exists).
6779
    */
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6780

6781
    /*
monty@mysql.com's avatar
monty@mysql.com committed
6782 6783 6784 6785
      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)
6786 6787
    */
    tmp_write_to_binlog= 0;
6788 6789
    mysql_log.new_file(1);
    mysql_slow_log.new_file(1);
6790
    mysql_bin_log.rotate_and_purge(RP_FORCE_ROTATE);
6791
#ifdef HAVE_REPLICATION
6792
    pthread_mutex_lock(&LOCK_active_mi);
6793
    rotate_relay_log(active_mi);
6794
    pthread_mutex_unlock(&LOCK_active_mi);
6795
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6796 6797
    if (ha_flush_logs())
      result=1;
6798 6799
    if (flush_error_log())
      result=1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6800
  }
6801
#ifdef HAVE_QUERY_CACHE
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6802 6803
  if (options & REFRESH_QUERY_CACHE_FREE)
  {
6804
    query_cache.pack();				// FLUSH QUERY CACHE
6805
    options &= ~REFRESH_QUERY_CACHE;    // Don't flush cache, just free memory
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6806 6807 6808
  }
  if (options & (REFRESH_TABLES | REFRESH_QUERY_CACHE))
  {
6809
    query_cache.flush();			// RESET QUERY CACHE
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6810
  }
6811
#endif /*HAVE_QUERY_CACHE*/
6812 6813 6814 6815 6816
  /*
    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
6817
  {
6818
    if ((options & REFRESH_READ_LOCK) && thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6819
    {
6820 6821 6822 6823 6824 6825 6826 6827 6828 6829 6830
      /*
        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
6831
        {
6832 6833 6834 6835 6836
          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
6837
        }
6838
      }
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
6839 6840 6841 6842
      /*
	Writing to the binlog could cause deadlocks, as we don't log
	UNLOCK TABLES
      */
6843
      tmp_write_to_binlog= 0;
6844
      if (lock_global_read_lock(thd))
6845
	return 1;                               // Killed
6846 6847
      result=close_cached_tables(thd,(options & REFRESH_FAST) ? 0 : 1,
                                 tables);
6848
      if (make_global_read_lock_block_commit(thd)) // Killed
6849 6850 6851 6852 6853
      {
        /* 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
6854
    }
6855 6856
    else
      result=close_cached_tables(thd,(options & REFRESH_FAST) ? 0 : 1, tables);
6857
    my_dbopt_cleanup();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6858 6859 6860
  }
  if (options & REFRESH_HOSTS)
    hostname_cache_refresh();
monty@mysql.com's avatar
monty@mysql.com committed
6861
  if (thd && (options & REFRESH_STATUS))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6862 6863 6864
    refresh_status();
  if (options & REFRESH_THREADS)
    flush_thread_cache();
6865
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6866
  if (options & REFRESH_MASTER)
6867 6868
  {
    tmp_write_to_binlog= 0;
6869
    if (reset_master(thd))
6870
    {
6871
      result=1;
6872 6873
      thd->fatal_error();                       // Ensure client get error
    }
6874
  }
6875
#endif
6876
#ifdef OPENSSL
6877 6878 6879 6880 6881 6882
   if (options & REFRESH_DES_KEY_FILE)
   {
     if (des_key_file)
       result=load_des_key_file(des_key_file);
   }
#endif
6883
#ifdef HAVE_REPLICATION
6884 6885
 if (options & REFRESH_SLAVE)
 {
6886
   tmp_write_to_binlog= 0;
6887
   pthread_mutex_lock(&LOCK_active_mi);
6888
   if (reset_slave(thd, active_mi))
6889
     result=1;
6890
   pthread_mutex_unlock(&LOCK_active_mi);
6891
 }
6892
#endif
6893
 if (options & REFRESH_USER_RESOURCES)
monty@mysql.com's avatar
monty@mysql.com committed
6894
   reset_mqh((LEX_USER *) NULL);
6895
 *write_to_binlog= tmp_write_to_binlog;
6896
 return result;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6897 6898
}

6899 6900 6901 6902 6903 6904 6905 6906 6907 6908 6909 6910
/*
  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
6911
void kill_one_thread(THD *thd, ulong id, bool only_kill_query)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6912 6913 6914
{
  THD *tmp;
  uint error=ER_NO_SUCH_THREAD;
6915 6916
  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
6917 6918 6919 6920
  while ((tmp=it++))
  {
    if (tmp->thread_id == id)
    {
6921 6922
      pthread_mutex_lock(&tmp->LOCK_delete);	// Lock from delete
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6923 6924 6925
    }
  }
  VOID(pthread_mutex_unlock(&LOCK_thread_count));
6926 6927
  if (tmp)
  {
6928 6929
    if ((thd->security_ctx->master_access & SUPER_ACL) ||
	!strcmp(thd->security_ctx->user, tmp->security_ctx->user))
6930
    {
hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
6931
      tmp->awake(only_kill_query ? THD::KILL_QUERY : THD::KILL_CONNECTION);
6932 6933 6934 6935 6936 6937 6938
      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
6939
  if (!error)
6940
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6941
  else
6942
    my_error(error, MYF(0), id);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6943 6944
}

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

bk@work.mysql.com's avatar
bk@work.mysql.com committed
6946 6947 6948 6949 6950 6951 6952 6953
/* Clear most status variables */

static void refresh_status(void)
{
  pthread_mutex_lock(&LOCK_status);
  for (struct show_var_st *ptr=status_vars; ptr->name; ptr++)
  {
    if (ptr->type == SHOW_LONG)
6954
      *(ulong*) ptr->value= 0;
6955 6956 6957 6958 6959 6960 6961
    else if (ptr->type == SHOW_LONG_STATUS)
    {
      THD *thd= current_thd;
      /* We must update the global status before cleaning up the thread */
      add_to_status(&global_status_var, &thd->status_var);
      bzero((char*) &thd->status_var, sizeof(thd->status_var));
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6962
  }
timour@mysql.com's avatar
timour@mysql.com committed
6963 6964
  /* Reset the counters of all key caches (default and named). */
  process_key_caches(reset_key_cache_counters);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6965 6966
  pthread_mutex_unlock(&LOCK_status);
}
6967 6968 6969 6970


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

6971 6972
static bool append_file_to_dir(THD *thd, const char **filename_ptr,
			       const char *table_name)
6973
{
6974
  char buff[FN_REFLEN],*ptr, *end;
6975 6976 6977 6978 6979 6980 6981
  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))
  {
6982
    my_error(ER_WRONG_TABLE_NAME, MYF(0), *filename_ptr);
6983 6984 6985 6986
    return 1;
  }
  /* Fix is using unix filename format on dos */
  strmov(buff,*filename_ptr);
6987
  end=convert_dirname(buff, *filename_ptr, NullS);
6988
  if (!(ptr=thd->alloc((uint) (end-buff)+(uint) strlen(table_name)+1)))
6989 6990
    return 1;					// End of memory
  *filename_ptr=ptr;
6991
  strxmov(ptr,buff,table_name,NullS);
6992 6993
  return 0;
}
6994

6995

6996 6997 6998 6999 7000 7001 7002 7003 7004 7005 7006 7007 7008 7009
/*
  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;
7010 7011
  LEX *lex= thd->lex;
  if (lex->current_select != &lex->select_lex)
7012 7013
  {
    char command[80];
7014 7015
    strmake(command, lex->yylval->symbol.str,
	    min(lex->yylval->symbol.length, sizeof(command)-1));
7016
    my_error(ER_CANT_USE_OPTION_HERE, MYF(0), command);
7017 7018 7019 7020
    return 1;
  }
  return 0;
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7021

7022

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7023
Comp_creator *comp_eq_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7024
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7025
  return invert?(Comp_creator *)&ne_creator:(Comp_creator *)&eq_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7026 7027
}

7028

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7029
Comp_creator *comp_ge_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7030
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7031
  return invert?(Comp_creator *)&lt_creator:(Comp_creator *)&ge_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7032 7033
}

7034

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7035
Comp_creator *comp_gt_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7036
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7037
  return invert?(Comp_creator *)&le_creator:(Comp_creator *)&gt_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7038 7039
}

7040

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7041
Comp_creator *comp_le_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7042
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7043
  return invert?(Comp_creator *)&gt_creator:(Comp_creator *)&le_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7044 7045
}

7046

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7047
Comp_creator *comp_lt_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7048
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7049
  return invert?(Comp_creator *)&ge_creator:(Comp_creator *)&lt_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7050 7051
}

7052

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7053
Comp_creator *comp_ne_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7054
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7055
  return invert?(Comp_creator *)&eq_creator:(Comp_creator *)&ne_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7056
}
7057 7058 7059 7060 7061 7062 7063 7064 7065 7066 7067 7068 7069 7070 7071 7072 7073 7074 7075 7076


/*
  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
7077
  if ((cmp == &comp_eq_creator) && !all)       //  = ANY <=> IN
7078
    return new Item_in_subselect(left_expr, select_lex);
serg@serg.mylan's avatar
serg@serg.mylan committed
7079 7080

  if ((cmp == &comp_ne_creator) && all)        // <> ALL <=> NOT IN
7081 7082 7083
    return new Item_func_not(new Item_in_subselect(left_expr, select_lex));

  Item_allany_subselect *it=
7084
    new Item_allany_subselect(left_expr, (*cmp)(all), select_lex, all);
7085
  if (all)
7086
    return it->upper_item= new Item_func_not_all(it);	/* ALL */
7087

7088
  return it->upper_item= new Item_func_nop_all(it);      /* ANY/SOME */
7089
}
7090 7091


7092 7093 7094 7095 7096 7097 7098 7099 7100 7101 7102 7103
/*
  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.
*/

7104
bool mysql_create_index(THD *thd, TABLE_LIST *table_list, List<Key> &keys)
7105 7106
{
  List<create_field> fields;
7107 7108
  ALTER_INFO alter_info;
  alter_info.flags= ALTER_ADD_INDEX;
7109 7110 7111 7112 7113
  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;
7114
  DBUG_RETURN(mysql_alter_table(thd,table_list->db,table_list->table_name,
7115
				&create_info, table_list,
7116
				fields, keys, 0, (ORDER*)0,
monty@mysql.com's avatar
monty@mysql.com committed
7117
				DUP_ERROR, 0, &alter_info, 1));
7118 7119 7120
}


7121
bool mysql_drop_index(THD *thd, TABLE_LIST *table_list, ALTER_INFO *alter_info)
7122 7123 7124 7125 7126 7127 7128 7129
{
  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;
7130 7131
  alter_info->clear();
  alter_info->flags= ALTER_DROP_INDEX;
7132
  DBUG_RETURN(mysql_alter_table(thd,table_list->db,table_list->table_name,
7133
				&create_info, table_list,
7134
				fields, keys, 0, (ORDER*)0,
monty@mysql.com's avatar
monty@mysql.com committed
7135
				DUP_ERROR, 0, alter_info, 1));
7136
}
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7137 7138


7139 7140 7141 7142 7143
/*
  Multi update query pre-check

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

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7147
  RETURN VALUE
7148 7149
    FALSE OK
    TRUE  Error
7150
*/
7151

7152
bool multi_update_precheck(THD *thd, TABLE_LIST *tables)
7153 7154 7155 7156 7157
{
  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
7158
  DBUG_ENTER("multi_update_precheck");
7159 7160 7161

  if (select_lex->item_list.elements != lex->value_list.elements)
  {
7162
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7163
    DBUG_RETURN(TRUE);
7164 7165 7166 7167 7168
  }
  /*
    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
7169
  for (table= tables; table; table= table->next_local)
7170
  {
7171 7172 7173
    if (table->derived)
      table->grant.privilege= SELECT_ACL;
    else if ((check_access(thd, UPDATE_ACL, table->db,
7174 7175
                           &table->grant.privilege, 0, 1,
                           test(table->schema_table)) ||
7176 7177
              grant_option &&
              check_grant(thd, UPDATE_ACL, table, 0, 1, 1)) &&
monty@mysql.com's avatar
monty@mysql.com committed
7178
             (check_access(thd, SELECT_ACL, table->db,
7179 7180
                           &table->grant.privilege, 0, 0,
                           test(table->schema_table)) ||
monty@mysql.com's avatar
monty@mysql.com committed
7181
              grant_option && check_grant(thd, SELECT_ACL, table, 0, 1, 0)))
7182
      DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7183

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7184
    table->table_in_first_from_clause= 1;
7185
  }
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7186 7187 7188
  /*
    Is there tables of subqueries?
  */
7189
  if (&lex->select_lex != lex->all_selects_list || lex->time_zone_tables_used)
7190
  {
7191
    DBUG_PRINT("info",("Checking sub query list"));
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7192
    for (table= tables; table; table= table->next_global)
7193
    {
monty@mysql.com's avatar
monty@mysql.com committed
7194 7195 7196
      if (!my_tz_check_n_skip_implicit_tables(&table,
                                              lex->time_zone_tables_used) &&
          !table->table_in_first_from_clause)
7197 7198
      {
	if (check_access(thd, SELECT_ACL, table->db,
7199 7200
			 &table->grant.privilege, 0, 0,
                         test(table->schema_table)) ||
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7201
	    grant_option && check_grant(thd, SELECT_ACL, table, 0, 1, 0))
7202
	  DBUG_RETURN(TRUE);
7203 7204 7205 7206 7207 7208
      }
    }
  }

  if (select_lex->order_list.elements)
    msg= "ORDER BY";
7209
  else if (select_lex->select_limit)
7210 7211 7212 7213
    msg= "LIMIT";
  if (msg)
  {
    my_error(ER_WRONG_USAGE, MYF(0), "UPDATE", msg);
7214
    DBUG_RETURN(TRUE);
7215
  }
7216
  DBUG_RETURN(FALSE);
7217 7218 7219 7220 7221 7222 7223
}

/*
  Multi delete query pre-check

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

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7227
  RETURN VALUE
7228 7229
    FALSE OK
    TRUE  error
7230
*/
7231

7232
bool multi_delete_precheck(THD *thd, TABLE_LIST *tables)
7233 7234 7235 7236
{
  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
7237
  DBUG_ENTER("multi_delete_precheck");
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7238

7239 7240 7241 7242 7243
  /* 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))
7244
    DBUG_RETURN(TRUE);
7245 7246
  if ((thd->options & OPTION_SAFE_UPDATES) && !select_lex->where)
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7247 7248
    my_message(ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE,
               ER(ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE), MYF(0));
7249
    DBUG_RETURN(TRUE);
7250
  }
7251 7252 7253 7254 7255 7256 7257 7258 7259 7260 7261 7262 7263 7264 7265 7266 7267 7268 7269 7270 7271 7272 7273 7274 7275 7276 7277
  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)
7278
  {
7279
    lex->table_count++;
7280 7281
    /* 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
7282
    for (walk= tables; walk; walk= walk->next_local)
7283
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7284 7285 7286
      if (!my_strcasecmp(table_alias_charset,
			 target_tbl->alias, walk->alias) &&
	  !strcmp(walk->db, target_tbl->db))
7287 7288 7289 7290
	break;
    }
    if (!walk)
    {
7291
      my_error(ER_UNKNOWN_TABLE, MYF(0),
7292
               target_tbl->table_name, "MULTI DELETE");
7293
      DBUG_RETURN(TRUE);
7294
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
7295 7296 7297 7298 7299
    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
7300
    walk->updating= target_tbl->updating;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7301
    walk->lock_type= target_tbl->lock_type;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7302
    target_tbl->correspondent_table= walk;	// Remember corresponding table
7303
  }
7304
  DBUG_RETURN(FALSE);
7305 7306 7307
}


bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7308 7309 7310 7311 7312
/*
  simple UPDATE query pre-check

  SYNOPSIS
    update_precheck()
7313 7314
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7315 7316

  RETURN VALUE
7317 7318
    FALSE OK
    TRUE  Error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7319
*/
7320

7321
bool update_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7322 7323 7324 7325
{
  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
7326
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7327
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7328
  }
7329 7330
  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
7331 7332 7333 7334 7335 7336 7337 7338
}


/*
  simple DELETE query pre-check

  SYNOPSIS
    delete_precheck()
7339 7340
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7341 7342

  RETURN VALUE
7343 7344
    FALSE  OK
    TRUE   error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7345
*/
7346

7347
bool delete_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7348 7349 7350
{
  DBUG_ENTER("delete_precheck");
  if (check_one_table_access(thd, DELETE_ACL, tables))
7351
    DBUG_RETURN(TRUE);
7352
  /* Set privilege for the WHERE clause */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7353
  tables->grant.want_privilege=(SELECT_ACL & ~tables->grant.privilege);
7354
  DBUG_RETURN(FALSE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7355 7356 7357 7358 7359 7360 7361 7362
}


/*
  simple INSERT query pre-check

  SYNOPSIS
    insert_precheck()
7363 7364
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7365 7366

  RETURN VALUE
7367 7368
    FALSE  OK
    TRUE   error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7369
*/
7370

bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7371
bool insert_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7372 7373 7374 7375
{
  LEX *lex= thd->lex;
  DBUG_ENTER("insert_precheck");

7376 7377 7378 7379
  /*
    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
7380 7381 7382
  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
7383 7384

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

7387
  if (lex->update_list.elements != lex->value_list.elements)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7388
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7389
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7390
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7391
  }
7392
  DBUG_RETURN(FALSE);
7393
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7394 7395 7396 7397 7398 7399 7400


/*
  CREATE TABLE query pre-check

  SYNOPSIS
    create_table_precheck()
7401 7402 7403
    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
7404 7405

  RETURN VALUE
7406 7407
    FALSE   OK
    TRUE   Error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7408
*/
7409

7410 7411
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
7412 7413
{
  LEX *lex= thd->lex;
7414 7415
  SELECT_LEX *select_lex= &lex->select_lex;
  ulong want_priv;
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7416
  bool error= TRUE;                                 // Error message is given
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7417
  DBUG_ENTER("create_table_precheck");
7418 7419 7420

  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
7421 7422
  lex->create_info.alias= create_table->alias;
  if (check_access(thd, want_priv, create_table->db,
7423 7424
		   &create_table->grant.privilege, 0, 0,
                   test(create_table->schema_table)) ||
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7425 7426 7427
      check_merge_table_access(thd, create_table->db,
			       (TABLE_LIST *)
			       lex->create_info.merge_list.first))
7428 7429 7430 7431 7432 7433 7434 7435 7436
    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 */

7437 7438
#ifdef NOT_NECESSARY_TO_CHECK_CREATE_TABLE_EXIST_WHEN_PREPARING_STATEMENT
    /* This code throws an ill error for CREATE TABLE t1 SELECT * FROM t1 */
7439
    /*
monty@mysql.com's avatar
monty@mysql.com committed
7440 7441 7442
      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).
7443
    */
konstantin@mysql.com's avatar
konstantin@mysql.com committed
7444
    if (thd->stmt_arena->is_stmt_prepare_or_first_sp_execute())
7445
    {
monty@mysql.com's avatar
monty@mysql.com committed
7446 7447 7448 7449
      /*
        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
7450
          find_table_in_global_list(tables, create_table->db,
7451
                                    create_table->table_name))
monty@mysql.com's avatar
monty@mysql.com committed
7452
      {
7453
	error= FALSE;
monty@mysql.com's avatar
monty@mysql.com committed
7454 7455 7456
        goto err;
      }
    }
7457
#endif
7458 7459 7460
    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
7461
  error= FALSE;
7462 7463 7464

err:
  DBUG_RETURN(error);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7465
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7466 7467 7468 7469 7470 7471 7472


/*
  negate given expression

  SYNOPSIS
    negate_expression()
7473
    thd  thread handler
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7474 7475 7476 7477 7478 7479 7480 7481 7482 7483 7484 7485 7486 7487 7488 7489 7490 7491 7492 7493 7494 7495 7496 7497 7498 7499 7500 7501
    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);
}
7502

7503 7504 7505 7506 7507 7508 7509 7510 7511 7512 7513 7514 7515 7516 7517 7518 7519 7520 7521 7522 7523 7524 7525 7526 7527 7528 7529 7530 7531 7532 7533 7534 7535 7536 7537 7538 7539 7540 7541
/*
  Set the specified definer to the default value, which is the current user in
  the thread. Also check that the current user satisfies to the definers
  requirements.
 
  SYNOPSIS
    get_default_definer()
    thd       [in] thread handler
    definer   [out] definer
 
  RETURN
    error status, that is:
      - FALSE -- on success;
      - TRUE -- on error (current user can not be a definer).
*/
 
bool get_default_definer(THD *thd, LEX_USER *definer)
{
  /* Check that current user has non-empty host name. */

  const Security_context *sctx= thd->security_ctx;

  if (sctx->priv_host[0] == 0)
  {
    my_error(ER_MALFORMED_DEFINER, MYF(0));
    return TRUE;
  }

  /* Fill in. */

  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);

  return FALSE;
}

7542 7543

/*
7544 7545
  Create definer with the given user and host names. Also check that the user
  and host names satisfy definers requirements.
7546 7547

  SYNOPSIS
7548 7549 7550 7551
    create_definer()
    thd         [in] thread handler
    user_name   [in] user name
    host_name   [in] host name
7552 7553

  RETURN
7554 7555 7556
    On success, return a valid pointer to the created and initialized
    LEX_STRING, which contains definer information.
    On error, return 0.
7557 7558
*/

7559
LEX_USER *create_definer(THD *thd, LEX_STRING *user_name, LEX_STRING *host_name)
7560
{
7561 7562 7563
  LEX_USER *definer;

  /* Check that specified host name is valid. */
7564

7565
  if (host_name->length == 0)
7566
  {
7567 7568
    my_error(ER_MALFORMED_DEFINER, MYF(0));
    return 0;
7569
  }
7570

7571 7572 7573 7574 7575 7576 7577 7578 7579
  /* Create and initialize. */

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

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

  return definer;
7580
}