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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

125

126
static bool end_active_trans(THD *thd)
127
{
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
128
  int error=0;
129
  DBUG_ENTER("end_active_trans");
130
  if (unlikely(thd->in_sub_stmt))
131 132 133 134
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    DBUG_RETURN(1);
  }
135 136 137 138 139 140
  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);
  }
141
  if (thd->options & (OPTION_NOT_AUTOCOMMIT | OPTION_BEGIN |
142
		      OPTION_TABLE_LOCK))
143
  {
144 145 146 147
    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;
148
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
149
    if (ha_commit(thd))
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
150
      error=1;
151
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
152
  }
153
  DBUG_RETURN(error);
154 155
}

156 157 158
static bool begin_trans(THD *thd)
{
  int error=0;
159
  if (unlikely(thd->in_sub_stmt))
160 161 162 163
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    return 1;
  }
164 165 166 167 168 169 170 171 172 173
  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
  {
174
    LEX *lex= thd->lex;
175 176 177 178
    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
179
      error= ha_start_consistent_snapshot(thd);
180 181 182
  }
  return error;
}
183

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


195 196 197 198 199 200 201 202 203 204 205 206
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;
}

207 208
static HASH hash_user_connections;

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

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

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

257
}
258 259 260


/*
261 262
  Check if user exist and password supplied is correct. 

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

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

279
  RETURN VALUE
280 281
    0  OK; thd->security_ctx->user/master_access/priv_user/db_access and
       thd->db are updated; OK is sent to client;
282 283
   -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
284 285
*/

hf@deer.(none)'s avatar
hf@deer.(none) committed
286 287 288
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
289
{
290
  DBUG_ENTER("check_user");
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
291
  
monty@mysql.com's avatar
monty@mysql.com committed
292
#ifdef NO_EMBEDDED_ACCESS_CHECKS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
293
  thd->main_security_ctx.master_access= GLOBAL_ACLS;       // Full rights
294
  /* Change database if necessary */
295 296
  if (db && db[0])
  {
297 298 299 300
    /*
      thd->db is saved in caller and needs to be freed by caller if this
      function returns 0
    */
301
    thd->reset_db(NULL, 0);
302
    if (mysql_change_db(thd, db, FALSE))
303
    {
304 305
      /* Send the error to the client */
      net_send_error(thd);
306 307 308 309 310
      if (thd->user_connect)
	decrease_user_connections(thd->user_connect);
      DBUG_RETURN(-1);
    }
  }
311
  send_ok(thd);
312
  DBUG_RETURN(0);
monty@mysql.com's avatar
monty@mysql.com committed
313 314
#else

315 316 317 318 319
  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);
  
320
  /*
321 322
    If the server is running in secure auth mode, short scrambles are 
    forbidden.
323
  */
324
  if (opt_secure_auth_local && passwd_len == SCRAMBLE_LENGTH_323)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
325
  {
326
    net_printf_error(thd, ER_NOT_SUPPORTED_AUTH_MODE);
327 328
    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
329
  }
330 331 332 333
  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
334

335
  /*
336
    Clear thd->db as it points to something, that will be freed when 
337
    connection is closed. We don't want to accidentally free a wrong pointer
338 339
    if connect failed. Also in case of 'CHANGE USER' failure, current
    database will be switched to 'no database selected'.
340
  */
341 342
  thd->reset_db(NULL, 0);

343
  USER_RESOURCES ur;
344
  int res= acl_getroot(thd, &ur, passwd, passwd_len);
hf@deer.(none)'s avatar
hf@deer.(none) committed
345
#ifndef EMBEDDED_LIBRARY
346
  if (res == -1)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
347
  {
348 349 350 351 352 353
    /*
      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.
    */
354
    NET *net= &thd->net;
355
    if (opt_secure_auth_local)
356
    {
357
      net_printf_error(thd, ER_SERVER_IS_IN_SECURE_AUTH_MODE,
358 359
                       thd->main_security_ctx.user,
                       thd->main_security_ctx.host_or_ip);
360
      mysql_log.write(thd, COM_CONNECT, ER(ER_SERVER_IS_IN_SECURE_AUTH_MODE),
361 362
                      thd->main_security_ctx.user,
                      thd->main_security_ctx.host_or_ip);
363 364
      DBUG_RETURN(-1);
    }
monty@mysql.com's avatar
monty@mysql.com committed
365
    /* We have to read very specific packet size */
366
    if (send_old_password_request(thd) ||
monty@mysql.com's avatar
monty@mysql.com committed
367
        my_net_read(net) != SCRAMBLE_LENGTH_323 + 1)
368
    {
369 370 371 372 373
      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 */
374
    res= acl_getroot(thd, &ur, (char *) net->read_pos, SCRAMBLE_LENGTH_323);
375
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
376
#endif /*EMBEDDED_LIBRARY*/
377 378
  /* here res is always >= 0 */
  if (res == 0)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
379
  {
380 381
    if (!(thd->main_security_ctx.master_access &
          NO_ACCESS)) // authentication is OK
382
    {
383 384 385 386
      DBUG_PRINT("info",
                 ("Capabilities: %d  packet_length: %ld  Host: '%s'  "
                  "Login user: '%s' Priv_user: '%s'  Using password: %s "
                  "Access: %u  db: '%s'",
387 388 389 390 391
                  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,
392
                  passwd_len ? "yes": "no",
393 394
                  thd->main_security_ctx.master_access,
                  (thd->db ? thd->db : "*none*")));
395 396

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

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

419
      /*
420 421 422
        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.
423
      */
424
      thd->main_security_ctx.db_access=0;
425 426

      /* Don't allow user to connect if he has done too many queries */
427
      if ((ur.questions || ur.updates || ur.conn_per_hour || ur.user_conn ||
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
428
	   max_user_connections) &&
429
	  get_or_create_user_conn(thd,
430 431 432 433
            (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),
434
            &ur))
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
435 436
	DBUG_RETURN(-1);
      if (thd->user_connect &&
437 438
	  (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
439 440 441
	   max_user_connections) &&
	  check_for_max_user_connections(thd, thd->user_connect))
	DBUG_RETURN(-1);
442

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

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

484 485
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
486 487 488 489 490
{
  *length=buff->len;
  return (byte*) buff->user;
}

491
extern "C" void free_user(struct user_conn *uc)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
492 493 494 495
{
  my_free((char*) uc,MYF(0));
}

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


monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521
/*
  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
*/

522 523
#ifndef NO_EMBEDDED_ACCESS_CHECKS

524
static int check_for_max_user_connections(THD *thd, USER_CONN *uc)
525
{
526
  int error=0;
527
  DBUG_ENTER("check_for_max_user_connections");
peter@mysql.com's avatar
peter@mysql.com committed
528

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

  end:
559 560
  if (error)
    uc->connections--; // no need for decrease_user_connections() here
561
  (void) pthread_mutex_unlock(&LOCK_user_conn);
562
  DBUG_RETURN(error);
563
}
564
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
565

monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583
/*
  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.
*/

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

598

599 600 601 602 603
void free_max_user_conn(void)
{
  hash_free(&hash_user_connections);
}

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

605 606 607
/*
  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
608 609 610

  sql_command is actually set to SQLCOM_END sometimes
  so we need the +1 to include it in the array.
611 612 613 614 615 616

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

kent@mysql.com's avatar
kent@mysql.com committed
619
char  uc_update_queries[SQLCOM_END+1];
620 621 622

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

625 626 627
  uc_update_queries[SQLCOM_CREATE_TABLE]=1;
  uc_update_queries[SQLCOM_CREATE_INDEX]=1;
  uc_update_queries[SQLCOM_ALTER_TABLE]=1;
628 629 630 631 632 633
  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;
634 635 636 637 638
  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;
639 640
  uc_update_queries[SQLCOM_REPLACE]=2;
  uc_update_queries[SQLCOM_REPLACE_SELECT]=2;
641 642 643 644
  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
645 646
  uc_update_queries[SQLCOM_CREATE_VIEW]=1;
  uc_update_queries[SQLCOM_DROP_VIEW]=1;
647 648
}

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

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
655
/*
656 657
  Reset per-hour user resource limits when it has been more than
  an hour since they were last checked
658

659 660 661 662
  SYNOPSIS:
    time_out_user_resource_limits()
    thd			Thread handler
    uc			User connection details
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
663

664 665 666 667
  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.
*/
668

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

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

  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)
{
694 695
#ifndef NO_EMBEDDED_ACCESS_CHECKS
  bool error= 0;
696 697 698 699 700 701 702 703
  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);

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

733

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

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

774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804
void thd_init_client_charset(THD *thd, uint cs_number)
{
  /*
   Use server character set and collation if
   - opt_character_set_client_handshake is not set
   - client has not specified a character set
   - client character set is the same as the servers
   - client character set doesn't exists in server
  */
  if (!opt_character_set_client_handshake ||
      !(thd->variables.character_set_client= get_charset(cs_number, MYF(0))) ||
      !my_strcasecmp(&my_charset_latin1,
                     global_system_variables.character_set_client->name,
                     thd->variables.character_set_client->name))
  {
    thd->variables.character_set_client=
      global_system_variables.character_set_client;
    thd->variables.collation_connection=
      global_system_variables.collation_connection;
    thd->variables.character_set_results=
      global_system_variables.character_set_results;
  }
  else
  {
    thd->variables.character_set_results=
      thd->variables.collation_connection= 
      thd->variables.character_set_client;
  }
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
805
/*
806
    Perform handshake, authorize client and update thd ACL variables.
807
  SYNOPSIS
808
    check_connection()
809
    thd  thread handle
810 811

  RETURN
812
     0  success, OK is sent to user, thd is updated.
813 814
    -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
815 816
*/

hf@deer.(none)'s avatar
hf@deer.(none) committed
817 818
#ifndef EMBEDDED_LIBRARY
static int check_connection(THD *thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
819
{
820
  uint connect_errors= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
821
  NET *net= &thd->net;
monty@mysql.com's avatar
monty@mysql.com committed
822 823
  ulong pkt_len= 0;
  char *end;
824

825 826
  DBUG_PRINT("info",
             ("New connection received on %s", vio_description(net->vio)));
827
#ifdef SIGNAL_WITH_VIO_CLOSE
828
  thd->set_active_vio(net->vio);
829
#endif
830

831
  if (!thd->main_security_ctx.host)         // If TCP/IP connection
bk@work.mysql.com's avatar
bk@work.mysql.com committed
832
  {
833
    char ip[30];
834

835
    if (vio_peer_addr(net->vio, ip, &thd->peer_port))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
836
      return (ER_BAD_HOST_ERROR);
837
    if (!(thd->main_security_ctx.ip= my_strdup(ip,MYF(0))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
838
      return (ER_OUT_OF_RESOURCES);
839
    thd->main_security_ctx.host_or_ip= thd->main_security_ctx.ip;
monty@mysql.com's avatar
monty@mysql.com committed
840
    vio_in_addr(net->vio,&thd->remote.sin_addr);
841
    if (!(specialflag & SPECIAL_NO_RESOLVE))
842
    {
843
      vio_in_addr(net->vio,&thd->remote.sin_addr);
844 845
      thd->main_security_ctx.host=
        ip_to_hostname(&thd->remote.sin_addr, &connect_errors);
846
      /* Cut very long hostnames to avoid possible overflows */
847
      if (thd->main_security_ctx.host)
848
      {
849 850 851 852
        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;
853
      }
854 855
      if (connect_errors > max_connect_errors)
        return(ER_HOST_IS_BLOCKED);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
856
    }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
857
    DBUG_PRINT("info",("Host: %s  ip: %s",
858 859 860 861 862
		       (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
863 864
      return(ER_HOST_NOT_PRIVILEGED);
  }
865
  else /* Hostname given means that the connection was on a socket */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
866
  {
867 868 869
    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;
870 871
    /* Reset sin_addr */
    bzero((char*) &thd->remote, sizeof(thd->remote));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
872 873 874
  }
  vio_keepalive(net->vio, TRUE);
  {
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
875
    /* buff[] needs to big enough to hold the server_version variable */
876
    char buff[SERVER_VERSION_LENGTH + SCRAMBLE_LENGTH + 64];
877 878
    ulong client_flags = (CLIENT_LONG_FLAG | CLIENT_CONNECT_WITH_DB |
			  CLIENT_PROTOCOL_41 | CLIENT_SECURE_CONNECTION);
879

880 881 882 883 884
    if (opt_using_transactions)
      client_flags|=CLIENT_TRANSACTIONS;
#ifdef HAVE_COMPRESS
    client_flags |= CLIENT_COMPRESS;
#endif /* HAVE_COMPRESS */
885 886
#ifdef HAVE_OPENSSL
    if (ssl_acceptor_fd)
887
      client_flags |= CLIENT_SSL;       /* Wow, SSL is available! */
888
#endif /* HAVE_OPENSSL */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
889

890 891 892 893 894 895 896 897 898 899 900
    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
901
      tail: that's why first part of the scramble is placed here, and second
902 903
      part at the end of packet.
    */
904
    end= strmake(end, thd->scramble, SCRAMBLE_LENGTH_323) + 1;
905 906 907
   
    int2store(end, client_flags);
    /* write server characteristics: up to 16 bytes allowed */
908
    end[2]=(char) default_charset_info->number;
909 910 911 912 913 914 915 916 917
    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
918
			  (uint) (end-buff)) ||
919
	(pkt_len= my_net_read(net)) == packet_error ||
bk@work.mysql.com's avatar
bk@work.mysql.com committed
920 921 922 923 924 925 926 927 928 929 930
	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);
931
  if (thd->packet.alloc(thd->variables.net_buffer_length))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
932 933 934
    return(ER_OUT_OF_RESOURCES);

  thd->client_capabilities=uint2korr(net->read_pos);
935 936 937 938
  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
939
    DBUG_PRINT("info", ("client_character_set: %d", (uint) net->read_pos[8]));
940
    thd_init_client_charset(thd, (uint) net->read_pos[8]);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
941
    thd->update_charset();
942
    end= (char*) net->read_pos+32;
943 944 945 946 947 948 949
  }
  else
  {
    thd->max_client_packet_length= uint3korr(net->read_pos+2);
    end= (char*) net->read_pos+5;
  }

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

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

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

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

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

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

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

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

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

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

1049

1050 1051
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
1052 1053 1054 1055
{
  Vio* save_vio;
  ulong save_client_capabilities;

1056 1057 1058 1059 1060 1061 1062 1063 1064
  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
1065 1066
  save_client_capabilities= thd->client_capabilities;
  thd->client_capabilities|= CLIENT_MULTI_QUERIES;
1067 1068 1069 1070
  /*
    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
1071 1072
  save_vio= thd->net.vio;
  thd->net.vio= 0;
1073
  thd->net.no_send_error= 0;
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1074
  dispatch_command(COM_QUERY, thd, thd->query, thd->query_length+1);
1075
  rw_unlock(var_mutex);
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1076 1077 1078 1079 1080
  thd->client_capabilities= save_client_capabilities;
  thd->net.vio= save_vio;
}


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

  pthread_detach_this_thread();

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

1102 1103 1104 1105 1106 1107 1108
  /*
    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
1109 1110
  DBUG_PRINT("info", ("handle_one_connection called by thread %d\n",
		      thd->thread_id));
monty@mysql.com's avatar
monty@mysql.com committed
1111
  /* 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
1112

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

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

1136
    if ((error=check_connection(thd)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1137 1138
    {						// Wrong permissions
      if (error > 0)
1139
	net_printf_error(thd, error, sctx->host_or_ip);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1140 1141
#ifdef __NT__
      if (vio_type(net->vio) == VIO_TYPE_NAMEDPIPE)
1142
	my_sleep(1000);				/* must wait after eof() */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1143
#endif
1144
      statistic_increment(aborted_connects,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1145 1146
      goto end_thread;
    }
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1147
#ifdef __NETWARE__
1148
    netware_reg_user(sctx->ip, sctx->user, "MySQL");
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1149
#endif
1150
    if (thd->variables.max_join_size == HA_POS_ERROR)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1151 1152 1153 1154
      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
1155
    thd->version= refresh_version;
1156
    thd->proc_info= 0;
1157
    thd->command= COM_SLEEP;
1158 1159
    thd->set_time();
    thd->init_for_queries();
monty@mysql.com's avatar
monty@mysql.com committed
1160

1161
    if (sys_init_connect.value_length && !(sctx->master_access & SUPER_ACL))
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1162
    {
1163 1164
      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
1165
	thd->killed= THD::KILL_CONNECTION;
1166 1167 1168
      thd->proc_info=0;
      thd->set_time();
      thd->init_for_queries();
gluh@gluh.mysql.r18.ru's avatar
gluh@gluh.mysql.r18.ru committed
1169 1170
    }

1171 1172
    while (!net->error && net->vio != 0 &&
           !(thd->killed == THD::KILL_CONNECTION))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1173
    {
1174
      net->no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1175 1176 1177
      if (do_command(thd))
	break;
    }
1178 1179
    if (thd->user_connect)
      decrease_user_connections(thd->user_connect);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1180
    if (net->error && net->vio != 0 && net->report_error)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1181
    {
1182
      if (!thd->killed && thd->variables.log_warnings > 1)
monty@mysql.com's avatar
monty@mysql.com committed
1183
	sql_print_warning(ER(ER_NEW_ABORTING_CONNECTION),
serg@serg.mylan's avatar
serg@serg.mylan committed
1184
                          thd->thread_id,(thd->db ? thd->db : "unconnected"),
1185 1186
                          sctx->user ? sctx->user : "unauthenticated",
                          sctx->host_or_ip,
serg@serg.mylan's avatar
serg@serg.mylan committed
1187 1188
                          (net->last_errno ? ER(net->last_errno) :
                           ER(ER_UNKNOWN_ERROR)));
1189
      net_send_error(thd, net->last_errno, NullS);
1190
      statistic_increment(aborted_threads,&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1191
    }
1192 1193 1194 1195
    else if (thd->killed)
    {
      statistic_increment(aborted_threads,&LOCK_status);
    }
1196
    
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1197
end_thread:
1198
    close_connection(thd, 0, 1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1199 1200 1201 1202 1203 1204
    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;
1205
    thd->thread_stack= (char*) &thd;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1206 1207 1208 1209 1210
  } 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
1211 1212
#endif /* EMBEDDED_LIBRARY */

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

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

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

hf@deer.(none)'s avatar
hf@deer.(none) committed
1236
#ifndef EMBEDDED_LIBRARY
1237 1238
  pthread_detach_this_thread();
  thd->thread_stack= (char*) &thd;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1239
#if !defined(__WIN__) && !defined(OS2) && !defined(__NETWARE__)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1240
  sigset_t set;
1241 1242
  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
1243
#endif
hf@deer.(none)'s avatar
hf@deer.(none) committed
1244
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1245

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

  thd->proc_info=0;
  thd->version=refresh_version;
1251 1252
  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
1253

1254
  buff= (char*) thd->net.buff;
1255
  thd->init_for_queries();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1256 1257
  while (fgets(buff, thd->net.max_packet, file))
  {
monty@mishka.local's avatar
monty@mishka.local committed
1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277
   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;

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

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

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

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


1321 1322 1323 1324
    /* This works because items are allocated with sql_alloc() */

void cleanup_items(Item *item)
{
monty@mysql.com's avatar
monty@mysql.com committed
1325
  DBUG_ENTER("cleanup_items");  
1326 1327
  for (; item ; item=item->next)
    item->cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
1328
  DBUG_VOID_RETURN;
1329 1330
}

1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350
/*
  Handle COM_TABLE_DUMP command

  SYNOPSIS
    mysql_table_dump
      thd           thread handle
      db            database name or an empty string. If empty,
                    the current database of the connection is used
      tbl_name      name of the table to dump

  NOTES
    This function is written to handle one specific command only.

  RETURN VALUE
    0               success
    1               error, the error message is set in THD
*/

static
int mysql_table_dump(THD* thd, char* db, char* tbl_name)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1351 1352 1353 1354 1355 1356
{
  TABLE* table;
  TABLE_LIST* table_list;
  int error = 0;
  DBUG_ENTER("mysql_table_dump");
  db = (db && db[0]) ? db : thd->db;
1357
  if (!(table_list = (TABLE_LIST*) thd->calloc(sizeof(TABLE_LIST))))
1358
    DBUG_RETURN(1); // out of memory
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
1359
  table_list->db= db;
1360
  table_list->table_name= table_list->alias= tbl_name;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
1361 1362
  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
1363

1364 1365
  if (!db || check_db_name(db))
  {
1366
    my_error(ER_WRONG_DB_NAME ,MYF(0), db ? db : "NULL");
1367 1368
    goto err;
  }
1369
  if (lower_case_table_names)
1370
    my_casedn_str(files_charset_info, tbl_name);
1371
  remove_escape(table_list->table_name);
1372 1373 1374 1375

  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
1376
  if (check_one_table_access(thd, SELECT_ACL, table_list))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1377 1378
    goto err;
  thd->free_list = 0;
1379
  thd->query_length=(uint) strlen(tbl_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1380
  thd->query = tbl_name;
1381
  if ((error = mysqld_dump_create_info(thd, table_list, -1)))
1382
  {
1383
    my_error(ER_GET_ERRNO, MYF(0), my_errno);
1384 1385
    goto err;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1386
  net_flush(&thd->net);
1387
  if ((error= table->file->dump(thd,-1)))
1388
    my_error(ER_GET_ERRNO, MYF(0), error);
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1389

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1390
err:
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
1391
  DBUG_RETURN(error);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1392 1393
}

1394 1395 1396 1397
/*
  Ends the current transaction and (maybe) begin the next

  SYNOPSIS
1398
    end_trans()
1399 1400 1401 1402 1403 1404 1405
      thd            Current thread
      completion     Completion type

  RETURN
    0 - OK
*/

1406
int end_trans(THD *thd, enum enum_mysql_completiontype completion)
1407 1408 1409
{
  bool do_release= 0;
  int res= 0;
1410
  DBUG_ENTER("end_trans");
1411

1412
  if (unlikely(thd->in_sub_stmt))
1413 1414 1415 1416
  {
    my_error(ER_COMMIT_NOT_ALLOWED_IN_SF_OR_TRG, MYF(0));
    DBUG_RETURN(1);
  }
1417 1418 1419 1420 1421 1422
  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);
  }
1423 1424 1425 1426 1427 1428 1429 1430
  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;
1431
    res= ha_commit(thd);
1432
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
1433 1434
    break;
  case COMMIT_RELEASE:
serg@serg.mylan's avatar
serg@serg.mylan committed
1435
    do_release= 1; /* fall through */
1436 1437 1438 1439 1440 1441
  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
1442
    do_release= 1; /* fall through */
1443 1444 1445 1446
  case ROLLBACK:
  case ROLLBACK_AND_CHAIN:
  {
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
serg@serg.mylan's avatar
serg@serg.mylan committed
1447
    if (ha_rollback(thd))
1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458
      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
1459

1460 1461 1462
  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
1463 1464
    thd->killed= THD::KILL_CONNECTION;

1465 1466
  DBUG_RETURN(res);
}
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1467

1468
#ifndef EMBEDDED_LIBRARY
1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479

/*
  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
1480 1481 1482
bool do_command(THD *thd)
{
  char *packet;
1483 1484
  uint old_timeout;
  ulong packet_length;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1485 1486 1487 1488 1489
  NET *net;
  enum enum_server_command command;
  DBUG_ENTER("do_command");

  net= &thd->net;
1490 1491 1492 1493
  /*
    indicator of uninitialized lex => normal flow of errors handling
    (see my_message_sql)
  */
1494
  thd->lex->current_select= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1495 1496

  packet=0;
1497
  old_timeout=net->read_timeout;
monty@mysql.com's avatar
monty@mysql.com committed
1498
  /* Wait max for 8 hours */
1499
  net->read_timeout=(uint) thd->variables.net_wait_timeout;
1500
  thd->clear_error();				// Clear error message
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1501 1502 1503 1504

  net_new_transaction(net);
  if ((packet_length=my_net_read(net)) == packet_error)
  {
1505 1506 1507 1508 1509
    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)
1510 1511
    {
      statistic_increment(aborted_threads,&LOCK_status);
1512
      DBUG_RETURN(TRUE);			// We have to close it.
1513
    }
1514
    net_send_error(thd, net->last_errno, NullS);
1515
    net->error= 0;
1516
    DBUG_RETURN(FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1517 1518 1519 1520 1521
  }
  else
  {
    packet=(char*) net->read_pos;
    command = (enum enum_server_command) (uchar) packet[0];
1522 1523
    if (command >= COM_END)
      command= COM_END;				// Wrong command
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1524 1525 1526
    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
1527
  }
1528
  net->read_timeout=old_timeout;		// restore it
1529 1530 1531 1532 1533 1534 1535 1536 1537
  /*
    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.
  */
1538
  DBUG_RETURN(dispatch_command(command,thd, packet+1, (uint) packet_length));
1539
}
1540
#endif  /* EMBEDDED_LIBRARY */
1541

1542

1543 1544
/*
   Perform one connection-level (COM_XXXX) command.
1545

1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558
  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
*/
1559

1560 1561 1562 1563
bool dispatch_command(enum enum_server_command command, THD *thd,
		      char* packet, uint packet_length)
{
  NET *net= &thd->net;
1564
  bool error= 0;
1565 1566
  DBUG_ENTER("dispatch_command");

1567 1568 1569
  if (thd->killed == THD::KILL_QUERY || thd->killed == THD::KILL_BAD_DATA)
    thd->killed= THD::NOT_KILLED;

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

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

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

1645
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1646
    char *user= (char*) packet;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1647
    char *passwd= strend(user)+1;
1648
    /*
1649 1650 1651 1652
      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).
    */
1653
    char db_buff[NAME_LEN+1];                 // buffer to store db in utf8
1654
    char *db= passwd;
1655
    uint passwd_len= thd->client_capabilities & CLIENT_SECURE_CONNECTION ?
1656 1657
      *passwd++ : strlen(passwd);
    db+= passwd_len + 1;
1658
#ifndef EMBEDDED_LIBRARY
1659
    /* Small check for incoming packet */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1660
    if ((uint) ((uchar*) db - net->read_pos) > packet_length)
1661
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1662
      my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
1663 1664
      break;
    }
1665
#endif
1666
    /* Convert database name to utf8 */
1667
    uint dummy_errors;
1668 1669
    db_buff[copy_and_convert(db_buff, sizeof(db_buff)-1,
                             system_charset_info, db, strlen(db),
1670
                             thd->charset(), &dummy_errors)]= 0;
1671
    db= db_buff;
peter@mysql.com's avatar
peter@mysql.com committed
1672

1673 1674 1675
    /* Save user and privileges */
    uint save_db_length= thd->db_length;
    char *save_db= thd->db;
1676
    Security_context save_security_ctx= *thd->security_ctx;
1677
    USER_CONN *save_user_connect= thd->user_connect;
1678 1679

    if (!(thd->security_ctx->user= my_strdup(user, MYF(0))))
1680
    {
1681
      thd->security_ctx->user= save_security_ctx.user;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1682
      my_message(ER_OUT_OF_RESOURCES, ER(ER_OUT_OF_RESOURCES), MYF(0));
1683 1684
      break;
    }
peter@mysql.com's avatar
peter@mysql.com committed
1685

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

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

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

1752
    mysql_parse(thd,thd->query, thd->query_length);
1753

1754
    while (!thd->killed && thd->lex->found_semicolon && !thd->net.report_error)
1755
    {
1756
      char *packet= thd->lex->found_semicolon;
1757
      net->no_send_error= 0;
1758
      /*
1759 1760
        Multiple queries exits, execute them individually
      */
1761 1762
      if (thd->lock || thd->open_tables || thd->derived_tables ||
          thd->prelocked_mode)
1763
        close_thread_tables(thd);
1764
      ulong length= (ulong)(packet_end-packet);
1765

1766
      log_slow_statement(thd);
1767

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

bk@work.mysql.com's avatar
bk@work.mysql.com committed
1784 1785 1786 1787 1788
    if (!(specialflag & SPECIAL_NO_PRIOR))
      my_pthread_setprio(pthread_self(),WAIT_PRIOR);
    DBUG_PRINT("info",("query ready"));
    break;
  }
1789
  case COM_FIELD_LIST:				// This isn't actually needed
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1790
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1791 1792
    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
1793 1794 1795
    break;
#else
  {
1796
    char *fields, *pend;
1797 1798
    /* Locked closure of all tables */
    TABLE_LIST *locked_tables= NULL;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1799
    TABLE_LIST table_list;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1800
    LEX_STRING conv_name;
1801
    /* Saved variable value */
1802 1803
    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
1804 1805
    /* used as fields initializator */
    lex_start(thd, 0, 0);
1806

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

1808 1809
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_FIELDS],
			&LOCK_status);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1810
    bzero((char*) &table_list,sizeof(table_list));
1811
    if (thd->copy_db_to(&table_list.db, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1812
      break;
1813
    pend= strend(packet);
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
1814 1815
    thd->convert_string(&conv_name, system_charset_info,
			packet, (uint) (pend-packet), thd->charset());
1816
    table_list.alias= table_list.table_name= conv_name.str;
1817
    packet= pend+1;
1818 1819 1820 1821 1822 1823 1824 1825 1826

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

1827
    thd->query_length= strlen(packet);       // for simplicity: don't optimize
1828 1829
    if (!(thd->query=fields=thd->memdup(packet,thd->query_length+1)))
      break;
1830
    mysql_log.write(thd,command,"%s %s",table_list.table_name, fields);
1831
    if (lower_case_table_names)
1832 1833
      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
1834

monty@mysql.com's avatar
monty@mysql.com committed
1835
    if (check_access(thd,SELECT_ACL,table_list.db,&table_list.grant.privilege,
1836
		     0, 0, test(table_list.schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1837
      break;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
1838 1839
    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
1840
      break;
1841 1842 1843 1844 1845 1846
    /* 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
1847
    thd->lex->add_to_query_tables(&table_list);
1848

1849 1850
    /* 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
1851
    mysqld_list_fields(thd,&table_list,fields);
1852
    thd->lex->unit.cleanup();
1853
    thd->cleanup_after_query();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1854 1855 1856 1857
    break;
  }
#endif
  case COM_QUIT:
1858
    /* We don't calculate statistics for this command */
1859
    mysql_log.write(thd,command,NullS);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1860 1861 1862 1863
    net->error=0;				// Don't give 'abort' message
    error=TRUE;					// End server
    break;

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

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

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

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

      mysql_log.write(thd, command, "Log: '%s'  Pos: %ld", packet+10,
                      (long) pos);
1930
      mysql_binlog_send(thd, thd->strdup(packet + 10), (my_off_t) pos, flags);
1931
      unregister_slave(thd,1,1);
monty@mysql.com's avatar
monty@mysql.com committed
1932
      /*  fake COM_QUIT -- if we get here, the thread needs to terminate */
1933 1934
      error = TRUE;
      net->error = 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1935 1936
      break;
    }
1937
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1938
  case COM_REFRESH:
1939 1940 1941 1942 1943 1944
  {
    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
1945
      break;
1946 1947 1948 1949 1950
    mysql_log.write(thd,command,NullS);
    if (!reload_acl_and_cache(thd, options, (TABLE_LIST*) 0, &not_used))
      send_ok(thd);
    break;
  }
1951
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1952
  case COM_SHUTDOWN:
1953
  {
1954
    statistic_increment(thd->status_var.com_other, &LOCK_status);
1955
    if (check_global_access(thd,SHUTDOWN_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1956
      break; /* purecov: inspected */
1957
    /*
1958 1959 1960 1961
      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].
1962
    */
1963 1964
    enum mysql_enum_shutdown_level level=
      (enum mysql_enum_shutdown_level) (uchar) packet[0];
1965
    DBUG_PRINT("quit",("Got shutdown command for level %u", level));
1966 1967 1968 1969 1970 1971 1972
    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;
    }
1973
    DBUG_PRINT("quit",("Got shutdown command for level %u", level));
1974
    mysql_log.write(thd,command,NullS);
1975
    send_eof(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1976 1977 1978
#ifdef __WIN__
    sleep(1);					// must wait after eof()
#endif
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1979
#ifndef OS2
1980
    send_eof(thd);				// This is for 'quit request'
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1981
#endif
1982
    close_connection(thd, 0, 1);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1983 1984 1985 1986
    close_thread_tables(thd);			// Free before kill
    kill_mysql();
    error=TRUE;
    break;
1987
  }
1988
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1989 1990
  case COM_STATISTICS:
  {
1991
    mysql_log.write(thd,command,NullS);
1992 1993
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_STATUS],
			&LOCK_status);
hf@deer.(none)'s avatar
hf@deer.(none) committed
1994
#ifndef EMBEDDED_LIBRARY
bk@work.mysql.com's avatar
bk@work.mysql.com committed
1995
    char buff[200];
hf@deer.(none)'s avatar
hf@deer.(none) committed
1996 1997 1998
#else
    char *buff= thd->net.last_error;
#endif
1999 2000 2001 2002

    STATUS_VAR current_global_status_var;
    calc_sum_of_all_status(&current_global_status_var);

2003
    ulong uptime = (ulong) (thd->start_time - start_time);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2004
    sprintf((char*) buff,
2005
	    "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
2006
	    uptime,
2007
	    (int) thread_count, (ulong) thd->query_id,
2008 2009
	    current_global_status_var.long_query_count,
	    current_global_status_var.opened_tables, refresh_version, cached_tables(),
2010 2011
	    (uptime ? (ulonglong2double(thd->query_id) / (double) uptime) :
	     (double) 0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2012
#ifdef SAFEMALLOC
2013
    if (sf_malloc_cur_memory)				// Using SAFEMALLOC
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2014
      sprintf(strend(buff), "  Memory in use: %ldK  Max memory used: %ldK",
2015 2016
	      (sf_malloc_cur_memory+1023L)/1024L,
	      (sf_malloc_max_memory+1023L)/1024L);
hf@deer.(none)'s avatar
hf@deer.(none) committed
2017 2018
#endif
#ifndef EMBEDDED_LIBRARY
2019
    VOID(my_net_write(net, buff,(uint) strlen(buff)));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2020
    VOID(net_flush(net));
hf@deer.(none)'s avatar
hf@deer.(none) committed
2021
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2022 2023 2024
    break;
  }
  case COM_PING:
2025
    statistic_increment(thd->status_var.com_other, &LOCK_status);
2026
    send_ok(thd);				// Tell client we are alive
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2027 2028
    break;
  case COM_PROCESS_INFO:
2029 2030
    statistic_increment(thd->status_var.com_stat[SQLCOM_SHOW_PROCESSLIST],
			&LOCK_status);
2031 2032
    if (!thd->security_ctx->priv_user[0] &&
        check_global_access(thd, PROCESS_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2033
      break;
2034
    mysql_log.write(thd,command,NullS);
hf@deer.(none)'s avatar
hf@deer.(none) committed
2035
    mysqld_list_processes(thd,
2036 2037
			  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
2038 2039 2040
    break;
  case COM_PROCESS_KILL:
  {
2041
    statistic_increment(thd->status_var.com_stat[SQLCOM_KILL], &LOCK_status);
2042
    ulong id=(ulong) uint4korr(packet);
hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
2043
    kill_one_thread(thd,id,false);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2044 2045
    break;
  }
2046 2047
  case COM_SET_OPTION:
  {
2048 2049
    statistic_increment(thd->status_var.com_stat[SQLCOM_SET_OPTION],
			&LOCK_status);
2050 2051 2052 2053
    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;
2054
      send_eof(thd);
2055 2056 2057
      break;
    case MYSQL_OPTION_MULTI_STATEMENTS_OFF:
      thd->client_capabilities&= ~CLIENT_MULTI_STATEMENTS;
2058
      send_eof(thd);
2059 2060
      break;
    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));
2062 2063 2064 2065
      break;
    }
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2066
  case COM_DEBUG:
2067
    statistic_increment(thd->status_var.com_other, &LOCK_status);
2068
    if (check_global_access(thd, SUPER_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2069
      break;					/* purecov: inspected */
2070
    mysql_print_status();
2071
    mysql_log.write(thd,command,NullS);
2072
    send_eof(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2073 2074 2075 2076 2077
    break;
  case COM_SLEEP:
  case COM_CONNECT:				// Impossible here
  case COM_TIME:				// Impossible from client
  case COM_DELAYED_INSERT:
2078
  case COM_END:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2079
  default:
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2080
    my_message(ER_UNKNOWN_COM_ERROR, ER(ER_UNKNOWN_COM_ERROR), MYF(0));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2081 2082
    break;
  }
2083 2084
  if (thd->lock || thd->open_tables || thd->derived_tables ||
      thd->prelocked_mode)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2085 2086 2087 2088
  {
    thd->proc_info="closing tables";
    close_thread_tables(thd);			/* Free tables */
  }
2089 2090 2091 2092 2093 2094 2095 2096 2097 2098
  /*
    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())
2099
    thd->transaction.xid_state.xid.null();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2100

2101 2102 2103
  /* 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
2104
  if (thd->net.report_error)
2105
    net_send_error(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2106

2107
  log_slow_statement(thd);
2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122

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


2123
void log_slow_statement(THD *thd)
2124
{
2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135
  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;
2136
  thd->end_time();				// Set start time
2137

2138 2139 2140 2141 2142
  /*
    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
2143
  {
2144 2145
    thd->proc_info="logging slow query";

2146 2147
    if ((ulong) (thd->start_time - thd->time_after_lock) >
	thd->variables.long_query_time ||
2148 2149
	((thd->server_status &
	  (SERVER_QUERY_NO_INDEX_USED | SERVER_QUERY_NO_GOOD_INDEX_USED)) &&
2150
	 (specialflag & SPECIAL_LOG_QUERIES_NOT_USING_INDEXES)))
2151
    {
2152
      thd->status_var.long_query_count++;
2153 2154
      mysql_slow_log.write(thd, thd->query, thd->query_length, start_of_query);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2155 2156 2157
  }
}

2158

2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186
/*
  Create a TABLE_LIST object for an INFORMATION_SCHEMA table.

  SYNOPSIS
    prepare_schema_table()
      thd              thread handle
      lex              current lex
      table_ident      table alias if it's used
      schema_table_idx the type of the INFORMATION_SCHEMA table to be
                       created

  DESCRIPTION
    This function is used in the parser to convert a SHOW or DESCRIBE
    table_name command to a SELECT from INFORMATION_SCHEMA.
    It prepares a SELECT_LEX and a TABLE_LIST object to represent the
    given command as a SELECT parse tree.

  NOTES
    Due to the way this function works with memory and LEX it cannot
    be used outside the parser (parse tree transformations outside
    the parser break PS and SP).

  RETURN VALUE
    0                 success
    1                 out of memory or SHOW commands are not allowed
                      in this version of the server.
*/

2187 2188 2189 2190 2191
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;
2192
  switch (schema_table_idx) {
2193 2194
  case SCH_SCHEMATA:
#if defined(DONT_ALLOW_SHOW_COMMANDS)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2195 2196
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0));   /* purecov: inspected */
2197 2198 2199 2200 2201 2202 2203 2204 2205 2206
    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:
2207
  case SCH_TRIGGERS:
2208
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2209 2210
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0)); /* purecov: inspected */
2211 2212 2213
    DBUG_RETURN(1);
#else
    {
2214 2215 2216
      char *db;
      if (lex->select_lex.db == NULL &&
          thd->copy_db_to(&lex->select_lex.db, 0))
2217
      {
2218
        DBUG_RETURN(1);
2219
      }
2220
      db= lex->select_lex.db;
2221 2222 2223
      remove_escape(db);				// Fix escaped '_'
      if (check_db_name(db))
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2224
        my_error(ER_WRONG_DB_NAME, MYF(0), db);
2225 2226
        DBUG_RETURN(1);
      }
2227 2228
      if (check_access(thd, SELECT_ACL, db, &thd->col_access, 0, 0,
                       is_schema_db(db)))
2229 2230 2231
        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
2232
	my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
2233 2234
                 thd->security_ctx->priv_user, thd->security_ctx->priv_host,
                 db);
2235 2236 2237 2238 2239 2240 2241 2242
	DBUG_RETURN(1);
      }
      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
2243 2244
    my_message(ER_NOT_ALLOWED_COMMAND,
               ER(ER_NOT_ALLOWED_COMMAND), MYF(0)); /* purecov: inspected */
2245 2246 2247 2248 2249 2250
    DBUG_RETURN(1);
#else
    if (table_ident)
    {
      TABLE_LIST **query_tables_last= lex->query_tables_last;
      sel= new SELECT_LEX();
2251 2252
      /* 'parent_lex' is used in init_query() so it must be before it. */
      sel->parent_lex= lex;
2253
      sel->init_query();
monty@mishka.local's avatar
monty@mishka.local committed
2254
      if (!sel->add_table_to_list(thd, table_ident, 0, 0, TL_READ, 
2255 2256 2257 2258 2259 2260
                                 (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 '_'
2261
      remove_escape(table_list->table_name);
2262
      if (check_access(thd,SELECT_ACL | EXTRA_ACL,db,
2263 2264
                       &table_list->grant.privilege, 0, 0,
                       test(table_list->schema_table)))
2265 2266 2267 2268 2269 2270 2271
        DBUG_RETURN(1);				/* purecov: inspected */
      if (grant_option && check_grant(thd, SELECT_ACL, table_list, 2,
                                      UINT_MAX, 0))
        DBUG_RETURN(1);
      break;
    }
#endif
2272 2273 2274
  case SCH_OPEN_TABLES:
  case SCH_VARIABLES:
  case SCH_STATUS:
2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295
  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;
2296
  table_list->schema_table_reformed= 1;
2297 2298
  statistic_increment(thd->status_var.com_stat[lex->orig_sql_command],
                      &LOCK_status);
2299 2300 2301 2302
  DBUG_RETURN(0);
}


2303 2304
/*
  Read query from packet and store in thd->query
2305
  Used in COM_QUERY and COM_STMT_PREPARE
2306 2307 2308 2309 2310 2311 2312

  DESCRIPTION
    Sets the following THD variables:
      query
      query_length

  RETURN VALUES
2313 2314
    FALSE ok
    TRUE  error;  In this case thd->fatal_error is set
2315 2316
*/

2317
bool alloc_query(THD *thd, const char *packet, uint packet_length)
2318 2319
{
  packet_length--;				// Remove end null
2320
  /* Remove garbage at start and end of query */
2321
  while (my_isspace(thd->charset(),packet[0]) && packet_length > 0)
2322 2323 2324 2325
  {
    packet++;
    packet_length--;
  }
2326
  const char *pos= packet + packet_length;     // Point at end null
peter@mysql.com's avatar
peter@mysql.com committed
2327
  while (packet_length > 0 &&
2328
	 (pos[-1] == ';' || my_isspace(thd->charset() ,pos[-1])))
2329 2330 2331 2332 2333
  {
    pos--;
    packet_length--;
  }
  /* We must allocate some extra memory for query cache */
monty@mysql.com's avatar
monty@mysql.com committed
2334
  thd->query_length= 0;                        // Extra safety: Avoid races
2335 2336
  if (!(thd->query= (char*) thd->memdup_w_gap((gptr) (packet),
					      packet_length,
2337 2338
					      thd->db_length+ 1 +
					      QUERY_CACHE_FLAGS_SIZE)))
2339
    return TRUE;
2340 2341
  thd->query[packet_length]=0;
  thd->query_length= packet_length;
2342 2343 2344 2345

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

2347
  return FALSE;
2348 2349
}

2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365
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;
}

2366

2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389
/*
  Execute command saved in thd and current_lex->sql_command

  SYNOPSIS
    mysql_execute_command()
      thd                       Thread handle

  IMPLEMENTATION

    Before every operation that can request a write lock for a table
    wait if a global read lock exists. However do not wait if this
    thread has locked tables already. No new locks can be requested
    until the other locks are released. The thread that requests the
    global read lock waits for write locked tables to become unlocked.

    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() after the operation.

  RETURN
    FALSE       OK
    TRUE        Error
*/
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2390

2391
bool
2392
mysql_execute_command(THD *thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2393
{
2394 2395 2396 2397
  bool res= FALSE;
  bool need_start_waiting= FALSE; // have protection against global read lock
  int  result= 0;
  LEX  *lex= thd->lex;
monty@mysql.com's avatar
monty@mysql.com committed
2398
  /* first SELECT_LEX (have special meaning for many of non-SELECTcommands) */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2399
  SELECT_LEX *select_lex= &lex->select_lex;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2400
  /* first table of first SELECT_LEX */
monty@mysql.com's avatar
monty@mysql.com committed
2401
  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
2402 2403 2404
  /* list of all tables in query */
  TABLE_LIST *all_tables;
  /* most outer SELECT_LEX_UNIT of query */
2405
  SELECT_LEX_UNIT *unit= &lex->unit;
2406
  /* Saved variable value */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2407
  DBUG_ENTER("mysql_execute_command");
2408
  thd->net.no_send_error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2409

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425
  /*
    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();
2426
  /* should be assigned after making first tables same */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2427
  all_tables= lex->query_tables;
2428 2429 2430 2431
  /* 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
2432

2433 2434 2435 2436 2437
  /*
    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.
2438
    Don't reset warnings when executing a stored routine.
2439
  */
2440
  if ((all_tables || &lex->select_lex != lex->all_selects_list ||
2441
       lex->sroutines.records) && !thd->spcont ||
2442
      lex->time_zone_tables_used)
monty@mysql.com's avatar
monty@mysql.com committed
2443
    mysql_reset_errors(thd, 0);
2444

hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
2445
#ifdef HAVE_REPLICATION
2446
  if (unlikely(thd->slave_thread))
2447
  {
peter@mysql.com's avatar
peter@mysql.com committed
2448
    /*
2449 2450
      Check if statment should be skipped because of slave filtering
      rules
2451 2452

      Exceptions are:
2453 2454
      - UPDATE MULTI: For this statement, we want to check the filtering
        rules later in the code
2455
      - SET: we always execute it (Not that many SET commands exists in
lars@mysql.com's avatar
lars@mysql.com committed
2456 2457
        the binary log anyway -- only 4.1 masters write SET statements,
	in 5.0 there are no SET statements in the binary log)
2458 2459
      - 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
2460
    */
2461 2462
    if (!(lex->sql_command == SQLCOM_UPDATE_MULTI) &&
	!(lex->sql_command == SQLCOM_SET_OPTION) &&
2463
	!(lex->sql_command == SQLCOM_DROP_TABLE &&
2464
          lex->drop_temporary && lex->drop_if_exists) &&
guilhem@mysql.com's avatar
Merge  
guilhem@mysql.com committed
2465
        all_tables_not_ok(thd, all_tables))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
2466 2467
    {
      /* we warn the slave SQL thread */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2468
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
2469
      reset_one_shot_variables(thd);
2470
      DBUG_RETURN(0);
guilhem@mysql.com's avatar
guilhem@mysql.com committed
2471
    }
2472
  }
2473
  else
2474
  {
2475
#endif /* HAVE_REPLICATION */
2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493
    /*
      When option readonly is set deny operations which change non-temporary
      tables. Except for the replication thread and the 'super' users.
    */
    if (opt_readonly &&
	!(thd->security_ctx->master_access & SUPER_ACL) &&
	uc_update_queries[lex->sql_command] &&
	!((lex->sql_command == SQLCOM_CREATE_TABLE) &&
	  (lex->create_info.options & HA_LEX_CREATE_TMP_TABLE)) &&
	((lex->sql_command != SQLCOM_UPDATE_MULTI) &&
	 some_non_temp_table_to_be_updated(thd, all_tables)))
    {
      my_error(ER_OPTION_PREVENTS_STATEMENT, MYF(0), "--read-only");
      DBUG_RETURN(-1);
    }
#ifdef HAVE_REPLICATION
  } /* endif unlikely slave */
#endif
2494 2495 2496
  if(lex->orig_sql_command == SQLCOM_END)
    statistic_increment(thd->status_var.com_stat[lex->sql_command],
                        &LOCK_status);
2497

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2498 2499 2500
  switch (lex->sql_command) {
  case SQLCOM_SELECT:
  {
2501 2502 2503 2504
    /* assign global limit variable if limit is not given */
    {
      SELECT_LEX *param= lex->unit.global_parameters;
      if (!param->explicit_limit)
2505 2506
	param->select_limit=
          new Item_int((ulonglong)thd->variables.select_limit);
2507 2508
    }

2509
    select_result *result=lex->result;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2510
    if (all_tables)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2511
    {
2512 2513 2514 2515 2516 2517
      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
2518 2519
    }
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2520 2521
      res= check_access(thd,
			lex->exchange ? SELECT_ACL | FILE_ACL : SELECT_ACL,
2522
			any_db, 0, 0, 0, 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2523
    if (res)
2524
      goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2525

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2526
    if (!(res= open_and_lock_tables(thd, all_tables)))
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2527
    {
2528
      if (lex->describe)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2529
      {
2530 2531 2532 2533 2534 2535
        /*
          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.
        */
2536
	if (!(result= new select_send()))
2537
	  goto error;
2538 2539
	else
	  thd->send_explain_fields(result);
2540
	res= mysql_explain_union(thd, &thd->lex->unit, result);
2541 2542 2543 2544 2545
	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
2546
	  thd->lex->unit.print(&str);
2547 2548 2549 2550
	  str.append('\0');
	  push_warning(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
		       ER_YES, str.ptr());
	}
2551
	result->send_eof();
2552
        delete result;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2553 2554 2555
      }
      else
      {
2556
	if (!result && !(result= new select_send()))
2557
          goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2558
	query_cache_store_query(thd, all_tables);
2559
	res= handle_select(thd, lex, result, 0);
2560 2561
        if (result != lex->result)
          delete result;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2562
      }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2563
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2564 2565
    break;
  }
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2566
  case SQLCOM_PREPARE:
2567
  {
2568
    mysql_sql_stmt_prepare(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2569 2570 2571 2572
    break;
  }
  case SQLCOM_EXECUTE:
  {
2573
    mysql_sql_stmt_execute(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2574 2575 2576 2577
    break;
  }
  case SQLCOM_DEALLOCATE_PREPARE:
  {
2578
    mysql_sql_stmt_close(thd);
sergefp@mysql.com's avatar
sergefp@mysql.com committed
2579 2580
    break;
  }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
2581
  case SQLCOM_DO:
2582 2583
    if (check_table_access(thd, SELECT_ACL, all_tables, 0) ||
        open_and_lock_tables(thd, all_tables))
2584
      goto error;
2585 2586

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

2589
  case SQLCOM_EMPTY_QUERY:
2590
    send_ok(thd);
2591 2592
    break;

2593 2594 2595 2596
  case SQLCOM_HELP:
    res= mysqld_help(thd,lex->help_arg);
    break;

2597
#ifndef EMBEDDED_LIBRARY
2598
  case SQLCOM_PURGE:
2599
  {
2600
    if (check_global_access(thd, SUPER_ACL))
2601
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
2602
    /* PURGE MASTER LOGS TO 'file' */
2603 2604 2605
    res = purge_master_logs(thd, lex->to_log);
    break;
  }
2606 2607
  case SQLCOM_PURGE_BEFORE:
  {
2608 2609
    Item *it;

2610 2611
    if (check_global_access(thd, SUPER_ACL))
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
2612
    /* PURGE MASTER LOGS BEFORE 'data' */
2613
    it= (Item *)lex->value_list.head();
2614
    if ((!it->fixed && it->fix_fields(lex->thd, &it)) ||
2615
        it->check_cols(1))
2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626
    {
      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());
2627 2628
    break;
  }
2629
#endif
2630 2631
  case SQLCOM_SHOW_WARNS:
  {
2632 2633
    res= mysqld_show_warnings(thd, (ulong)
			      ((1L << (uint) MYSQL_ERROR::WARN_LEVEL_NOTE) |
2634 2635 2636
			       (1L << (uint) MYSQL_ERROR::WARN_LEVEL_WARN) |
			       (1L << (uint) MYSQL_ERROR::WARN_LEVEL_ERROR)
			       ));
2637 2638 2639 2640
    break;
  }
  case SQLCOM_SHOW_ERRORS:
  {
2641 2642
    res= mysqld_show_warnings(thd, (ulong)
			      (1L << (uint) MYSQL_ERROR::WARN_LEVEL_ERROR));
2643 2644
    break;
  }
2645 2646
  case SQLCOM_SHOW_NEW_MASTER:
  {
2647
    if (check_global_access(thd, REPL_SLAVE_ACL))
2648
      goto error;
2649
    /* This query don't work now. See comment in repl_failsafe.cc */
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
2650
#ifndef WORKING_NEW_MASTER
2651 2652
    my_error(ER_NOT_SUPPORTED_YET, MYF(0), "SHOW NEW MASTER");
    goto error;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
2653
#else
2654 2655
    res = show_new_master(thd);
    break;
2656
#endif
2657
  }
2658

2659
#ifdef HAVE_REPLICATION
2660 2661
  case SQLCOM_SHOW_SLAVE_HOSTS:
  {
2662
    if (check_global_access(thd, REPL_SLAVE_ACL))
2663 2664 2665 2666
      goto error;
    res = show_slave_hosts(thd);
    break;
  }
2667 2668
  case SQLCOM_SHOW_BINLOG_EVENTS:
  {
2669
    if (check_global_access(thd, REPL_SLAVE_ACL))
2670
      goto error;
2671
    res = mysql_show_binlog_events(thd);
2672 2673
    break;
  }
2674 2675
#endif

2676
  case SQLCOM_BACKUP_TABLE:
2677
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2678 2679 2680
    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) ||
2681
	check_global_access(thd, FILE_ACL))
2682
      goto error; /* purecov: inspected */
2683
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2684
    res = mysql_backup_table(thd, first_table);
2685
    select_lex->table_list.first= (byte*) first_table;
2686
    lex->query_tables=all_tables;
2687 2688
    break;
  }
2689
  case SQLCOM_RESTORE_TABLE:
2690
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2691 2692 2693
    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) ||
2694
	check_global_access(thd, FILE_ACL))
2695
      goto error; /* purecov: inspected */
2696
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2697
    res = mysql_restore_table(thd, first_table);
2698
    select_lex->table_list.first= (byte*) first_table;
2699
    lex->query_tables=all_tables;
2700 2701
    break;
  }
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2702 2703
  case SQLCOM_ASSIGN_TO_KEYCACHE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2704 2705 2706
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
        check_access(thd, INDEX_ACL, first_table->db,
2707 2708
                     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2709
      goto error;
2710
    res= mysql_assign_to_keycache(thd, first_table, &lex->ident);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2711 2712
    break;
  }
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2713 2714
  case SQLCOM_PRELOAD_KEYS:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2715 2716 2717
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables) ||
	check_access(thd, INDEX_ACL, first_table->db,
2718 2719
                     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
2720
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2721
    res = mysql_preload_keys(thd, first_table);
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
2722 2723
    break;
  }
2724
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2725
  case SQLCOM_CHANGE_MASTER:
2726
  {
2727
    if (check_global_access(thd, SUPER_ACL))
2728
      goto error;
2729
    pthread_mutex_lock(&LOCK_active_mi);
2730
    res = change_master(thd,active_mi);
2731
    pthread_mutex_unlock(&LOCK_active_mi);
2732 2733
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2734
  case SQLCOM_SHOW_SLAVE_STAT:
2735
  {
2736 2737
    /* Accept one of two privileges */
    if (check_global_access(thd, SUPER_ACL | REPL_CLIENT_ACL))
2738
      goto error;
2739
    pthread_mutex_lock(&LOCK_active_mi);
2740
    res = show_master_info(thd,active_mi);
2741
    pthread_mutex_unlock(&LOCK_active_mi);
2742 2743
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2744
  case SQLCOM_SHOW_MASTER_STAT:
2745
  {
2746 2747
    /* Accept one of two privileges */
    if (check_global_access(thd, SUPER_ACL | REPL_CLIENT_ACL))
2748 2749 2750 2751
      goto error;
    res = show_binlog_info(thd);
    break;
  }
peter@mysql.com's avatar
peter@mysql.com committed
2752

2753
  case SQLCOM_LOAD_MASTER_DATA: // sync with master
2754
    if (check_global_access(thd, SUPER_ACL))
2755
      goto error;
2756
    if (end_active_trans(thd))
2757
      goto error;
2758 2759
    else
      res = load_master_data(thd);
2760
    break;
2761
#endif /* HAVE_REPLICATION */
2762 2763 2764 2765 2766 2767 2768
#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
2769 2770 2771
#ifdef HAVE_INNOBASE_DB
  case SQLCOM_SHOW_INNODB_STATUS:
    {
2772
      if (check_global_access(thd, SUPER_ACL))
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2773 2774 2775 2776
	goto error;
      res = innodb_show_status(thd);
      break;
    }
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2777 2778 2779
  case SQLCOM_SHOW_MUTEX_STATUS:
    {
      if (check_global_access(thd, SUPER_ACL))
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2780
        goto error;
vtkachenko@intelp4d.mysql.com's avatar
vtkachenko@intelp4d.mysql.com committed
2781 2782 2783
      res = innodb_mutex_show_status(thd);
      break;
    }
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
2784
#endif
2785
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2786
  case SQLCOM_LOAD_MASTER_TABLE:
2787
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2788
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
2789 2790
    DBUG_ASSERT(first_table->db); /* Must be set in the parser */

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2791
    if (check_access(thd, CREATE_ACL, first_table->db,
2792 2793
		     &first_table->grant.privilege, 0, 0,
                     test(first_table->schema_table)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2794 2795 2796 2797
      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
2798
      if (check_grant(thd, CREATE_ACL, all_tables, 0, 1, 0))
2799
	goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2800
    }
2801
    if (strlen(first_table->table_name) > NAME_LEN)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2802
    {
2803
      my_error(ER_WRONG_TABLE_NAME, MYF(0), first_table->table_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2804 2805
      break;
    }
2806
    pthread_mutex_lock(&LOCK_active_mi);
2807 2808 2809 2810
    /*
      fetch_master_table will send the error to the client on failure.
      Give error if the table already exists.
    */
2811
    if (!fetch_master_table(thd, first_table->db, first_table->table_name,
2812
			    active_mi, 0, 0))
2813
    {
2814
      send_ok(thd);
2815
    }
2816
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2817
    break;
2818
  }
2819
#endif /* HAVE_REPLICATION */
2820

bk@work.mysql.com's avatar
bk@work.mysql.com committed
2821
  case SQLCOM_CREATE_TABLE:
2822
  {
2823
    /* If CREATE TABLE of non-temporary table, do implicit commit */
2824 2825 2826 2827 2828 2829 2830 2831 2832 2833
    if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE))
    {
      if (end_active_trans(thd))
      {
	res= -1;
	break;
      }
    }
    else 
    {
2834 2835
      /* So that CREATE TEMPORARY TABLE gets to binlog at commit/rollback */
      thd->options|= OPTION_STATUS_NO_TRANS_UPDATE;
2836
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2837 2838 2839 2840 2841
    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
2842

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

2846 2847 2848
#ifndef HAVE_READLINK
    lex->create_info.data_file_name=lex->create_info.index_file_name=0;
#else
2849
    /* Fix names if symlinked tables */
2850
    if (append_file_to_dir(thd, &lex->create_info.data_file_name,
2851
			   create_table->table_name) ||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2852
	append_file_to_dir(thd, &lex->create_info.index_file_name,
2853
			   create_table->table_name))
monty@mysql.com's avatar
monty@mysql.com committed
2854
      goto end_with_restore_list;
2855
#endif
2856
    /*
2857
      If we are using SET CHARSET without DEFAULT, add an implicit
2858 2859 2860 2861 2862 2863 2864 2865 2866 2867 2868
      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;
    }
2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881
    /*
      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.
    */
2882 2883
    if (!thd->locked_tables &&
        !(need_start_waiting= !wait_if_global_read_lock(thd, 0, 1)))
2884
    {
monty@mysql.com's avatar
monty@mysql.com committed
2885 2886
      res= 1;
      goto end_with_restore_list;
2887
    }
2888
    if (select_lex->item_list.elements)		// With select
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2889 2890
    {
      select_result *result;
2891

2892
      select_lex->options|= SELECT_NO_UNLOCK;
2893
      unit->set_limit(select_lex);
2894

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2895
      if (!(res= open_and_lock_tables(thd, select_tables)))
2896
      {
2897 2898 2899 2900
        /*
          Is table which we are changing used somewhere in other parts
          of query
        */
2901
        if (!(lex->create_info.options & HA_LEX_CREATE_TMP_TABLE))
2902
        {
2903
          TABLE_LIST *duplicate;
2904
          if ((duplicate= unique_table(thd, create_table, select_tables)))
2905 2906 2907
          {
            update_non_unique_table_error(create_table, "CREATE", duplicate);
            res= 1;
2908
            goto end_with_restore_list;
2909
          }
2910
        }
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2911 2912 2913 2914 2915 2916 2917 2918
        /* 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)
          {
2919
            TABLE_LIST *duplicate;
2920
            if ((duplicate= unique_table(thd, tab, select_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2921
            {
2922
              update_non_unique_table_error(tab, "CREATE", duplicate);
monty@mysql.com's avatar
monty@mysql.com committed
2923
              res= 1;
2924
              goto end_with_restore_list;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
2925 2926 2927
            }
          }
        }
2928

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2929 2930 2931 2932 2933
        if ((result= new select_create(create_table,
				       &lex->create_info,
				       lex->create_list,
				       lex->key_list,
				       select_lex->item_list,
2934 2935
				       lex->duplicates,
				       lex->ignore)))
2936 2937 2938 2939 2940
        {
          /*
            CREATE from SELECT give its SELECT_LEX for SELECT,
            and item_list belong to SELECT
          */
2941
          res= handle_select(thd, lex, result, 0);
2942
          delete result;
2943
        }
monty@mysql.com's avatar
monty@mysql.com committed
2944
	/* reset for PS */
2945 2946
	lex->create_list.empty();
	lex->key_list.empty();
2947 2948
      }
    }
monty@mysql.com's avatar
monty@mysql.com committed
2949
    else
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2950
    {
monty@mysql.com's avatar
monty@mysql.com committed
2951
      /* regular create */
venu@myvenu.com's avatar
venu@myvenu.com committed
2952
      if (lex->name)
monty@mysql.com's avatar
monty@mysql.com committed
2953
        res= mysql_create_like_table(thd, create_table, &lex->create_info, 
venu@myvenu.com's avatar
venu@myvenu.com committed
2954 2955
                                     (Table_ident *)lex->name); 
      else
2956
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2957
        res= mysql_create_table(thd, create_table->db,
2958
				create_table->table_name, &lex->create_info,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2959
				lex->create_list,
monty@mysql.com's avatar
monty@mysql.com committed
2960
				lex->key_list, 0, 0);
2961
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2962
      if (!res)
2963
	send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2964
    }
2965

monty@mysql.com's avatar
monty@mysql.com committed
2966
    /* put tables back for PS rexecuting */
monty@mysql.com's avatar
monty@mysql.com committed
2967
end_with_restore_list:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2968
    lex->link_first_table_back(create_table, link_to_local);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2969
    break;
2970
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2971
  case SQLCOM_CREATE_INDEX:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2972 2973
    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
2974
      goto error; /* purecov: inspected */
2975
    thd->enable_slow_log= opt_log_slow_admin_statements;
2976
    if (end_active_trans(thd))
2977
      goto error;
2978
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
2979
      res = mysql_create_index(thd, first_table, lex->key_list);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2980 2981
    break;

2982
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2983
  case SQLCOM_SLAVE_START:
2984
  {
2985
    pthread_mutex_lock(&LOCK_active_mi);
2986
    start_slave(thd,active_mi,1 /* net report*/);
2987
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2988
    break;
2989
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
2990
  case SQLCOM_SLAVE_STOP:
2991 2992 2993 2994 2995 2996
  /*
    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,
2997
      so it waits for the client thread because t is locked by it.
2998
    - then the client thread does SLAVE STOP.
2999 3000
      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.
3001 3002 3003
    To prevent that, refuse SLAVE STOP if the
    client thread has locked tables
  */
3004
  if (thd->locked_tables || thd->active_transaction() || thd->global_read_lock)
3005
  {
3006 3007
    my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
               ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3008
    goto error;
3009
  }
3010
  {
3011
    pthread_mutex_lock(&LOCK_active_mi);
3012
    stop_slave(thd,active_mi,1/* net report*/);
3013
    pthread_mutex_unlock(&LOCK_active_mi);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3014
    break;
3015
  }
3016
#endif /* HAVE_REPLICATION */
3017

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3018
  case SQLCOM_ALTER_TABLE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3019
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3020
#if defined(DONT_ALLOW_SHOW_COMMANDS)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3021 3022
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3023
    goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3024 3025
#else
    {
3026
      ulong priv=0;
Sinisa@sinisa.nasamreza.org's avatar
Sinisa@sinisa.nasamreza.org committed
3027
      if (lex->name && (!lex->name[0] || strlen(lex->name) > NAME_LEN))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3028
      {
3029
	my_error(ER_WRONG_TABLE_NAME, MYF(0), lex->name);
3030
        goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3031
      }
3032 3033
      /* Must be set in the parser */
      DBUG_ASSERT(select_lex->db);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3034
      if (check_access(thd, ALTER_ACL, first_table->db,
3035 3036 3037 3038
		       &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
3039
	  check_merge_table_access(thd, first_table->db,
3040 3041 3042
				   (TABLE_LIST *)
				   lex->create_info.merge_list.first))
	goto error;				/* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3043 3044
      if (grant_option)
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3045
	if (check_grant(thd, ALTER_ACL, all_tables, 0, UINT_MAX, 0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3046 3047 3048 3049 3050
	  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));
3051
	  tmp_table.table_name=lex->name;
3052
	  tmp_table.db=select_lex->db;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3053
	  tmp_table.grant.privilege=priv;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3054 3055
	  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
3056 3057 3058
	    goto error;
	}
      }
3059
      /* Don't yet allow changing of symlinks with ALTER TABLE */
3060 3061 3062 3063 3064 3065
      if (lex->create_info.data_file_name)
        push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 0,
                     "DATA DIRECTORY option ignored");
      if (lex->create_info.index_file_name)
        push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 0,
                     "INDEX DIRECTORY option ignored");
3066
      lex->create_info.data_file_name=lex->create_info.index_file_name=0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3067
      /* ALTER TABLE ends previous transaction */
3068
      if (end_active_trans(thd))
3069
	goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3070
      else
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3071
      {
3072 3073 3074 3075 3076 3077 3078
        if (!thd->locked_tables &&
            !(need_start_waiting= !wait_if_global_read_lock(thd, 0, 1)))
        {
          res= 1;
          break;
        }

3079
        thd->enable_slow_log= opt_log_slow_admin_statements;
3080
	res= mysql_alter_table(thd, select_lex->db, lex->name,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3081
			       &lex->create_info,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3082
			       first_table, lex->create_list,
3083
			       lex->key_list,
3084
			       select_lex->order_list.elements,
3085
                               (ORDER *) select_lex->order_list.first,
monty@mysql.com's avatar
monty@mysql.com committed
3086 3087
			       lex->duplicates, lex->ignore, &lex->alter_info,
                               1);
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3088
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3089 3090
      break;
    }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3091
#endif /*DONT_ALLOW_SHOW_COMMANDS*/
3092
  case SQLCOM_RENAME_TABLE:
3093
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3094
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3095
    TABLE_LIST *table;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3096
    if (check_db_used(thd, all_tables))
3097
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3098
    for (table= first_table; table; table= table->next_local->next_local)
3099
    {
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
3100
      if (check_access(thd, ALTER_ACL | DROP_ACL, table->db,
3101
		       &table->grant.privilege,0,0, test(table->schema_table)) ||
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3102
	  check_access(thd, INSERT_ACL | CREATE_ACL, table->next_local->db,
3103 3104
		       &table->next_local->grant.privilege, 0, 0,
                       test(table->next_local->schema_table)))
3105 3106 3107
	goto error;
      if (grant_option)
      {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3108
	TABLE_LIST old_list, new_list;
3109 3110 3111 3112
	/*
	  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
3113 3114 3115 3116
	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,
3117
			    INSERT_ACL | CREATE_ACL) &&
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3118
	     check_grant(thd, INSERT_ACL | CREATE_ACL, &new_list, 0, 1, 0)))
3119 3120 3121
	  goto error;
      }
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3122
    query_cache_invalidate3(thd, first_table, 0);
3123 3124
    if (end_active_trans(thd) || mysql_rename_tables(thd, first_table))
      goto error;
3125
    break;
3126
  }
3127
#ifndef EMBEDDED_LIBRARY
3128 3129
  case SQLCOM_SHOW_BINLOGS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3130 3131
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3132
    goto error;
3133 3134
#else
    {
3135
      if (check_global_access(thd, SUPER_ACL))
3136 3137 3138 3139
	goto error;
      res = show_binlogs(thd);
      break;
    }
peter@mysql.com's avatar
peter@mysql.com committed
3140
#endif
3141
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3142
  case SQLCOM_SHOW_CREATE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3143
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3144
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3145 3146
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0)); /* purecov: inspected */
3147
    goto error;
3148
#else
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3149
    {
3150 3151 3152 3153
      /* 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
3154 3155
      if (check_db_used(thd, all_tables) ||
	  check_access(thd, SELECT_ACL | EXTRA_ACL, first_table->db,
3156 3157
		       &first_table->grant.privilege, 0, 0, 
                       test(first_table->schema_table)))
3158
	goto error;
monty@mishka.local's avatar
monty@mishka.local committed
3159
      if (grant_option && check_grant(thd, SELECT_ACL, all_tables, 2, UINT_MAX, 0))
3160
	goto error;
monty@mishka.local's avatar
monty@mishka.local committed
3161
      res= mysqld_show_create(thd, first_table);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3162 3163
      break;
    }
3164
#endif
3165 3166
  case SQLCOM_CHECKSUM:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3167 3168 3169
    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))
3170
      goto error; /* purecov: inspected */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3171
    res = mysql_checksum_table(thd, first_table, &lex->check_opt);
3172 3173
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3174
  case SQLCOM_REPAIR:
3175
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3176 3177 3178
    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))
3179
      goto error; /* purecov: inspected */
3180
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3181
    res= mysql_repair_table(thd, first_table, &lex->check_opt);
3182 3183 3184 3185 3186
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3187
	thd->clear_error(); // No binlog error generated
3188
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3189 3190 3191
        mysql_bin_log.write(&qinfo);
      }
    }
3192
    select_lex->table_list.first= (byte*) first_table;
3193
    lex->query_tables=all_tables;
3194 3195
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3196
  case SQLCOM_CHECK:
3197
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3198 3199 3200
    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))
3201
      goto error; /* purecov: inspected */
3202
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3203
    res = mysql_check_table(thd, first_table, &lex->check_opt);
3204
    select_lex->table_list.first= (byte*) first_table;
3205
    lex->query_tables=all_tables;
3206 3207
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3208 3209
  case SQLCOM_ANALYZE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3210 3211 3212
    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
3213
      goto error; /* purecov: inspected */
3214
    thd->enable_slow_log= opt_log_slow_admin_statements;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3215
    res = mysql_analyze_table(thd, first_table, &lex->check_opt);
3216 3217 3218 3219 3220
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3221
	thd->clear_error(); // No binlog error generated
3222
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3223 3224 3225
        mysql_bin_log.write(&qinfo);
      }
    }
3226
    select_lex->table_list.first= (byte*) first_table;
3227
    lex->query_tables=all_tables;
3228
    break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3229
  }
3230

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3231 3232
  case SQLCOM_OPTIMIZE:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3233 3234 3235
    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
3236
      goto error; /* purecov: inspected */
3237
    thd->enable_slow_log= opt_log_slow_admin_statements;
3238
    res= (specialflag & (SPECIAL_SAFE_MODE | SPECIAL_NO_NEW_FUNC)) ?
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3239 3240
      mysql_recreate_table(thd, first_table, 1) :
      mysql_optimize_table(thd, first_table, &lex->check_opt);
3241 3242 3243 3244 3245
    /* ! we write after unlocking the table */
    if (!res && !lex->no_write_to_binlog)
    {
      if (mysql_bin_log.is_open())
      {
3246
	thd->clear_error(); // No binlog error generated
3247
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3248 3249 3250
        mysql_bin_log.write(&qinfo);
      }
    }
3251
    select_lex->table_list.first= (byte*) first_table;
3252
    lex->query_tables=all_tables;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3253 3254 3255
    break;
  }
  case SQLCOM_UPDATE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3256 3257
    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
3258
      break;
3259 3260
    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
3261 3262 3263 3264 3265 3266
    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,
3267
                               unit->select_limit_cnt,
3268
                               lex->duplicates, lex->ignore));
3269
    /* 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
3270
    if (result != 2)
3271
      break;
3272
  case SQLCOM_UPDATE_MULTI:
3273 3274 3275 3276
  {
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    /* if we switched from normal update, rights are checked */
    if (result != 2)
3277
    {
3278 3279 3280 3281 3282
      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
3283

3284
    res= mysql_multi_update_prepare(thd);
3285

3286
#ifdef HAVE_REPLICATION
3287
    /* Check slave filtering rules */
3288
    if (unlikely(thd->slave_thread))
3289
    {
3290 3291
      if (all_tables_not_ok(thd, all_tables))
      {
3292 3293 3294 3295 3296
        if (res!= 0)
        {
          res= 0;             /* don't care of prev failure  */
          thd->clear_error(); /* filters are of highest prior */
        }
3297 3298 3299 3300
        /* we warn the slave SQL thread */
        my_error(ER_SLAVE_IGNORED_TABLE, MYF(0));
        break;
      }
3301 3302
      if (res)
        break;
3303
    }
3304 3305
    else
    {
3306 3307 3308 3309 3310 3311 3312 3313 3314 3315 3316 3317 3318
#endif /* HAVE_REPLICATION */
      if (res)
        break;
      if (opt_readonly &&
	  !(thd->security_ctx->master_access & SUPER_ACL) &&
	  some_non_temp_table_to_be_updated(thd, all_tables))
      {
	my_error(ER_OPTION_PREVENTS_STATEMENT, MYF(0), "--read-only");
	break;
      }
#ifdef HAVE_REPLICATION
    }  /* unlikely */
#endif
3319

3320 3321 3322 3323 3324 3325
    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
3326
    break;
monty@mysql.com's avatar
monty@mysql.com committed
3327
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3328
  case SQLCOM_REPLACE:
3329 3330
  case SQLCOM_INSERT:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3331
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
monty@mysql.com's avatar
monty@mysql.com committed
3332
    if ((res= insert_precheck(thd, all_tables)))
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3333
      break;
3334 3335
    /* Skip first table, which is the table we are inserting in */
    select_lex->context.table_list= first_table->next_local;
3336 3337 3338 3339 3340 3341 3342 3343

    if (!thd->locked_tables &&
        !(need_start_waiting= !wait_if_global_read_lock(thd, 0, 1)))
    {
      res= 1;
      break;
    }

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3344
    res= mysql_insert(thd, all_tables, lex->field_list, lex->many_values,
monty@mishka.local's avatar
monty@mishka.local committed
3345
		      lex->update_list, lex->value_list,
3346
                      lex->duplicates, lex->ignore);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3347 3348
    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
3349
    break;
3350
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3351 3352 3353
  case SQLCOM_REPLACE_SELECT:
  case SQLCOM_INSERT_SELECT:
  {
monty@mysql.com's avatar
monty@mysql.com committed
3354
    select_result *result;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3355
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
monty@mishka.local's avatar
monty@mishka.local committed
3356
    if ((res= insert_precheck(thd, all_tables)))
3357
      break;
monty@mysql.com's avatar
monty@mysql.com committed
3358

3359
    /* Fix lock for first table */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3360 3361
    if (first_table->lock_type == TL_WRITE_DELAYED)
      first_table->lock_type= TL_WRITE;
3362

3363 3364
    /* 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
3365

3366
    unit->set_limit(select_lex);
3367 3368 3369 3370 3371 3372 3373 3374

    if (! thd->locked_tables &&
        ! (need_start_waiting= ! wait_if_global_read_lock(thd, 0, 1)))
    {
      res= 1;
      break;
    }

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3375
    if (!(res= open_and_lock_tables(thd, all_tables)))
3376
    {
3377
      /* Skip first table, which is the table we are inserting in */
3378 3379
      TABLE_LIST *second_table= first_table->next_local;
      select_lex->table_list.first= (byte*) second_table;
3380 3381
      select_lex->context.table_list= 
        select_lex->context.first_name_resolution_table= second_table;
3382 3383 3384
      res= mysql_insert_select_prepare(thd);
      if (!res && (result= new select_insert(first_table, first_table->table,
                                             &lex->field_list,
3385 3386
                                             &lex->update_list,
                                             &lex->value_list,
3387
                                             lex->duplicates, lex->ignore)))
3388
      {
3389
	res= handle_select(thd, lex, result, OPTION_SETUP_TABLES_DONE);
3390 3391 3392 3393 3394 3395 3396 3397 3398 3399 3400 3401 3402
        /*
          Invalidate the table in the query cache if something changed
          after unlocking when changes become visible.
          TODO: this is workaround. right way will be move invalidating in
          the unlock procedure.
        */
        if (first_table->lock_type ==  TL_WRITE_CONCURRENT_INSERT &&
            thd->lock)
        {
          mysql_unlock_tables(thd, thd->lock);
          query_cache_invalidate3(thd, first_table, 1);
          thd->lock=0;
        }
3403 3404
        delete result;
      }
3405
      /* revert changes for SP */
msvensson@neptunus.(none)'s avatar
msvensson@neptunus.(none) committed
3406
      select_lex->table_list.first= (byte*) first_table;
3407
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3408 3409 3410

    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
3411 3412
    break;
  }
3413
  case SQLCOM_TRUNCATE:
3414 3415 3416 3417 3418
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3419 3420
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_one_table_access(thd, DELETE_ACL, all_tables))
3421
      goto error;
3422 3423 3424 3425
    /*
      Don't allow this within a transaction because we want to use
      re-generate table
    */
3426
    if (thd->locked_tables || thd->active_transaction())
3427
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3428 3429
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3430 3431
      goto error;
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3432

monty@mysql.com's avatar
monty@mysql.com committed
3433
    res= mysql_truncate(thd, first_table, 0);
3434
    break;
3435
  case SQLCOM_DELETE:
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3436
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3437 3438
    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
3439
      break;
3440 3441
    DBUG_ASSERT(select_lex->offset_limit == 0);
    unit->set_limit(select_lex);
3442 3443 3444 3445 3446 3447 3448 3449

    if (!thd->locked_tables &&
        !(need_start_waiting= !wait_if_global_read_lock(thd, 0, 1)))
    {
      res= 1;
      break;
    }

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3450
    res = mysql_delete(thd, all_tables, select_lex->where,
3451
                       &select_lex->order_list,
osku@127.(none)'s avatar
osku@127.(none) committed
3452 3453
                       unit->select_limit_cnt, select_lex->options,
                       FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3454 3455
    break;
  }
3456
  case SQLCOM_DELETE_MULTI:
3457
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3458
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3459 3460
    TABLE_LIST *aux_tables=
      (TABLE_LIST *)thd->lex->auxilliary_table_list.first;
3461
    multi_delete *result;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3462

3463 3464 3465 3466 3467 3468 3469
    if (!thd->locked_tables &&
        !(need_start_waiting= !wait_if_global_read_lock(thd, 0, 1)))
    {
      res= 1;
      break;
    }

3470
    if ((res= multi_delete_precheck(thd, all_tables)))
3471
      break;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
3472

3473
    /* condition will be TRUE on SP re-excuting */
3474 3475
    if (select_lex->item_list.elements != 0)
      select_lex->item_list.empty();
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
3476
    if (add_item_to_list(thd, new Item_null()))
3477
      goto error;
3478

3479
    thd->proc_info="init";
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3480 3481 3482 3483
    if ((res= open_and_lock_tables(thd, all_tables)))
      break;

    if ((res= mysql_multi_delete_prepare(thd)))
3484
      goto error;
3485

3486
    if (!thd->is_fatal_error && (result= new multi_delete(aux_tables,
3487
							  lex->table_count)))
3488
    {
3489 3490 3491
      res= mysql_select(thd, &select_lex->ref_pointer_array,
			select_lex->get_table_list(),
			select_lex->with_wild,
3492
			select_lex->item_list,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3493
			select_lex->where,
3494
			0, (ORDER *)NULL, (ORDER *)NULL, (Item *)NULL,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3495 3496
			(ORDER *)NULL,
			select_lex->options | thd->options |
3497 3498
			SELECT_NO_JOIN_CACHE | SELECT_NO_UNLOCK |
                        OPTION_SETUP_TABLES_DONE,
3499
			result, unit, select_lex);
3500
      delete result;
3501 3502
    }
    else
3503
      res= TRUE;                                // Error
3504 3505
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3506
  case SQLCOM_DROP_TABLE:
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3507
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3508
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
3509 3510
    if (!lex->drop_temporary)
    {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3511
      if (check_table_access(thd, DROP_ACL, all_tables, 0))
3512 3513
	goto error;				/* purecov: inspected */
      if (end_active_trans(thd))
3514
        goto error;
3515
    }
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
3516
    else
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
3517 3518 3519 3520 3521 3522
    {
      /*
	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
3523 3524
	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
3525 3526 3527
      */
      if (thd->slave_thread)
	lex->drop_if_exists= 1;
3528

3529 3530
      /* 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
3531
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3532 3533
    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
3534 3535
  }
  break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3536
  case SQLCOM_DROP_INDEX:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3537 3538
    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
3539
      goto error;				/* purecov: inspected */
3540
    if (end_active_trans(thd))
3541
      goto error;
3542
    else
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3543
      res = mysql_drop_index(thd, first_table, &lex->alter_info);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3544 3545
    break;
  case SQLCOM_SHOW_PROCESSLIST:
3546 3547
    if (!thd->security_ctx->priv_user[0] &&
        check_global_access(thd,PROCESS_ACL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3548
      break;
hf@deer.(none)'s avatar
hf@deer.(none) committed
3549
    mysqld_list_processes(thd,
3550 3551 3552 3553
			  (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
3554
    break;
3555 3556
  case SQLCOM_SHOW_STORAGE_ENGINES:
    res= mysqld_show_storage_engines(thd);
3557 3558 3559 3560 3561 3562 3563
    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
3564 3565
  case SQLCOM_SHOW_LOGS:
#ifdef DONT_ALLOW_SHOW_COMMANDS
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3566 3567
    my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND),
               MYF(0));	/* purecov: inspected */
3568
    goto error;
tim@cane.mysql.fi's avatar
tim@cane.mysql.fi committed
3569 3570
#else
    {
3571
      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
3572 3573 3574 3575
	goto error;
      res= mysqld_show_logs(thd);
      break;
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3576 3577
#endif
  case SQLCOM_CHANGE_DB:
3578 3579
    if (!mysql_change_db(thd,select_lex->db,FALSE))
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3580
    break;
3581

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3582 3583
  case SQLCOM_LOAD:
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3584
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3585
    uint privilege= (lex->duplicates == DUP_REPLACE ?
3586 3587
		     INSERT_ACL | DELETE_ACL : INSERT_ACL) |
                    (lex->local_file ? 0 : FILE_ACL);
3588

3589
    if (lex->local_file)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3590
    {
3591
      if (!(thd->client_capabilities & CLIENT_LOCAL_FILES) ||
3592
          !opt_local_infile)
3593
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3594
	my_message(ER_NOT_ALLOWED_COMMAND, ER(ER_NOT_ALLOWED_COMMAND), MYF(0));
3595 3596
	goto error;
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3597
    }
3598 3599 3600 3601

    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
3602
    res= mysql_load(thd, lex->exchange, first_table, lex->field_list,
3603
                    lex->update_list, lex->value_list, lex->duplicates,
3604
                    lex->ignore, (bool) lex->local_file);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3605 3606
    break;
  }
3607

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3608
  case SQLCOM_SET_OPTION:
3609 3610
  {
    List<set_var_base> *lex_var_list= &lex->var_list;
3611
    if ((check_table_access(thd, SELECT_ACL, all_tables, 0) ||
3612 3613
	 open_and_lock_tables(thd, all_tables)))
      goto error;
3614 3615
    if (lex->one_shot_set && not_all_support_one_shot(lex_var_list))
    {
3616 3617
      my_error(ER_RESERVED_SYNTAX, MYF(0), "SET ONE_SHOT");
      goto error;
3618 3619 3620 3621 3622 3623 3624 3625
    }
    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;
3626
      send_ok(thd);
3627
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3628
    break;
3629
  }
3630

bk@work.mysql.com's avatar
bk@work.mysql.com committed
3631
  case SQLCOM_UNLOCK_TABLES:
3632 3633 3634 3635 3636 3637
    /*
      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.
    */
3638
    unlock_locked_tables(thd);
3639 3640
    if (thd->options & OPTION_TABLE_LOCK)
    {
3641
      end_active_trans(thd);
3642
      thd->options&= ~(ulong) (OPTION_TABLE_LOCK);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3643 3644
    }
    if (thd->global_read_lock)
3645
      unlock_global_read_lock(thd);
3646
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3647 3648
    break;
  case SQLCOM_LOCK_TABLES:
3649
    unlock_locked_tables(thd);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3650
    if (check_db_used(thd, all_tables) || end_active_trans(thd))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3651
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3652
    if (check_table_access(thd, LOCK_TABLES_ACL | SELECT_ACL, all_tables, 0))
3653
      goto error;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3654
    thd->in_lock_tables=1;
3655
    thd->options|= OPTION_TABLE_LOCK;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3656

3657
    if (!(res= simple_open_n_lock_tables(thd, all_tables)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3658
    {
3659 3660
#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
3661
	query_cache.invalidate_locked_for_write(first_table);
3662
#endif /*HAVE_QUERY_CACHE*/
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3663 3664
      thd->locked_tables=thd->lock;
      thd->lock=0;
3665
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3666
    }
3667 3668
    else
      thd->options&= ~(ulong) (OPTION_TABLE_LOCK);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3669 3670 3671
    thd->in_lock_tables=0;
    break;
  case SQLCOM_CREATE_DB:
3672
  {
3673 3674 3675 3676 3677
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
3678
    char *alias;
vva@eagle.mysql.r18.ru's avatar
vva@eagle.mysql.r18.ru committed
3679
    if (!(alias=thd->strdup(lex->name)) || check_db_name(lex->name))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3680
    {
3681
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3682 3683
      break;
    }
3684 3685 3686
    /*
      If in a slave thread :
      CREATE DATABASE DB was certainly not preceded by USE DB.
3687
      For that reason, db_ok() in sql/slave.cc did not check the
3688 3689 3690
      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.
    */
3691
#ifdef HAVE_REPLICATION
3692
    if (thd->slave_thread &&
3693 3694
	(!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
3695
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3696
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
3697
      break;
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3698
    }
3699
#endif
3700
    if (check_access(thd,CREATE_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3701
      break;
monty@mysql.com's avatar
monty@mysql.com committed
3702
    res= mysql_create_db(thd,(lower_case_table_names == 2 ? alias : lex->name),
monty@mysql.com's avatar
monty@mysql.com committed
3703
			 &lex->create_info, 0);
3704 3705
    break;
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3706
  case SQLCOM_DROP_DB:
3707
  {
3708 3709 3710 3711 3712
    if (end_active_trans(thd))
    {
      res= -1;
      break;
    }
3713
    if (check_db_name(lex->name))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3714
    {
3715
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3716 3717
      break;
    }
3718 3719 3720 3721 3722 3723 3724
    /*
      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.
    */
3725
#ifdef HAVE_REPLICATION
3726 3727 3728
    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
3729
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3730
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
3731
      break;
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3732
    }
3733
#endif
3734
    if (check_access(thd,DROP_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3735
      break;
3736 3737
    if (thd->locked_tables || thd->active_transaction())
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3738 3739
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3740 3741
      goto error;
    }
3742
    res= mysql_rm_db(thd, lex->name, lex->drop_if_exists, 0);
3743 3744
    break;
  }
3745 3746
  case SQLCOM_ALTER_DB:
  {
3747 3748
    char *db= lex->name;
    DBUG_ASSERT(db); /* Must be set in the parser */
3749
    if (!strip_sp(db) || check_db_name(db))
3750
    {
3751
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
3752 3753
      break;
    }
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3754 3755 3756
    /*
      If in a slave thread :
      ALTER DATABASE DB may not be preceded by USE DB.
3757
      For that reason, maybe db_ok() in sql/slave.cc did not check the
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3758 3759 3760 3761
      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
3762
    if (thd->slave_thread &&
3763 3764
	(!db_ok(db, replicate_do_db, replicate_ignore_db) ||
	 !db_ok_with_wild_table(db)))
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3765
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3766
      my_message(ER_SLAVE_IGNORED_TABLE, ER(ER_SLAVE_IGNORED_TABLE), MYF(0));
guilhem@mysql.com's avatar
guilhem@mysql.com committed
3767 3768 3769
      break;
    }
#endif
3770
    if (check_access(thd, ALTER_ACL, db, 0, 1, 0, is_schema_db(db)))
3771 3772 3773
      break;
    if (thd->locked_tables || thd->active_transaction())
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3774 3775
      my_message(ER_LOCK_OR_ACTIVE_TRANSACTION,
                 ER(ER_LOCK_OR_ACTIVE_TRANSACTION), MYF(0));
3776 3777
      goto error;
    }
3778
    res= mysql_alter_db(thd, db, &lex->create_info);
3779 3780
    break;
  }
3781 3782 3783 3784
  case SQLCOM_SHOW_CREATE_DB:
  {
    if (!strip_sp(lex->name) || check_db_name(lex->name))
    {
3785
      my_error(ER_WRONG_DB_NAME, MYF(0), lex->name);
3786 3787
      break;
    }
3788
    if (check_access(thd,SELECT_ACL,lex->name,0,1,0,is_schema_db(lex->name)))
3789
      break;
3790
    res=mysqld_show_create_db(thd,lex->name,&lex->create_info);
3791 3792
    break;
  }
monty@mysql.com's avatar
monty@mysql.com committed
3793
  case SQLCOM_CREATE_FUNCTION:                  // UDF function
monty@mysql.com's avatar
monty@mysql.com committed
3794
  {
3795
    if (check_access(thd,INSERT_ACL,"mysql",0,1,0,0))
monty@mysql.com's avatar
monty@mysql.com committed
3796
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3797
#ifdef HAVE_DLOPEN
3798 3799
    if (sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                        &thd->sp_func_cache, FALSE))
monty@mysql.com's avatar
monty@mysql.com committed
3800
    {
3801
      my_error(ER_UDF_EXISTS, MYF(0), lex->spname->m_name.str);
monty@mysql.com's avatar
monty@mysql.com committed
3802 3803
      goto error;
    }
3804
    if (!(res = mysql_create_function(thd, &lex->udf)))
monty@mysql.com's avatar
monty@mysql.com committed
3805
      send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3806
#else
hf@deer.(none)'s avatar
hf@deer.(none) committed
3807
    my_error(ER_CANT_OPEN_LIBRARY, MYF(0), lex->udf.dl, 0, "feature disabled");
3808
    res= TRUE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
3809 3810
#endif
    break;
monty@mysql.com's avatar
monty@mysql.com committed
3811
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
3812
#ifndef NO_EMBEDDED_ACCESS_CHECKS
3813 3814
  case SQLCOM_CREATE_USER:
  {
3815
    if (check_access(thd, INSERT_ACL, "mysql", 0, 1, 1, 0) &&
3816
        check_global_access(thd,CREATE_USER_ACL))
3817
      break;
3818 3819
    if (end_active_trans(thd))
      goto error;
3820 3821 3822 3823
    if (!(res= mysql_create_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3824
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3825 3826 3827 3828 3829 3830
        mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
3831 3832
  case SQLCOM_DROP_USER:
  {
3833
    if (check_access(thd, DELETE_ACL, "mysql", 0, 1, 1, 0) &&
3834
        check_global_access(thd,CREATE_USER_ACL))
3835
      break;
3836 3837
    if (end_active_trans(thd))
      goto error;
3838 3839 3840 3841
    if (!(res= mysql_drop_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3842
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3843 3844 3845 3846 3847 3848 3849 3850
        mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
  case SQLCOM_RENAME_USER:
  {
3851
    if (check_access(thd, UPDATE_ACL, "mysql", 0, 1, 1, 0) &&
3852
        check_global_access(thd,CREATE_USER_ACL))
3853
      break;
3854 3855
    if (end_active_trans(thd))
      goto error;
3856 3857 3858 3859
    if (!(res= mysql_rename_user(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
monty@mysql.com's avatar
monty@mysql.com committed
3860
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3861
        mysql_bin_log.write(&qinfo);
3862 3863 3864 3865 3866 3867 3868
      }
      send_ok(thd);
    }
    break;
  }
  case SQLCOM_REVOKE_ALL:
  {
3869
    if (check_access(thd, UPDATE_ACL, "mysql", 0, 1, 1, 0) &&
3870
        check_global_access(thd,CREATE_USER_ACL))
3871 3872 3873 3874 3875
      break;
    if (!(res = mysql_revoke_all(thd, lex->users_list)))
    {
      if (mysql_bin_log.is_open())
      {
3876
	Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3877 3878 3879 3880 3881 3882
	mysql_bin_log.write(&qinfo);
      }
      send_ok(thd);
    }
    break;
  }
3883 3884 3885 3886
  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
3887
		     first_table ?  first_table->db : select_lex->db,
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3888
		     first_table ? &first_table->grant.privilege : 0,
3889 3890 3891
		     first_table ? 0 : 1, 0,
                     first_table ? (bool) first_table->schema_table :
                     select_lex->db ? is_schema_db(select_lex->db) : 0))
3892 3893
      goto error;

3894
    if (thd->security_ctx->user)              // If not replication
3895 3896
    {
      LEX_USER *user;
3897

3898
      List_iterator <LEX_USER> user_list(lex->users_list);
3899
      while ((user= user_list++))
3900
      {
3901 3902 3903 3904 3905 3906 3907 3908
        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);
3909
        if (strcmp(thd->security_ctx->user, user->user.str) ||
3910
            my_strcasecmp(system_charset_info,
3911
                          user->host.str, thd->security_ctx->host_or_ip))
3912 3913
        {
          // TODO: use check_change_password()
3914 3915
          if (is_acl_user(user->host.str, user->user.str) &&
              user->password.str &&
3916
              check_access(thd, UPDATE_ACL,"mysql",0,1,1,0))
3917 3918 3919 3920 3921 3922
          {
            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
3923 3924
      }
    }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
3925
    if (first_table)
3926
    {
3927 3928
      if (lex->type == TYPE_ENUM_PROCEDURE ||
          lex->type == TYPE_ENUM_FUNCTION)
3929 3930 3931 3932 3933
      {
        uint grants= lex->all_privileges 
		   ? (PROC_ACLS & ~GRANT_ACL) | (lex->grant & GRANT_ACL)
		   : lex->grant;
        if (grant_option && 
3934 3935
	    check_grant_routine(thd, grants | GRANT_ACL, all_tables,
                                lex->type == TYPE_ENUM_PROCEDURE, 0))
3936
	  goto error;
3937 3938 3939 3940
        res= mysql_routine_grant(thd, all_tables,
                                 lex->type == TYPE_ENUM_PROCEDURE, 
                                 lex->users_list, grants,
                                 lex->sql_command == SQLCOM_REVOKE, 0);
3941 3942 3943 3944 3945 3946 3947 3948 3949 3950 3951 3952 3953
      }
      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())
3954
      {
pem@mysql.com's avatar
pem@mysql.com committed
3955
        thd->clear_error();
monty@mysql.com's avatar
monty@mysql.com committed
3956
        Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3957
        mysql_bin_log.write(&qinfo);
3958 3959 3960 3961
      }
    }
    else
    {
3962
      if (lex->columns.elements || lex->type)
3963
      {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
3964 3965
	my_message(ER_ILLEGAL_GRANT_FOR_TABLE, ER(ER_ILLEGAL_GRANT_FOR_TABLE),
                   MYF(0));
3966
        goto error;
3967 3968 3969 3970 3971 3972 3973 3974
      }
      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
3975
          thd->clear_error();
3976
	  Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
3977 3978
	  mysql_bin_log.write(&qinfo);
	}
3979
	if (lex->sql_command == SQLCOM_GRANT)
3980
	{
3981 3982 3983
	  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
3984
	    reset_mqh(user);
3985
	}
3986 3987 3988 3989
      }
    }
    break;
  }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
3990
#endif /*!NO_EMBEDDED_ACCESS_CHECKS*/
monty@donna.mysql.com's avatar
monty@donna.mysql.com committed
3991
  case SQLCOM_RESET:
3992 3993 3994
    /*
      RESET commands are never written to the binary log, so we have to
      initialize this variable because RESET shares the same code as FLUSH
3995 3996 3997 3998
    */
    lex->no_write_to_binlog= 1;
  case SQLCOM_FLUSH:
  {
3999
    bool write_to_binlog;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4000
    if (check_global_access(thd,RELOAD_ACL) || check_db_used(thd, all_tables))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4001
      goto error;
4002 4003 4004 4005
    /*
      reload_acl_and_cache() will tell us if we are allowed to write to the
      binlog or not.
    */
4006
    if (!reload_acl_and_cache(thd, lex->type, first_table, &write_to_binlog))
4007 4008 4009 4010 4011 4012 4013 4014 4015
    {
      /*
        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())
        {
4016
          Query_log_event qinfo(thd, thd->query, thd->query_length, 0, FALSE);
4017 4018 4019 4020 4021
          mysql_bin_log.write(&qinfo);
        }
      }
      send_ok(thd);
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4022
    break;
4023
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4024
  case SQLCOM_KILL:
4025 4026 4027
  {
    Item *it= (Item *)lex->value_list.head();

4028
    if ((!it->fixed && it->fix_fields(lex->thd, &it)) || it->check_cols(1))
4029 4030 4031 4032 4033 4034
    {
      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
4035
    break;
4036
  }
hf@deer.(none)'s avatar
hf@deer.(none) committed
4037
#ifndef NO_EMBEDDED_ACCESS_CHECKS
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4038
  case SQLCOM_SHOW_GRANTS:
4039 4040
    if ((thd->security_ctx->priv_user &&
	 !strcmp(thd->security_ctx->priv_user, lex->grant_user->user.str)) ||
4041
	!check_access(thd, SELECT_ACL, "mysql",0,1,0,0))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4042 4043 4044 4045
    {
      res = mysql_show_grants(thd,lex->grant_user);
    }
    break;
hf@deer.(none)'s avatar
hf@deer.(none) committed
4046
#endif
4047
  case SQLCOM_HA_OPEN:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4048 4049 4050
    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))
4051
      goto error;
monty@mysql.com's avatar
monty@mysql.com committed
4052
    res= mysql_ha_open(thd, first_table, 0);
4053 4054
    break;
  case SQLCOM_HA_CLOSE:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4055 4056
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
    if (check_db_used(thd, all_tables))
4057
      goto error;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4058
    res= mysql_ha_close(thd, first_table);
4059 4060
    break;
  case SQLCOM_HA_READ:
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4061
    DBUG_ASSERT(first_table == all_tables && first_table != 0);
4062 4063 4064 4065 4066
    /*
      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
4067
    if (check_db_used(thd, all_tables))
4068
      goto error;
4069
    unit->set_limit(select_lex);
4070
    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
4071
                       lex->insert_list, lex->ha_rkey_mode, select_lex->where,
4072
                       unit->select_limit_cnt, unit->offset_limit_cnt);
4073 4074
    break;

bk@work.mysql.com's avatar
bk@work.mysql.com committed
4075
  case SQLCOM_BEGIN:
4076 4077 4078 4079 4080 4081
    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;
    }
4082
    if (begin_trans(thd))
4083
      goto error;
serg@serg.mylan's avatar
serg@serg.mylan committed
4084
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4085 4086
    break;
  case SQLCOM_COMMIT:
4087
    if (end_trans(thd, lex->tx_release ? COMMIT_RELEASE :
serg@serg.mylan's avatar
serg@serg.mylan committed
4088
                              lex->tx_chain ? COMMIT_AND_CHAIN : COMMIT))
4089
      goto error;
4090
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4091 4092
    break;
  case SQLCOM_ROLLBACK:
4093
    if (end_trans(thd, lex->tx_release ? ROLLBACK_RELEASE :
serg@serg.mylan's avatar
serg@serg.mylan committed
4094
                              lex->tx_chain ? ROLLBACK_AND_CHAIN : ROLLBACK))
4095
      goto error;
4096
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4097
    break;
serg@serg.mylan's avatar
serg@serg.mylan committed
4098
  case SQLCOM_RELEASE_SAVEPOINT:
serg@serg.mylan's avatar
serg@serg.mylan committed
4099
  {
4100 4101
    SAVEPOINT *sv;
    for (sv=thd->transaction.savepoints; sv; sv=sv->prev)
serg@serg.mylan's avatar
serg@serg.mylan committed
4102 4103 4104
    {
      if (my_strnncoll(system_charset_info,
                       (uchar *)lex->ident.str, lex->ident.length,
4105
                       (uchar *)sv->name, sv->length) == 0)
serg@serg.mylan's avatar
serg@serg.mylan committed
4106 4107
        break;
    }
4108
    if (sv)
serg@serg.mylan's avatar
serg@serg.mylan committed
4109
    {
4110
      if (ha_release_savepoint(thd, sv))
serg@serg.mylan's avatar
serg@serg.mylan committed
4111
        res= TRUE; // cannot happen
serg@serg.mylan's avatar
serg@serg.mylan committed
4112 4113
      else
        send_ok(thd);
4114
      thd->transaction.savepoints=sv->prev;
serg@serg.mylan's avatar
serg@serg.mylan committed
4115
    }
4116
    else
serg@serg.mylan's avatar
serg@serg.mylan committed
4117
      my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "SAVEPOINT", lex->ident.str);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4118
    break;
serg@serg.mylan's avatar
serg@serg.mylan committed
4119
  }
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4120
  case SQLCOM_ROLLBACK_TO_SAVEPOINT:
serg@serg.mylan's avatar
serg@serg.mylan committed
4121
  {
4122 4123
    SAVEPOINT *sv;
    for (sv=thd->transaction.savepoints; sv; sv=sv->prev)
4124 4125 4126
    {
      if (my_strnncoll(system_charset_info,
                       (uchar *)lex->ident.str, lex->ident.length,
4127
                       (uchar *)sv->name, sv->length) == 0)
4128 4129
        break;
    }
4130
    if (sv)
4131
    {
4132
      if (ha_rollback_to_savepoint(thd, sv))
4133 4134
        res= TRUE; // cannot happen
      else
serg@serg.mylan's avatar
serg@serg.mylan committed
4135 4136 4137 4138 4139 4140 4141 4142
      {
        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);
      }
4143
      thd->transaction.savepoints=sv;
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4144 4145
    }
    else
4146
      my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "SAVEPOINT", lex->ident.str);
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4147
    break;
4148
  }
4149
  case SQLCOM_SAVEPOINT:
4150 4151
    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
4152
      send_ok(thd);
heikki@hundin.mysql.fi's avatar
heikki@hundin.mysql.fi committed
4153
    else
4154 4155 4156 4157 4158 4159 4160 4161 4162 4163 4164 4165 4166 4167 4168 4169 4170 4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185 4186 4187 4188 4189 4190 4191
    {
      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);
      }
    }
4192
    break;
4193 4194
  case SQLCOM_CREATE_PROCEDURE:
  case SQLCOM_CREATE_SPFUNCTION:
monty@mysql.com's avatar
monty@mysql.com committed
4195
  {
4196
    uint namelen;
4197
    char *name;
4198
    int result;
4199

4200
    DBUG_ASSERT(lex->sphead != 0);
4201
    DBUG_ASSERT(lex->sphead->m_db.str); /* Must be initialized in the parser */
4202

4203 4204
    if (check_access(thd, CREATE_PROC_ACL, lex->sphead->m_db.str, 0, 0, 0,
                     is_schema_db(lex->sphead->m_db.str)))
4205 4206 4207 4208 4209 4210
    {
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
    }

4211
    if (end_active_trans(thd)) 
4212
    {
4213 4214 4215
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
4216
    }
4217 4218

    name= lex->sphead->name(&namelen);
4219
#ifdef HAVE_DLOPEN
monty@mysql.com's avatar
monty@mysql.com committed
4220 4221 4222
    if (lex->sphead->m_type == TYPE_ENUM_FUNCTION)
    {
      udf_func *udf = find_udf(name, namelen);
4223

monty@mysql.com's avatar
monty@mysql.com committed
4224
      if (udf)
4225
      {
4226
	my_error(ER_UDF_EXISTS, MYF(0), name);
4227
	delete lex->sphead;
4228
	lex->sphead= 0;
4229
	goto error;
4230
      }
monty@mysql.com's avatar
monty@mysql.com committed
4231 4232 4233
    }
#endif

4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252 4253 4254 4255 4256 4257 4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290 4291 4292 4293 4294 4295 4296 4297 4298 4299 4300 4301 4302 4303 4304 4305 4306 4307 4308 4309 4310 4311 4312 4313 4314 4315 4316 4317
    /*
      If the definer is not specified, this means that CREATE-statement missed
      DEFINER-clause. DEFINER-clause can be missed in two cases:
      
        - The user submitted a statement w/o the clause. This is a normal
          case, we should assign CURRENT_USER as definer.

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

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

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

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

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

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

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

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

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

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

4318
    res= (result= lex->sphead->create(thd));
4319 4320
    if (result == SP_OK)
    {
4321
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4322
      /* only add privileges if really neccessary */
4323
      if (sp_automatic_privileges && !opt_noacl &&
4324
          check_routine_access(thd, DEFAULT_CREATE_PROC_ACLS,
4325
      			       lex->sphead->m_db.str, name,
4326
                               lex->sql_command == SQLCOM_CREATE_PROCEDURE, 1))
4327 4328
      {
        close_thread_tables(thd);
4329
        if (sp_grant_privileges(thd, lex->sphead->m_db.str, name,
4330
                                lex->sql_command == SQLCOM_CREATE_PROCEDURE))
4331 4332 4333 4334
          push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 
	  	       ER_PROC_AUTO_GRANT_FAIL,
		       ER(ER_PROC_AUTO_GRANT_FAIL));
      }
4335
#endif
4336 4337 4338
      lex->unit.cleanup();
      delete lex->sphead;
      lex->sphead= 0;
4339
      send_ok(thd);
4340 4341 4342 4343 4344 4345 4346 4347 4348 4349 4350 4351 4352 4353 4354 4355 4356 4357 4358 4359
    }
    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;
      }
4360
      lex->unit.cleanup();
monty@mysql.com's avatar
monty@mysql.com committed
4361 4362 4363
      delete lex->sphead;
      lex->sphead= 0;
      goto error;
4364
    }
monty@mysql.com's avatar
monty@mysql.com committed
4365 4366
    break;
  }
4367 4368 4369 4370
  case SQLCOM_CALL:
    {
      sp_head *sp;

4371 4372 4373 4374 4375 4376 4377 4378 4379
      /*
        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;

      /*
4380 4381
        By this moment all needed SPs should be in cache so no need to look 
        into DB. 
4382
      */
4383 4384
      if (!(sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                                &thd->sp_proc_cache, TRUE)))
4385
      {
4386
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0), "PROCEDURE",
4387
                 lex->spname->m_qname.str);
4388
	goto error;
4389 4390 4391
      }
      else
      {
4392
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4393
	Security_context *save_ctx;
4394
#endif
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4395
	ha_rows select_limit;
monty@mysql.com's avatar
monty@mysql.com committed
4396 4397
        /* bits that should be cleared in thd->server_status */
	uint bits_to_be_cleared= 0;
4398 4399 4400 4401 4402 4403 4404 4405 4406 4407 4408 4409
        /*
          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;
        }
4410

4411 4412
	my_bool nsok= thd->net.no_send_ok;
	thd->net.no_send_ok= TRUE;
4413
	if (sp->m_flags & sp_head::MULTI_RESULTS)
4414
	{
4415
	  if (! (thd->client_capabilities & CLIENT_MULTI_RESULTS))
4416
	  {
4417 4418 4419 4420
            /*
              The client does not support multiple result sets being sent
              back
            */
4421
	    my_error(ER_SP_BADSELECT, MYF(0), sp->m_qname.str);
4422 4423 4424
	    thd->net.no_send_ok= nsok;
	    goto error;
	  }
monty@mysql.com's avatar
monty@mysql.com committed
4425 4426 4427 4428 4429 4430 4431
          /*
            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;
4432 4433
	}

4434
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4435 4436 4437
	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))
4438 4439 4440 4441
	{
	  thd->net.no_send_ok= nsok;
	  goto error;
	}
4442 4443 4444
	if (save_ctx &&
            check_routine_access(thd, EXECUTE_ACL,
                                 sp->m_db.str, sp->m_name.str, TRUE, 0))
4445 4446
	{
	  thd->net.no_send_ok= nsok;
4447
	  sp_restore_security_context(thd, save_ctx);
4448 4449 4450
	  goto error;
	}

4451
#endif
pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4452 4453
	select_limit= thd->variables.select_limit;
	thd->variables.select_limit= HA_POS_ERROR;
4454

4455
        thd->row_count_func= 0;
4456 4457
        
        /* 
4458
          We never write CALL statements into binlog:
4459 4460 4461 4462 4463
           - 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.
4464
        */
4465
	res= sp->execute_procedure(thd, &lex->value_list);
4466 4467 4468
	/*
          If warnings have been cleared, we have to clear total_warn_count
          too, otherwise the clients get confused.
4469 4470 4471 4472
	 */
	if (thd->warn_list.is_empty())
	  thd->total_warn_count= 0;

pem@mysql.comhem.se's avatar
pem@mysql.comhem.se committed
4473
	thd->variables.select_limit= select_limit;
4474
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4475
	sp_restore_security_context(thd, save_ctx);
4476
#endif
4477

4478
	thd->net.no_send_ok= nsok;
monty@mysql.com's avatar
monty@mysql.com committed
4479
        thd->server_status&= ~bits_to_be_cleared;
4480

4481
	if (!res)
monty@mysql.com's avatar
monty@mysql.com committed
4482 4483
	  send_ok(thd, (ulong) (thd->row_count_func < 0 ? 0 :
                                thd->row_count_func));
4484 4485
	else
	  goto error;		// Substatement should already have sent error
4486
      }
4487
      break;
4488 4489
    }
  case SQLCOM_ALTER_PROCEDURE:
4490
  case SQLCOM_ALTER_FUNCTION:
4491
    {
4492
      int result;
4493 4494 4495 4496
      sp_head *sp;
      st_sp_chistics chistics;

      memcpy(&chistics, &lex->sp_chistics, sizeof(chistics));
4497
      if (lex->sql_command == SQLCOM_ALTER_PROCEDURE)
4498 4499
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
4500
      else
4501 4502
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
monty@mysql.com's avatar
monty@mysql.com committed
4503
      mysql_reset_errors(thd, 0);
4504
      if (! sp)
4505 4506 4507 4508 4509 4510 4511 4512 4513
      {
	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;
	}
      }
4514 4515
      else
      {
4516 4517 4518
        if (check_routine_access(thd, ALTER_PROC_ACL, sp->m_db.str, 
				 sp->m_name.str,
                                 lex->sql_command == SQLCOM_ALTER_PROCEDURE, 0))
4519
	  goto error;
4520 4521 4522

        if (end_active_trans(thd)) 
          goto error;
4523
	memcpy(&lex->sp_chistics, &chistics, sizeof(lex->sp_chistics));
4524 4525
        if ((sp->m_type == TYPE_ENUM_FUNCTION) &&
            !trust_function_creators &&  mysql_bin_log.is_open() &&
4526 4527 4528 4529 4530 4531 4532 4533 4534 4535
            !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
        {
4536 4537 4538 4539 4540 4541
          /*
            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.
          */
4542 4543 4544 4545 4546
          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);
        }
4547
      }
4548
      switch (result)
4549
      {
4550
      case SP_OK:
4551 4552 4553 4554 4555 4556
        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);
        }
4557
	send_ok(thd);
4558 4559
	break;
      case SP_KEY_NOT_FOUND:
4560 4561
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4562 4563
	goto error;
      default:
4564 4565
	my_error(ER_SP_CANT_ALTER, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4566
	goto error;
4567
      }
4568
      break;
4569 4570
    }
  case SQLCOM_DROP_PROCEDURE:
4571
  case SQLCOM_DROP_FUNCTION:
4572
    {
4573
      int result;
4574 4575
      int type= (lex->sql_command == SQLCOM_DROP_PROCEDURE ?
                 TYPE_ENUM_PROCEDURE : TYPE_ENUM_FUNCTION);
4576

4577
      result= sp_routine_exists_in_table(thd, type, lex->spname);
monty@mysql.com's avatar
monty@mysql.com committed
4578
      mysql_reset_errors(thd, 0);
4579
      if (result == SP_OK)
4580
      {
4581 4582 4583
        char *db= lex->spname->m_db.str;
	char *name= lex->spname->m_name.str;

4584 4585
	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
4586
          goto error;
4587 4588 4589

        if (end_active_trans(thd)) 
          goto error;
4590
#ifndef NO_EMBEDDED_ACCESS_CHECKS
4591
	if (sp_automatic_privileges && !opt_noacl &&
4592 4593
	    sp_revoke_privileges(thd, db, name, 
                                 lex->sql_command == SQLCOM_DROP_PROCEDURE))
4594 4595 4596 4597 4598
	{
	  push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, 
		       ER_PROC_AUTO_REVOKE_FAIL,
		       ER(ER_PROC_AUTO_REVOKE_FAIL));
	}
4599
#endif
4600
	if (lex->sql_command == SQLCOM_DROP_PROCEDURE)
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4601
	  result= sp_drop_procedure(thd, lex->spname);
4602
	else
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
4603
	  result= sp_drop_function(thd, lex->spname);
4604 4605 4606
      }
      else
      {
4607
#ifdef HAVE_DLOPEN
4608 4609 4610 4611 4612 4613
	if (lex->sql_command == SQLCOM_DROP_FUNCTION)
	{
          udf_func *udf = find_udf(lex->spname->m_name.str,
                                   lex->spname->m_name.length);
          if (udf)
          {
4614
	    if (check_access(thd, DELETE_ACL, "mysql", 0, 1, 0, 0))
4615 4616
	      goto error;
	    if (!(res = mysql_drop_function(thd, &lex->spname->m_name)))
4617
	    {
4618 4619
	      send_ok(thd);
	      break;
4620 4621
	    }
	  }
4622
	}
4623
#endif
4624 4625 4626 4627 4628 4629 4630
	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;
	}
4631
      }
4632 4633
      res= result;
      switch (result)
4634 4635
      {
      case SP_OK:
4636 4637 4638 4639 4640 4641
        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);
        }
4642
	send_ok(thd);
4643 4644
	break;
      case SP_KEY_NOT_FOUND:
4645 4646
	if (lex->drop_if_exists)
	{
4647
	  push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
4648
			      ER_SP_DOES_NOT_EXIST, ER(ER_SP_DOES_NOT_EXIST),
4649
			      SP_COM_STRING(lex), lex->spname->m_name.str);
4650
	  res= FALSE;
4651 4652 4653
	  send_ok(thd);
	  break;
	}
4654 4655
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4656 4657
	goto error;
      default:
4658 4659
	my_error(ER_SP_DROP_FAILED, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_qname.str);
4660
	goto error;
4661
      }
4662
      break;
4663
    }
4664 4665
  case SQLCOM_SHOW_CREATE_PROC:
    {
4666
      if (lex->spname->m_name.length > NAME_LEN)
4667
      {
4668
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
4669 4670
	goto error;
      }
4671
      if (sp_show_create_procedure(thd, lex->spname) != SP_OK)
4672
      {			/* We don't distinguish between errors for now */
4673 4674
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
4675 4676 4677 4678 4679 4680
	goto error;
      }
      break;
    }
  case SQLCOM_SHOW_CREATE_FUNC:
    {
4681
      if (lex->spname->m_name.length > NAME_LEN)
4682
      {
4683
	my_error(ER_TOO_LONG_IDENT, MYF(0), lex->spname->m_name.str);
4684 4685
	goto error;
      }
4686
      if (sp_show_create_function(thd, lex->spname) != SP_OK)
4687
      {			/* We don't distinguish between errors for now */
4688 4689
	my_error(ER_SP_DOES_NOT_EXIST, MYF(0),
                 SP_COM_STRING(lex), lex->spname->m_name.str);
4690 4691 4692 4693 4694 4695
	goto error;
      }
      break;
    }
  case SQLCOM_SHOW_STATUS_PROC:
    {
4696
      res= sp_show_status_procedure(thd, (lex->wild ?
4697 4698 4699 4700 4701
					  lex->wild->ptr() : NullS));
      break;
    }
  case SQLCOM_SHOW_STATUS_FUNC:
    {
4702
      res= sp_show_status_function(thd, (lex->wild ? 
4703 4704 4705
					 lex->wild->ptr() : NullS));
      break;
    }
pem@mysql.com's avatar
pem@mysql.com committed
4706 4707 4708 4709 4710 4711 4712 4713 4714 4715 4716 4717
#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
4718 4719
        sp= sp_find_routine(thd, TYPE_ENUM_PROCEDURE, lex->spname,
                            &thd->sp_proc_cache, FALSE);
pem@mysql.com's avatar
pem@mysql.com committed
4720
      else
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4721 4722
        sp= sp_find_routine(thd, TYPE_ENUM_FUNCTION, lex->spname,
                            &thd->sp_func_cache, FALSE);
4723
      if (!sp || sp->show_routine_code(thd))
4724 4725
      {
        /* We don't distinguish between errors for now */
pem@mysql.com's avatar
pem@mysql.com committed
4726 4727 4728 4729 4730 4731 4732
        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
4733 4734
  case SQLCOM_CREATE_VIEW:
    {
4735 4736 4737
      if (end_active_trans(thd))
        goto error;

4738 4739 4740
      if (!(res= mysql_create_view(thd, thd->lex->create_view_mode)) &&
          mysql_bin_log.is_open())
      {
4741
        String buff;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
4742 4743 4744 4745
        const LEX_STRING command[3]=
          {{(char *)STRING_WITH_LEN("CREATE ")},
           {(char *)STRING_WITH_LEN("ALTER ")},
           {(char *)STRING_WITH_LEN("CREATE OR REPLACE ")}};
4746
        thd->clear_error();
4747 4748 4749 4750

        buff.append(command[thd->lex->create_view_mode].str,
                    command[thd->lex->create_view_mode].length);
        view_store_options(thd, first_table, &buff);
4751
        buff.append(STRING_WITH_LEN("VIEW "));
4752
        /* Test if user supplied a db (ie: we did not use thd->db) */
4753 4754
        if (first_table->db && first_table->db[0] &&
            (thd->db == NULL || strcmp(first_table->db, thd->db)))
4755 4756 4757 4758 4759 4760 4761
        {
          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);
4762
        buff.append(STRING_WITH_LEN(" AS "));
4763 4764 4765
        buff.append(first_table->source.str, first_table->source.length);

        Query_log_event qinfo(thd, buff.ptr(), buff.length(), 0, FALSE);
4766 4767
        mysql_bin_log.write(&qinfo);
      }
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
4768 4769 4770 4771
      break;
    }
  case SQLCOM_DROP_VIEW:
    {
4772 4773 4774
      if (check_table_access(thd, DROP_ACL, all_tables, 0) ||
          end_active_trans(thd))
        goto error;
4775 4776 4777
      if (!(res= mysql_drop_view(thd, first_table, thd->lex->drop_mode)) &&
          mysql_bin_log.is_open())
      {
4778
        thd->clear_error();
4779 4780 4781
        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
4782 4783
      break;
    }
4784 4785
  case SQLCOM_CREATE_TRIGGER:
  {
4786 4787 4788
    if (end_active_trans(thd))
      goto error;

4789 4790 4791
    res= mysql_create_or_drop_trigger(thd, all_tables, 1);

    /* We don't care about trigger body after this point */
4792 4793 4794 4795 4796 4797
    delete lex->sphead;
    lex->sphead= 0;
    break;
  }
  case SQLCOM_DROP_TRIGGER:
  {
4798 4799 4800
    if (end_active_trans(thd))
      goto error;

4801 4802 4803
    res= mysql_create_or_drop_trigger(thd, all_tables, 0);
    break;
  }
4804
  case SQLCOM_XA_START:
4805 4806
    if (thd->transaction.xid_state.xa_state == XA_IDLE &&
        thd->lex->xa_opt == XA_RESUME)
4807
    {
4808
      if (! thd->transaction.xid_state.xid.eq(thd->lex->xid))
4809 4810 4811 4812
      {
        my_error(ER_XAER_NOTA, MYF(0));
        break;
      }
4813
      thd->transaction.xid_state.xa_state=XA_ACTIVE;
4814 4815 4816
      send_ok(thd);
      break;
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
4817
    if (thd->lex->xa_opt != XA_NONE)
4818 4819 4820 4821
    { // JOIN is not supported yet. TODO
      my_error(ER_XAER_INVAL, MYF(0));
      break;
    }
4822
    if (thd->transaction.xid_state.xa_state != XA_NOTR)
4823
    {
4824
      my_error(ER_XAER_RMFAIL, MYF(0),
4825
               xa_state_names[thd->transaction.xid_state.xa_state]);
4826 4827 4828 4829 4830 4831 4832
      break;
    }
    if (thd->active_transaction() || thd->locked_tables)
    {
      my_error(ER_XAER_OUTSIDE, MYF(0));
      break;
    }
4833 4834 4835 4836 4837 4838 4839 4840 4841
    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);
4842 4843 4844 4845 4846 4847 4848 4849 4850 4851 4852 4853
    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;
    }
4854
    if (thd->transaction.xid_state.xa_state != XA_ACTIVE)
4855
    {
4856
      my_error(ER_XAER_RMFAIL, MYF(0),
4857
               xa_state_names[thd->transaction.xid_state.xa_state]);
4858 4859
      break;
    }
4860
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4861 4862 4863 4864
    {
      my_error(ER_XAER_NOTA, MYF(0));
      break;
    }
4865
    thd->transaction.xid_state.xa_state=XA_IDLE;
4866 4867 4868
    send_ok(thd);
    break;
  case SQLCOM_XA_PREPARE:
4869
    if (thd->transaction.xid_state.xa_state != XA_IDLE)
4870
    {
4871
      my_error(ER_XAER_RMFAIL, MYF(0),
4872
               xa_state_names[thd->transaction.xid_state.xa_state]);
4873 4874
      break;
    }
4875
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4876 4877 4878 4879 4880 4881 4882
    {
      my_error(ER_XAER_NOTA, MYF(0));
      break;
    }
    if (ha_prepare(thd))
    {
      my_error(ER_XA_RBROLLBACK, MYF(0));
4883 4884
      xid_cache_delete(&thd->transaction.xid_state);
      thd->transaction.xid_state.xa_state=XA_NOTR;
4885 4886
      break;
    }
4887
    thd->transaction.xid_state.xa_state=XA_PREPARED;
4888 4889 4890
    send_ok(thd);
    break;
  case SQLCOM_XA_COMMIT:
4891
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4892
    {
4893 4894
      XID_STATE *xs=xid_cache_search(thd->lex->xid);
      if (!xs || xs->in_thd)
4895
        my_error(ER_XAER_NOTA, MYF(0));
serg@serg.mylan's avatar
serg@serg.mylan committed
4896
      else
4897 4898 4899
      {
        ha_commit_or_rollback_by_xid(thd->lex->xid, 1);
        xid_cache_delete(xs);
serg@serg.mylan's avatar
serg@serg.mylan committed
4900
        send_ok(thd);
4901
      }
4902 4903
      break;
    }
4904
    if (thd->transaction.xid_state.xa_state == XA_IDLE &&
monty@mysql.com's avatar
monty@mysql.com committed
4905
        thd->lex->xa_opt == XA_ONE_PHASE)
4906
    {
4907 4908 4909
      int r;
      if ((r= ha_commit(thd)))
        my_error(r == 1 ? ER_XA_RBROLLBACK : ER_XAER_RMERR, MYF(0));
4910 4911 4912
      else
        send_ok(thd);
    }
4913
    else if (thd->transaction.xid_state.xa_state == XA_PREPARED &&
monty@mysql.com's avatar
monty@mysql.com committed
4914
             thd->lex->xa_opt == XA_NONE)
4915
    {
4916 4917 4918
      if (wait_if_global_read_lock(thd, 0, 0))
      {
        ha_rollback(thd);
4919
        my_error(ER_XAER_RMERR, MYF(0));
4920
      }
4921
      else
4922 4923 4924 4925 4926 4927 4928
      {
        if (ha_commit_one_phase(thd, 1))
          my_error(ER_XAER_RMERR, MYF(0));
        else
          send_ok(thd);
        start_waiting_global_read_lock(thd);
      }
4929 4930 4931
    }
    else
    {
4932
      my_error(ER_XAER_RMFAIL, MYF(0),
4933
               xa_state_names[thd->transaction.xid_state.xa_state]);
4934 4935 4936 4937
      break;
    }
    thd->options&= ~(ulong) (OPTION_BEGIN | OPTION_STATUS_NO_TRANS_UPDATE);
    thd->server_status&= ~SERVER_STATUS_IN_TRANS;
4938 4939
    xid_cache_delete(&thd->transaction.xid_state);
    thd->transaction.xid_state.xa_state=XA_NOTR;
4940 4941
    break;
  case SQLCOM_XA_ROLLBACK:
4942
    if (!thd->transaction.xid_state.xid.eq(thd->lex->xid))
4943
    {
4944 4945
      XID_STATE *xs=xid_cache_search(thd->lex->xid);
      if (!xs || xs->in_thd)
4946
        my_error(ER_XAER_NOTA, MYF(0));
serg@serg.mylan's avatar
serg@serg.mylan committed
4947
      else
4948 4949 4950
      {
        ha_commit_or_rollback_by_xid(thd->lex->xid, 0);
        xid_cache_delete(xs);
serg@serg.mylan's avatar
serg@serg.mylan committed
4951
        send_ok(thd);
4952
      }
4953 4954
      break;
    }
4955 4956
    if (thd->transaction.xid_state.xa_state != XA_IDLE &&
        thd->transaction.xid_state.xa_state != XA_PREPARED)
4957
    {
4958
      my_error(ER_XAER_RMFAIL, MYF(0),
4959
               xa_state_names[thd->transaction.xid_state.xa_state]);
4960 4961 4962 4963 4964 4965 4966 4967
      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;
4968 4969
    xid_cache_delete(&thd->transaction.xid_state);
    thd->transaction.xid_state.xa_state=XA_NOTR;
4970 4971
    break;
  case SQLCOM_XA_RECOVER:
4972
    res= mysql_xa_recover(thd);
4973 4974
    break;
  default:
4975
#ifndef EMBEDDED_LIBRARY
4976
    DBUG_ASSERT(0);                             /* Impossible */
4977
#endif
4978
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
4979 4980
    break;
  }
monty@mysql.com's avatar
monty@mysql.com committed
4981
  thd->proc_info="query end";
4982
  /* Two binlog-related cleanups: */
4983 4984 4985 4986 4987 4988 4989 4990 4991 4992 4993 4994 4995

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

4996
  /*
4997 4998 4999 5000 5001 5002
    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.
5003
   */
5004 5005
  if (lex->sql_command != SQLCOM_CALL && lex->sql_command != SQLCOM_EXECUTE &&
      uc_update_queries[lex->sql_command]<2)
5006
    thd->row_count_func= -1;
5007 5008

  goto end;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5009 5010

error:
5011 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022
  res= TRUE;

end:
  if (need_start_waiting)
  {
    /*
      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);
  }
  DBUG_RETURN(res || thd->net.report_error);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5023 5024 5025
}


bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5026
/*
5027
  Check grants for commands which work only with one table.
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5028

5029
  SYNOPSIS
5030
    check_single_table_access()
monty@mysql.com's avatar
monty@mysql.com committed
5031
    thd			Thread handler
5032
    privilege		requested privilege
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5033
    all_tables		global table list of query
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5034 5035 5036

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

5040 5041
bool check_single_table_access(THD *thd, ulong privilege, 
                               TABLE_LIST *all_tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5042
{
5043 5044 5045 5046 5047 5048
  Security_context * backup_ctx= thd->security_ctx;

  /* we need to switch to the saved context (if any) */
  if (all_tables->security_ctx)
    thd->security_ctx= all_tables->security_ctx;

5049 5050 5051 5052 5053 5054 5055 5056
  const char *db_name;
  if ((all_tables->view || all_tables->field_translation) &&
      !all_tables->schema_table)
    db_name= all_tables->view_db.str;
  else
    db_name= all_tables->db;

  if (check_access(thd, privilege, db_name,
5057 5058
		   &all_tables->grant.privilege, 0, 0,
                   test(all_tables->schema_table)))
5059
    goto deny;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5060

5061
  /* Show only 1 table for check_grant */
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5062
  if (grant_option && check_grant(thd, privilege, all_tables, 0, 1, 0))
5063 5064 5065
    goto deny;

  thd->security_ctx= backup_ctx;
5066 5067 5068 5069 5070 5071 5072 5073 5074 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086 5087 5088 5089 5090 5091
  return 0;

deny:
  thd->security_ctx= backup_ctx;
  return 1;
}

/*
  Check grants for commands which work only with one table and all other
  tables belonging to subselects or implicitly opened tables.

  SYNOPSIS
    check_one_table_access()
    thd			Thread handler
    privilege		requested privilege
    all_tables		global table list of query

  RETURN
    0 - OK
    1 - access denied, error is sent to client
*/

bool check_one_table_access(THD *thd, ulong privilege, TABLE_LIST *all_tables)
{
  if (check_single_table_access (thd,privilege,all_tables))
    return 1;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5092

5093
  /* Check rights on tables of subselects and implictly opened tables */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5094
  TABLE_LIST *subselects_tables;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5095
  if ((subselects_tables= all_tables->next_global))
monty@mysql.com's avatar
monty@mysql.com committed
5096
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5097
    if ((check_table_access(thd, SELECT_ACL, subselects_tables, 0)))
5098
      return 1;
monty@mysql.com's avatar
monty@mysql.com committed
5099 5100
  }
  return 0;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5101 5102 5103
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
5104
/****************************************************************************
5105
  Get the user (global) and database privileges for all used tables
5106 5107 5108 5109 5110 5111 5112 5113 5114 5115 5116 5117 5118

  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
5119 5120
                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
5121 5122 5123
****************************************************************************/

bool
5124
check_access(THD *thd, ulong want_access, const char *db, ulong *save_priv,
5125
	     bool dont_check_global_grants, bool no_errors, bool schema_db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5126
{
5127
  Security_context *sctx= thd->security_ctx;
5128 5129
#ifndef NO_EMBEDDED_ACCESS_CHECKS
  ulong db_access;
5130
  bool  db_is_pattern= test(want_access & GRANT_ACL);
5131 5132
#endif
  ulong dummy;
5133 5134
  DBUG_ENTER("check_access");
  DBUG_PRINT("enter",("db: %s  want_access: %lu  master_access: %lu",
5135
                      db ? db : "", want_access, sctx->master_access));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5136 5137 5138 5139 5140
  if (save_priv)
    *save_priv=0;
  else
    save_priv= &dummy;

5141
  if ((!db || !db[0]) && !thd->db && !dont_check_global_grants)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5142
  {
5143
    DBUG_PRINT("error",("No database"));
5144
    if (!no_errors)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5145 5146
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR),
                 MYF(0));                       /* purecov: tested */
5147
    DBUG_RETURN(TRUE);				/* purecov: tested */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5148 5149
  }

5150 5151 5152 5153 5154
  if (schema_db)
  {
    if (want_access & ~(SELECT_ACL | EXTRA_ACL))
    {
      if (!no_errors)
5155 5156
      {
        const char *db_name= db ? db : thd->db;
5157
        my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5158 5159
                 sctx->priv_user, sctx->priv_host, db_name);
      }
5160 5161 5162 5163 5164 5165 5166 5167 5168
      DBUG_RETURN(TRUE);
    }
    else
    {
      *save_priv= SELECT_ACL;
      DBUG_RETURN(FALSE);
    }
  }

monty@mysql.com's avatar
monty@mysql.com committed
5169 5170 5171
#ifdef NO_EMBEDDED_ACCESS_CHECKS
  DBUG_RETURN(0);
#else
5172
  if ((sctx->master_access & want_access) == want_access)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5173
  {
5174 5175 5176 5177 5178
    /*
      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
    */
5179 5180
    db_access= sctx->db_access;
    if (!(sctx->master_access & SELECT_ACL) &&
5181
	(db && (!thd->db || db_is_pattern || strcmp(db,thd->db))))
5182 5183 5184
      db_access=acl_get(sctx->host, sctx->ip, sctx->priv_user, db,
                        db_is_pattern);
    *save_priv=sctx->master_access | db_access;
5185
    DBUG_RETURN(FALSE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5186
  }
5187
  if (((want_access & ~sctx->master_access) & ~(DB_ACLS | EXTRA_ACL)) ||
5188
      ! db && dont_check_global_grants)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5189
  {						// We can never grant this
5190
    DBUG_PRINT("error",("No possible access"));
5191
    if (!no_errors)
5192
      my_error(ER_ACCESS_DENIED_ERROR, MYF(0),
5193 5194
               sctx->priv_user,
               sctx->priv_host,
5195 5196 5197
               (thd->password ?
                ER(ER_YES) :
                ER(ER_NO)));                    /* purecov: tested */
5198
    DBUG_RETURN(TRUE);				/* purecov: tested */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5199 5200 5201
  }

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

5204
  if (db && (!thd->db || db_is_pattern || strcmp(db,thd->db)))
5205 5206
    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
5207
  else
5208
    db_access= sctx->db_access;
5209
  DBUG_PRINT("info",("db_access: %lu", db_access));
monty@mysql.com's avatar
monty@mysql.com committed
5210
  /* Remove SHOW attribute and access rights we already have */
5211
  want_access &= ~(sctx->master_access | EXTRA_ACL);
5212 5213
  DBUG_PRINT("info",("db_access: %lu  want_access: %lu",
                     db_access, want_access));
5214
  db_access= ((*save_priv=(db_access | sctx->master_access)) & want_access);
5215 5216

  /* grant_option is set if there exists a single table or column grant */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5217
  if (db_access == want_access ||
5218
      (grant_option && !dont_check_global_grants &&
5219
       !(want_access & ~(db_access | TABLE_ACLS | PROC_ACLS))))
5220
    DBUG_RETURN(FALSE);				/* Ok */
5221 5222

  DBUG_PRINT("error",("Access denied"));
5223
  if (!no_errors)
5224
    my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5225
             sctx->priv_user, sctx->priv_host,
5226 5227 5228
             (db ? db : (thd->db ?
                         thd->db :
                         "unknown")));          /* purecov: tested */
5229
  DBUG_RETURN(TRUE);				/* purecov: tested */
monty@mysql.com's avatar
monty@mysql.com committed
5230
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5231 5232 5233
}


5234 5235 5236 5237 5238 5239 5240 5241 5242
/*
  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
5243
    One gets access right if one has ANY of the rights in want_access
5244 5245 5246 5247 5248 5249 5250 5251
    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
*/
5252 5253

bool check_global_access(THD *thd, ulong want_access)
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
5254
{
monty@mysql.com's avatar
monty@mysql.com committed
5255 5256 5257
#ifdef NO_EMBEDDED_ACCESS_CHECKS
  return 0;
#else
5258
  char command[128];
5259
  if ((thd->security_ctx->master_access & want_access))
5260 5261
    return 0;
  get_privilege_desc(command, sizeof(command), want_access);
5262
  my_error(ER_SPECIFIC_ACCESS_DENIED_ERROR, MYF(0), command);
5263
  return 1;
monty@mysql.com's avatar
monty@mysql.com committed
5264
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
monty@tik.mysql.fi's avatar
monty@tik.mysql.fi committed
5265 5266 5267
}


bk@work.mysql.com's avatar
bk@work.mysql.com committed
5268
/*
5269 5270 5271 5272 5273 5274 5275 5276 5277 5278 5279 5280 5281 5282 5283 5284 5285 5286 5287 5288
  Check the privilege for all used tables.

  SYNOPSYS
    check_table_access()
      thd          Thread context
      want_access  Privileges requested
      tables       List of tables to be checked
      no_errors    FALSE/TRUE - report/don't report error to
                   the client (using my_error() call).

  NOTES
    Table privileges are cached in the table list for GRANT checking.
    This functions assumes that table list used and
    thd->lex->query_tables_own_last value correspond to each other
    (the latter should be either 0 or point to next_global member
    of one of elements of this table list).

  RETURN VALUE
    FALSE - OK
    TRUE  - Access denied
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5289 5290
*/

5291
bool
5292
check_table_access(THD *thd, ulong want_access,TABLE_LIST *tables,
5293
		   bool no_errors)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5294
{
5295 5296
  uint found=0;
  ulong found_access=0;
5297 5298
  TABLE_LIST *org_tables= tables;
  TABLE_LIST *first_not_own_table= thd->lex->first_not_own_table();
5299
  Security_context *sctx= thd->security_ctx, *backup_ctx= thd->security_ctx;
5300
  /*
5301 5302 5303
    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.
5304
  */
5305
  for (; tables != first_not_own_table; tables= tables->next_global)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5306
  {
5307 5308 5309 5310 5311
    if (tables->security_ctx)
      sctx= tables->security_ctx;
    else
      sctx= backup_ctx;

5312
    if (tables->schema_table && 
5313
        (want_access & ~(SELECT_ACL | EXTRA_ACL | FILE_ACL)))
5314 5315 5316
    {
      if (!no_errors)
        my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
5317
                 sctx->priv_user, sctx->priv_host,
5318 5319 5320
                 information_schema_name.str);
      return TRUE;
    }
5321 5322 5323 5324 5325
    /*
       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);
5326
    if (tables->derived || tables->schema_table ||
5327
        (tables->table && (int)tables->table->s->tmp_table) ||
5328 5329
        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
5330
      continue;
5331 5332
    thd->security_ctx= sctx;
    if ((sctx->master_access & want_access) ==
5333
        (want_access & ~EXTRA_ACL) &&
5334
	thd->db)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5335
      tables->grant.privilege= want_access;
5336
    else if (tables->db && thd->db && strcmp(tables->db, thd->db) == 0)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5337 5338 5339 5340 5341
    {
      if (found && !grant_option)		// db already checked
	tables->grant.privilege=found_access;
      else
      {
5342
	if (check_access(thd,want_access,tables->db,&tables->grant.privilege,
5343
			 0, no_errors, test(tables->schema_table)))
5344
	  goto deny;                            // Access denied
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5345
	found_access=tables->grant.privilege;
5346
	found=1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5347 5348
      }
    }
5349
    else if (check_access(thd,want_access,tables->db,&tables->grant.privilege,
5350
			  0, no_errors, test(tables->schema_table)))
5351
      goto deny;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5352
  }
5353
  thd->security_ctx= backup_ctx;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5354
  if (grant_option)
5355
    return check_grant(thd,want_access & ~EXTRA_ACL,org_tables,
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5356
		       test(want_access & EXTRA_ACL), UINT_MAX, no_errors);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5357
  return FALSE;
5358 5359 5360
deny:
  thd->security_ctx= backup_ctx;
  return TRUE;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5361 5362
}

5363

5364
bool
5365 5366
check_routine_access(THD *thd, ulong want_access,char *db, char *name,
		     bool is_proc, bool no_errors)
5367 5368 5369 5370 5371
{
  TABLE_LIST tables[1];
  
  bzero((char *)tables, sizeof(TABLE_LIST));
  tables->db= db;
5372
  tables->table_name= tables->alias= name;
5373
  
monty@mysql.com's avatar
monty@mysql.com committed
5374 5375 5376 5377 5378 5379 5380
  /*
    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)
5381 5382
    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
5383
			0, no_errors, 0))
5384 5385
    return TRUE;
  
5386
#ifndef NO_EMBEDDED_ACCESS_CHECKS
5387
  if (grant_option)
5388
    return check_grant_routine(thd, want_access, tables, is_proc, no_errors);
5389
#endif
5390 5391 5392 5393

  return FALSE;
}

5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408

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

5409 5410
bool check_some_routine_access(THD *thd, const char *db, const char *name,
                               bool is_proc)
5411 5412
{
  ulong save_priv;
5413
  if (thd->security_ctx->master_access & SHOW_PROC_ACLS)
5414
    return FALSE;
5415 5416 5417 5418 5419
  /*
    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) ||
5420 5421
      (save_priv & SHOW_PROC_ACLS))
    return FALSE;
5422
  return check_routine_level_acl(thd, db, name, is_proc);
5423 5424 5425
}


5426 5427 5428 5429 5430 5431 5432 5433 5434 5435 5436 5437 5438 5439 5440 5441 5442 5443 5444 5445 5446 5447 5448 5449 5450
/*
  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,
5451 5452
                        &table->grant.privilege, 0, 1,
                        test(table->schema_table)) &&
5453 5454 5455 5456 5457 5458 5459 5460 5461
          !grant_option || !check_grant(thd, access, table, 0, 1, 1))
        DBUG_RETURN(0);
    }
  }
  DBUG_PRINT("exit",("no matching access rights"));
  DBUG_RETURN(1);
}


5462 5463
bool check_merge_table_access(THD *thd, char *db,
			      TABLE_LIST *table_list)
5464 5465 5466 5467
{
  int error=0;
  if (table_list)
  {
5468
    /* Check that all tables use the current database */
5469
    TABLE_LIST *tmp;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5470
    for (tmp= table_list; tmp; tmp= tmp->next_local)
5471 5472 5473 5474
    {
      if (!tmp->db || !tmp->db[0])
	tmp->db=db;
    }
5475
    error=check_table_access(thd, SELECT_ACL | UPDATE_ACL | DELETE_ACL,
hf@deer.(none)'s avatar
hf@deer.(none) committed
5476
			     table_list,0);
5477 5478 5479 5480
  }
  return error;
}

hf@deer.(none)'s avatar
hf@deer.(none) committed
5481 5482 5483

static bool check_db_used(THD *thd,TABLE_LIST *tables)
{
5484
  char *current_db= NULL;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5485
  for (; tables; tables= tables->next_global)
hf@deer.(none)'s avatar
hf@deer.(none) committed
5486
  {
5487
    if (tables->db == NULL)
hf@deer.(none)'s avatar
hf@deer.(none) committed
5488
    {
5489 5490 5491 5492 5493 5494 5495 5496 5497
      /*
        This code never works and should be removed in 5.1.  All tables
        that are added to the list of tables should already have its
        database field initialized properly (see st_lex::add_table_to_list).
      */
      DBUG_ASSERT(0);
      if (thd->copy_db_to(&current_db, 0))
        return TRUE;
      tables->db= current_db;
hf@deer.(none)'s avatar
hf@deer.(none) committed
5498 5499 5500 5501
    }
  }
  return FALSE;
}
5502

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5503 5504 5505 5506 5507 5508 5509 5510 5511 5512
/****************************************************************************
	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
5513 5514 5515 5516
#ifndef DBUG_OFF
long max_stack_used;
#endif

5517
#ifndef EMBEDDED_LIBRARY
5518 5519 5520 5521 5522 5523 5524 5525
/*
  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
5526 5527
{
  long stack_used;
5528
  DBUG_ASSERT(thd == current_thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5529
  if ((stack_used=used_stack(thd->thread_stack,(char*) &stack_used)) >=
monty@mysql.com's avatar
monty@mysql.com committed
5530
      (long) (thread_stack - margin))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5531
  {
5532 5533 5534
    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));
5535
    thd->fatal_error();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5536 5537
    return 1;
  }
monty@mysql.com's avatar
monty@mysql.com committed
5538 5539 5540
#ifndef DBUG_OFF
  max_stack_used= max(max_stack_used, stack_used);
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5541 5542
  return 0;
}
5543
#endif /* EMBEDDED_LIBRARY */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5544 5545 5546 5547

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

5548
bool my_yyoverflow(short **yyss, YYSTYPE **yyvs, ulong *yystacksize)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5549 5550
{
  LEX	*lex=current_lex;
5551
  ulong old_info=0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5552 5553 5554 5555 5556 5557 5558 5559 5560 5561 5562 5563 5564 5565 5566 5567 5568 5569 5570 5571 5572 5573 5574 5575 5576 5577
  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;
}


/****************************************************************************
5578
  Initialize global thd variables needed for query
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5579 5580
****************************************************************************/

5581
void
5582
mysql_init_query(THD *thd, uchar *buf, uint length)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5583 5584
{
  DBUG_ENTER("mysql_init_query");
5585
  lex_start(thd, buf, length);
5586 5587 5588 5589 5590 5591 5592 5593 5594 5595 5596 5597 5598 5599 5600 5601 5602 5603 5604 5605 5606
  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");
5607
  thd->free_list= 0;
5608
  thd->select_number= 1;
5609
  thd->last_insert_id_used= thd->query_start_used= thd->insert_id_used=0;
5610
  thd->is_fatal_error= thd->time_zone_used= 0;
monty@mysql.com's avatar
monty@mysql.com committed
5611
  thd->server_status&= ~ (SERVER_MORE_RESULTS_EXISTS | 
monty@mysql.com's avatar
monty@mysql.com committed
5612 5613
                          SERVER_QUERY_NO_INDEX_USED |
                          SERVER_QUERY_NO_GOOD_INDEX_USED);
5614
  DBUG_ASSERT(thd->security_ctx== &thd->main_security_ctx);
5615
  thd->tmp_table_used= 0;
5616 5617
  if (!thd->in_sub_stmt)
  {
5618
    if (opt_bin_log)
5619
    {
5620
      reset_dynamic(&thd->user_var_events);
5621 5622
      thd->user_var_events_alloc= thd->mem_root;
    }
5623
    thd->clear_error();
5624 5625 5626 5627
    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
5628 5629 5630
  DBUG_VOID_RETURN;
}

5631

5632 5633 5634
void
mysql_init_select(LEX *lex)
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5635
  SELECT_LEX *select_lex= lex->current_select;
5636
  select_lex->init_select();
5637
  lex->wild= 0;
5638 5639
  if (select_lex == &lex->select_lex)
  {
5640
    DBUG_ASSERT(lex->result == 0);
5641 5642
    lex->exchange= 0;
  }
5643 5644
}

5645

5646
bool
5647
mysql_new_select(LEX *lex, bool move_down)
5648
{
5649
  SELECT_LEX *select_lex;
5650
  THD *thd= lex->thd;
5651 5652
  DBUG_ENTER("mysql_new_select");

5653
  if (!(select_lex= new (thd->mem_root) SELECT_LEX()))
5654
    DBUG_RETURN(1);
5655
  select_lex->select_number= ++thd->select_number;
5656
  select_lex->parent_lex= lex; /* Used in init_query. */
5657 5658
  select_lex->init_query();
  select_lex->init_select();
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
5659 5660
  lex->nest_level++;
  select_lex->nest_level= lex->nest_level;
5661 5662 5663 5664 5665
  /*
    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
5666
  if (thd->stmt_arena->is_stmt_prepare())
5667
    select_lex->uncacheable|= UNCACHEABLE_PREPARE;
5668 5669
  if (move_down)
  {
5670
    SELECT_LEX_UNIT *unit;
5671
    lex->subqueries= TRUE;
5672
    /* first select_lex of subselect or derived table */
5673
    if (!(unit= new (thd->mem_root) SELECT_LEX_UNIT()))
5674
      DBUG_RETURN(1);
5675

5676 5677
    unit->init_query();
    unit->init_select();
5678
    unit->thd= thd;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5679
    unit->include_down(lex->current_select);
5680 5681
    unit->link_next= 0;
    unit->link_prev= 0;
5682
    unit->return_to= lex->current_select;
5683
    select_lex->include_down(unit);
5684 5685 5686 5687 5688
    /*
      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;
5689 5690
  }
  else
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5691
  {
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5692 5693
    if (lex->current_select->order_list.first && !lex->current_select->braces)
    {
5694
      my_error(ER_WRONG_USAGE, MYF(0), "UNION", "ORDER BY");
5695
      DBUG_RETURN(1);
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
5696
    }
5697
    select_lex->include_neighbour(lex->current_select);
5698 5699 5700 5701 5702
    SELECT_LEX_UNIT *unit= select_lex->master_unit();                              
    if (!unit->fake_select_lex && unit->add_fake_select_lex(lex->thd))
      DBUG_RETURN(1);
    select_lex->context.outer_context= 
                unit->first_select()->context.outer_context;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5703
  }
peter@mysql.com's avatar
peter@mysql.com committed
5704

5705
  select_lex->master_unit()->global_parameters= select_lex;
5706
  select_lex->include_global((st_select_lex_node**)&lex->all_selects_list);
5707
  lex->current_select= select_lex;
5708 5709 5710 5711 5712
  /*
    in subquery is SELECT query and we allow resolution of names in SELECT
    list
  */
  select_lex->context.resolve_in_select_list= TRUE;
5713
  DBUG_RETURN(0);
5714
}
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5715

5716 5717 5718 5719 5720 5721 5722 5723 5724 5725 5726 5727 5728 5729 5730
/*
  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)
{
5731
  THD *thd;
5732
  LEX *lex;
5733
  LEX_STRING tmp, null_lex_string;
5734 5735
  Item *var;
  char buff[MAX_SYS_VAR_LENGTH*2+4+8], *end;
5736
  DBUG_ENTER("create_select_for_variable");
5737 5738

  thd= current_thd;
pem@mysql.telia.com's avatar
pem@mysql.telia.com committed
5739
  lex= thd->lex;
5740 5741 5742 5743
  mysql_init_select(lex);
  lex->sql_command= SQLCOM_SELECT;
  tmp.str= (char*) var_name;
  tmp.length=strlen(var_name);
5744
  bzero((char*) &null_lex_string.str, sizeof(null_lex_string));
5745 5746 5747 5748
  /*
    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
5749 5750 5751 5752 5753 5754
  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);
  }
5755 5756 5757
  DBUG_VOID_RETURN;
}

5758

monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5759 5760
void mysql_init_multi_delete(LEX *lex)
{
5761
  lex->sql_command=  SQLCOM_DELETE_MULTI;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5762
  mysql_init_select(lex);
5763 5764
  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
5765
  lex->select_lex.table_list.save_and_clear(&lex->auxilliary_table_list);
5766
  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
5767 5768
  lex->query_tables= 0;
  lex->query_tables_last= &lex->query_tables;
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5769
}
5770

5771

5772 5773 5774 5775
/*
  When you modify mysql_parse(), you may need to mofify
  mysql_test_parse_for_slave() in this same file.
*/
5776

5777
void mysql_parse(THD *thd, char *inBuf, uint length)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5778 5779
{
  DBUG_ENTER("mysql_parse");
5780
  mysql_init_query(thd, (uchar*) inBuf, length);
5781
  if (query_cache_send_result_to_client(thd, inBuf, length) <= 0)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5782
  {
5783
    LEX *lex= thd->lex;
5784
    
5785 5786
    sp_cache_flush_obsolete(&thd->sp_proc_cache);
    sp_cache_flush_obsolete(&thd->sp_func_cache);
5787
    
5788
    if (!MYSQLparse((void *)thd) && ! thd->is_fatal_error)
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5789
    {
hf@deer.(none)'s avatar
hf@deer.(none) committed
5790
#ifndef NO_EMBEDDED_ACCESS_CHECKS
5791
      if (mqh_used && thd->user_connect &&
5792
	  check_mqh(thd, lex->sql_command))
5793 5794 5795 5796
      {
	thd->net.error = 0;
      }
      else
hf@deer.(none)'s avatar
hf@deer.(none) committed
5797
#endif
5798
      {
5799
	if (thd->net.report_error)
5800 5801
	{
	  if (thd->lex->sphead)
5802 5803 5804 5805
	  {
	    delete thd->lex->sphead;
	    thd->lex->sphead= NULL;
	  }
5806
	}
5807 5808
	else
	{
5809 5810 5811 5812 5813 5814 5815 5816 5817 5818
          /*
            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
5819 5820
          if (lex->found_semicolon &&
              (thd->query_length= (ulong)(lex->found_semicolon - thd->query)))
5821 5822
            thd->query_length--;
          /* Actually execute the query */
5823
	  mysql_execute_command(thd);
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
5824
	  query_cache_end_of_result(thd);
5825
	}
5826
      }
5827
      lex->unit.cleanup();
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5828 5829
    }
    else
5830
    {
5831
      DBUG_ASSERT(thd->net.report_error);
5832
      DBUG_PRINT("info",("Command aborted. Fatal_error: %d",
5833
			 thd->is_fatal_error));
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5834
      query_cache_abort(&thd->net);
5835
      lex->unit.cleanup();
5836
      if (thd->lex->sphead)
5837
      {
monty@mysql.com's avatar
monty@mysql.com committed
5838
	/* Clean up after failed stored procedure/function */
5839 5840 5841
	delete thd->lex->sphead;
	thd->lex->sphead= NULL;
      }
5842
    }
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5843
    thd->proc_info="freeing items";
5844
    thd->end_statement();
5845
    thd->cleanup_after_query();
5846
    DBUG_ASSERT(thd->change_list.is_empty());
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
5847
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5848 5849 5850 5851
  DBUG_VOID_RETURN;
}


monty@mysql.com's avatar
monty@mysql.com committed
5852
#ifdef HAVE_REPLICATION
5853 5854 5855 5856 5857 5858 5859 5860 5861 5862 5863
/*
  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)
{
5864
  LEX *lex= thd->lex;
5865
  bool error= 0;
monty@mysql.com's avatar
monty@mysql.com committed
5866
  DBUG_ENTER("mysql_test_parse_for_slave");
5867

5868
  mysql_init_query(thd, (uchar*) inBuf, length);
5869
  if (!MYSQLparse((void*) thd) && ! thd->is_fatal_error &&
5870
      all_tables_not_ok(thd,(TABLE_LIST*) lex->select_lex.table_list.first))
monty@mysql.com's avatar
monty@mysql.com committed
5871
    error= 1;                  /* Ignore question */
5872
  thd->end_statement();
5873
  thd->cleanup_after_query();
monty@mysql.com's avatar
monty@mysql.com committed
5874
  DBUG_RETURN(error);
5875
}
monty@mysql.com's avatar
monty@mysql.com committed
5876
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5877

5878

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

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5880 5881 5882 5883 5884
/*****************************************************************************
** Store field definition for create
** Return 0 if ok
******************************************************************************/

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5885
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
5886
		       char *length, char *decimals,
5887
		       uint type_modifier,
5888 5889
		       Item *default_value, Item *on_update_value,
                       LEX_STRING *comment,
5890 5891
		       char *change,
                       List<String> *interval_list, CHARSET_INFO *cs,
5892
		       uint uint_geom_type)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5893 5894
{
  register create_field *new_field;
5895
  LEX  *lex= thd->lex;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5896 5897 5898 5899
  DBUG_ENTER("add_field_to_list");

  if (strlen(field_name) > NAME_LEN)
  {
5900
    my_error(ER_TOO_LONG_IDENT, MYF(0), field_name); /* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5901 5902 5903 5904 5905
    DBUG_RETURN(1);				/* purecov: inspected */
  }
  if (type_modifier & PRI_KEY_FLAG)
  {
    lex->col_list.push_back(new key_part_spec(field_name,0));
5906
    lex->key_list.push_back(new Key(Key::PRIMARY, NullS, HA_KEY_ALG_UNDEF,
5907
				    0, lex->col_list));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5908 5909 5910 5911 5912
    lex->col_list.empty();
  }
  if (type_modifier & (UNIQUE_FLAG | UNIQUE_KEY_FLAG))
  {
    lex->col_list.push_back(new key_part_spec(field_name,0));
5913
    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
5914 5915 5916 5917
				    lex->col_list));
    lex->col_list.empty();
  }

5918
  if (default_value)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5919
  {
5920
    /* 
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
5921 5922
      Default value should be literal => basic constants =>
      no need fix_fields()
5923 5924 5925
      
      We allow only one function as part of default value - 
      NOW() as default for TIMESTAMP type.
5926
    */
5927 5928 5929
    if (default_value->type() == Item::FUNC_ITEM && 
        !(((Item_func*)default_value)->functype() == Item_func::NOW_FUNC &&
         type == FIELD_TYPE_TIMESTAMP))
5930
    {
5931
      my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
5932 5933 5934
      DBUG_RETURN(1);
    }
    else if (default_value->type() == Item::NULL_ITEM)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5935
    {
5936
      default_value= 0;
5937 5938 5939
      if ((type_modifier & (NOT_NULL_FLAG | AUTO_INCREMENT_FLAG)) ==
	  NOT_NULL_FLAG)
      {
5940
	my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
5941 5942 5943 5944 5945
	DBUG_RETURN(1);
      }
    }
    else if (type_modifier & AUTO_INCREMENT_FLAG)
    {
5946
      my_error(ER_INVALID_DEFAULT, MYF(0), field_name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5947 5948 5949
      DBUG_RETURN(1);
    }
  }
5950 5951 5952

  if (on_update_value && type != FIELD_TYPE_TIMESTAMP)
  {
5953
    my_error(ER_INVALID_ON_UPDATE, MYF(0), field_name);
5954 5955
    DBUG_RETURN(1);
  }
5956

5957 5958 5959 5960 5961 5962
  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
5963
    char buf[32];
5964
    my_snprintf(buf, sizeof(buf), "TIMESTAMP(%s)", length);
5965 5966 5967
    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
5968
                        buf, "TIMESTAMP");
5969 5970
  }

5971 5972 5973 5974
  if (!(new_field= new create_field()) ||
      new_field->init(thd, field_name, type, length, decimals, type_modifier,
                      default_value, on_update_value, comment, change,
                      interval_list, cs, uint_geom_type))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5975
    DBUG_RETURN(1);
5976 5977 5978 5979 5980 5981

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

5982

bk@work.mysql.com's avatar
bk@work.mysql.com committed
5983 5984 5985 5986 5987 5988 5989 5990
/* 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
5991
add_proc_to_list(THD* thd, Item *item)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5992 5993 5994 5995
{
  ORDER *order;
  Item	**item_ptr;

monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
5996
  if (!(order = (ORDER *) thd->alloc(sizeof(ORDER)+sizeof(Item*))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
5997 5998 5999 6000 6001
    return 1;
  item_ptr = (Item**) (order+1);
  *item_ptr= item;
  order->item=item_ptr;
  order->free_me=0;
6002
  thd->lex->proc_list.link_in_list((byte*) order,(byte**) &order->next);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6003 6004 6005 6006 6007 6008 6009 6010
  return 0;
}


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

static void remove_escape(char *name)
{
6011 6012
  if (!*name)					// For empty DB names
    return;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6013 6014
  char *to;
#ifdef USE_MB
6015
  char *strend=name+(uint) strlen(name);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6016 6017 6018 6019 6020
#endif
  for (to=name; *name ; name++)
  {
#ifdef USE_MB
    int l;
6021 6022
    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
6023 6024 6025 6026 6027 6028 6029 6030
    {
	while (l--)
	    *to++ = *name++;
	name--;
	continue;
    }
#endif
    if (*name == '\\' && name[1])
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6031
      name++;					// Skip '\\'
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6032 6033 6034 6035 6036 6037 6038 6039 6040 6041
    *to++= *name;
  }
  *to=0;
}

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


monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6042
bool add_to_list(THD *thd, SQL_LIST &list,Item *item,bool asc)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6043 6044 6045
{
  ORDER *order;
  DBUG_ENTER("add_to_list");
6046
  if (!(order = (ORDER *) thd->alloc(sizeof(ORDER))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6047
    DBUG_RETURN(1);
6048 6049
  order->item_ptr= item;
  order->item= &order->item_ptr;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6050 6051 6052
  order->asc = asc;
  order->free_me=0;
  order->used=0;
6053
  order->counter_used= 0;
6054
  list.link_in_list((byte*) order,(byte**) &order->next);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6055 6056 6057 6058
  DBUG_RETURN(0);
}


monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6059 6060 6061 6062 6063 6064 6065 6066 6067 6068 6069 6070 6071 6072 6073 6074 6075 6076 6077
/*
  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
6078 6079
TABLE_LIST *st_select_lex::add_table_to_list(THD *thd,
					     Table_ident *table,
6080
					     LEX_STRING *alias,
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6081 6082
					     ulong table_options,
					     thr_lock_type lock_type,
6083 6084
					     List<String> *use_index_arg,
					     List<String> *ignore_index_arg,
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6085
                                             LEX_STRING *option)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6086 6087
{
  register TABLE_LIST *ptr;
6088
  TABLE_LIST *previous_table_ref; /* The table preceding the current one. */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6089
  char *alias_str;
6090
  LEX *lex= thd->lex;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6091
  DBUG_ENTER("add_table_to_list");
6092
  LINT_INIT(previous_table_ref);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6093 6094 6095 6096

  if (!table)
    DBUG_RETURN(0);				// End of memory
  alias_str= alias ? alias->str : table->table.str;
6097
  if (check_table_name(table->table.str,table->table.length) ||
6098
      table->db.str && check_db_name(table->db.str))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6099
  {
6100
    my_error(ER_WRONG_TABLE_NAME, MYF(0), table->table.str);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6101 6102 6103 6104
    DBUG_RETURN(0);
  }

  if (!alias)					/* Alias is case sensitive */
6105 6106 6107
  {
    if (table->sel)
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6108 6109
      my_message(ER_DERIVED_MUST_HAVE_ALIAS,
                 ER(ER_DERIVED_MUST_HAVE_ALIAS), MYF(0));
6110 6111
      DBUG_RETURN(0);
    }
6112
    if (!(alias_str=thd->memdup(alias_str,table->table.length+1)))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6113
      DBUG_RETURN(0);
6114
  }
6115
  if (!(ptr = (TABLE_LIST *) thd->calloc(sizeof(TABLE_LIST))))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6116
    DBUG_RETURN(0);				/* purecov: inspected */
peter@mysql.com's avatar
peter@mysql.com committed
6117
  if (table->db.str)
6118 6119 6120 6121
  {
    ptr->db= table->db.str;
    ptr->db_length= table->db.length;
  }
6122 6123
  else if (thd->copy_db_to(&ptr->db, &ptr->db_length))
    DBUG_RETURN(0);
peter@mysql.com's avatar
peter@mysql.com committed
6124

6125
  ptr->alias= alias_str;
6126 6127
  if (lower_case_table_names && table->table.length)
    my_casedn_str(files_charset_info, table->table.str);
6128 6129
  ptr->table_name=table->table.str;
  ptr->table_name_length=table->table.length;
6130
  ptr->lock_type=   lock_type;
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6131 6132
  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
6133
  ptr->ignore_leaves= test(table_options & TL_OPTION_IGNORE_LEAVES);
6134
  ptr->derived=	    table->sel;
6135 6136
  if (!ptr->derived && !my_strcasecmp(system_charset_info, ptr->db,
                                      information_schema_name.str))
6137
  {
6138
    ST_SCHEMA_TABLE *schema_table= find_schema_table(thd, ptr->table_name);
6139 6140 6141
    if (!schema_table ||
        (schema_table->hidden && 
         lex->orig_sql_command == SQLCOM_END))  // not a 'show' command
6142
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6143
      my_error(ER_UNKNOWN_TABLE, MYF(0),
6144
               ptr->table_name, information_schema_name.str);
6145 6146
      DBUG_RETURN(0);
    }
6147
    ptr->schema_table_name= ptr->table_name;
6148 6149
    ptr->schema_table= schema_table;
  }
6150
  ptr->select_lex=  lex->current_select;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6151
  ptr->cacheable_table= 1;
6152 6153 6154 6155 6156 6157
  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
6158
  ptr->option= option ? option->str : 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6159
  /* check that used name is unique */
6160
  if (lock_type != TL_IGNORE)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6161
  {
timour@mysql.com's avatar
timour@mysql.com committed
6162 6163 6164 6165
    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 ;
6166
	 tables ;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
6167
	 tables=tables->next_local)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6168
    {
6169 6170
      if (!my_strcasecmp(table_alias_charset, alias_str, tables->alias) &&
	  !strcmp(ptr->db, tables->db))
6171
      {
6172
	my_error(ER_NONUNIQ_TABLE, MYF(0), alias_str); /* purecov: tested */
6173 6174
	DBUG_RETURN(0);				/* purecov: tested */
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6175 6176
    }
  }
6177 6178 6179
  /* Store the table reference preceding the current one. */
  if (table_list.elements > 0)
  {
6180 6181 6182
    /*
      table_list.next points to the last inserted TABLE_LIST->next_local'
      element
6183
      We don't use the offsetof() macro here to avoid warnings from gcc
6184
    */
6185 6186 6187
    previous_table_ref= (TABLE_LIST*) ((char*) table_list.next -
                                       ((char*) &(ptr->next_local) -
                                        (char*) ptr));
6188 6189 6190 6191 6192 6193 6194 6195
    /*
      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;
6196
  }
6197

6198 6199 6200 6201 6202 6203
  /*
    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
6204
  table_list.link_in_list((byte*) ptr, (byte**) &ptr->next_local);
6205
  ptr->next_name_resolution_table= NULL;
6206
  /* Link table in global list (all used tables) */
6207
  lex->add_to_query_tables(ptr);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6208 6209 6210
  DBUG_RETURN(ptr);
}

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

6212 6213 6214 6215
/*
  Initialize a new table list for a nested join

  SYNOPSIS
6216
    init_nested_join()
6217
    thd         current thread
6218

6219 6220 6221 6222 6223 6224 6225 6226 6227 6228 6229 6230 6231 6232 6233 6234 6235 6236 6237
  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");
6238

6239 6240
  if (!(ptr= (TABLE_LIST*) thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST))+
                                       sizeof(NESTED_JOIN))))
6241
    DBUG_RETURN(1);
6242 6243 6244
  nested_join= ptr->nested_join=
    ((NESTED_JOIN*) ((byte*) ptr + ALIGN_SIZE(sizeof(TABLE_LIST))));

6245 6246 6247 6248 6249 6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260 6261 6262 6263 6264
  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
6265
    moves it one level up, eliminating the nest.
6266 6267 6268 6269 6270 6271 6272 6273 6274

  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;
6275
  NESTED_JOIN *nested_join;
6276
  DBUG_ENTER("end_nested_join");
6277

6278
  DBUG_ASSERT(embedding);
6279 6280 6281
  ptr= embedding;
  join_list= ptr->join_list;
  embedding= ptr->embedding;
6282
  nested_join= ptr->nested_join;
6283 6284 6285 6286 6287 6288 6289 6290 6291
  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;
  }
6292
  else if (nested_join->join_list.elements == 0)
6293 6294
  {
    join_list->pop();
6295
    ptr= 0;                                     // return value
6296
  }
6297 6298 6299 6300 6301 6302 6303 6304
  DBUG_RETURN(ptr);
}


/*
  Nest last join operation

  SYNOPSIS
6305
    nest_last_join()
6306 6307 6308 6309 6310 6311
    thd         current thread

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

  RETURN VALUE
6312 6313 6314
    0  Error
    #  Pointer to TABLE_LIST element created for the new nested join

6315 6316 6317 6318 6319 6320
*/

TABLE_LIST *st_select_lex::nest_last_join(THD *thd)
{
  TABLE_LIST *ptr;
  NESTED_JOIN *nested_join;
6321
  List<TABLE_LIST> *embedded_list;
6322
  DBUG_ENTER("nest_last_join");
6323

6324 6325
  if (!(ptr= (TABLE_LIST*) thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST))+
                                       sizeof(NESTED_JOIN))))
6326
    DBUG_RETURN(0);
6327 6328 6329
  nested_join= ptr->nested_join=
    ((NESTED_JOIN*) ((byte*) ptr + ALIGN_SIZE(sizeof(TABLE_LIST))));

6330 6331
  ptr->embedding= embedding;
  ptr->join_list= join_list;
6332
  embedded_list= &nested_join->join_list;
6333
  embedded_list->empty();
6334 6335

  for (uint i=0; i < 2; i++)
6336 6337 6338 6339 6340
  {
    TABLE_LIST *table= join_list->pop();
    table->join_list= embedded_list;
    table->embedding= ptr;
    embedded_list->push_back(table);
6341 6342 6343 6344 6345 6346 6347 6348 6349 6350 6351 6352 6353
    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;
      }
    }
6354 6355 6356 6357 6358 6359 6360 6361 6362 6363 6364 6365 6366 6367 6368 6369 6370 6371 6372 6373 6374 6375 6376 6377 6378 6379 6380 6381 6382 6383 6384 6385 6386 6387 6388 6389 6390 6391 6392 6393
  }
  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
6394 6395 6396

  DESCRIPTION
    The function takes the current join list t[0],t[1] ... and
6397 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409 6410 6411 6412 6413 6414 6415 6416 6417 6418 6419
    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
*/

6420
TABLE_LIST *st_select_lex::convert_right_join()
6421 6422
{
  TABLE_LIST *tab2= join_list->pop();
6423
  TABLE_LIST *tab1= join_list->pop();
6424 6425 6426 6427 6428 6429 6430 6431 6432
  DBUG_ENTER("convert_right_join");

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

  DBUG_RETURN(tab1);
}

6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445
/*
  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
*/

6446
void st_select_lex::set_lock_for_tables(thr_lock_type lock_type)
6447 6448 6449 6450 6451 6452
{
  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
6453 6454 6455
  for (TABLE_LIST *tables= (TABLE_LIST*) table_list.first;
       tables;
       tables= tables->next_local)
6456 6457 6458 6459 6460 6461 6462
  {
    tables->lock_type= lock_type;
    tables->updating=  for_update;
  }
  DBUG_VOID_RETURN;
}

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

igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6464 6465 6466 6467 6468 6469 6470 6471 6472 6473 6474 6475 6476 6477 6478 6479 6480 6481 6482 6483 6484 6485 6486 6487 6488 6489 6490 6491 6492
/*
  Create a fake SELECT_LEX for a unit

  SYNOPSIS:
    add_fake_select_lex()
    thd			   thread handle

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

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

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

igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6494 6495 6496 6497 6498
  if (!(fake_select_lex= new (thd->mem_root) SELECT_LEX()))
      DBUG_RETURN(1);
  fake_select_lex->include_standalone(this, 
                                      (SELECT_LEX_NODE**)&fake_select_lex);
  fake_select_lex->select_number= INT_MAX;
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6499
  fake_select_lex->parent_lex= thd->lex; /* Used in init_query. */
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6500 6501
  fake_select_lex->make_empty_select();
  fake_select_lex->linkage= GLOBAL_OPTIONS_TYPE;
6502 6503
  fake_select_lex->select_limit= 0;

igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6504
  fake_select_lex->context.outer_context=first_sl->context.outer_context;
6505 6506 6507
  /* allow item list resolving in fake select for ORDER BY */
  fake_select_lex->context.resolve_in_select_list= TRUE;
  fake_select_lex->context.select_lex= fake_select_lex;
igor@rurik.mysql.com's avatar
igor@rurik.mysql.com committed
6508 6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520

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

6525

6526
/*
6527 6528
  Push a new name resolution context for a JOIN ... ON clause to the
  context stack of a query block.
6529 6530

  SYNOPSIS
6531
    push_new_name_resolution_context()
6532
    thd       pointer to current thread
timour@mysql.com's avatar
timour@mysql.com committed
6533
    left_op   left  operand of the JOIN
6534 6535 6536 6537
    right_op  rigth operand of the JOIN

  DESCRIPTION
    Create a new name resolution context for a JOIN ... ON clause,
6538 6539 6540
    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.
6541 6542

  RETURN
6543 6544
    FALSE  if all is OK
    TRUE   if a memory allocation error occured
6545 6546
*/

6547 6548 6549
bool
push_new_name_resolution_context(THD *thd,
                                 TABLE_LIST *left_op, TABLE_LIST *right_op)
6550 6551
{
  Name_resolution_context *on_context;
6552
  if (!(on_context= new (thd->mem_root) Name_resolution_context))
6553
    return TRUE;
6554 6555 6556 6557 6558
  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();
6559
  return thd->lex->push_context(on_context);
6560 6561 6562 6563 6564 6565 6566 6567 6568 6569 6570 6571 6572 6573 6574 6575 6576 6577 6578 6579
}


/*
  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
6580
{
6581
  if (expr)
6582
  {
6583
    if (!b->on_expr)
6584
      b->on_expr= expr;
6585 6586
    else
    {
6587 6588 6589 6590 6591 6592
      /*
        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);
6593 6594
    }
    b->on_expr->top_level_item();
6595
  }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6596 6597 6598
}


6599
/*
6600 6601
  Mark that there is a NATURAL JOIN or JOIN ... USING between two
  tables.
6602 6603 6604

  SYNOPSIS
    add_join_natural()
6605 6606 6607 6608
    a			Left join argument
    b			Right join argument
    using_fields        Field names from USING clause
  
6609
  IMPLEMENTATION
6610 6611 6612 6613 6614 6615 6616 6617 6618 6619
    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
6620 6621 6622
    SELECT * FROM t1 NATURAL LEFT JOIN t2
     <=>
    SELECT * FROM t1 LEFT JOIN t2 ON (t1.i=t2.i and t1.j=t2.j ... )
6623 6624 6625 6626 6627 6628 6629 6630 6631 6632 6633

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

6636
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
6637
{
6638 6639
  b->natural_join= a;
  b->join_using_fields= using_fields;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6640 6641
}

6642

6643
/*
6644 6645 6646 6647
  Reload/resets privileges and the different caches.

  SYNOPSIS
    reload_acl_and_cache()
6648
    thd			Thread handler (can be NULL!)
6649 6650 6651 6652 6653
    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
6654 6655 6656
                        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.
6657 6658 6659

  RETURN
    0	 ok
6660
    !=0  error.  thd->killed or thd->net.report_error is set
6661 6662
*/

6663 6664
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
6665 6666 6667
{
  bool result=0;
  select_errors=0;				/* Write if more errors */
6668
  bool tmp_write_to_binlog= 1;
6669

6670
  if (thd && thd->in_sub_stmt)
6671 6672 6673 6674 6675
  {
    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
6676
#ifndef NO_EMBEDDED_ACCESS_CHECKS
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6677 6678
  if (options & REFRESH_GRANT)
  {
6679 6680 6681 6682 6683 6684
    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)))
6685 6686
    {
      thd->thread_stack= (char*) &tmp_thd;
6687
      thd->store_globals();
6688
    }
6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6699 6700
    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;
    }
6701
    reset_mqh((LEX_USER *)NULL, TRUE);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6702
  }
hf@deer.(none)'s avatar
SCRUM  
hf@deer.(none) committed
6703
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6704 6705
  if (options & REFRESH_LOG)
  {
6706
    /*
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6707 6708
      Flush the normal query log, the update log, the binary log,
      the slow query log, and the relay log (if it exists).
6709
    */
monty@mashka.mysql.fi's avatar
monty@mashka.mysql.fi committed
6710

6711
    /*
monty@mysql.com's avatar
monty@mysql.com committed
6712 6713 6714 6715
      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)
6716 6717
    */
    tmp_write_to_binlog= 0;
6718 6719
    mysql_log.new_file(1);
    mysql_slow_log.new_file(1);
6720
    mysql_bin_log.rotate_and_purge(RP_FORCE_ROTATE);
6721
#ifdef HAVE_REPLICATION
6722
    pthread_mutex_lock(&LOCK_active_mi);
6723
    rotate_relay_log(active_mi);
6724
    pthread_mutex_unlock(&LOCK_active_mi);
6725
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6726 6727
    if (ha_flush_logs())
      result=1;
6728 6729
    if (flush_error_log())
      result=1;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6730
  }
6731
#ifdef HAVE_QUERY_CACHE
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6732 6733
  if (options & REFRESH_QUERY_CACHE_FREE)
  {
6734
    query_cache.pack();				// FLUSH QUERY CACHE
6735
    options &= ~REFRESH_QUERY_CACHE;    // Don't flush cache, just free memory
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6736 6737 6738
  }
  if (options & (REFRESH_TABLES | REFRESH_QUERY_CACHE))
  {
6739
    query_cache.flush();			// RESET QUERY CACHE
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6740
  }
6741
#endif /*HAVE_QUERY_CACHE*/
6742 6743 6744 6745 6746
  /*
    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
6747
  {
6748
    if ((options & REFRESH_READ_LOCK) && thd)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6749
    {
6750 6751 6752 6753 6754 6755 6756 6757 6758 6759 6760
      /*
        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
6761
        {
6762 6763 6764 6765 6766
          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
6767
        }
6768
      }
monty@narttu.mysql.fi's avatar
monty@narttu.mysql.fi committed
6769 6770 6771 6772
      /*
	Writing to the binlog could cause deadlocks, as we don't log
	UNLOCK TABLES
      */
6773
      tmp_write_to_binlog= 0;
6774
      if (lock_global_read_lock(thd))
6775
	return 1;                               // Killed
6776 6777
      result=close_cached_tables(thd,(options & REFRESH_FAST) ? 0 : 1,
                                 tables);
6778
      if (make_global_read_lock_block_commit(thd)) // Killed
6779 6780 6781 6782 6783
      {
        /* 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
6784
    }
6785 6786
    else
      result=close_cached_tables(thd,(options & REFRESH_FAST) ? 0 : 1, tables);
6787
    my_dbopt_cleanup();
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6788 6789 6790
  }
  if (options & REFRESH_HOSTS)
    hostname_cache_refresh();
monty@mysql.com's avatar
monty@mysql.com committed
6791
  if (thd && (options & REFRESH_STATUS))
6792
    refresh_status(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6793 6794
  if (options & REFRESH_THREADS)
    flush_thread_cache();
6795
#ifdef HAVE_REPLICATION
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6796
  if (options & REFRESH_MASTER)
6797
  {
6798
    DBUG_ASSERT(thd);
6799
    tmp_write_to_binlog= 0;
6800
    if (reset_master(thd))
6801
    {
6802
      result=1;
6803 6804
      thd->fatal_error();                       // Ensure client get error
    }
6805
  }
6806
#endif
6807
#ifdef OPENSSL
6808 6809 6810 6811 6812 6813
   if (options & REFRESH_DES_KEY_FILE)
   {
     if (des_key_file)
       result=load_des_key_file(des_key_file);
   }
#endif
6814
#ifdef HAVE_REPLICATION
6815 6816
 if (options & REFRESH_SLAVE)
 {
6817
   tmp_write_to_binlog= 0;
6818
   pthread_mutex_lock(&LOCK_active_mi);
6819
   if (reset_slave(thd, active_mi))
6820
     result=1;
6821
   pthread_mutex_unlock(&LOCK_active_mi);
6822
 }
6823
#endif
6824
 if (options & REFRESH_USER_RESOURCES)
monty@mysql.com's avatar
monty@mysql.com committed
6825
   reset_mqh((LEX_USER *) NULL);
6826
 *write_to_binlog= tmp_write_to_binlog;
6827
 return result;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6828 6829
}

6830 6831 6832 6833 6834 6835 6836 6837 6838 6839 6840 6841
/*
  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
6842
void kill_one_thread(THD *thd, ulong id, bool only_kill_query)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6843 6844 6845
{
  THD *tmp;
  uint error=ER_NO_SUCH_THREAD;
6846 6847
  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
6848 6849 6850 6851
  while ((tmp=it++))
  {
    if (tmp->thread_id == id)
    {
6852 6853
      pthread_mutex_lock(&tmp->LOCK_delete);	// Lock from delete
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6854 6855 6856
    }
  }
  VOID(pthread_mutex_unlock(&LOCK_thread_count));
6857 6858
  if (tmp)
  {
6859 6860
    if ((thd->security_ctx->master_access & SUPER_ACL) ||
	!strcmp(thd->security_ctx->user, tmp->security_ctx->user))
6861
    {
hf@genie.(none)'s avatar
SCRUM  
hf@genie.(none) committed
6862
      tmp->awake(only_kill_query ? THD::KILL_QUERY : THD::KILL_CONNECTION);
6863 6864 6865 6866 6867 6868 6869
      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
6870
  if (!error)
6871
    send_ok(thd);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6872
  else
6873
    my_error(error, MYF(0), id);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
6874 6875
}

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

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

6879 6880
static bool append_file_to_dir(THD *thd, const char **filename_ptr,
			       const char *table_name)
6881
{
6882
  char buff[FN_REFLEN],*ptr, *end;
6883 6884 6885 6886 6887 6888 6889
  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))
  {
6890
    my_error(ER_WRONG_TABLE_NAME, MYF(0), *filename_ptr);
6891 6892 6893 6894
    return 1;
  }
  /* Fix is using unix filename format on dos */
  strmov(buff,*filename_ptr);
6895
  end=convert_dirname(buff, *filename_ptr, NullS);
6896
  if (!(ptr=thd->alloc((uint) (end-buff)+(uint) strlen(table_name)+1)))
6897 6898
    return 1;					// End of memory
  *filename_ptr=ptr;
6899
  strxmov(ptr,buff,table_name,NullS);
6900 6901
  return 0;
}
6902

6903

6904 6905 6906 6907 6908 6909 6910 6911 6912 6913 6914 6915 6916 6917
/*
  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;
6918 6919
  LEX *lex= thd->lex;
  if (lex->current_select != &lex->select_lex)
6920 6921
  {
    char command[80];
6922 6923
    strmake(command, lex->yylval->symbol.str,
	    min(lex->yylval->symbol.length, sizeof(command)-1));
6924
    my_error(ER_CANT_USE_OPTION_HERE, MYF(0), command);
6925 6926 6927 6928
    return 1;
  }
  return 0;
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6929

6930

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6931
Comp_creator *comp_eq_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6932
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6933
  return invert?(Comp_creator *)&ne_creator:(Comp_creator *)&eq_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6934 6935
}

6936

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6937
Comp_creator *comp_ge_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6938
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6939
  return invert?(Comp_creator *)&lt_creator:(Comp_creator *)&ge_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6940 6941
}

6942

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6943
Comp_creator *comp_gt_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6944
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6945
  return invert?(Comp_creator *)&le_creator:(Comp_creator *)&gt_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6946 6947
}

6948

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6949
Comp_creator *comp_le_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6950
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6951
  return invert?(Comp_creator *)&gt_creator:(Comp_creator *)&le_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6952 6953
}

6954

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6955
Comp_creator *comp_lt_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6956
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6957
  return invert?(Comp_creator *)&ge_creator:(Comp_creator *)&lt_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6958 6959
}

6960

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6961
Comp_creator *comp_ne_creator(bool invert)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6962
{
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6963
  return invert?(Comp_creator *)&eq_creator:(Comp_creator *)&ne_creator;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
6964
}
6965 6966 6967 6968 6969 6970 6971 6972 6973 6974 6975 6976 6977 6978 6979 6980 6981 6982 6983 6984


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

  if ((cmp == &comp_ne_creator) && all)        // <> ALL <=> NOT IN
6989 6990 6991
    return new Item_func_not(new Item_in_subselect(left_expr, select_lex));

  Item_allany_subselect *it=
6992
    new Item_allany_subselect(left_expr, (*cmp)(all), select_lex, all);
6993
  if (all)
6994
    return it->upper_item= new Item_func_not_all(it);	/* ALL */
6995

6996
  return it->upper_item= new Item_func_nop_all(it);      /* ANY/SOME */
6997
}
6998 6999


7000 7001 7002 7003 7004 7005 7006 7007 7008 7009 7010 7011
/*
  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.
*/

7012
bool mysql_create_index(THD *thd, TABLE_LIST *table_list, List<Key> &keys)
7013 7014
{
  List<create_field> fields;
7015 7016
  ALTER_INFO alter_info;
  alter_info.flags= ALTER_ADD_INDEX;
7017 7018 7019 7020 7021
  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;
7022
  DBUG_RETURN(mysql_alter_table(thd,table_list->db,table_list->table_name,
7023
				&create_info, table_list,
7024
				fields, keys, 0, (ORDER*)0,
monty@mysql.com's avatar
monty@mysql.com committed
7025
				DUP_ERROR, 0, &alter_info, 1));
7026 7027 7028
}


7029
bool mysql_drop_index(THD *thd, TABLE_LIST *table_list, ALTER_INFO *alter_info)
7030 7031 7032 7033 7034 7035 7036 7037
{
  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;
7038 7039
  alter_info->clear();
  alter_info->flags= ALTER_DROP_INDEX;
7040
  DBUG_RETURN(mysql_alter_table(thd,table_list->db,table_list->table_name,
7041
				&create_info, table_list,
7042
				fields, keys, 0, (ORDER*)0,
monty@mysql.com's avatar
monty@mysql.com committed
7043
				DUP_ERROR, 0, alter_info, 1));
7044
}
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7045 7046


7047 7048 7049 7050 7051
/*
  Multi update query pre-check

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

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7055
  RETURN VALUE
7056 7057
    FALSE OK
    TRUE  Error
7058
*/
7059

7060
bool multi_update_precheck(THD *thd, TABLE_LIST *tables)
7061 7062 7063 7064 7065
{
  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
7066
  DBUG_ENTER("multi_update_precheck");
7067 7068 7069

  if (select_lex->item_list.elements != lex->value_list.elements)
  {
7070
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7071
    DBUG_RETURN(TRUE);
7072 7073 7074 7075 7076
  }
  /*
    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
7077
  for (table= tables; table; table= table->next_local)
7078
  {
7079 7080 7081
    if (table->derived)
      table->grant.privilege= SELECT_ACL;
    else if ((check_access(thd, UPDATE_ACL, table->db,
7082 7083
                           &table->grant.privilege, 0, 1,
                           test(table->schema_table)) ||
7084 7085
              grant_option &&
              check_grant(thd, UPDATE_ACL, table, 0, 1, 1)) &&
monty@mysql.com's avatar
monty@mysql.com committed
7086
             (check_access(thd, SELECT_ACL, table->db,
7087 7088
                           &table->grant.privilege, 0, 0,
                           test(table->schema_table)) ||
monty@mysql.com's avatar
monty@mysql.com committed
7089
              grant_option && check_grant(thd, SELECT_ACL, table, 0, 1, 0)))
7090
      DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7091

bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7092
    table->table_in_first_from_clause= 1;
7093
  }
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7094 7095 7096
  /*
    Is there tables of subqueries?
  */
7097
  if (&lex->select_lex != lex->all_selects_list || lex->time_zone_tables_used)
7098
  {
7099
    DBUG_PRINT("info",("Checking sub query list"));
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7100
    for (table= tables; table; table= table->next_global)
7101
    {
monty@mysql.com's avatar
monty@mysql.com committed
7102 7103 7104
      if (!my_tz_check_n_skip_implicit_tables(&table,
                                              lex->time_zone_tables_used) &&
          !table->table_in_first_from_clause)
7105 7106
      {
	if (check_access(thd, SELECT_ACL, table->db,
7107 7108
			 &table->grant.privilege, 0, 0,
                         test(table->schema_table)) ||
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7109
	    grant_option && check_grant(thd, SELECT_ACL, table, 0, 1, 0))
7110
	  DBUG_RETURN(TRUE);
7111 7112 7113 7114 7115 7116
      }
    }
  }

  if (select_lex->order_list.elements)
    msg= "ORDER BY";
7117
  else if (select_lex->select_limit)
7118 7119 7120 7121
    msg= "LIMIT";
  if (msg)
  {
    my_error(ER_WRONG_USAGE, MYF(0), "UPDATE", msg);
7122
    DBUG_RETURN(TRUE);
7123
  }
7124
  DBUG_RETURN(FALSE);
7125 7126 7127 7128 7129 7130 7131
}

/*
  Multi delete query pre-check

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

bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7135
  RETURN VALUE
7136 7137
    FALSE OK
    TRUE  error
7138
*/
7139

7140
bool multi_delete_precheck(THD *thd, TABLE_LIST *tables)
7141 7142 7143 7144
{
  SELECT_LEX *select_lex= &thd->lex->select_lex;
  TABLE_LIST *aux_tables=
    (TABLE_LIST *)thd->lex->auxilliary_table_list.first;
7145
  TABLE_LIST **save_query_tables_own_last= thd->lex->query_tables_own_last;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7146
  DBUG_ENTER("multi_delete_precheck");
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7147

7148 7149 7150
  /* 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) ||
7151 7152 7153 7154 7155 7156 7157 7158 7159 7160 7161 7162
      check_table_access(thd, SELECT_ACL, tables, 0))
    DBUG_RETURN(TRUE);

  /*
    Since aux_tables list is not part of LEX::query_tables list we
    have to juggle with LEX::query_tables_own_last value to be able
    call check_table_access() safely.
  */
  thd->lex->query_tables_own_last= 0;
  if (check_table_access(thd, DELETE_ACL, aux_tables, 0))
  {
    thd->lex->query_tables_own_last= save_query_tables_own_last;
7163
    DBUG_RETURN(TRUE);
7164 7165 7166
  }
  thd->lex->query_tables_own_last= save_query_tables_own_last;

7167 7168
  if ((thd->options & OPTION_SAFE_UPDATES) && !select_lex->where)
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7169 7170
    my_message(ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE,
               ER(ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE), MYF(0));
7171
    DBUG_RETURN(TRUE);
7172
  }
7173 7174 7175 7176 7177 7178 7179 7180 7181 7182 7183 7184 7185 7186 7187 7188 7189 7190 7191 7192 7193 7194 7195 7196 7197 7198 7199
  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)
7200
  {
7201
    lex->table_count++;
7202 7203
    /* 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
7204
    for (walk= tables; walk; walk= walk->next_local)
7205
    {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7206 7207 7208
      if (!my_strcasecmp(table_alias_charset,
			 target_tbl->alias, walk->alias) &&
	  !strcmp(walk->db, target_tbl->db))
7209 7210 7211 7212
	break;
    }
    if (!walk)
    {
7213
      my_error(ER_UNKNOWN_TABLE, MYF(0),
7214
               target_tbl->table_name, "MULTI DELETE");
7215
      DBUG_RETURN(TRUE);
7216
    }
serg@serg.mylan's avatar
serg@serg.mylan committed
7217 7218 7219 7220 7221
    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
7222
    walk->updating= target_tbl->updating;
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7223
    walk->lock_type= target_tbl->lock_type;
bell@sanja.is.com.ua's avatar
VIEW  
bell@sanja.is.com.ua committed
7224
    target_tbl->correspondent_table= walk;	// Remember corresponding table
7225
  }
7226
  DBUG_RETURN(FALSE);
7227 7228 7229
}


bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7230 7231 7232 7233 7234
/*
  simple UPDATE query pre-check

  SYNOPSIS
    update_precheck()
7235 7236
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7237 7238

  RETURN VALUE
7239 7240
    FALSE OK
    TRUE  Error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7241
*/
7242

7243
bool update_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7244 7245 7246 7247
{
  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
7248
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7249
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7250
  }
7251 7252
  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
7253 7254 7255 7256 7257 7258 7259 7260
}


/*
  simple DELETE query pre-check

  SYNOPSIS
    delete_precheck()
7261 7262
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7263 7264

  RETURN VALUE
7265 7266
    FALSE  OK
    TRUE   error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7267
*/
7268

7269
bool delete_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7270 7271 7272
{
  DBUG_ENTER("delete_precheck");
  if (check_one_table_access(thd, DELETE_ACL, tables))
7273
    DBUG_RETURN(TRUE);
7274
  /* Set privilege for the WHERE clause */
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7275
  tables->grant.want_privilege=(SELECT_ACL & ~tables->grant.privilege);
7276
  DBUG_RETURN(FALSE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7277 7278 7279 7280 7281 7282 7283 7284
}


/*
  simple INSERT query pre-check

  SYNOPSIS
    insert_precheck()
7285 7286
    thd		Thread handler
    tables	Global table list
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7287 7288

  RETURN VALUE
7289 7290
    FALSE  OK
    TRUE   error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7291
*/
7292

bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7293
bool insert_precheck(THD *thd, TABLE_LIST *tables)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7294 7295 7296 7297
{
  LEX *lex= thd->lex;
  DBUG_ENTER("insert_precheck");

7298 7299 7300 7301
  /*
    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
7302 7303 7304
  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
7305 7306

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

7309
  if (lex->update_list.elements != lex->value_list.elements)
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7310
  {
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7311
    my_message(ER_WRONG_VALUE_COUNT, ER(ER_WRONG_VALUE_COUNT), MYF(0));
7312
    DBUG_RETURN(TRUE);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7313
  }
7314 7315
  if (check_db_used(thd, tables))
    DBUG_RETURN(TRUE);
7316
  DBUG_RETURN(FALSE);
7317
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7318 7319 7320 7321 7322 7323 7324


/*
  CREATE TABLE query pre-check

  SYNOPSIS
    create_table_precheck()
7325 7326 7327
    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
7328 7329

  RETURN VALUE
7330 7331
    FALSE   OK
    TRUE   Error
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7332
*/
7333

7334 7335
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
7336 7337
{
  LEX *lex= thd->lex;
7338 7339
  SELECT_LEX *select_lex= &lex->select_lex;
  ulong want_priv;
bell@sanja.is.com.ua's avatar
merge  
bell@sanja.is.com.ua committed
7340
  bool error= TRUE;                                 // Error message is given
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7341
  DBUG_ENTER("create_table_precheck");
7342 7343 7344

  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
7345 7346
  lex->create_info.alias= create_table->alias;
  if (check_access(thd, want_priv, create_table->db,
7347 7348
		   &create_table->grant.privilege, 0, 0,
                   test(create_table->schema_table)) ||
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7349 7350 7351
      check_merge_table_access(thd, create_table->db,
			       (TABLE_LIST *)
			       lex->create_info.merge_list.first))
7352 7353
    goto err;
  if (grant_option && want_priv != CREATE_TMP_ACL &&
7354
      check_grant(thd, want_priv, create_table, 0, 1, 0))
7355 7356 7357 7358 7359 7360
    goto err;

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

7361 7362
#ifdef NOT_NECESSARY_TO_CHECK_CREATE_TABLE_EXIST_WHEN_PREPARING_STATEMENT
    /* This code throws an ill error for CREATE TABLE t1 SELECT * FROM t1 */
7363
    /*
monty@mysql.com's avatar
monty@mysql.com committed
7364 7365 7366
      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).
7367
    */
konstantin@mysql.com's avatar
konstantin@mysql.com committed
7368
    if (thd->stmt_arena->is_stmt_prepare_or_first_sp_execute())
7369
    {
monty@mysql.com's avatar
monty@mysql.com committed
7370 7371 7372 7373
      /*
        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
7374
          find_table_in_global_list(tables, create_table->db,
7375
                                    create_table->table_name))
monty@mysql.com's avatar
monty@mysql.com committed
7376
      {
7377
	error= FALSE;
monty@mysql.com's avatar
monty@mysql.com committed
7378 7379 7380
        goto err;
      }
    }
7381
#endif
7382 7383 7384
    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
7385
  error= FALSE;
7386 7387 7388

err:
  DBUG_RETURN(error);
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7389
}
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7390 7391 7392 7393 7394 7395 7396


/*
  negate given expression

  SYNOPSIS
    negate_expression()
7397
    thd  thread handler
bell@sanja.is.com.ua's avatar
bell@sanja.is.com.ua committed
7398 7399 7400 7401 7402 7403 7404 7405 7406 7407 7408 7409 7410 7411 7412 7413 7414 7415 7416 7417 7418 7419 7420 7421 7422 7423 7424 7425
    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);
}
7426

7427 7428
/*
  Set the specified definer to the default value, which is the current user in
7429
  the thread.
7430 7431 7432 7433 7434 7435 7436
 
  SYNOPSIS
    get_default_definer()
    thd       [in] thread handler
    definer   [out] definer
*/
 
7437
void get_default_definer(THD *thd, LEX_USER *definer)
7438 7439 7440 7441 7442 7443 7444 7445 7446 7447
{
  const Security_context *sctx= thd->security_ctx;

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

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

7448

7449
/*
7450
  Create default definer for the specified THD.
7451 7452 7453 7454 7455 7456 7457 7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468

  SYNOPSIS
    create_default_definer()
    thd         [in] thread handler

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

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

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

7469
  get_default_definer(thd, definer);
7470 7471 7472 7473 7474

  return definer;
}


7475
/*
7476
  Create definer with the given user and host names.
7477 7478

  SYNOPSIS
7479 7480 7481 7482
    create_definer()
    thd         [in] thread handler
    user_name   [in] user name
    host_name   [in] host name
7483 7484

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

7490
LEX_USER *create_definer(THD *thd, LEX_STRING *user_name, LEX_STRING *host_name)
7491
{
7492 7493 7494 7495
  LEX_USER *definer;

  /* Create and initialize. */

7496
  if (! (definer= (LEX_USER*) thd->alloc(sizeof(LEX_USER))))
7497 7498 7499 7500 7501 7502
    return 0;

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

  return definer;
7503
}