mirror of https://github.com/postgres/postgres
This trims down the code, and is in preparation for hardening pg_upgrade against auto-oid assignment.pull/14/head
Bruce Momjian
11 years ago
parent
b0488e5c4f
commit
2209b3923a
@ -1,769 +0,0 @@ |
|||||||
/*
|
|
||||||
* version.c |
|
||||||
* |
|
||||||
* Postgres-version-specific routines |
|
||||||
* |
|
||||||
* Copyright (c) 2010-2014, PostgreSQL Global Development Group |
|
||||||
* contrib/pg_upgrade/version_old_8_3.c |
|
||||||
*/ |
|
||||||
|
|
||||||
#include "postgres_fe.h" |
|
||||||
|
|
||||||
#include "pg_upgrade.h" |
|
||||||
|
|
||||||
#include "access/transam.h" |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_check_for_name_data_type_usage() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* Alignment for the 'name' data type changed to 'char' in 8.4; |
|
||||||
* checks tables and indexes. |
|
||||||
*/ |
|
||||||
void |
|
||||||
old_8_3_check_for_name_data_type_usage(ClusterInfo *cluster) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char output_path[MAXPGPATH]; |
|
||||||
|
|
||||||
prep_status("Checking for invalid \"name\" user columns"); |
|
||||||
|
|
||||||
snprintf(output_path, sizeof(output_path), "tables_using_name.txt"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_relname, |
|
||||||
i_attname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/*
|
|
||||||
* With a smaller alignment in 8.4, 'name' cannot be used in a |
|
||||||
* non-pg_catalog table, except as the first column. (We could tighten |
|
||||||
* that condition with enough analysis, but it seems not worth the |
|
||||||
* trouble.) |
|
||||||
*/ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, c.relname, a.attname " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_namespace n, " |
|
||||||
" pg_catalog.pg_attribute a " |
|
||||||
"WHERE c.oid = a.attrelid AND " |
|
||||||
" a.attnum > 1 AND " |
|
||||||
" NOT a.attisdropped AND " |
|
||||||
" a.atttypid = 'pg_catalog.name'::pg_catalog.regtype AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
/* exclude possible orphaned temp tables */ |
|
||||||
" n.nspname !~ '^pg_temp_' AND " |
|
||||||
" n.nspname !~ '^pg_toast_temp_' AND " |
|
||||||
" n.nspname NOT IN ('pg_catalog', 'information_schema')"); |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_relname = PQfnumber(res, "relname"); |
|
||||||
i_attname = PQfnumber(res, "attname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
found = true; |
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("could not open file \"%s\": %s\n", output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "Database: %s\n", active_db->db_name); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
fprintf(script, " %s.%s.%s\n", |
|
||||||
PQgetvalue(res, rowno, i_nspname), |
|
||||||
PQgetvalue(res, rowno, i_relname), |
|
||||||
PQgetvalue(res, rowno, i_attname)); |
|
||||||
} |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
if (found) |
|
||||||
{ |
|
||||||
pg_log(PG_REPORT, "fatal\n"); |
|
||||||
pg_fatal("Your installation contains the \"name\" data type in user tables. This\n" |
|
||||||
"data type changed its internal alignment between your old and new\n" |
|
||||||
"clusters so this cluster cannot currently be upgraded. You can remove\n" |
|
||||||
"the problem tables and restart the upgrade. A list of the problem\n" |
|
||||||
"columns is in the file:\n" |
|
||||||
" %s\n\n", output_path); |
|
||||||
} |
|
||||||
else |
|
||||||
check_ok(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_check_for_tsquery_usage() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* A new 'prefix' field was added to the 'tsquery' data type in 8.4 |
|
||||||
* so upgrading of such fields is impossible. |
|
||||||
*/ |
|
||||||
void |
|
||||||
old_8_3_check_for_tsquery_usage(ClusterInfo *cluster) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char output_path[MAXPGPATH]; |
|
||||||
|
|
||||||
prep_status("Checking for tsquery user columns"); |
|
||||||
|
|
||||||
snprintf(output_path, sizeof(output_path), "tables_using_tsquery.txt"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_relname, |
|
||||||
i_attname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/* Find any user-defined tsquery columns */ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, c.relname, a.attname " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_namespace n, " |
|
||||||
" pg_catalog.pg_attribute a " |
|
||||||
/* materialized views didn't exist in 8.3, so no need to check 'm' */ |
|
||||||
"WHERE c.relkind = 'r' AND " |
|
||||||
" c.oid = a.attrelid AND " |
|
||||||
" NOT a.attisdropped AND " |
|
||||||
" a.atttypid = 'pg_catalog.tsquery'::pg_catalog.regtype AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
/* exclude possible orphaned temp tables */ |
|
||||||
" n.nspname !~ '^pg_temp_' AND " |
|
||||||
" n.nspname !~ '^pg_toast_temp_' AND " |
|
||||||
" n.nspname NOT IN ('pg_catalog', 'information_schema')"); |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_relname = PQfnumber(res, "relname"); |
|
||||||
i_attname = PQfnumber(res, "attname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
found = true; |
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("could not open file \"%s\": %s\n", output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "Database: %s\n", active_db->db_name); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
fprintf(script, " %s.%s.%s\n", |
|
||||||
PQgetvalue(res, rowno, i_nspname), |
|
||||||
PQgetvalue(res, rowno, i_relname), |
|
||||||
PQgetvalue(res, rowno, i_attname)); |
|
||||||
} |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
if (found) |
|
||||||
{ |
|
||||||
pg_log(PG_REPORT, "fatal\n"); |
|
||||||
pg_fatal("Your installation contains the \"tsquery\" data type. This data type\n" |
|
||||||
"added a new internal field between your old and new clusters so this\n" |
|
||||||
"cluster cannot currently be upgraded. You can remove the problem\n" |
|
||||||
"columns and restart the upgrade. A list of the problem columns is in the\n" |
|
||||||
"file:\n" |
|
||||||
" %s\n\n", output_path); |
|
||||||
} |
|
||||||
else |
|
||||||
check_ok(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_check_ltree_usage() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* The internal ltree structure was changed in 8.4 so upgrading is impossible. |
|
||||||
*/ |
|
||||||
void |
|
||||||
old_8_3_check_ltree_usage(ClusterInfo *cluster) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char output_path[MAXPGPATH]; |
|
||||||
|
|
||||||
prep_status("Checking for contrib/ltree"); |
|
||||||
|
|
||||||
snprintf(output_path, sizeof(output_path), "contrib_ltree.txt"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_proname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/* Find any functions coming from contrib/ltree */ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, p.proname " |
|
||||||
"FROM pg_catalog.pg_proc p, " |
|
||||||
" pg_catalog.pg_namespace n " |
|
||||||
"WHERE p.pronamespace = n.oid AND " |
|
||||||
" p.probin = '$libdir/ltree'"); |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_proname = PQfnumber(res, "proname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
found = true; |
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("Could not open file \"%s\": %s\n", |
|
||||||
output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "Database: %s\n", active_db->db_name); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
fprintf(script, " %s.%s\n", |
|
||||||
PQgetvalue(res, rowno, i_nspname), |
|
||||||
PQgetvalue(res, rowno, i_proname)); |
|
||||||
} |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
if (found) |
|
||||||
{ |
|
||||||
pg_log(PG_REPORT, "fatal\n"); |
|
||||||
pg_fatal("Your installation contains the \"ltree\" data type. This data type\n" |
|
||||||
"changed its internal storage format between your old and new clusters so this\n" |
|
||||||
"cluster cannot currently be upgraded. You can manually upgrade databases\n" |
|
||||||
"that use \"contrib/ltree\" facilities and remove \"contrib/ltree\" from the old\n" |
|
||||||
"cluster and restart the upgrade. A list of the problem functions is in the\n" |
|
||||||
"file:\n" |
|
||||||
" %s\n\n", output_path); |
|
||||||
} |
|
||||||
else |
|
||||||
check_ok(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_rebuild_tsvector_tables() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* 8.3 sorts lexemes by its length and if lengths are the same then it uses |
|
||||||
* alphabetic order; 8.4 sorts lexemes in lexicographical order, e.g. |
|
||||||
* |
|
||||||
* => SELECT 'c bb aaa'::tsvector; |
|
||||||
* tsvector |
|
||||||
* ---------------- |
|
||||||
* 'aaa' 'bb' 'c' -- 8.4 |
|
||||||
* 'c' 'bb' 'aaa' -- 8.3 |
|
||||||
*/ |
|
||||||
void |
|
||||||
old_8_3_rebuild_tsvector_tables(ClusterInfo *cluster, bool check_mode) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char output_path[MAXPGPATH]; |
|
||||||
|
|
||||||
prep_status("Checking for tsvector user columns"); |
|
||||||
|
|
||||||
snprintf(output_path, sizeof(output_path), "rebuild_tsvector_tables.sql"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
char nspname[NAMEDATALEN] = "", |
|
||||||
relname[NAMEDATALEN] = ""; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_relname, |
|
||||||
i_attname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/* Find any user-defined tsvector columns */ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, c.relname, a.attname " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_namespace n, " |
|
||||||
" pg_catalog.pg_attribute a " |
|
||||||
/* materialized views didn't exist in 8.3, so no need to check 'm' */ |
|
||||||
"WHERE c.relkind = 'r' AND " |
|
||||||
" c.oid = a.attrelid AND " |
|
||||||
" NOT a.attisdropped AND " |
|
||||||
/* child attribute changes are processed by the parent */ |
|
||||||
" a.attinhcount = 0 AND " |
|
||||||
" a.atttypid = 'pg_catalog.tsvector'::pg_catalog.regtype AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
/* exclude possible orphaned temp tables */ |
|
||||||
" n.nspname !~ '^pg_temp_' AND " |
|
||||||
" n.nspname !~ '^pg_toast_temp_' AND " |
|
||||||
" n.nspname NOT IN ('pg_catalog', 'information_schema')"); |
|
||||||
|
|
||||||
/*
|
|
||||||
* This macro is used below to avoid reindexing indexes already rebuilt |
|
||||||
* because of tsvector columns. |
|
||||||
*/ |
|
||||||
#define SKIP_TSVECTOR_TABLES \ |
|
||||||
"i.indrelid NOT IN ( " \
|
|
||||||
"SELECT DISTINCT c.oid " \
|
|
||||||
"FROM pg_catalog.pg_class c, " \
|
|
||||||
" pg_catalog.pg_namespace n, " \
|
|
||||||
" pg_catalog.pg_attribute a " \
|
|
||||||
/* materialized views didn't exist in 8.3, so no need to check 'm' */ \
|
|
||||||
"WHERE c.relkind = 'r' AND " \
|
|
||||||
" c.oid = a.attrelid AND " \
|
|
||||||
" NOT a.attisdropped AND " \
|
|
||||||
/* child attribute changes are processed by the parent */ \
|
|
||||||
" a.attinhcount = 0 AND " \
|
|
||||||
" a.atttypid = 'pg_catalog.tsvector'::pg_catalog.regtype AND " \
|
|
||||||
" c.relnamespace = n.oid AND " \
|
|
||||||
" n.nspname !~ '^pg_' AND " \
|
|
||||||
" n.nspname != 'information_schema') " |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_relname = PQfnumber(res, "relname"); |
|
||||||
i_attname = PQfnumber(res, "attname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
found = true; |
|
||||||
if (!check_mode) |
|
||||||
{ |
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("could not open file \"%s\": %s\n", output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "\\connect %s\n\n", |
|
||||||
quote_identifier(active_db->db_name)); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
|
|
||||||
/* Rebuild all tsvector collumns with one ALTER TABLE command */ |
|
||||||
if (strcmp(PQgetvalue(res, rowno, i_nspname), nspname) != 0 || |
|
||||||
strcmp(PQgetvalue(res, rowno, i_relname), relname) != 0) |
|
||||||
{ |
|
||||||
if (strlen(nspname) != 0 || strlen(relname) != 0) |
|
||||||
fprintf(script, ";\n\n"); |
|
||||||
fprintf(script, "ALTER TABLE %s.%s\n", |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_nspname)), |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_relname))); |
|
||||||
} |
|
||||||
else |
|
||||||
fprintf(script, ",\n"); |
|
||||||
strlcpy(nspname, PQgetvalue(res, rowno, i_nspname), sizeof(nspname)); |
|
||||||
strlcpy(relname, PQgetvalue(res, rowno, i_relname), sizeof(relname)); |
|
||||||
|
|
||||||
fprintf(script, "ALTER COLUMN %s " |
|
||||||
/* This could have been a custom conversion function call. */ |
|
||||||
"TYPE pg_catalog.tsvector USING %s::pg_catalog.text::pg_catalog.tsvector", |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_attname)), |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_attname))); |
|
||||||
} |
|
||||||
} |
|
||||||
if (strlen(nspname) != 0 || strlen(relname) != 0) |
|
||||||
fprintf(script, ";\n\n"); |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
/* XXX Mark tables as not accessible somehow */ |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
if (found) |
|
||||||
{ |
|
||||||
report_status(PG_WARNING, "warning"); |
|
||||||
if (check_mode) |
|
||||||
pg_log(PG_WARNING, "\n" |
|
||||||
"Your installation contains tsvector columns. The tsvector internal\n" |
|
||||||
"storage format changed between your old and new clusters so the tables\n" |
|
||||||
"must be rebuilt. After upgrading, you will be given instructions.\n\n"); |
|
||||||
else |
|
||||||
pg_log(PG_WARNING, "\n" |
|
||||||
"Your installation contains tsvector columns. The tsvector internal\n" |
|
||||||
"storage format changed between your old and new clusters so the tables\n" |
|
||||||
"must be rebuilt. The file:\n" |
|
||||||
" %s\n" |
|
||||||
"when executed by psql by the database superuser will rebuild all tables\n" |
|
||||||
"with tsvector columns.\n\n", |
|
||||||
output_path); |
|
||||||
} |
|
||||||
else |
|
||||||
check_ok(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_invalidate_hash_gin_indexes() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* Hash and GIN index binary format changed from 8.3->8.4 |
|
||||||
*/ |
|
||||||
void |
|
||||||
old_8_3_invalidate_hash_gin_indexes(ClusterInfo *cluster, bool check_mode) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char output_path[MAXPGPATH]; |
|
||||||
|
|
||||||
prep_status("Checking for hash and GIN indexes"); |
|
||||||
|
|
||||||
snprintf(output_path, sizeof(output_path), "reindex_hash_and_gin.sql"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_relname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/* find hash and gin indexes */ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, c.relname " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_index i, " |
|
||||||
" pg_catalog.pg_am a, " |
|
||||||
" pg_catalog.pg_namespace n " |
|
||||||
"WHERE i.indexrelid = c.oid AND " |
|
||||||
" c.relam = a.oid AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
" a.amname IN ('hash', 'gin') AND " |
|
||||||
SKIP_TSVECTOR_TABLES); |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_relname = PQfnumber(res, "relname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
found = true; |
|
||||||
if (!check_mode) |
|
||||||
{ |
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("could not open file \"%s\": %s\n", output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "\\connect %s\n", |
|
||||||
quote_identifier(active_db->db_name)); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
fprintf(script, "REINDEX INDEX %s.%s;\n", |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_nspname)), |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_relname))); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
if (!check_mode && found) |
|
||||||
/* mark hash and gin indexes as invalid */ |
|
||||||
PQclear(executeQueryOrDie(conn, |
|
||||||
"UPDATE pg_catalog.pg_index i " |
|
||||||
"SET indisvalid = false " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_am a, " |
|
||||||
" pg_catalog.pg_namespace n " |
|
||||||
"WHERE i.indexrelid = c.oid AND " |
|
||||||
" c.relam = a.oid AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
" a.amname IN ('hash', 'gin')")); |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
if (found) |
|
||||||
{ |
|
||||||
report_status(PG_WARNING, "warning"); |
|
||||||
if (check_mode) |
|
||||||
pg_log(PG_WARNING, "\n" |
|
||||||
"Your installation contains hash and/or GIN indexes. These indexes have\n" |
|
||||||
"different internal formats between your old and new clusters, so they\n" |
|
||||||
"must be reindexed with the REINDEX command. After upgrading, you will\n" |
|
||||||
"be given REINDEX instructions.\n\n"); |
|
||||||
else |
|
||||||
pg_log(PG_WARNING, "\n" |
|
||||||
"Your installation contains hash and/or GIN indexes. These indexes have\n" |
|
||||||
"different internal formats between your old and new clusters, so they\n" |
|
||||||
"must be reindexed with the REINDEX command. The file:\n" |
|
||||||
" %s\n" |
|
||||||
"when executed by psql by the database superuser will recreate all invalid\n" |
|
||||||
"indexes; until then, none of these indexes will be used.\n\n", |
|
||||||
output_path); |
|
||||||
} |
|
||||||
else |
|
||||||
check_ok(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_invalidate_bpchar_pattern_ops_indexes() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* 8.4 bpchar_pattern_ops no longer sorts based on trailing spaces |
|
||||||
*/ |
|
||||||
void |
|
||||||
old_8_3_invalidate_bpchar_pattern_ops_indexes(ClusterInfo *cluster, |
|
||||||
bool check_mode) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char output_path[MAXPGPATH]; |
|
||||||
|
|
||||||
prep_status("Checking for bpchar_pattern_ops indexes"); |
|
||||||
|
|
||||||
snprintf(output_path, sizeof(output_path), "reindex_bpchar_ops.sql"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_relname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/* find bpchar_pattern_ops indexes */ |
|
||||||
|
|
||||||
/*
|
|
||||||
* Do only non-hash, non-gin indexees; we already invalidated them |
|
||||||
* above; no need to reindex twice |
|
||||||
*/ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, c.relname " |
|
||||||
"FROM pg_catalog.pg_index i, " |
|
||||||
" pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_namespace n " |
|
||||||
"WHERE indexrelid = c.oid AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
" ( " |
|
||||||
" SELECT o.oid " |
|
||||||
" FROM pg_catalog.pg_opclass o, " |
|
||||||
" pg_catalog.pg_am a" |
|
||||||
" WHERE a.amname NOT IN ('hash', 'gin') AND " |
|
||||||
" a.oid = o.opcmethod AND " |
|
||||||
" o.opcname = 'bpchar_pattern_ops') " |
|
||||||
" = ANY (i.indclass) AND " |
|
||||||
SKIP_TSVECTOR_TABLES); |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_relname = PQfnumber(res, "relname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
found = true; |
|
||||||
if (!check_mode) |
|
||||||
{ |
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("could not open file \"%s\": %s\n", output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "\\connect %s\n", |
|
||||||
quote_identifier(active_db->db_name)); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
fprintf(script, "REINDEX INDEX %s.%s;\n", |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_nspname)), |
|
||||||
quote_identifier(PQgetvalue(res, rowno, i_relname))); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
if (!check_mode && found) |
|
||||||
/* mark bpchar_pattern_ops indexes as invalid */ |
|
||||||
PQclear(executeQueryOrDie(conn, |
|
||||||
"UPDATE pg_catalog.pg_index i " |
|
||||||
"SET indisvalid = false " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_namespace n " |
|
||||||
"WHERE indexrelid = c.oid AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
" ( " |
|
||||||
" SELECT o.oid " |
|
||||||
" FROM pg_catalog.pg_opclass o, " |
|
||||||
" pg_catalog.pg_am a" |
|
||||||
" WHERE a.amname NOT IN ('hash', 'gin') AND " |
|
||||||
" a.oid = o.opcmethod AND " |
|
||||||
" o.opcname = 'bpchar_pattern_ops') " |
|
||||||
" = ANY (i.indclass)")); |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
if (found) |
|
||||||
{ |
|
||||||
report_status(PG_WARNING, "warning"); |
|
||||||
if (check_mode) |
|
||||||
pg_log(PG_WARNING, "\n" |
|
||||||
"Your installation contains indexes using \"bpchar_pattern_ops\". These\n" |
|
||||||
"indexes have different internal formats between your old and new clusters\n" |
|
||||||
"so they must be reindexed with the REINDEX command. After upgrading, you\n" |
|
||||||
"will be given REINDEX instructions.\n\n"); |
|
||||||
else |
|
||||||
pg_log(PG_WARNING, "\n" |
|
||||||
"Your installation contains indexes using \"bpchar_pattern_ops\". These\n" |
|
||||||
"indexes have different internal formats between your old and new clusters\n" |
|
||||||
"so they must be reindexed with the REINDEX command. The file:\n" |
|
||||||
" %s\n" |
|
||||||
"when executed by psql by the database superuser will recreate all invalid\n" |
|
||||||
"indexes; until then, none of these indexes will be used.\n\n", |
|
||||||
output_path); |
|
||||||
} |
|
||||||
else |
|
||||||
check_ok(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* old_8_3_create_sequence_script() |
|
||||||
* 8.3 -> 8.4 |
|
||||||
* 8.4 added the column "start_value" to all sequences. For this reason, |
|
||||||
* we don't transfer sequence files but instead use the CREATE SEQUENCE |
|
||||||
* command from the schema dump, and use setval() to restore the sequence |
|
||||||
* value and 'is_called' from the old database. This is safe to run |
|
||||||
* by pg_upgrade because sequence files are not transferred from the old |
|
||||||
* server, even in link mode. |
|
||||||
*/ |
|
||||||
char * |
|
||||||
old_8_3_create_sequence_script(ClusterInfo *cluster) |
|
||||||
{ |
|
||||||
int dbnum; |
|
||||||
FILE *script = NULL; |
|
||||||
bool found = false; |
|
||||||
char *output_path; |
|
||||||
|
|
||||||
output_path = pg_strdup("adjust_sequences.sql"); |
|
||||||
|
|
||||||
prep_status("Creating script to adjust sequences"); |
|
||||||
|
|
||||||
for (dbnum = 0; dbnum < cluster->dbarr.ndbs; dbnum++) |
|
||||||
{ |
|
||||||
PGresult *res; |
|
||||||
bool db_used = false; |
|
||||||
int ntups; |
|
||||||
int rowno; |
|
||||||
int i_nspname, |
|
||||||
i_relname; |
|
||||||
DbInfo *active_db = &cluster->dbarr.dbs[dbnum]; |
|
||||||
PGconn *conn = connectToServer(cluster, active_db->db_name); |
|
||||||
|
|
||||||
/* Find any sequences */ |
|
||||||
res = executeQueryOrDie(conn, |
|
||||||
"SELECT n.nspname, c.relname " |
|
||||||
"FROM pg_catalog.pg_class c, " |
|
||||||
" pg_catalog.pg_namespace n " |
|
||||||
"WHERE c.relkind = 'S' AND " |
|
||||||
" c.relnamespace = n.oid AND " |
|
||||||
/* exclude possible orphaned temp tables */ |
|
||||||
" n.nspname !~ '^pg_temp_' AND " |
|
||||||
" n.nspname !~ '^pg_toast_temp_' AND " |
|
||||||
" n.nspname NOT IN ('pg_catalog', 'information_schema')"); |
|
||||||
|
|
||||||
ntups = PQntuples(res); |
|
||||||
i_nspname = PQfnumber(res, "nspname"); |
|
||||||
i_relname = PQfnumber(res, "relname"); |
|
||||||
for (rowno = 0; rowno < ntups; rowno++) |
|
||||||
{ |
|
||||||
PGresult *seq_res; |
|
||||||
int i_last_value, |
|
||||||
i_is_called; |
|
||||||
const char *nspname = PQgetvalue(res, rowno, i_nspname); |
|
||||||
const char *relname = PQgetvalue(res, rowno, i_relname); |
|
||||||
|
|
||||||
found = true; |
|
||||||
|
|
||||||
if (script == NULL && (script = fopen_priv(output_path, "w")) == NULL) |
|
||||||
pg_fatal("could not open file \"%s\": %s\n", output_path, getErrorText(errno)); |
|
||||||
if (!db_used) |
|
||||||
{ |
|
||||||
fprintf(script, "\\connect %s\n\n", |
|
||||||
quote_identifier(active_db->db_name)); |
|
||||||
db_used = true; |
|
||||||
} |
|
||||||
|
|
||||||
/* Find the desired sequence */ |
|
||||||
seq_res = executeQueryOrDie(conn, |
|
||||||
"SELECT s.last_value, s.is_called " |
|
||||||
"FROM %s.%s s", |
|
||||||
quote_identifier(nspname), |
|
||||||
quote_identifier(relname)); |
|
||||||
|
|
||||||
assert(PQntuples(seq_res) == 1); |
|
||||||
i_last_value = PQfnumber(seq_res, "last_value"); |
|
||||||
i_is_called = PQfnumber(seq_res, "is_called"); |
|
||||||
|
|
||||||
fprintf(script, "SELECT setval('%s.%s', %s, '%s');\n", |
|
||||||
quote_identifier(nspname), quote_identifier(relname), |
|
||||||
PQgetvalue(seq_res, 0, i_last_value), PQgetvalue(seq_res, 0, i_is_called)); |
|
||||||
PQclear(seq_res); |
|
||||||
} |
|
||||||
if (db_used) |
|
||||||
fprintf(script, "\n"); |
|
||||||
|
|
||||||
PQclear(res); |
|
||||||
|
|
||||||
PQfinish(conn); |
|
||||||
} |
|
||||||
|
|
||||||
if (script) |
|
||||||
fclose(script); |
|
||||||
|
|
||||||
check_ok(); |
|
||||||
|
|
||||||
if (found) |
|
||||||
return output_path; |
|
||||||
else |
|
||||||
{ |
|
||||||
pg_free(output_path); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
} |
|
||||||
Loading…
Reference in new issue