sql_db.cc 59 KB
Newer Older
unknown's avatar
unknown committed
1
/* Copyright (C) 2000-2003 MySQL AB
unknown's avatar
unknown committed
2

unknown's avatar
unknown committed
3 4
   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
unknown's avatar
unknown committed
5
   the Free Software Foundation; version 2 of the License.
unknown's avatar
unknown committed
6

unknown's avatar
unknown committed
7 8 9 10
   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.
unknown's avatar
unknown committed
11

unknown's avatar
unknown committed
12 13 14 15 16 17 18 19
   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 */


/* create and drop of databases */

#include "mysql_priv.h"
20
#include <mysys_err.h>
21
#include "sp.h"
22
#include "events.h"
unknown's avatar
unknown committed
23 24
#include <my_dir.h>
#include <m_ctype.h>
unknown's avatar
unknown committed
25
#include "log.h"
unknown's avatar
unknown committed
26 27 28 29
#ifdef __WIN__
#include <direct.h>
#endif

30 31
#define MAX_DROP_TABLE_Q_LEN      1024

32 33
const char *del_exts[]= {".frm", ".BAK", ".TMD",".opt", NullS};
static TYPELIB deletable_extentions=
34
{array_elements(del_exts)-1,"del_exts", del_exts, NULL};
35

36
static long mysql_rm_known_files(THD *thd, MY_DIR *dirp,
37
				 const char *db, const char *path, uint level, 
unknown's avatar
unknown committed
38
                                 TABLE_LIST **dropped_tables);
39
         
40
long mysql_rm_arc_files(THD *thd, MY_DIR *dirp, const char *org_path);
41
static my_bool rm_dir_w_symlink(const char *org_path, my_bool send_error);
42 43 44 45
static void mysql_change_db_impl(THD *thd,
                                 LEX_STRING *new_db_name,
                                 ulong new_db_access,
                                 CHARSET_INFO *new_db_charset);
unknown's avatar
unknown committed
46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65


/* Database lock hash */
HASH lock_db_cache;
pthread_mutex_t LOCK_lock_db;
int creating_database= 0;  // how many database locks are made


/* Structure for database lock */
typedef struct my_dblock_st
{
  char *name;        /* Database name        */
  uint name_length;  /* Database length name */
} my_dblock_t;


/*
  lock_db key.
*/

66 67 68 69
extern "C" uchar* lock_db_get_key(my_dblock_t *, size_t *, my_bool not_used);

uchar* lock_db_get_key(my_dblock_t *ptr, size_t *length,
                       my_bool not_used __attribute__((unused)))
unknown's avatar
unknown committed
70 71
{
  *length= ptr->name_length;
72
  return (uchar*) ptr->name;
unknown's avatar
unknown committed
73 74 75 76 77 78 79
}


/*
  Free lock_db hash element.
*/

80 81 82
extern "C" void lock_db_free_element(void *ptr);

void lock_db_free_element(void *ptr)
unknown's avatar
unknown committed
83
{
84
  my_free(ptr, MYF(0));
unknown's avatar
unknown committed
85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
}


/*
  Put a database lock entry into the hash.
  
  DESCRIPTION
    Insert a database lock entry into hash.
    LOCK_db_lock must be previously locked.
  
  RETURN VALUES
    0 on success.
    1 on error.
*/

static my_bool lock_db_insert(const char *dbname, uint length)
{
  my_dblock_t *opt;
  my_bool error= 0;
  DBUG_ENTER("lock_db_insert");
  
  safe_mutex_assert_owner(&LOCK_lock_db);

  if (!(opt= (my_dblock_t*) hash_search(&lock_db_cache,
109
                                        (uchar*) dbname, length)))
unknown's avatar
unknown committed
110 111 112 113
  { 
    /* Db is not in the hash, insert it */
    char *tmp_name;
    if (!my_multi_malloc(MYF(MY_WME | MY_ZEROFILL),
114
                         &opt, (uint) sizeof(*opt), &tmp_name, (uint) length+1,
unknown's avatar
unknown committed
115 116 117 118 119 120 121 122 123 124
                         NullS))
    {
      error= 1;
      goto end;
    }
    
    opt->name= tmp_name;
    strmov(opt->name, dbname);
    opt->name_length= length;
    
125 126
    if ((error= my_hash_insert(&lock_db_cache, (uchar*) opt)))
      my_free(opt, MYF(0));
unknown's avatar
unknown committed
127 128 129 130 131 132 133 134 135 136 137 138 139 140 141
  }

end:
  DBUG_RETURN(error);
}


/*
  Delete a database lock entry from hash.
*/

void lock_db_delete(const char *name, uint length)
{
  my_dblock_t *opt;
  safe_mutex_assert_owner(&LOCK_lock_db);
unknown's avatar
unknown committed
142
  if ((opt= (my_dblock_t *)hash_search(&lock_db_cache,
143 144
                                       (const uchar*) name, length)))
    hash_delete(&lock_db_cache, (uchar*) opt);
unknown's avatar
unknown committed
145 146 147
}


148 149 150
/* Database options hash */
static HASH dboptions;
static my_bool dboptions_init= 0;
unknown's avatar
unknown committed
151
static rw_lock_t LOCK_dboptions;
152 153 154 155 156 157 158 159 160

/* Structure for database options */
typedef struct my_dbopt_st
{
  char *name;			/* Database name                  */
  uint name_length;		/* Database length name           */
  CHARSET_INFO *charset;	/* Database default character set */
} my_dbopt_t;

unknown's avatar
unknown committed
161

162 163 164
/*
  Function we use in the creation of our hash to get key.
*/
unknown's avatar
unknown committed
165

166 167 168 169 170
extern "C" uchar* dboptions_get_key(my_dbopt_t *opt, size_t *length,
                                    my_bool not_used);

uchar* dboptions_get_key(my_dbopt_t *opt, size_t *length,
                         my_bool not_used __attribute__((unused)))
171 172
{
  *length= opt->name_length;
173
  return (uchar*) opt->name;
174 175 176
}


177
/*
unknown's avatar
unknown committed
178 179 180
  Helper function to write a query to binlog used by mysql_rm_db()
*/

He Zhenxing's avatar
He Zhenxing committed
181 182
static inline int write_to_binlog(THD *thd, char *query, uint q_len,
                                  char *db, uint db_len)
183
{
184
  Query_log_event qinfo(thd, query, q_len, 0, 0, 0);
unknown's avatar
unknown committed
185 186
  qinfo.db= db;
  qinfo.db_len= db_len;
He Zhenxing's avatar
He Zhenxing committed
187
  return mysql_bin_log.write(&qinfo);
188 189
}  

190 191 192 193 194

/*
  Function to free dboptions hash element
*/

195 196 197
extern "C" void free_dbopt(void *dbopt);

void free_dbopt(void *dbopt)
198
{
199
  my_free((uchar*) dbopt, MYF(0));
200 201 202 203
}


/* 
unknown's avatar
unknown committed
204
  Initialize database option hash and locked database hash.
unknown's avatar
unknown committed
205 206

  SYNOPSIS
unknown's avatar
unknown committed
207
    my_database_names()
unknown's avatar
unknown committed
208 209 210 211 212 213 214

  NOTES
    Must be called before any other database function is called.

  RETURN
    0	ok
    1	Fatal error
215 216
*/

unknown's avatar
unknown committed
217
bool my_database_names_init(void)
218
{
unknown's avatar
unknown committed
219 220
  bool error= 0;
  (void) my_rwlock_init(&LOCK_dboptions, NULL);
221 222 223
  if (!dboptions_init)
  {
    dboptions_init= 1;
unknown's avatar
unknown committed
224 225 226
    error= hash_init(&dboptions, lower_case_table_names ? 
                     &my_charset_bin : system_charset_info,
                     32, 0, 0, (hash_get_key) dboptions_get_key,
unknown's avatar
unknown committed
227 228 229 230 231 232
                     free_dbopt,0) ||
           hash_init(&lock_db_cache, lower_case_table_names ? 
                     &my_charset_bin : system_charset_info,
                     32, 0, 0, (hash_get_key) lock_db_get_key,
                     lock_db_free_element,0);

233
  }
unknown's avatar
unknown committed
234
  return error;
235 236 237
}


unknown's avatar
unknown committed
238

239
/* 
unknown's avatar
unknown committed
240
  Free database option hash and locked databases hash.
241
*/
unknown's avatar
unknown committed
242

unknown's avatar
unknown committed
243
void my_database_names_free(void)
244 245 246 247
{
  if (dboptions_init)
  {
    dboptions_init= 0;
unknown's avatar
unknown committed
248 249
    hash_free(&dboptions);
    (void) rwlock_destroy(&LOCK_dboptions);
unknown's avatar
unknown committed
250
    hash_free(&lock_db_cache);
251
  }
unknown's avatar
unknown committed
252 253 254
}


unknown's avatar
unknown committed
255 256 257 258
/*
  Cleanup cached options
*/

unknown's avatar
unknown committed
259 260 261 262 263 264 265 266
void my_dbopt_cleanup(void)
{
  rw_wrlock(&LOCK_dboptions);
  hash_free(&dboptions);
  hash_init(&dboptions, lower_case_table_names ? 
            &my_charset_bin : system_charset_info,
            32, 0, 0, (hash_get_key) dboptions_get_key,
            free_dbopt,0);
267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286
  rw_unlock(&LOCK_dboptions);
}


/*
  Find database options in the hash.
  
  DESCRIPTION
    Search a database options in the hash, usings its path.
    Fills "create" on success.
  
  RETURN VALUES
    0 on success.
    1 on error.
*/

static my_bool get_dbopt(const char *dbname, HA_CREATE_INFO *create)
{
  my_dbopt_t *opt;
  uint length;
unknown's avatar
unknown committed
287
  my_bool error= 1;
288 289 290 291
  
  length= (uint) strlen(dbname);
  
  rw_rdlock(&LOCK_dboptions);
292
  if ((opt= (my_dbopt_t*) hash_search(&dboptions, (uchar*) dbname, length)))
293 294
  {
    create->default_table_charset= opt->charset;
unknown's avatar
unknown committed
295
    error= 0;
296 297
  }
  rw_unlock(&LOCK_dboptions);
unknown's avatar
unknown committed
298
  return error;
299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317
}


/*
  Writes database options into the hash.
  
  DESCRIPTION
    Inserts database options into the hash, or updates
    options if they are already in the hash.
  
  RETURN VALUES
    0 on success.
    1 on error.
*/

static my_bool put_dbopt(const char *dbname, HA_CREATE_INFO *create)
{
  my_dbopt_t *opt;
  uint length;
unknown's avatar
unknown committed
318 319 320
  my_bool error= 0;
  DBUG_ENTER("put_dbopt");

321 322 323
  length= (uint) strlen(dbname);
  
  rw_wrlock(&LOCK_dboptions);
324
  if (!(opt= (my_dbopt_t*) hash_search(&dboptions, (uchar*) dbname, length)))
325 326 327 328
  { 
    /* Options are not in the hash, insert them */
    char *tmp_name;
    if (!my_multi_malloc(MYF(MY_WME | MY_ZEROFILL),
329
                         &opt, (uint) sizeof(*opt), &tmp_name, (uint) length+1,
unknown's avatar
unknown committed
330
                         NullS))
331
    {
unknown's avatar
unknown committed
332 333
      error= 1;
      goto end;
334 335 336 337
    }
    
    opt->name= tmp_name;
    strmov(opt->name, dbname);
unknown's avatar
unknown committed
338
    opt->name_length= length;
339
    
340
    if ((error= my_hash_insert(&dboptions, (uchar*) opt)))
unknown's avatar
unknown committed
341
    {
342
      my_free(opt, MYF(0));
unknown's avatar
unknown committed
343 344
      goto end;
    }
345 346
  }

unknown's avatar
unknown committed
347 348 349 350
  /* Update / write options in hash */
  opt->charset= create->default_table_charset;

end:
351
  rw_unlock(&LOCK_dboptions);  
unknown's avatar
unknown committed
352
  DBUG_RETURN(error);
353 354 355 356 357 358 359 360 361 362 363
}


/*
  Deletes database options from the hash.
*/

void del_dbopt(const char *path)
{
  my_dbopt_t *opt;
  rw_wrlock(&LOCK_dboptions);
364
  if ((opt= (my_dbopt_t *)hash_search(&dboptions, (const uchar*) path,
365
                                      strlen(path))))
366
    hash_delete(&dboptions, (uchar*) opt);
367 368 369 370
  rw_unlock(&LOCK_dboptions);
}


371
/*
372 373 374 375 376 377 378 379
  Create database options file:

  DESCRIPTION
    Currently database default charset is only stored there.

  RETURN VALUES
  0	ok
  1	Could not create file or write to it.  Error sent through my_error()
380 381
*/

382
static bool write_db_opt(THD *thd, const char *path, HA_CREATE_INFO *create)
383 384
{
  register File file;
385 386
  char buf[256]; // Should be enough for one option
  bool error=1;
387

388 389
  if (!create->default_table_charset)
    create->default_table_charset= thd->variables.collation_server;
390

391 392
  if (put_dbopt(path, create))
    return 1;
393

394
  if ((file=my_create(path, CREATE_MODE,O_RDWR | O_TRUNC,MYF(MY_WME))) >= 0)
395
  {
396
    ulong length;
unknown's avatar
unknown committed
397
    length= (ulong) (strxnmov(buf, sizeof(buf)-1, "default-character-set=",
unknown's avatar
unknown committed
398 399 400 401
                              create->default_table_charset->csname,
                              "\ndefault-collation=",
                              create->default_table_charset->name,
                              "\n", NullS) - buf);
402 403

    /* Error is written by my_write */
404
    if (!my_write(file,(uchar*) buf, length, MYF(MY_NABP+MY_WME)))
405
      error=0;
406 407 408 409 410 411
    my_close(file,MYF(0));
  }
  return error;
}


412
/*
413
  Load database options file
414

415 416 417 418 419
  load_db_opt()
  path		Path for option file
  create	Where to store the read options

  DESCRIPTION
420

421 422 423
  RETURN VALUES
  0	File found
  1	No database file or could not open it
424

425 426
*/

427
bool load_db_opt(THD *thd, const char *path, HA_CREATE_INFO *create)
428 429 430 431 432 433 434 435
{
  File file;
  char buf[256];
  DBUG_ENTER("load_db_opt");
  bool error=1;
  uint nbytes;

  bzero((char*) create,sizeof(*create));
unknown's avatar
unknown committed
436
  create->default_table_charset= thd->variables.collation_server;
437

438 439
  /* Check if options for this database are already in the hash */
  if (!get_dbopt(path, create))
440 441
    DBUG_RETURN(0);

442
  /* Otherwise, load options from the .opt file */
443 444 445 446 447 448
  if ((file=my_open(path, O_RDONLY | O_SHARE, MYF(0))) < 0)
    goto err1;

  IO_CACHE cache;
  if (init_io_cache(&cache, file, IO_SIZE, READ_CACHE, 0, 0, MYF(0)))
    goto err2;
449

450 451 452 453 454 455 456 457
  while ((int) (nbytes= my_b_gets(&cache, (char*) buf, sizeof(buf))) > 0)
  {
    char *pos= buf+nbytes-1;
    /* Remove end space and control characters */
    while (pos > buf && !my_isgraph(&my_charset_latin1, pos[-1]))
      pos--;
    *pos=0;
    if ((pos= strchr(buf, '=')))
458
    {
459
      if (!strncmp(buf,"default-character-set", (pos-buf)))
460
      {
461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486
        /*
           Try character set name, and if it fails
           try collation name, probably it's an old
           4.1.0 db.opt file, which didn't have
           separate default-character-set and
           default-collation commands.
        */
        if (!(create->default_table_charset=
        get_charset_by_csname(pos+1, MY_CS_PRIMARY, MYF(0))) &&
            !(create->default_table_charset=
              get_charset_by_name(pos+1, MYF(0))))
        {
          sql_print_error("Error while loading database options: '%s':",path);
          sql_print_error(ER(ER_UNKNOWN_CHARACTER_SET),pos+1);
          create->default_table_charset= default_charset_info;
        }
      }
      else if (!strncmp(buf,"default-collation", (pos-buf)))
      {
        if (!(create->default_table_charset= get_charset_by_name(pos+1,
                                                           MYF(0))))
        {
          sql_print_error("Error while loading database options: '%s':",path);
          sql_print_error(ER(ER_UNKNOWN_COLLATION),pos+1);
          create->default_table_charset= default_charset_info;
        }
487 488 489
      }
    }
  }
490 491 492 493 494 495 496 497 498 499 500 501 502
  /*
    Put the loaded value into the hash.
    Note that another thread could've added the same
    entry to the hash after we called get_dbopt(),
    but it's not an error, as put_dbopt() takes this
    possibility into account.
  */
  error= put_dbopt(path, create);

  end_io_cache(&cache);
err2:
  my_close(file,MYF(0));
err1:
503
  DBUG_RETURN(error);
504 505
}

506

507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539
/*
  Retrieve database options by name. Load database options file or fetch from
  cache.

  SYNOPSIS
    load_db_opt_by_name()
    db_name         Database name
    db_create_info  Where to store the database options

  DESCRIPTION
    load_db_opt_by_name() is a shortcut for load_db_opt().

  NOTE
    Although load_db_opt_by_name() (and load_db_opt()) returns status of
    the operation, it is useless usually and should be ignored. The problem
    is that there are 1) system databases ("mysql") and 2) virtual
    databases ("information_schema"), which do not contain options file.
    So, load_db_opt[_by_name]() returns FALSE for these databases, but this
    is not an error.

    load_db_opt[_by_name]() clears db_create_info structure in any case, so
    even on failure it contains valid data. So, common use case is just
    call load_db_opt[_by_name]() without checking return value and use
    db_create_info right after that.

  RETURN VALUES (read NOTE!)
    FALSE   Success
    TRUE    Failed to retrieve options
*/

bool load_db_opt_by_name(THD *thd, const char *db_name,
                         HA_CREATE_INFO *db_create_info)
{
540
  char db_opt_path[FN_REFLEN + 1];
541

542 543 544 545
  /*
    Pass an empty file name, and the database options file name as extension
    to avoid table name to file name encoding.
  */
546
  (void) build_table_filename(db_opt_path, sizeof(db_opt_path) - 1,
547
                              db_name, "", MY_DB_OPT_FILE, 0);
548 549 550 551 552

  return load_db_opt(thd, db_opt_path, db_create_info);
}


553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583
/**
  Return default database collation.

  @param thd     Thread context.
  @param db_name Database name.

  @return CHARSET_INFO object. The operation always return valid character
    set, even if the database does not exist.
*/

CHARSET_INFO *get_default_db_collation(THD *thd, const char *db_name)
{
  HA_CREATE_INFO db_info;

  if (thd->db != NULL && strcmp(db_name, thd->db) == 0)
    return thd->db_charset;

  load_db_opt_by_name(thd, db_name, &db_info);

  /*
    NOTE: even if load_db_opt_by_name() fails,
    db_info.default_table_charset contains valid character set
    (collation_server). We should not fail if load_db_opt_by_name() fails,
    because it is valid case. If a database has been created just by
    "mkdir", it does not contain db.opt file, but it is valid database.
  */

  return db_info.default_table_charset;
}


584 585 586 587 588 589 590 591 592 593 594 595
/*
  Create a database

  SYNOPSIS
  mysql_create_db()
  thd		Thread handler
  db		Name of database to create
		Function assumes that this is already validated.
  create_info	Database create options (like character set)
  silent	Used by replication when internally creating a database.
		In this case the entry should not be logged.

596
  SIDE-EFFECTS
597
   1. Report back to client that command succeeded (my_ok)
598 599 600 601
   2. Report errors to client
   3. Log event to binary log
   (The 'silent' flags turns off 1 and 3.)

602
  RETURN VALUES
unknown's avatar
unknown committed
603 604
  FALSE ok
  TRUE  Error
605

606 607
*/

608
int mysql_create_db(THD *thd, char *db, HA_CREATE_INFO *create_info,
unknown's avatar
unknown committed
609
                     bool silent)
unknown's avatar
unknown committed
610 611
{
  char	 path[FN_REFLEN+16];
unknown's avatar
unknown committed
612
  char	 tmp_query[FN_REFLEN+16];
unknown's avatar
unknown committed
613 614
  long result= 1;
  int error= 0;
615
  MY_STAT stat_info;
unknown's avatar
unknown committed
616
  uint create_options= create_info ? create_info->options : 0;
617
  uint path_len;
unknown's avatar
unknown committed
618
  DBUG_ENTER("mysql_create_db");
619 620

  /* do not create 'information_schema' db */
621
  if (is_schema_db(db))
622 623 624 625
  {
    my_error(ER_DB_CREATE_EXISTS, MYF(0), db);
    DBUG_RETURN(-1);
  }
626

627 628 629 630 631 632 633 634 635 636 637 638
  /*
    Do not create database if another thread is holding read lock.
    Wait for global read lock before acquiring LOCK_mysql_create_db.
    After wait_if_global_read_lock() we have protection against another
    global read lock. If we would acquire LOCK_mysql_create_db first,
    another thread could step in and get the global read lock before we
    reach wait_if_global_read_lock(). If this thread tries the same as we
    (admin a db), it would then go and wait on LOCK_mysql_create_db...
    Furthermore wait_if_global_read_lock() checks if the current thread
    has the global read lock and refuses the operation with
    ER_CANT_UPDATE_WITH_READLOCK if applicable.
  */
639
  if (wait_if_global_read_lock(thd, 0, 1))
640
  {
unknown's avatar
unknown committed
641 642
    error= -1;
    goto exit2;
643
  }
unknown's avatar
unknown committed
644

645 646 647 648 649 650 651 652 653 654 655 656
  /*
    Close and mark for re-open all HANDLER tables which are marked for flush
    or which there are pending conflicing locks against. This is needed to
    prevent deadlocks.
  */
  if (thd->handler_tables_hash.records)
  {
    pthread_mutex_lock(&LOCK_open);
    mysql_ha_flush(thd);
    pthread_mutex_unlock(&LOCK_open);
  }

657 658
  VOID(pthread_mutex_lock(&LOCK_mysql_create_db));

unknown's avatar
unknown committed
659
  /* Check directory */
660
  path_len= build_table_filename(path, sizeof(path) - 1, db, "", "", 0);
661
  path[path_len-1]= 0;                    // Remove last '/' from path
662

663
  if (my_stat(path,&stat_info,MYF(0)))
unknown's avatar
unknown committed
664
  {
665
    if (!(create_options & HA_LEX_CREATE_IF_NOT_EXISTS))
unknown's avatar
unknown committed
666
    {
667
      my_error(ER_DB_CREATE_EXISTS, MYF(0), db);
unknown's avatar
unknown committed
668
      error= -1;
unknown's avatar
unknown committed
669 670
      goto exit;
    }
671
    push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
672
			ER_DB_CREATE_EXISTS, ER(ER_DB_CREATE_EXISTS), db);
673
    error= 0;
674
    goto not_silent;
unknown's avatar
unknown committed
675 676 677
  }
  else
  {
678 679
    if (my_errno != ENOENT)
    {
680
      my_error(EE_STAT, MYF(0), path, my_errno);
681 682
      goto exit;
    }
unknown's avatar
unknown committed
683 684
    if (my_mkdir(path,0777,MYF(0)) < 0)
    {
685
      my_error(ER_CANT_CREATE_DB, MYF(0), db, my_errno);
unknown's avatar
unknown committed
686
      error= -1;
unknown's avatar
unknown committed
687 688 689
      goto exit;
    }
  }
690

691 692
  path[path_len-1]= FN_LIBCHAR;
  strmake(path+path_len, MY_DB_OPT_FILE, sizeof(path)-path_len-1);
693
  if (write_db_opt(thd, path, create_info))
694 695 696 697 698
  {
    /*
      Could not create options file.
      Restore things to beginning.
    */
unknown's avatar
unknown committed
699
    path[path_len]= 0;
700 701 702 703 704 705 706 707 708 709
    if (rmdir(path) >= 0)
    {
      error= -1;
      goto exit;
    }
    /*
      We come here when we managed to create the database, but not the option
      file.  In this case it's best to just continue as if nothing has
      happened.  (This is a very unlikely senario)
    */
710
    thd->clear_error();
711
  }
712 713

not_silent:
unknown's avatar
unknown committed
714
  if (!silent)
unknown's avatar
unknown committed
715
  {
716 717 718
    char *query;
    uint query_length;

719
    if (!thd->query())                          // Only in replication
720
    {
unknown's avatar
unknown committed
721 722 723
      query= 	     tmp_query;
      query_length= (uint) (strxmov(tmp_query,"create database `",
                                    db, "`", NullS) - tmp_query);
724
    }
725
    else
726
    {
727 728
      query=        thd->query();
      query_length= thd->query_length();
729
    }
unknown's avatar
unknown committed
730

731
    ha_binlog_log_query(thd, 0, LOGCOM_CREATE_DB,
unknown's avatar
unknown committed
732 733 734
                        query, query_length,
                        db, "");

735
    if (mysql_bin_log.is_open())
736
    {
737
      int errcode= query_error_code(thd, TRUE);
738
      Query_log_event qinfo(thd, query, query_length, 0, 
739
			    /* suppress_use */ TRUE, errcode);
740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760

      /*
	Write should use the database being created as the "current
        database" and not the threads current database, which is the
        default. If we do not change the "current database" to the
        database being created, the CREATE statement will not be
        replicated when using --binlog-do-db to select databases to be
        replicated. 

	An example (--binlog-do-db=sisyfos):
       
          CREATE DATABASE bob;        # Not replicated
          USE bob;                    # 'bob' is the current database
          CREATE DATABASE sisyfos;    # Not replicated since 'bob' is
                                      # current database.
          USE sisyfos;                # Will give error on slave since
                                      # database does not exist.
      */
      qinfo.db     = db;
      qinfo.db_len = strlen(db);

761
      /* These DDL methods and logging protected with LOCK_mysql_create_db */
He Zhenxing's avatar
He Zhenxing committed
762 763 764 765 766
      if (mysql_bin_log.write(&qinfo))
      {
        error= -1;
        goto exit;
      }
767
    }
768
    my_ok(thd, result);
unknown's avatar
unknown committed
769
  }
unknown's avatar
unknown committed
770

unknown's avatar
unknown committed
771
exit:
772
  VOID(pthread_mutex_unlock(&LOCK_mysql_create_db));
unknown's avatar
unknown committed
773 774
  start_waiting_global_read_lock(thd);
exit2:
775
  DBUG_RETURN(error);
unknown's avatar
unknown committed
776 777 778
}


779 780
/* db-name is already validated when we come here */

unknown's avatar
unknown committed
781
bool mysql_alter_db(THD *thd, const char *db, HA_CREATE_INFO *create_info)
782
{
783
  char path[FN_REFLEN+16];
784
  long result=1;
unknown's avatar
unknown committed
785
  int error= 0;
786
  DBUG_ENTER("mysql_alter_db");
787

788 789 790 791 792 793 794 795 796 797 798 799
  /*
    Do not alter database if another thread is holding read lock.
    Wait for global read lock before acquiring LOCK_mysql_create_db.
    After wait_if_global_read_lock() we have protection against another
    global read lock. If we would acquire LOCK_mysql_create_db first,
    another thread could step in and get the global read lock before we
    reach wait_if_global_read_lock(). If this thread tries the same as we
    (admin a db), it would then go and wait on LOCK_mysql_create_db...
    Furthermore wait_if_global_read_lock() checks if the current thread
    has the global read lock and refuses the operation with
    ER_CANT_UPDATE_WITH_READLOCK if applicable.
  */
unknown's avatar
unknown committed
800
  if ((error=wait_if_global_read_lock(thd,0,1)))
801
    goto exit2;
802

803 804 805 806 807 808 809 810 811 812 813 814
  /*
    Close and mark for re-open all HANDLER tables which are marked for flush
    or which there are pending conflicing locks against. This is needed to
    prevent deadlocks.
  */
  if (thd->handler_tables_hash.records)
  {
    pthread_mutex_lock(&LOCK_open);
    mysql_ha_flush(thd);
    pthread_mutex_unlock(&LOCK_open);
  }

815 816
  VOID(pthread_mutex_lock(&LOCK_mysql_create_db));

817 818 819 820 821
  /* 
     Recreate db options file: /dbpath/.db.opt
     We pass MY_DB_OPT_FILE as "extension" to avoid
     "table name to file name" encoding.
  */
822
  build_table_filename(path, sizeof(path) - 1, db, "", MY_DB_OPT_FILE, 0);
823
  if ((error=write_db_opt(thd, path, create_info)))
824 825
    goto exit;

826 827
  /* Change options if current database is being altered. */

828 829
  if (thd->db && !strcmp(thd->db,db))
  {
830 831
    thd->db_charset= create_info->default_table_charset ?
		     create_info->default_table_charset :
unknown's avatar
unknown committed
832
		     thd->variables.collation_server;
833
    thd->variables.collation_database= thd->db_charset;
834 835
  }

836
  ha_binlog_log_query(thd, 0, LOGCOM_ALTER_DB,
837
                      thd->query(), thd->query_length(),
unknown's avatar
unknown committed
838 839
                      db, "");

840
  if (mysql_bin_log.is_open())
unknown's avatar
unknown committed
841
  {
842
    thd->clear_error();
843
    Query_log_event qinfo(thd, thd->query(), thd->query_length(), 0,
844
			  /* suppress_use */ TRUE, 0);
845

846 847 848 849 850
    /*
      Write should use the database being created as the "current
      database" and not the threads current database, which is the
      default.
    */
851 852 853
    qinfo.db     = db;
    qinfo.db_len = strlen(db);

854
    /* These DDL methods and logging protected with LOCK_mysql_create_db */
Davi Arnaut's avatar
Davi Arnaut committed
855
    if ((error= mysql_bin_log.write(&qinfo)))
He Zhenxing's avatar
He Zhenxing committed
856
      goto exit;
unknown's avatar
unknown committed
857
  }
858
  my_ok(thd, result);
unknown's avatar
unknown committed
859

unknown's avatar
unknown committed
860
exit:
861
  VOID(pthread_mutex_unlock(&LOCK_mysql_create_db));
unknown's avatar
unknown committed
862 863
  start_waiting_global_read_lock(thd);
exit2:
unknown's avatar
unknown committed
864
  DBUG_RETURN(error);
unknown's avatar
unknown committed
865 866 867
}


868
/*
unknown's avatar
unknown committed
869
  Drop all tables in a database and the database itself
870

unknown's avatar
unknown committed
871 872 873 874
  SYNOPSIS
    mysql_rm_db()
    thd			Thread handle
    db			Database name in the case given by user
875 876
		        It's already validated and set to lower case
                        (if needed) when we come here
unknown's avatar
unknown committed
877 878 879 880
    if_exists		Don't give error if database doesn't exists
    silent		Don't generate errors

  RETURN
unknown's avatar
unknown committed
881 882
    FALSE ok (Database dropped)
    ERROR Error
883
*/
884

unknown's avatar
unknown committed
885
bool mysql_rm_db(THD *thd,char *db,bool if_exists, bool silent)
unknown's avatar
unknown committed
886 887
{
  long deleted=0;
unknown's avatar
unknown committed
888
  int error= 0;
889
  char	path[FN_REFLEN+16];
unknown's avatar
unknown committed
890
  MY_DIR *dirp;
891
  uint length;
892
  TABLE_LIST* dropped_tables= 0;
unknown's avatar
unknown committed
893 894
  DBUG_ENTER("mysql_rm_db");

895 896 897 898 899 900 901 902 903 904 905 906
  /*
    Do not drop database if another thread is holding read lock.
    Wait for global read lock before acquiring LOCK_mysql_create_db.
    After wait_if_global_read_lock() we have protection against another
    global read lock. If we would acquire LOCK_mysql_create_db first,
    another thread could step in and get the global read lock before we
    reach wait_if_global_read_lock(). If this thread tries the same as we
    (admin a db), it would then go and wait on LOCK_mysql_create_db...
    Furthermore wait_if_global_read_lock() checks if the current thread
    has the global read lock and refuses the operation with
    ER_CANT_UPDATE_WITH_READLOCK if applicable.
  */
907
  if (wait_if_global_read_lock(thd, 0, 1))
unknown's avatar
unknown committed
908 909 910 911
  {
    error= -1;
    goto exit2;
  }
912

913 914 915 916 917 918 919 920 921 922 923 924
  /*
    Close and mark for re-open all HANDLER tables which are marked for flush
    or which there are pending conflicing locks against. This is needed to
    prevent deadlocks.
  */
  if (thd->handler_tables_hash.records)
  {
    pthread_mutex_lock(&LOCK_open);
    mysql_ha_flush(thd);
    pthread_mutex_unlock(&LOCK_open);
  }

925 926
  VOID(pthread_mutex_lock(&LOCK_mysql_create_db));

927
  length= build_table_filename(path, sizeof(path) - 1, db, "", "", 0);
928 929 930 931
  strmov(path+length, MY_DB_OPT_FILE);		// Append db option file name
  del_dbopt(path);				// Remove dboption hash entry
  path[length]= '\0';				// Remove file name

unknown's avatar
unknown committed
932
  /* See if the directory exists */
unknown's avatar
unknown committed
933
  if (!(dirp= my_dir(path,MYF(MY_DONT_SORT))))
unknown's avatar
unknown committed
934
  {
unknown's avatar
unknown committed
935
    if (!if_exists)
936
    {
unknown's avatar
unknown committed
937
      error= -1;
938
      my_error(ER_DB_DROP_EXISTS, MYF(0), db);
939
      goto exit;
940
    }
941
    else
942 943
      push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
			  ER_DB_DROP_EXISTS, ER(ER_DB_DROP_EXISTS), db);
944 945 946 947 948 949
  }
  else
  {
    pthread_mutex_lock(&LOCK_open);
    remove_db_from_cache(db);
    pthread_mutex_unlock(&LOCK_open);
950

951 952 953
    Drop_table_error_handler err_handler(thd->get_internal_handler());
    thd->push_internal_handler(&err_handler);

954
    error= -1;
955 956 957 958 959 960 961 962 963 964 965 966
    /*
      We temporarily disable the binary log while dropping the objects
      in the database. Since the DROP DATABASE statement is always
      replicated as a statement, execution of it will drop all objects
      in the database on the slave as well, so there is no need to
      replicate the removal of the individual objects in the database
      as well.

      This is more of a safety precaution, since normally no objects
      should be dropped while the database is being cleaned, but in
      the event that a change in the code to remove other objects is
      made, these drops should still not be logged.
967 968 969 970 971

      Notice that the binary log have to be enabled over the call to
      ha_drop_database(), since NDB otherwise detects the binary log
      as disabled and will not log the drop database statement on any
      other connected server.
972
     */
973
    if ((deleted= mysql_rm_known_files(thd, dirp, db, path, 0,
unknown's avatar
unknown committed
974
                                       &dropped_tables)) >= 0)
975 976
    {
      ha_drop_database(path);
977
      tmp_disable_binlog(thd);
978
      query_cache_invalidate1(db);
979
      (void) sp_drop_db_routines(thd, db); /* @todo Do not ignore errors */
980
#ifdef HAVE_EVENT_SCHEDULER
981
      Events::drop_schema_events(thd, db);
982
#endif
983
      error = 0;
984
      reenable_binlog(thd);
985
    }
986
    thd->pop_internal_handler();
unknown's avatar
unknown committed
987
  }
988
  if (!silent && deleted>=0)
unknown's avatar
unknown committed
989
  {
990 991
    const char *query;
    ulong query_length;
992
    if (!thd->query())
993
    {
994 995 996 997 998 999 1000
      /* The client used the old obsolete mysql_drop_db() call */
      query= path;
      query_length= (uint) (strxmov(path, "drop database `", db, "`",
                                     NullS) - path);
    }
    else
    {
1001 1002
      query= thd->query();
      query_length= thd->query_length();
1003 1004 1005
    }
    if (mysql_bin_log.is_open())
    {
1006
      thd->clear_error();
1007
      Query_log_event qinfo(thd, query, query_length, 0, 
1008
			    /* suppress_use */ TRUE, 0);
1009 1010 1011 1012 1013
      /*
        Write should use the database being created as the "current
        database" and not the threads current database, which is the
        default.
      */
1014 1015 1016
      qinfo.db     = db;
      qinfo.db_len = strlen(db);

1017
      /* These DDL methods and logging protected with LOCK_mysql_create_db */
He Zhenxing's avatar
He Zhenxing committed
1018 1019 1020 1021 1022
      if (mysql_bin_log.write(&qinfo))
      {
        error= -1;
        goto exit;
      }
unknown's avatar
unknown committed
1023
    }
1024
    thd->clear_error();
1025
    thd->server_status|= SERVER_STATUS_DB_DROPPED;
1026
    my_ok(thd, (ulong) deleted);
unknown's avatar
unknown committed
1027
    thd->server_status&= ~SERVER_STATUS_DB_DROPPED;
unknown's avatar
unknown committed
1028
  }
1029
  else if (mysql_bin_log.is_open())
1030
  {
unknown's avatar
unknown committed
1031 1032 1033 1034
    char *query, *query_pos, *query_end, *query_data_start;
    TABLE_LIST *tbl;
    uint db_len;

1035
    if (!(query= (char*) thd->alloc(MAX_DROP_TABLE_Q_LEN)))
unknown's avatar
unknown committed
1036
      goto exit; /* not much else we can do */
unknown's avatar
unknown committed
1037
    query_pos= query_data_start= strmov(query,"drop table ");
unknown's avatar
unknown committed
1038 1039
    query_end= query + MAX_DROP_TABLE_Q_LEN;
    db_len= strlen(db);
unknown's avatar
unknown committed
1040

unknown's avatar
unknown committed
1041
    for (tbl= dropped_tables; tbl; tbl= tbl->next_local)
unknown's avatar
unknown committed
1042 1043
    {
      uint tbl_name_len;
unknown's avatar
unknown committed
1044 1045

      /* 3 for the quotes and the comma*/
unknown's avatar
unknown committed
1046
      tbl_name_len= strlen(tbl->table_name) + 3;
unknown's avatar
unknown committed
1047 1048
      if (query_pos + tbl_name_len + 1 >= query_end)
      {
1049
        /* These DDL methods and logging protected with LOCK_mysql_create_db */
He Zhenxing's avatar
He Zhenxing committed
1050 1051 1052 1053 1054
        if (write_to_binlog(thd, query, query_pos -1 - query, db, db_len))
        {
          error= -1;
          goto exit;
        }
unknown's avatar
unknown committed
1055
        query_pos= query_data_start;
unknown's avatar
unknown committed
1056 1057
      }

unknown's avatar
unknown committed
1058
      *query_pos++ = '`';
unknown's avatar
unknown committed
1059
      query_pos= strmov(query_pos,tbl->table_name);
unknown's avatar
unknown committed
1060 1061 1062
      *query_pos++ = '`';
      *query_pos++ = ',';
    }
unknown's avatar
unknown committed
1063

unknown's avatar
unknown committed
1064 1065
    if (query_pos != query_data_start)
    {
1066
      /* These DDL methods and logging protected with LOCK_mysql_create_db */
He Zhenxing's avatar
He Zhenxing committed
1067 1068 1069 1070 1071
      if (write_to_binlog(thd, query, query_pos -1 - query, db, db_len))
      {
        error= -1;
        goto exit;
      }
unknown's avatar
unknown committed
1072
    }
1073
  }
unknown's avatar
unknown committed
1074 1075

exit:
1076
  /*
1077 1078 1079 1080
    If this database was the client's selected database, we silently
    change the client's selected database to nothing (to have an empty
    SELECT DATABASE() in the future). For this we free() thd->db and set
    it to 0.
1081
  */
1082
  if (thd->db && !strcmp(thd->db, db))
1083
    mysql_change_db_impl(thd, NULL, 0, thd->variables.collation_server);
unknown's avatar
unknown committed
1084
  VOID(pthread_mutex_unlock(&LOCK_mysql_create_db));
1085 1086
  start_waiting_global_read_lock(thd);
exit2:
1087
  DBUG_RETURN(error);
unknown's avatar
unknown committed
1088 1089 1090 1091
}

/*
  Removes files with known extensions plus all found subdirectories that
1092
  are 2 hex digits (raid directories).
1093
  thd MUST be set when calling this function!
unknown's avatar
unknown committed
1094 1095
*/

1096
static long mysql_rm_known_files(THD *thd, MY_DIR *dirp, const char *db,
unknown's avatar
unknown committed
1097 1098
				 const char *org_path, uint level,
                                 TABLE_LIST **dropped_tables)
unknown's avatar
unknown committed
1099 1100 1101 1102
{
  long deleted=0;
  ulong found_other_files=0;
  char filePath[FN_REFLEN];
1103
  TABLE_LIST *tot_list=0, **tot_list_next;
1104
  List<String> raid_dirs;
unknown's avatar
unknown committed
1105
  DBUG_ENTER("mysql_rm_known_files");
1106
  DBUG_PRINT("enter",("path: %s", org_path));
1107 1108

  tot_list_next= &tot_list;
unknown's avatar
unknown committed
1109

1110
  for (uint idx=0 ;
1111
       idx < (uint) dirp->number_off_files && !thd->killed ;
unknown's avatar
unknown committed
1112 1113 1114
       idx++)
  {
    FILEINFO *file=dirp->dir_entry+idx;
1115
    char *extension;
unknown's avatar
unknown committed
1116 1117
    DBUG_PRINT("info",("Examining: %s", file->name));

1118 1119 1120 1121 1122
    /* skiping . and .. */
    if (file->name[0] == '.' && (!file->name[1] ||
       (file->name[1] == '.' &&  !file->name[2])))
      continue;

unknown's avatar
unknown committed
1123
    /* Check if file is a raid directory */
1124
    if ((my_isdigit(system_charset_info, file->name[0]) ||
1125
	 (file->name[0] >= 'a' && file->name[0] <= 'f')) &&
1126
	(my_isdigit(system_charset_info, file->name[1]) ||
1127
	 (file->name[1] >= 'a' && file->name[1] <= 'f')) &&
unknown's avatar
unknown committed
1128 1129
	!file->name[2] && !level)
    {
1130
      char newpath[FN_REFLEN], *copy_of_path;
unknown's avatar
unknown committed
1131
      MY_DIR *new_dirp;
1132
      String *dir;
1133
      uint length;
1134

1135
      strxmov(newpath,org_path,"/",file->name,NullS);
1136
      length= unpack_filename(newpath,newpath);
unknown's avatar
unknown committed
1137 1138 1139
      if ((new_dirp = my_dir(newpath,MYF(MY_DONT_SORT))))
      {
	DBUG_PRINT("my",("New subdir found: %s", newpath));
1140
	if ((mysql_rm_known_files(thd, new_dirp, NullS, newpath,1,0)) < 0)
1141
	  goto err;
1142
	if (!(copy_of_path= (char*) thd->memdup(newpath, length+1)) ||
unknown's avatar
unknown committed
1143
	    !(dir= new (thd->mem_root) String(copy_of_path, length,
unknown's avatar
unknown committed
1144
					       &my_charset_bin)) ||
1145 1146
	    raid_dirs.push_back(dir))
	  goto err;
1147
	continue;
unknown's avatar
unknown committed
1148
      }
1149
      found_other_files++;
unknown's avatar
unknown committed
1150 1151
      continue;
    }
1152 1153 1154
    else if (file->name[0] == 'a' && file->name[1] == 'r' &&
             file->name[2] == 'c' && file->name[3] == '\0')
    {
1155 1156 1157 1158
      /* .frm archive:
        Those archives are obsolete, but following code should
        exist to remove existent "arc" directories.
      */
1159
      char newpath[FN_REFLEN];
1160 1161
      MY_DIR *new_dirp;
      strxmov(newpath, org_path, "/", "arc", NullS);
1162
      (void) unpack_filename(newpath, newpath);
1163 1164 1165 1166 1167 1168 1169 1170 1171 1172
      if ((new_dirp = my_dir(newpath, MYF(MY_DONT_SORT))))
      {
	DBUG_PRINT("my",("Archive subdir found: %s", newpath));
	if ((mysql_rm_arc_files(thd, new_dirp, newpath)) < 0)
	  goto err;
	continue;
      }
      found_other_files++;
      continue;
    }
1173 1174
    if (!(extension= strrchr(file->name, '.')))
      extension= strend(file->name);
1175
    if (find_type(extension, &deletable_extentions,1+2) <= 0)
unknown's avatar
unknown committed
1176
    {
1177
      if (find_type(extension, ha_known_exts(),1+2) <= 0)
unknown's avatar
unknown committed
1178
	found_other_files++;
unknown's avatar
unknown committed
1179 1180
      continue;
    }
1181
    /* just for safety we use files_charset_info */
1182
    if (db && !my_strcasecmp(files_charset_info,
unknown's avatar
unknown committed
1183
                             extension, reg_ext))
unknown's avatar
unknown committed
1184
    {
1185
      /* Drop the table nicely */
1186
      *extension= 0;			// Remove extension
1187
      TABLE_LIST *table_list=(TABLE_LIST*)
1188 1189 1190 1191 1192
                              thd->calloc(sizeof(*table_list) + 
                                          strlen(db) + 1 +
                                          MYSQL50_TABLE_NAME_PREFIX_LENGTH + 
                                          strlen(file->name) + 1);

1193
      if (!table_list)
1194
        goto err;
1195
      table_list->db= (char*) (table_list+1);
1196 1197
      table_list->table_name= strmov(table_list->db, db) + 1;
      VOID(filename_to_tablename(file->name, table_list->table_name,
1198
                                 MYSQL50_TABLE_NAME_PREFIX_LENGTH +
1199
                                 strlen(file->name) + 1));
1200 1201 1202 1203 1204 1205

      /* To be able to correctly look up the table in the table cache. */
      if (lower_case_table_names)
        table_list->table_name_length= my_casedn_str(files_charset_info,
                                                     table_list->table_name);

1206
      table_list->alias= table_list->table_name;	// If lower_case_table_names=2
1207
      table_list->internal_tmp_table= is_prefix(file->name, tmp_file_prefix);
1208 1209
      /* Link into list */
      (*tot_list_next)= table_list;
unknown's avatar
VIEW  
unknown committed
1210
      tot_list_next= &table_list->next_local;
1211
      deleted++;
unknown's avatar
unknown committed
1212
    }
1213 1214
    else
    {
1215
      strxmov(filePath, org_path, "/", file->name, NullS);
1216 1217
      if (my_delete_with_symlink(filePath,MYF(MY_WME)))
      {
1218
	goto err;
1219 1220 1221
      }
    }
  }
unknown's avatar
unknown committed
1222
  if (thd->killed ||
1223
      (tot_list && mysql_rm_table_part2(thd, tot_list, 1, 0, 1, 1)))
1224 1225 1226
    goto err;

  /* Remove RAID directories */
1227
  {
1228 1229
    List_iterator<String> it(raid_dirs);
    String *dir;
unknown's avatar
unknown committed
1230
    while ((dir= it++))
1231 1232
      if (rmdir(dir->c_ptr()) < 0)
	found_other_files++;
unknown's avatar
unknown committed
1233
  }
1234 1235
  my_dirend(dirp);  
  
1236 1237 1238
  if (dropped_tables)
    *dropped_tables= tot_list;
  
unknown's avatar
unknown committed
1239 1240 1241 1242
  /*
    If the directory is a symbolic link, remove the link first, then
    remove the directory the symbolic link pointed at
  */
1243 1244
  if (found_other_files)
  {
1245
    my_error(ER_DB_DROP_RMDIR, MYF(0), org_path, EEXIST);
1246 1247 1248
    DBUG_RETURN(-1);
  }
  else
unknown's avatar
unknown committed
1249
  {
1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276
    /* Don't give errors if we can't delete 'RAID' directory */
    if (rm_dir_w_symlink(org_path, level == 0))
      DBUG_RETURN(-1);
  }

  DBUG_RETURN(deleted);

err:
  my_dirend(dirp);
  DBUG_RETURN(-1);
}


/*
  Remove directory with symlink

  SYNOPSIS
    rm_dir_w_symlink()
    org_path    path of derictory
    send_error  send errors
  RETURN
    0 OK
    1 ERROR
*/

static my_bool rm_dir_w_symlink(const char *org_path, my_bool send_error)
{
1277
  char tmp_path[FN_REFLEN], *pos;
1278 1279 1280
  char *path= tmp_path;
  DBUG_ENTER("rm_dir_w_symlink");
  unpack_filename(tmp_path, org_path);
1281
#ifdef HAVE_READLINK
1282
  int error;
1283
  char tmp2_path[FN_REFLEN];
1284

1285 1286 1287 1288 1289 1290 1291 1292 1293 1294
  /* Remove end FN_LIBCHAR as this causes problem on Linux in readlink */
  pos= strend(path);
  if (pos > path && pos[-1] == FN_LIBCHAR)
    *--pos=0;

  if ((error= my_readlink(tmp2_path, path, MYF(MY_WME))) < 0)
    DBUG_RETURN(1);
  if (!error)
  {
    if (my_delete(path, MYF(send_error ? MY_WME : 0)))
unknown's avatar
unknown committed
1295
    {
1296
      DBUG_RETURN(send_error);
unknown's avatar
unknown committed
1297
    }
1298 1299 1300
    /* Delete directory symbolic link pointed at */
    path= tmp2_path;
  }
unknown's avatar
unknown committed
1301
#endif
1302 1303
  /* Remove last FN_LIBCHAR to not cause a problem on OS/2 */
  pos= strend(path);
unknown's avatar
unknown committed
1304

1305 1306 1307 1308
  if (pos > path && pos[-1] == FN_LIBCHAR)
    *--pos=0;
  if (rmdir(path) < 0 && send_error)
  {
1309
    my_error(ER_DB_DROP_RMDIR, MYF(0), path, errno);
unknown's avatar
unknown committed
1310
    DBUG_RETURN(1);
1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327
  }
  DBUG_RETURN(0);
}


/*
  Remove .frm archives from directory

  SYNOPSIS
    thd       thread handler
    dirp      list of files in archive directory
    db        data base name
    org_path  path of archive directory

  RETURN
    > 0 number of removed files
    -1  error
1328 1329 1330 1331

  NOTE
    A support of "arc" directories is obsolete, however this
    function should exist to remove existent "arc" directories.
1332
*/
1333
long mysql_rm_arc_files(THD *thd, MY_DIR *dirp, const char *org_path)
1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357
{
  long deleted= 0;
  ulong found_other_files= 0;
  char filePath[FN_REFLEN];
  DBUG_ENTER("mysql_rm_arc_files");
  DBUG_PRINT("enter", ("path: %s", org_path));

  for (uint idx=0 ;
       idx < (uint) dirp->number_off_files && !thd->killed ;
       idx++)
  {
    FILEINFO *file=dirp->dir_entry+idx;
    char *extension, *revision;
    DBUG_PRINT("info",("Examining: %s", file->name));

    /* skiping . and .. */
    if (file->name[0] == '.' && (!file->name[1] ||
       (file->name[1] == '.' &&  !file->name[2])))
      continue;

    extension= fn_ext(file->name);
    if (extension[0] != '.' ||
        extension[1] != 'f' || extension[2] != 'r' ||
        extension[3] != 'm' || extension[4] != '-')
unknown's avatar
unknown committed
1358
    {
1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373
      found_other_files++;
      continue;
    }
    revision= extension+5;
    while (*revision && my_isdigit(system_charset_info, *revision))
      revision++;
    if (*revision)
    {
      found_other_files++;
      continue;
    }
    strxmov(filePath, org_path, "/", file->name, NullS);
    if (my_delete_with_symlink(filePath,MYF(MY_WME)))
    {
      goto err;
unknown's avatar
unknown committed
1374
    }
1375
    deleted++;
unknown's avatar
unknown committed
1376
  }
1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388
  if (thd->killed)
    goto err;

  my_dirend(dirp);

  /*
    If the directory is a symbolic link, remove the link first, then
    remove the directory the symbolic link pointed at
  */
  if (!found_other_files &&
      rm_dir_w_symlink(org_path, 0))
    DBUG_RETURN(-1);
unknown's avatar
unknown committed
1389
  DBUG_RETURN(deleted);
1390 1391 1392 1393

err:
  my_dirend(dirp);
  DBUG_RETURN(-1);
unknown's avatar
unknown committed
1394 1395 1396
}


1397 1398
/**
  @brief Internal implementation: switch current database to a valid one.
1399

1400 1401 1402 1403 1404 1405 1406 1407
  @param thd            Thread context.
  @param new_db_name    Name of the database to switch to. The function will
                        take ownership of the name (the caller must not free
                        the allocated memory). If the name is NULL, we're
                        going to switch to NULL db.
  @param new_db_access  Privileges of the new database.
  @param new_db_charset Character set of the new database.
*/
1408

1409 1410 1411 1412 1413 1414
static void mysql_change_db_impl(THD *thd,
                                 LEX_STRING *new_db_name,
                                 ulong new_db_access,
                                 CHARSET_INFO *new_db_charset)
{
  /* 1. Change current database in THD. */
1415

1416 1417 1418 1419 1420 1421
  if (new_db_name == NULL)
  {
    /*
      THD::set_db() does all the job -- it frees previous database name and
      sets the new one.
    */
1422

1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459
    thd->set_db(NULL, 0);
  }
  else if (new_db_name == &INFORMATION_SCHEMA_NAME)
  {
    /*
      Here we must use THD::set_db(), because we want to copy
      INFORMATION_SCHEMA_NAME constant.
    */

    thd->set_db(INFORMATION_SCHEMA_NAME.str, INFORMATION_SCHEMA_NAME.length);
  }
  else
  {
    /*
      Here we already have a copy of database name to be used in THD. So,
      we just call THD::reset_db(). Since THD::reset_db() does not releases
      the previous database name, we should do it explicitly.
    */

    x_free(thd->db);

    thd->reset_db(new_db_name->str, new_db_name->length);
  }

  /* 2. Update security context. */

#ifndef NO_EMBEDDED_ACCESS_CHECKS
  thd->security_ctx->db_access= new_db_access;
#endif

  /* 3. Update db-charset environment variables. */

  thd->db_charset= new_db_charset;
  thd->variables.collation_database= new_db_charset;
}


1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487

/**
  Backup the current database name before switch.

  @param[in]      thd             thread handle
  @param[in, out] saved_db_name   IN: "str" points to a buffer where to store
                                  the old database name, "length" contains the
                                  buffer size
                                  OUT: if the current (default) database is
                                  not NULL, its name is copied to the
                                  buffer pointed at by "str"
                                  and "length" is updated accordingly.
                                  Otherwise "str" is set to NULL and
                                  "length" is set to 0.
*/

static void backup_current_db_name(THD *thd,
                                   LEX_STRING *saved_db_name)
{
  if (!thd->db)
  {
    /* No current (default) database selected. */

    saved_db_name->str= NULL;
    saved_db_name->length= 0;
  }
  else
  {
unknown's avatar
unknown committed
1488
    strmake(saved_db_name->str, thd->db, saved_db_name->length - 1);
1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510
    saved_db_name->length= thd->db_length;
  }
}


/**
  Return TRUE if db1_name is equal to db2_name, FALSE otherwise.

  The function allows to compare database names according to the MySQL
  rules. The database names db1 and db2 are equal if:
     - db1 is NULL and db2 is NULL;
     or
     - db1 is not-NULL, db2 is not-NULL, db1 is equal (ignoring case) to
       db2 in system character set (UTF8).
*/

static inline bool
cmp_db_names(const char *db1_name,
             const char *db2_name)
{
  return
         /* db1 is NULL and db2 is NULL */
1511
         (!db1_name && !db2_name) ||
1512 1513

         /* db1 is not-NULL, db2 is not-NULL, db1 == db2. */
1514 1515
         (db1_name && db2_name &&
         my_strcasecmp(system_charset_info, db1_name, db2_name) == 0);
1516 1517 1518
}


1519
/**
1520
  @brief Change the current database and its attributes unconditionally.
1521 1522

  @param thd          thread handle
unknown's avatar
unknown committed
1523
  @param new_db_name  database name
1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561
  @param force_switch if force_switch is FALSE, then the operation will fail if

                        - new_db_name is NULL or empty;

                        - OR new database name is invalid
                          (check_db_name() failed);

                        - OR user has no privilege on the new database;

                        - OR new database does not exist;

                      if force_switch is TRUE, then

                        - if new_db_name is NULL or empty, the current
                          database will be NULL, @@collation_database will
                          be set to @@collation_server, the operation will
                          succeed.

                        - if new database name is invalid
                          (check_db_name() failed), the current database
                          will be NULL, @@collation_database will be set to
                          @@collation_server, but the operation will fail;

                        - user privileges will not be checked
                          (THD::db_access however is updated);

                          TODO: is this really the intention?
                                (see sp-security.test).

                        - if new database does not exist,the current database
                          will be NULL, @@collation_database will be set to
                          @@collation_server, a warning will be thrown, the
                          operation will succeed.

  @details The function checks that the database name corresponds to a
  valid and existent database, checks access rights and changes the current
  database with database attributes (@@collation_database session variable,
  THD::db_access).
1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578

  This function is not the only way to switch the database that is
  currently employed. When the replication slave thread switches the
  database before executing a query, it calls thd->set_db directly.
  However, if the query, in turn, uses a stored routine, the stored routine
  will use this function, even if it's run on the slave.

  This function allocates the name of the database on the system heap: this
  is necessary to be able to uniformly change the database from any module
  of the server. Up to 5.0 different modules were using different memory to
  store the name of the database, and this led to memory corruption:
  a stack pointer set by Stored Procedures was used by replication after
  the stack address was long gone.

  @return Operation status
    @retval FALSE Success
    @retval TRUE  Error
1579 1580
*/

1581
bool mysql_change_db(THD *thd, const LEX_STRING *new_db_name, bool force_switch)
unknown's avatar
unknown committed
1582
{
1583 1584
  LEX_STRING new_db_file_name;

1585
  Security_context *sctx= thd->security_ctx;
1586
  ulong db_access= sctx->db_access;
1587
  CHARSET_INFO *db_default_cl;
1588

unknown's avatar
unknown committed
1589
  DBUG_ENTER("mysql_change_db");
1590
  DBUG_PRINT("enter",("name: '%s'", new_db_name->str));
unknown's avatar
unknown committed
1591

1592
  if (new_db_name == NULL ||
1593
      new_db_name->length == 0)
unknown's avatar
unknown committed
1594
  {
1595 1596
    if (force_switch)
    {
1597
      /*
1598 1599 1600 1601 1602 1603 1604
        This can happen only if we're switching the current database back
        after loading stored program. The thing is that loading of stored
        program can happen when there is no current database.

        TODO: actually, new_db_name and new_db_name->str seem to be always
        non-NULL. In case of stored program, new_db_name->str == "" and
        new_db_name->length == 0.
1605
      */
1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616

      mysql_change_db_impl(thd, NULL, 0, thd->variables.collation_server);

      DBUG_RETURN(FALSE);
    }
    else
    {
      my_message(ER_NO_DB_ERROR, ER(ER_NO_DB_ERROR), MYF(0));

      DBUG_RETURN(TRUE);
    }
unknown's avatar
unknown committed
1617
  }
1618

1619
  if (is_schema_db(new_db_name->str, new_db_name->length))
unknown's avatar
unknown committed
1620
  {
1621
    /* Switch the current database to INFORMATION_SCHEMA. */
1622 1623 1624 1625 1626

    mysql_change_db_impl(thd, &INFORMATION_SCHEMA_NAME, SELECT_ACL,
                         system_charset_info);

    DBUG_RETURN(FALSE);
1627
  }
1628

1629 1630
  /*
    Now we need to make a copy because check_db_name requires a
1631 1632 1633
    non-constant argument. Actually, it takes database file name.

    TODO: fix check_db_name().
1634
  */
1635

1636 1637
  new_db_file_name.str= my_strndup(new_db_name->str, new_db_name->length,
                                   MYF(MY_WME));
1638 1639 1640 1641 1642 1643 1644 1645 1646 1647
  new_db_file_name.length= new_db_name->length;

  if (new_db_file_name.str == NULL)
    DBUG_RETURN(TRUE);                             /* the error is set */

  /*
    NOTE: if check_db_name() fails, we should throw an error in any case,
    even if we are called from sp_head::execute().

    It's next to impossible however to get this error when we are called
1648 1649
    from sp_head::execute(). But let's switch the current database to NULL
    in this case to be sure.
1650 1651
  */

unknown's avatar
unknown committed
1652
  if (check_db_name(&new_db_file_name))
1653
  {
1654 1655 1656 1657 1658
    my_error(ER_WRONG_DB_NAME, MYF(0), new_db_file_name.str);
    my_free(new_db_file_name.str, MYF(0));

    if (force_switch)
      mysql_change_db_impl(thd, NULL, 0, thd->variables.collation_server);
1659

1660
    DBUG_RETURN(TRUE);
1661 1662
  }

1663 1664
  DBUG_PRINT("info",("Use database: %s", new_db_file_name.str));

1665
#ifndef NO_EMBEDDED_ACCESS_CHECKS
1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676
  db_access=
    test_all_bits(sctx->master_access, DB_ACLS) ?
    DB_ACLS :
    acl_get(sctx->host,
            sctx->ip,
            sctx->priv_user,
            new_db_file_name.str,
            FALSE) | sctx->master_access;

  if (!force_switch &&
      !(db_access & DB_ACLS) &&
1677
      check_grant_db(thd, new_db_file_name.str))
1678
  {
1679 1680 1681 1682
    my_error(ER_DBACCESS_DENIED_ERROR, MYF(0),
             sctx->priv_user,
             sctx->priv_host,
             new_db_file_name.str);
1683 1684
    general_log_print(thd, COM_INIT_DB, ER(ER_DBACCESS_DENIED_ERROR),
                      sctx->priv_user, sctx->priv_host, new_db_file_name.str);
1685 1686
    my_free(new_db_file_name.str, MYF(0));
    DBUG_RETURN(TRUE);
1687
  }
unknown's avatar
unknown committed
1688
#endif
1689

1690
  if (check_db_dir_existence(new_db_file_name.str))
1691
  {
1692 1693
    if (force_switch)
    {
1694 1695
      /* Throw a warning and free new_db_file_name. */

1696 1697 1698
      push_warning_printf(thd, MYSQL_ERROR::WARN_LEVEL_NOTE,
                          ER_BAD_DB_ERROR, ER(ER_BAD_DB_ERROR),
                          new_db_file_name.str);
1699

1700 1701 1702 1703 1704 1705
      my_free(new_db_file_name.str, MYF(0));

      /* Change db to NULL. */

      mysql_change_db_impl(thd, NULL, 0, thd->variables.collation_server);

1706 1707
      /* The operation succeed. */

1708 1709 1710 1711
      DBUG_RETURN(FALSE);
    }
    else
    {
1712 1713
      /* Report an error and free new_db_file_name. */

1714 1715
      my_error(ER_BAD_DB_ERROR, MYF(0), new_db_file_name.str);
      my_free(new_db_file_name.str, MYF(0));
1716 1717 1718

      /* The operation failed. */

1719 1720
      DBUG_RETURN(TRUE);
    }
1721
  }
1722 1723 1724 1725 1726 1727

  /*
    NOTE: in mysql_change_db_impl() new_db_file_name is assigned to THD
    attributes and will be freed in THD::~THD().
  */

1728
  db_default_cl= get_default_db_collation(thd, new_db_file_name.str);
1729

1730
  mysql_change_db_impl(thd, &new_db_file_name, db_access, db_default_cl);
1731 1732

  DBUG_RETURN(FALSE);
unknown's avatar
unknown committed
1733
}
unknown's avatar
unknown committed
1734 1735


1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772
/**
  Change the current database and its attributes if needed.

  @param          thd             thread handle
  @param          new_db_name     database name
  @param[in, out] saved_db_name   IN: "str" points to a buffer where to store
                                  the old database name, "length" contains the
                                  buffer size
                                  OUT: if the current (default) database is
                                  not NULL, its name is copied to the
                                  buffer pointed at by "str"
                                  and "length" is updated accordingly.
                                  Otherwise "str" is set to NULL and
                                  "length" is set to 0.
  @param          force_switch    @see mysql_change_db()
  @param[out]     cur_db_changed  out-flag to indicate whether the current
                                  database has been changed (valid only if
                                  the function suceeded)
*/

bool mysql_opt_change_db(THD *thd,
                         const LEX_STRING *new_db_name,
                         LEX_STRING *saved_db_name,
                         bool force_switch,
                         bool *cur_db_changed)
{
  *cur_db_changed= !cmp_db_names(thd->db, new_db_name->str);

  if (!*cur_db_changed)
    return FALSE;

  backup_current_db_name(thd, saved_db_name);

  return mysql_change_db(thd, new_db_name, force_switch);
}


unknown's avatar
unknown committed
1773 1774 1775 1776 1777 1778
static int
lock_databases(THD *thd, const char *db1, uint length1,
                         const char *db2, uint length2)
{
  pthread_mutex_lock(&LOCK_lock_db);
  while (!thd->killed &&
1779 1780
         (hash_search(&lock_db_cache,(uchar*) db1, length1) ||
          hash_search(&lock_db_cache,(uchar*) db2, length2)))
unknown's avatar
unknown committed
1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826
  {
    wait_for_condition(thd, &LOCK_lock_db, &COND_refresh);
    pthread_mutex_lock(&LOCK_lock_db);
  }

  if (thd->killed)
  {
    pthread_mutex_unlock(&LOCK_lock_db);
    return 1;
  }

  lock_db_insert(db1, length1);
  lock_db_insert(db2, length2);
  creating_database++;

  /*
    Wait if a concurent thread is creating a table at the same time.
    The assumption here is that it will not take too long until
    there is a point in time when a table is not created.
  */

  while (!thd->killed && creating_table)
  {
    wait_for_condition(thd, &LOCK_lock_db, &COND_refresh);
    pthread_mutex_lock(&LOCK_lock_db);
  }

  if (thd->killed)
  {
    lock_db_delete(db1, length1);
    lock_db_delete(db2, length2);
    creating_database--;
    pthread_mutex_unlock(&LOCK_lock_db);
    pthread_cond_signal(&COND_refresh);
    return(1);
  }

  /*
    We can unlock now as the hash will protect against anyone creating a table
    in the databases we are using
  */
  pthread_mutex_unlock(&LOCK_lock_db);
  return 0;
}


1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839
/**
  Upgrade a 5.0 database.
  This function is invoked whenever an ALTER DATABASE UPGRADE query is executed:
    ALTER DATABASE 'olddb' UPGRADE DATA DIRECTORY NAME.

  If we have managed to rename (move) tables to the new database
  but something failed on a later step, then we store the
  RENAME DATABASE event in the log. mysql_rename_db() is atomic in
  the sense that it will rename all or none of the tables.

  @param thd Current thread
  @param old_db 5.0 database name, in #mysql50#name format
  @return 0 on success, 1 on error
unknown's avatar
unknown committed
1840
*/
1841
bool mysql_upgrade_db(THD *thd, LEX_STRING *old_db)
unknown's avatar
unknown committed
1842 1843 1844 1845 1846 1847 1848 1849
{
  int error= 0, change_to_newdb= 0;
  char path[FN_REFLEN+16];
  uint length;
  HA_CREATE_INFO create_info;
  MY_DIR *dirp;
  TABLE_LIST *table_list;
  SELECT_LEX *sl= thd->lex->current_select;
1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866
  LEX_STRING new_db;
  DBUG_ENTER("mysql_upgrade_db");

  if ((old_db->length <= MYSQL50_TABLE_NAME_PREFIX_LENGTH) ||
      (strncmp(old_db->str,
              MYSQL50_TABLE_NAME_PREFIX,
              MYSQL50_TABLE_NAME_PREFIX_LENGTH) != 0))
  {
    my_error(ER_WRONG_USAGE, MYF(0),
             "ALTER DATABASE UPGRADE DATA DIRECTORY NAME",
             "name");
    DBUG_RETURN(1);
  }

  /* `#mysql50#<name>` converted to encoded `<name>` */
  new_db.str= old_db->str + MYSQL50_TABLE_NAME_PREFIX_LENGTH;
  new_db.length= old_db->length - MYSQL50_TABLE_NAME_PREFIX_LENGTH;
unknown's avatar
unknown committed
1867 1868

  if (lock_databases(thd, old_db->str, old_db->length,
1869 1870
                          new_db.str, new_db.length))
    DBUG_RETURN(1);
unknown's avatar
unknown committed
1871 1872 1873 1874 1875 1876 1877 1878

  /*
    Let's remember if we should do "USE newdb" afterwards.
    thd->db will be cleared in mysql_rename_db()
  */
  if (thd->db && !strcmp(thd->db, old_db->str))
    change_to_newdb= 1;

1879 1880
  build_table_filename(path, sizeof(path)-1,
                       old_db->str, "", MY_DB_OPT_FILE, 0);
unknown's avatar
unknown committed
1881 1882 1883
  if ((load_db_opt(thd, path, &create_info)))
    create_info.default_table_charset= thd->variables.collation_server;

1884
  length= build_table_filename(path, sizeof(path)-1, old_db->str, "", "", 0);
unknown's avatar
unknown committed
1885 1886 1887 1888 1889 1890 1891 1892 1893
  if (length && path[length-1] == FN_LIBCHAR)
    path[length-1]=0;                            // remove ending '\'
  if ((error= my_access(path,F_OK)))
  {
    my_error(ER_BAD_DB_ERROR, MYF(0), old_db->str);
    goto exit;
  }

  /* Step1: Create the new database */
1894
  if ((error= mysql_create_db(thd, new_db.str, &create_info, 1)))
unknown's avatar
unknown committed
1895 1896 1897 1898 1899 1900 1901 1902 1903
    goto exit;

  /* Step2: Move tables to the new database */
  if ((dirp = my_dir(path,MYF(MY_DONT_SORT))))
  {
    uint nfiles= (uint) dirp->number_off_files;
    for (uint idx=0 ; idx < nfiles && !thd->killed ; idx++)
    {
      FILEINFO *file= dirp->dir_entry + idx;
1904
      char *extension, tname[FN_REFLEN + 1];
unknown's avatar
unknown committed
1905 1906 1907 1908 1909 1910 1911 1912 1913 1914
      LEX_STRING table_str;
      DBUG_PRINT("info",("Examining: %s", file->name));

      /* skiping non-FRM files */
      if (my_strcasecmp(files_charset_info,
                        (extension= fn_rext(file->name)), reg_ext))
        continue;

      /* A frm file found, add the table info rename list */
      *extension= '\0';
1915

unknown's avatar
unknown committed
1916 1917
      table_str.length= filename_to_tablename(file->name,
                                              tname, sizeof(tname)-1);
1918
      table_str.str= (char*) sql_memdup(tname, table_str.length + 1);
unknown's avatar
unknown committed
1919
      Table_ident *old_ident= new Table_ident(thd, *old_db, table_str, 0);
1920
      Table_ident *new_ident= new Table_ident(thd, new_db, table_str, 0);
unknown's avatar
unknown committed
1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941
      if (!old_ident || !new_ident ||
          !sl->add_table_to_list(thd, old_ident, NULL,
                                 TL_OPTION_UPDATING, TL_IGNORE) ||
          !sl->add_table_to_list(thd, new_ident, NULL,
                                 TL_OPTION_UPDATING, TL_IGNORE))
      {
        error= 1;
        my_dirend(dirp);
        goto exit;
      }
    }
    my_dirend(dirp);  
  }

  if ((table_list= thd->lex->query_tables) &&
      (error= mysql_rename_tables(thd, table_list, 1)))
  {
    /*
      Failed to move all tables from the old database to the new one.
      In the best case mysql_rename_tables() moved all tables back to the old
      database. In the worst case mysql_rename_tables() moved some tables
1942 1943
      to the new database, then failed, then started to move the tables back,
      and then failed again. In this situation we have some tables in the
unknown's avatar
unknown committed
1944 1945 1946 1947 1948
      old database and some tables in the new database.
      Let's delete the option file, and then the new database directory.
      If some tables were left in the new directory, rmdir() will fail.
      It garantees we never loose any tables.
    */
1949
    build_table_filename(path, sizeof(path)-1,
1950
                         new_db.str,"",MY_DB_OPT_FILE, 0);
unknown's avatar
unknown committed
1951
    my_delete(path, MYF(MY_WME));
1952
    length= build_table_filename(path, sizeof(path)-1, new_db.str, "", "", 0);
unknown's avatar
unknown committed
1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992
    if (length && path[length-1] == FN_LIBCHAR)
      path[length-1]=0;                            // remove ending '\'
    rmdir(path);
    goto exit;
  }


  /*
    Step3: move all remaining files to the new db's directory.
    Skip db opt file: it's been created by mysql_create_db() in
    the new directory, and will be dropped by mysql_rm_db() in the old one.
    Trigger TRN and TRG files are be moved as regular files at the moment,
    without any special treatment.

    Triggers without explicit database qualifiers in table names work fine: 
      use d1;
      create trigger trg1 before insert on t2 for each row set @a:=1
      rename database d1 to d2;

    TODO: Triggers, having the renamed database explicitely written
    in the table qualifiers.
    1. when the same database is renamed:
        create trigger d1.trg1 before insert on d1.t1 for each row set @a:=1;
        rename database d1 to d2;
      Problem: After database renaming, the trigger's body
               still points to the old database d1.
    2. when another database is renamed:
        create trigger d3.trg1 before insert on d3.t1 for each row
          insert into d1.t1 values (...);
        rename database d1 to d2;
      Problem: After renaming d1 to d2, the trigger's body
               in the database d3 still points to database d1.
  */

  if ((dirp = my_dir(path,MYF(MY_DONT_SORT))))
  {
    uint nfiles= (uint) dirp->number_off_files;
    for (uint idx=0 ; idx < nfiles ; idx++)
    {
      FILEINFO *file= dirp->dir_entry + idx;
1993
      char oldname[FN_REFLEN + 1], newname[FN_REFLEN + 1];
unknown's avatar
unknown committed
1994 1995 1996 1997 1998 1999 2000 2001 2002 2003
      DBUG_PRINT("info",("Examining: %s", file->name));

      /* skiping . and .. and MY_DB_OPT_FILE */
      if ((file->name[0] == '.' &&
           (!file->name[1] || (file->name[1] == '.' && !file->name[2]))) ||
          !my_strcasecmp(files_charset_info, file->name, MY_DB_OPT_FILE))
        continue;

      /* pass empty file name, and file->name as extension to avoid encoding */
      build_table_filename(oldname, sizeof(oldname)-1,
2004
                           old_db->str, "", file->name, 0);
unknown's avatar
unknown committed
2005
      build_table_filename(newname, sizeof(newname)-1,
2006
                           new_db.str, "", file->name, 0);
unknown's avatar
unknown committed
2007 2008
      my_rename(oldname, newname, MYF(MY_WME));
    }
2009
    my_dirend(dirp);
unknown's avatar
unknown committed
2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022
  }

  /*
    Step7: drop the old database.
    remove_db_from_cache(olddb) and query_cache_invalidate(olddb)
    are done inside mysql_rm_db(), no needs to execute them again.
    mysql_rm_db() also "unuses" if we drop the current database.
  */
  error= mysql_rm_db(thd, old_db->str, 0, 1);

  /* Step8: logging */
  if (mysql_bin_log.is_open())
  {
2023
    int errcode= query_error_code(thd, TRUE);
2024
    Query_log_event qinfo(thd, thd->query(), thd->query_length(),
2025
                          0, TRUE, errcode);
unknown's avatar
unknown committed
2026
    thd->clear_error();
He Zhenxing's avatar
He Zhenxing committed
2027
    error|= mysql_bin_log.write(&qinfo);
unknown's avatar
unknown committed
2028 2029 2030 2031
  }

  /* Step9: Let's do "use newdb" if we renamed the current database */
  if (change_to_newdb)
2032
    error|= mysql_change_db(thd, & new_db, FALSE);
unknown's avatar
unknown committed
2033 2034 2035 2036 2037

exit:
  pthread_mutex_lock(&LOCK_lock_db);
  /* Remove the databases from db lock cache */
  lock_db_delete(old_db->str, old_db->length);
2038
  lock_db_delete(new_db.str, new_db.length);
unknown's avatar
unknown committed
2039 2040 2041 2042 2043 2044 2045
  creating_database--;
  /* Signal waiting CREATE TABLE's to continue */
  pthread_cond_signal(&COND_refresh);
  pthread_mutex_unlock(&LOCK_lock_db);

  DBUG_RETURN(error);
}
2046

2047 2048


2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062
/*
  Check if there is directory for the database name.

  SYNOPSIS
    check_db_dir_existence()
    db_name   database name

  RETURN VALUES
    FALSE   There is directory for the specified database name.
    TRUE    The directory does not exist.
*/

bool check_db_dir_existence(const char *db_name)
{
2063
  char db_dir_path[FN_REFLEN + 1];
2064 2065
  uint db_dir_path_len;

2066
  db_dir_path_len= build_table_filename(db_dir_path, sizeof(db_dir_path) - 1,
2067
                                        db_name, "", "", 0);
2068 2069 2070 2071 2072 2073 2074 2075

  if (db_dir_path_len && db_dir_path[db_dir_path_len - 1] == FN_LIBCHAR)
    db_dir_path[db_dir_path_len - 1]= 0;

  /* Check access. */

  return my_access(db_dir_path, F_OK);
}