TLA Line data Source code
1 : /*
2 : * controldata.c
3 : *
4 : * controldata functions
5 : *
6 : * Copyright (c) 2010-2023, PostgreSQL Global Development Group
7 : * src/bin/pg_upgrade/controldata.c
8 : */
9 :
10 : #include "postgres_fe.h"
11 :
12 : #include <ctype.h>
13 :
14 : #include "pg_upgrade.h"
15 : #include "common/string.h"
16 :
17 :
18 : /*
19 : * get_control_data()
20 : *
21 : * gets pg_control information in "ctrl". Assumes that bindir and
22 : * datadir are valid absolute paths to postgresql bin and pgdata
23 : * directories respectively *and* pg_resetwal is version compatible
24 : * with datadir. The main purpose of this function is to get pg_control
25 : * data in a version independent manner.
26 : *
27 : * The approach taken here is to invoke pg_resetwal with -n option
28 : * and then pipe its output. With little string parsing we get the
29 : * pg_control data. pg_resetwal cannot be run while the server is running
30 : * so we use pg_controldata; pg_controldata doesn't provide all the fields
31 : * we need to actually perform the upgrade, but it provides enough for
32 : * check mode. We do not implement pg_resetwal -n because it is hard to
33 : * return valid xid data for a running server.
34 : */
35 : void
36 GIC 4 : get_control_data(ClusterInfo *cluster, bool live_check)
37 : {
38 ECB : char cmd[MAXPGPATH];
39 : char bufin[MAX_STRING];
40 : FILE *output;
41 : char *p;
42 GIC 4 : bool got_tli = false;
43 4 : bool got_log_id = false;
44 CBC 4 : bool got_log_seg = false;
45 4 : bool got_xid = false;
46 4 : bool got_oid = false;
47 4 : bool got_multi = false;
48 4 : bool got_oldestmulti = false;
49 4 : bool got_oldestxid = false;
50 4 : bool got_mxoff = false;
51 4 : bool got_nextxlogfile = false;
52 4 : bool got_float8_pass_by_value = false;
53 4 : bool got_align = false;
54 4 : bool got_blocksz = false;
55 4 : bool got_largesz = false;
56 4 : bool got_walsz = false;
57 4 : bool got_walseg = false;
58 4 : bool got_ident = false;
59 4 : bool got_index = false;
60 4 : bool got_toast = false;
61 4 : bool got_large_object = false;
62 4 : bool got_date_is_int = false;
63 4 : bool got_data_checksum_version = false;
64 4 : bool got_cluster_state = false;
65 4 : char *lc_collate = NULL;
66 4 : char *lc_ctype = NULL;
67 4 : char *lc_monetary = NULL;
68 4 : char *lc_numeric = NULL;
69 4 : char *lc_time = NULL;
70 4 : char *lang = NULL;
71 4 : char *language = NULL;
72 4 : char *lc_all = NULL;
73 4 : char *lc_messages = NULL;
74 4 : uint32 tli = 0;
75 4 : uint32 logid = 0;
76 4 : uint32 segno = 0;
77 ECB : char *resetwal_bin;
78 : int rc;
79 :
80 : /*
81 : * Because we test the pg_resetwal output as strings, it has to be in
82 : * English. Copied from pg_regress.c.
83 : */
84 GIC 4 : if (getenv("LC_COLLATE"))
85 UIC 0 : lc_collate = pg_strdup(getenv("LC_COLLATE"));
86 CBC 4 : if (getenv("LC_CTYPE"))
87 UBC 0 : lc_ctype = pg_strdup(getenv("LC_CTYPE"));
88 CBC 4 : if (getenv("LC_MONETARY"))
89 UBC 0 : lc_monetary = pg_strdup(getenv("LC_MONETARY"));
90 CBC 4 : if (getenv("LC_NUMERIC"))
91 UBC 0 : lc_numeric = pg_strdup(getenv("LC_NUMERIC"));
92 CBC 4 : if (getenv("LC_TIME"))
93 UBC 0 : lc_time = pg_strdup(getenv("LC_TIME"));
94 CBC 4 : if (getenv("LANG"))
95 GBC 4 : lang = pg_strdup(getenv("LANG"));
96 CBC 4 : if (getenv("LANGUAGE"))
97 LBC 0 : language = pg_strdup(getenv("LANGUAGE"));
98 CBC 4 : if (getenv("LC_ALL"))
99 UBC 0 : lc_all = pg_strdup(getenv("LC_ALL"));
100 CBC 4 : if (getenv("LC_MESSAGES"))
101 GBC 4 : lc_messages = pg_strdup(getenv("LC_MESSAGES"));
102 ECB :
103 CBC 4 : unsetenv("LC_COLLATE");
104 GIC 4 : unsetenv("LC_CTYPE");
105 CBC 4 : unsetenv("LC_MONETARY");
106 4 : unsetenv("LC_NUMERIC");
107 4 : unsetenv("LC_TIME");
108 ECB : #ifndef WIN32
109 CBC 4 : unsetenv("LANG");
110 : #else
111 ECB : /* On Windows the default locale may not be English, so force it */
112 : setenv("LANG", "en", 1);
113 : #endif
114 GIC 4 : unsetenv("LANGUAGE");
115 4 : unsetenv("LC_ALL");
116 CBC 4 : setenv("LC_MESSAGES", "C", 1);
117 ECB :
118 : /*
119 : * Check for clean shutdown
120 : */
121 GIC 4 : if (!live_check || cluster == &new_cluster)
122 : {
123 ECB : /* only pg_controldata outputs the cluster state */
124 GIC 4 : snprintf(cmd, sizeof(cmd), "\"%s/pg_controldata\" \"%s\"",
125 : cluster->bindir, cluster->pgdata);
126 GNC 4 : fflush(NULL);
127 ECB :
128 GIC 4 : if ((output = popen(cmd, "r")) == NULL)
129 UNC 0 : pg_fatal("could not get control data using %s: %s",
130 UBC 0 : cmd, strerror(errno));
131 EUB :
132 : /* we have the result of cmd in "output". so parse it line by line now */
133 GIC 204 : while (fgets(bufin, sizeof(bufin), output))
134 ECB : {
135 GIC 200 : if ((p = strstr(bufin, "Database cluster state:")) != NULL)
136 ECB : {
137 GIC 4 : p = strchr(p, ':');
138 ECB :
139 GIC 4 : if (p == NULL || strlen(p) <= 1)
140 UNC 0 : pg_fatal("%d: database cluster state problem", __LINE__);
141 EUB :
142 GIC 4 : p++; /* remove ':' char */
143 ECB :
144 : /*
145 : * We checked earlier for a postmaster lock file, and if we
146 : * found one, we tried to start/stop the server to replay the
147 : * WAL. However, pg_ctl -m immediate doesn't leave a lock
148 : * file, but does require WAL replay, so we check here that
149 : * the server was shut down cleanly, from the controldata
150 : * perspective.
151 : */
152 : /* remove leading spaces */
153 GIC 64 : while (*p == ' ')
154 CBC 60 : p++;
155 4 : if (strcmp(p, "shut down in recovery\n") == 0)
156 ECB : {
157 UIC 0 : if (cluster == &old_cluster)
158 UNC 0 : pg_fatal("The source cluster was shut down while in recovery mode. To upgrade, use \"rsync\" as documented or shut it down as a primary.");
159 EUB : else
160 UNC 0 : pg_fatal("The target cluster was shut down while in recovery mode. To upgrade, use \"rsync\" as documented or shut it down as a primary.");
161 EUB : }
162 GIC 4 : else if (strcmp(p, "shut down\n") != 0)
163 ECB : {
164 UIC 0 : if (cluster == &old_cluster)
165 UNC 0 : pg_fatal("The source cluster was not shut down cleanly.");
166 EUB : else
167 UNC 0 : pg_fatal("The target cluster was not shut down cleanly.");
168 EUB : }
169 GIC 4 : got_cluster_state = true;
170 ECB : }
171 : }
172 :
173 GNC 4 : rc = pclose(output);
174 4 : if (rc != 0)
175 UNC 0 : pg_fatal("could not get control data using %s: %s",
176 : cmd, wait_result_to_str(rc));
177 ECB :
178 CBC 4 : if (!got_cluster_state)
179 EUB : {
180 UIC 0 : if (cluster == &old_cluster)
181 UNC 0 : pg_fatal("The source cluster lacks cluster state information:");
182 ECB : else
183 UNC 0 : pg_fatal("The target cluster lacks cluster state information:");
184 EUB : }
185 : }
186 :
187 : /* pg_resetxlog has been renamed to pg_resetwal in version 10 */
188 GIC 4 : if (GET_MAJOR_VERSION(cluster->bin_version) <= 906)
189 UIC 0 : resetwal_bin = "pg_resetxlog\" -n";
190 : else
191 GIC 4 : resetwal_bin = "pg_resetwal\" -n";
192 CBC 4 : snprintf(cmd, sizeof(cmd), "\"%s/%s \"%s\"",
193 EUB : cluster->bindir,
194 : live_check ? "pg_controldata\"" : resetwal_bin,
195 ECB : cluster->pgdata);
196 GNC 4 : fflush(NULL);
197 :
198 GIC 4 : if ((output = popen(cmd, "r")) == NULL)
199 UNC 0 : pg_fatal("could not get control data using %s: %s",
200 UIC 0 : cmd, strerror(errno));
201 ECB :
202 EUB : /* Only in <= 9.2 */
203 GBC 4 : if (GET_MAJOR_VERSION(cluster->major_version) <= 902)
204 : {
205 UIC 0 : cluster->controldata.data_checksum_version = 0;
206 LBC 0 : got_data_checksum_version = true;
207 : }
208 EUB :
209 : /* we have the result of cmd in "output". so parse it line by line now */
210 GIC 144 : while (fgets(bufin, sizeof(bufin), output))
211 : {
212 : /* In verbose mode, log each line */
213 GNC 140 : pg_strip_crlf(bufin);
214 GIC 140 : pg_log(PG_VERBOSE, "%s", bufin);
215 ECB :
216 GIC 140 : if ((p = strstr(bufin, "pg_control version number:")) != NULL)
217 : {
218 CBC 4 : p = strchr(p, ':');
219 ECB :
220 GIC 4 : if (p == NULL || strlen(p) <= 1)
221 UNC 0 : pg_fatal("%d: pg_resetwal problem", __LINE__);
222 :
223 CBC 4 : p++; /* remove ':' char */
224 GIC 4 : cluster->controldata.ctrl_ver = str2uint(p);
225 ECB : }
226 GBC 136 : else if ((p = strstr(bufin, "Catalog version number:")) != NULL)
227 : {
228 CBC 4 : p = strchr(p, ':');
229 ECB :
230 GIC 4 : if (p == NULL || strlen(p) <= 1)
231 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
232 :
233 CBC 4 : p++; /* remove ':' char */
234 GIC 4 : cluster->controldata.cat_ver = str2uint(p);
235 ECB : }
236 GBC 132 : else if ((p = strstr(bufin, "Latest checkpoint's TimeLineID:")) != NULL)
237 : {
238 CBC 4 : p = strchr(p, ':');
239 ECB :
240 GIC 4 : if (p == NULL || strlen(p) <= 1)
241 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
242 :
243 CBC 4 : p++; /* remove ':' char */
244 GIC 4 : tli = str2uint(p);
245 CBC 4 : got_tli = true;
246 EUB : }
247 GIC 128 : else if ((p = strstr(bufin, "First log file ID after reset:")) != NULL)
248 ECB : {
249 LBC 0 : p = strchr(p, ':');
250 ECB :
251 UIC 0 : if (p == NULL || strlen(p) <= 1)
252 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
253 :
254 UBC 0 : p++; /* remove ':' char */
255 UIC 0 : logid = str2uint(p);
256 UBC 0 : got_log_id = true;
257 EUB : }
258 GIC 128 : else if ((p = strstr(bufin, "First log file segment after reset:")) != NULL)
259 EUB : {
260 UBC 0 : p = strchr(p, ':');
261 EUB :
262 UIC 0 : if (p == NULL || strlen(p) <= 1)
263 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
264 :
265 UBC 0 : p++; /* remove ':' char */
266 UIC 0 : segno = str2uint(p);
267 UBC 0 : got_log_seg = true;
268 EUB : }
269 GIC 128 : else if ((p = strstr(bufin, "Latest checkpoint's NextXID:")) != NULL)
270 EUB : {
271 GBC 4 : p = strchr(p, ':');
272 EUB :
273 GIC 4 : if (p == NULL || strlen(p) <= 1)
274 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
275 :
276 CBC 4 : p++; /* remove ':' char */
277 GIC 4 : cluster->controldata.chkpnt_nxtepoch = str2uint(p);
278 ECB :
279 EUB : /*
280 : * Delimiter changed from '/' to ':' in 9.6. We don't test for
281 ECB : * the catalog version of the change because the catalog version
282 : * is pulled from pg_controldata too, and it isn't worth adding an
283 : * order dependency for this --- we just check the string.
284 : */
285 GIC 4 : if (strchr(p, '/') != NULL)
286 UIC 0 : p = strchr(p, '/');
287 GIC 4 : else if (GET_MAJOR_VERSION(cluster->major_version) >= 906)
288 4 : p = strchr(p, ':');
289 : else
290 LBC 0 : p = NULL;
291 EUB :
292 CBC 4 : if (p == NULL || strlen(p) <= 1)
293 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
294 :
295 GBC 4 : p++; /* remove '/' or ':' char */
296 GIC 4 : cluster->controldata.chkpnt_nxtxid = str2uint(p);
297 CBC 4 : got_xid = true;
298 EUB : }
299 GIC 124 : else if ((p = strstr(bufin, "Latest checkpoint's NextOID:")) != NULL)
300 ECB : {
301 CBC 4 : p = strchr(p, ':');
302 ECB :
303 GIC 4 : if (p == NULL || strlen(p) <= 1)
304 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
305 :
306 CBC 4 : p++; /* remove ':' char */
307 GIC 4 : cluster->controldata.chkpnt_nxtoid = str2uint(p);
308 CBC 4 : got_oid = true;
309 EUB : }
310 GIC 120 : else if ((p = strstr(bufin, "Latest checkpoint's NextMultiXactId:")) != NULL)
311 ECB : {
312 CBC 4 : p = strchr(p, ':');
313 ECB :
314 GIC 4 : if (p == NULL || strlen(p) <= 1)
315 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
316 :
317 CBC 4 : p++; /* remove ':' char */
318 GIC 4 : cluster->controldata.chkpnt_nxtmulti = str2uint(p);
319 CBC 4 : got_multi = true;
320 EUB : }
321 GIC 116 : else if ((p = strstr(bufin, "Latest checkpoint's oldestXID:")) != NULL)
322 ECB : {
323 CBC 4 : p = strchr(p, ':');
324 ECB :
325 GIC 4 : if (p == NULL || strlen(p) <= 1)
326 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
327 :
328 CBC 4 : p++; /* remove ':' char */
329 GIC 4 : cluster->controldata.chkpnt_oldstxid = str2uint(p);
330 CBC 4 : got_oldestxid = true;
331 EUB : }
332 GIC 112 : else if ((p = strstr(bufin, "Latest checkpoint's oldestMultiXid:")) != NULL)
333 ECB : {
334 CBC 4 : p = strchr(p, ':');
335 ECB :
336 GIC 4 : if (p == NULL || strlen(p) <= 1)
337 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
338 :
339 CBC 4 : p++; /* remove ':' char */
340 GIC 4 : cluster->controldata.chkpnt_oldstMulti = str2uint(p);
341 CBC 4 : got_oldestmulti = true;
342 EUB : }
343 GIC 108 : else if ((p = strstr(bufin, "Latest checkpoint's NextMultiOffset:")) != NULL)
344 ECB : {
345 CBC 4 : p = strchr(p, ':');
346 ECB :
347 GIC 4 : if (p == NULL || strlen(p) <= 1)
348 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
349 :
350 CBC 4 : p++; /* remove ':' char */
351 GIC 4 : cluster->controldata.chkpnt_nxtmxoff = str2uint(p);
352 CBC 4 : got_mxoff = true;
353 EUB : }
354 GIC 104 : else if ((p = strstr(bufin, "First log segment after reset:")) != NULL)
355 ECB : {
356 : /* Skip the colon and any whitespace after it */
357 CBC 4 : p = strchr(p, ':');
358 GIC 4 : if (p == NULL || strlen(p) <= 1)
359 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
360 GIC 4 : p = strpbrk(p, "01234567890ABCDEF");
361 4 : if (p == NULL || strlen(p) <= 1)
362 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
363 ECB :
364 EUB : /* Make sure it looks like a valid WAL file name */
365 CBC 4 : if (strspn(p, "0123456789ABCDEF") != 24)
366 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
367 EUB :
368 GIC 4 : strlcpy(cluster->controldata.nextxlogfile, p, 25);
369 4 : got_nextxlogfile = true;
370 ECB : }
371 GBC 100 : else if ((p = strstr(bufin, "Float8 argument passing:")) != NULL)
372 : {
373 CBC 4 : p = strchr(p, ':');
374 ECB :
375 GIC 4 : if (p == NULL || strlen(p) <= 1)
376 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
377 :
378 CBC 4 : p++; /* remove ':' char */
379 : /* used later for contrib check */
380 4 : cluster->controldata.float8_pass_by_value = strstr(p, "by value") != NULL;
381 GBC 4 : got_float8_pass_by_value = true;
382 : }
383 CBC 96 : else if ((p = strstr(bufin, "Maximum data alignment:")) != NULL)
384 : {
385 4 : p = strchr(p, ':');
386 ECB :
387 GIC 4 : if (p == NULL || strlen(p) <= 1)
388 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
389 :
390 CBC 4 : p++; /* remove ':' char */
391 GIC 4 : cluster->controldata.align = str2uint(p);
392 CBC 4 : got_align = true;
393 EUB : }
394 GIC 92 : else if ((p = strstr(bufin, "Database block size:")) != NULL)
395 ECB : {
396 CBC 4 : p = strchr(p, ':');
397 ECB :
398 GIC 4 : if (p == NULL || strlen(p) <= 1)
399 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
400 :
401 CBC 4 : p++; /* remove ':' char */
402 GIC 4 : cluster->controldata.blocksz = str2uint(p);
403 CBC 4 : got_blocksz = true;
404 EUB : }
405 GIC 88 : else if ((p = strstr(bufin, "Blocks per segment of large relation:")) != NULL)
406 ECB : {
407 CBC 4 : p = strchr(p, ':');
408 ECB :
409 GIC 4 : if (p == NULL || strlen(p) <= 1)
410 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
411 :
412 CBC 4 : p++; /* remove ':' char */
413 GIC 4 : cluster->controldata.largesz = str2uint(p);
414 CBC 4 : got_largesz = true;
415 EUB : }
416 GIC 84 : else if ((p = strstr(bufin, "WAL block size:")) != NULL)
417 ECB : {
418 CBC 4 : p = strchr(p, ':');
419 ECB :
420 GIC 4 : if (p == NULL || strlen(p) <= 1)
421 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
422 :
423 CBC 4 : p++; /* remove ':' char */
424 GIC 4 : cluster->controldata.walsz = str2uint(p);
425 CBC 4 : got_walsz = true;
426 EUB : }
427 GIC 80 : else if ((p = strstr(bufin, "Bytes per WAL segment:")) != NULL)
428 ECB : {
429 CBC 4 : p = strchr(p, ':');
430 ECB :
431 GIC 4 : if (p == NULL || strlen(p) <= 1)
432 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
433 :
434 CBC 4 : p++; /* remove ':' char */
435 GIC 4 : cluster->controldata.walseg = str2uint(p);
436 CBC 4 : got_walseg = true;
437 EUB : }
438 GIC 76 : else if ((p = strstr(bufin, "Maximum length of identifiers:")) != NULL)
439 ECB : {
440 CBC 4 : p = strchr(p, ':');
441 ECB :
442 GIC 4 : if (p == NULL || strlen(p) <= 1)
443 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
444 :
445 CBC 4 : p++; /* remove ':' char */
446 GIC 4 : cluster->controldata.ident = str2uint(p);
447 CBC 4 : got_ident = true;
448 EUB : }
449 GIC 72 : else if ((p = strstr(bufin, "Maximum columns in an index:")) != NULL)
450 ECB : {
451 CBC 4 : p = strchr(p, ':');
452 ECB :
453 GIC 4 : if (p == NULL || strlen(p) <= 1)
454 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
455 :
456 CBC 4 : p++; /* remove ':' char */
457 GIC 4 : cluster->controldata.index = str2uint(p);
458 CBC 4 : got_index = true;
459 EUB : }
460 GIC 68 : else if ((p = strstr(bufin, "Maximum size of a TOAST chunk:")) != NULL)
461 ECB : {
462 CBC 4 : p = strchr(p, ':');
463 ECB :
464 GIC 4 : if (p == NULL || strlen(p) <= 1)
465 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
466 :
467 CBC 4 : p++; /* remove ':' char */
468 GIC 4 : cluster->controldata.toast = str2uint(p);
469 CBC 4 : got_toast = true;
470 EUB : }
471 GIC 64 : else if ((p = strstr(bufin, "Size of a large-object chunk:")) != NULL)
472 ECB : {
473 CBC 4 : p = strchr(p, ':');
474 ECB :
475 GIC 4 : if (p == NULL || strlen(p) <= 1)
476 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
477 :
478 CBC 4 : p++; /* remove ':' char */
479 GIC 4 : cluster->controldata.large_object = str2uint(p);
480 CBC 4 : got_large_object = true;
481 EUB : }
482 GIC 60 : else if ((p = strstr(bufin, "Date/time type storage:")) != NULL)
483 ECB : {
484 CBC 4 : p = strchr(p, ':');
485 ECB :
486 GIC 4 : if (p == NULL || strlen(p) <= 1)
487 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
488 :
489 CBC 4 : p++; /* remove ':' char */
490 GIC 4 : cluster->controldata.date_is_int = strstr(p, "64-bit integers") != NULL;
491 CBC 4 : got_date_is_int = true;
492 EUB : }
493 GIC 56 : else if ((p = strstr(bufin, "checksum")) != NULL)
494 ECB : {
495 CBC 4 : p = strchr(p, ':');
496 ECB :
497 GIC 4 : if (p == NULL || strlen(p) <= 1)
498 UNC 0 : pg_fatal("%d: controldata retrieval problem", __LINE__);
499 :
500 CBC 4 : p++; /* remove ':' char */
501 GIC 4 : cluster->controldata.data_checksum_version = str2uint(p);
502 CBC 4 : got_data_checksum_version = true;
503 EUB : }
504 : }
505 ECB :
506 GNC 4 : rc = pclose(output);
507 4 : if (rc != 0)
508 UNC 0 : pg_fatal("could not get control data using %s: %s",
509 : cmd, wait_result_to_str(rc));
510 ECB :
511 : /*
512 : * Restore environment variables. Note all but LANG and LC_MESSAGES were
513 : * unset above.
514 : */
515 CBC 4 : if (lc_collate)
516 UBC 0 : setenv("LC_COLLATE", lc_collate, 1);
517 GIC 4 : if (lc_ctype)
518 UIC 0 : setenv("LC_CTYPE", lc_ctype, 1);
519 GIC 4 : if (lc_monetary)
520 UIC 0 : setenv("LC_MONETARY", lc_monetary, 1);
521 GIC 4 : if (lc_numeric)
522 UIC 0 : setenv("LC_NUMERIC", lc_numeric, 1);
523 CBC 4 : if (lc_time)
524 UBC 0 : setenv("LC_TIME", lc_time, 1);
525 CBC 4 : if (lang)
526 GBC 4 : setenv("LANG", lang, 1);
527 ECB : else
528 UBC 0 : unsetenv("LANG");
529 CBC 4 : if (language)
530 UBC 0 : setenv("LANGUAGE", language, 1);
531 CBC 4 : if (lc_all)
532 UBC 0 : setenv("LC_ALL", lc_all, 1);
533 CBC 4 : if (lc_messages)
534 4 : setenv("LC_MESSAGES", lc_messages, 1);
535 : else
536 UBC 0 : unsetenv("LC_MESSAGES");
537 ECB :
538 GBC 4 : pg_free(lc_collate);
539 CBC 4 : pg_free(lc_ctype);
540 GBC 4 : pg_free(lc_monetary);
541 CBC 4 : pg_free(lc_numeric);
542 4 : pg_free(lc_time);
543 GIC 4 : pg_free(lang);
544 GBC 4 : pg_free(language);
545 GIC 4 : pg_free(lc_all);
546 CBC 4 : pg_free(lc_messages);
547 ECB :
548 : /*
549 : * Before 9.3, pg_resetwal reported the xlogid and segno of the first log
550 : * file after reset as separate lines. Starting with 9.3, it reports the
551 : * WAL file name. If the old cluster is older than 9.3, we construct the
552 : * WAL file name from the xlogid and segno.
553 : */
554 CBC 4 : if (GET_MAJOR_VERSION(cluster->major_version) <= 902)
555 : {
556 UIC 0 : if (got_tli && got_log_id && got_log_seg)
557 : {
558 0 : snprintf(cluster->controldata.nextxlogfile, 25, "%08X%08X%08X",
559 : tli, logid, segno);
560 0 : got_nextxlogfile = true;
561 : }
562 ECB : }
563 :
564 EUB : /* verify that we got all the mandatory pg_control data */
565 GIC 4 : if (!got_xid || !got_oid ||
566 GBC 4 : !got_multi || !got_oldestxid ||
567 GIC 4 : (!got_oldestmulti &&
568 UBC 0 : cluster->controldata.cat_ver >= MULTIXACT_FORMATCHANGE_CAT_VER) ||
569 GIC 4 : !got_mxoff || (!live_check && !got_nextxlogfile) ||
570 4 : !got_float8_pass_by_value || !got_align || !got_blocksz ||
571 4 : !got_largesz || !got_walsz || !got_walseg || !got_ident ||
572 4 : !got_index || !got_toast ||
573 CBC 4 : (!got_large_object &&
574 LBC 0 : cluster->controldata.ctrl_ver >= LARGE_OBJECT_SIZE_PG_CONTROL_VER) ||
575 CBC 4 : !got_date_is_int || !got_data_checksum_version)
576 EUB : {
577 LBC 0 : if (cluster == &old_cluster)
578 0 : pg_log(PG_REPORT,
579 : "The source cluster lacks some required control information:");
580 ECB : else
581 LBC 0 : pg_log(PG_REPORT,
582 : "The target cluster lacks some required control information:");
583 ECB :
584 UIC 0 : if (!got_xid)
585 UNC 0 : pg_log(PG_REPORT, " checkpoint next XID");
586 EUB :
587 UIC 0 : if (!got_oid)
588 UNC 0 : pg_log(PG_REPORT, " latest checkpoint next OID");
589 EUB :
590 UIC 0 : if (!got_multi)
591 UNC 0 : pg_log(PG_REPORT, " latest checkpoint next MultiXactId");
592 EUB :
593 UBC 0 : if (!got_oldestmulti &&
594 UIC 0 : cluster->controldata.cat_ver >= MULTIXACT_FORMATCHANGE_CAT_VER)
595 UNC 0 : pg_log(PG_REPORT, " latest checkpoint oldest MultiXactId");
596 EUB :
597 UIC 0 : if (!got_oldestxid)
598 UNC 0 : pg_log(PG_REPORT, " latest checkpoint oldestXID");
599 EUB :
600 UIC 0 : if (!got_mxoff)
601 UNC 0 : pg_log(PG_REPORT, " latest checkpoint next MultiXactOffset");
602 EUB :
603 UBC 0 : if (!live_check && !got_nextxlogfile)
604 UNC 0 : pg_log(PG_REPORT, " first WAL segment after reset");
605 EUB :
606 UBC 0 : if (!got_float8_pass_by_value)
607 UNC 0 : pg_log(PG_REPORT, " float8 argument passing method");
608 EUB :
609 UBC 0 : if (!got_align)
610 UNC 0 : pg_log(PG_REPORT, " maximum alignment");
611 EUB :
612 UBC 0 : if (!got_blocksz)
613 UNC 0 : pg_log(PG_REPORT, " block size");
614 EUB :
615 UBC 0 : if (!got_largesz)
616 UNC 0 : pg_log(PG_REPORT, " large relation segment size");
617 EUB :
618 UBC 0 : if (!got_walsz)
619 UNC 0 : pg_log(PG_REPORT, " WAL block size");
620 EUB :
621 UBC 0 : if (!got_walseg)
622 UNC 0 : pg_log(PG_REPORT, " WAL segment size");
623 EUB :
624 UBC 0 : if (!got_ident)
625 UNC 0 : pg_log(PG_REPORT, " maximum identifier length");
626 EUB :
627 UBC 0 : if (!got_index)
628 UNC 0 : pg_log(PG_REPORT, " maximum number of indexed columns");
629 EUB :
630 UBC 0 : if (!got_toast)
631 UNC 0 : pg_log(PG_REPORT, " maximum TOAST chunk size");
632 EUB :
633 UBC 0 : if (!got_large_object &&
634 UIC 0 : cluster->controldata.ctrl_ver >= LARGE_OBJECT_SIZE_PG_CONTROL_VER)
635 UNC 0 : pg_log(PG_REPORT, " large-object chunk size");
636 EUB :
637 UIC 0 : if (!got_date_is_int)
638 UNC 0 : pg_log(PG_REPORT, " dates/times are integers?");
639 EUB :
640 : /* value added in Postgres 9.3 */
641 UBC 0 : if (!got_data_checksum_version)
642 UNC 0 : pg_log(PG_REPORT, " data checksum version");
643 EUB :
644 UNC 0 : pg_fatal("Cannot continue without required control information, terminating");
645 EUB : }
646 GBC 4 : }
647 :
648 :
649 EUB : /*
650 : * check_control_data()
651 : *
652 : * check to make sure the control data settings are compatible
653 : */
654 ECB : void
655 GIC 2 : check_control_data(ControlData *oldctrl,
656 : ControlData *newctrl)
657 : {
658 2 : if (oldctrl->align == 0 || oldctrl->align != newctrl->align)
659 UNC 0 : pg_fatal("old and new pg_controldata alignments are invalid or do not match.\n"
660 : "Likely one cluster is a 32-bit install, the other 64-bit");
661 :
662 GIC 2 : if (oldctrl->blocksz == 0 || oldctrl->blocksz != newctrl->blocksz)
663 UNC 0 : pg_fatal("old and new pg_controldata block sizes are invalid or do not match");
664 :
665 GIC 2 : if (oldctrl->largesz == 0 || oldctrl->largesz != newctrl->largesz)
666 UNC 0 : pg_fatal("old and new pg_controldata maximum relation segment sizes are invalid or do not match");
667 EUB :
668 GIC 2 : if (oldctrl->walsz == 0 || oldctrl->walsz != newctrl->walsz)
669 UNC 0 : pg_fatal("old and new pg_controldata WAL block sizes are invalid or do not match");
670 ECB :
671 GBC 2 : if (oldctrl->walseg == 0 || oldctrl->walseg != newctrl->walseg)
672 UNC 0 : pg_fatal("old and new pg_controldata WAL segment sizes are invalid or do not match");
673 ECB :
674 GBC 2 : if (oldctrl->ident == 0 || oldctrl->ident != newctrl->ident)
675 UNC 0 : pg_fatal("old and new pg_controldata maximum identifier lengths are invalid or do not match");
676 ECB :
677 GBC 2 : if (oldctrl->index == 0 || oldctrl->index != newctrl->index)
678 UNC 0 : pg_fatal("old and new pg_controldata maximum indexed columns are invalid or do not match");
679 ECB :
680 GBC 2 : if (oldctrl->toast == 0 || oldctrl->toast != newctrl->toast)
681 UNC 0 : pg_fatal("old and new pg_controldata maximum TOAST chunk sizes are invalid or do not match");
682 ECB :
683 EUB : /* large_object added in 9.5, so it might not exist in the old cluster */
684 GIC 2 : if (oldctrl->large_object != 0 &&
685 CBC 2 : oldctrl->large_object != newctrl->large_object)
686 UNC 0 : pg_fatal("old and new pg_controldata large-object chunk sizes are invalid or do not match");
687 :
688 CBC 2 : if (oldctrl->date_is_int != newctrl->date_is_int)
689 UNC 0 : pg_fatal("old and new pg_controldata date/time storage types do not match");
690 :
691 : /*
692 ECB : * float8_pass_by_value does not need to match, but is used in
693 : * check_for_isn_and_int8_passing_mismatch().
694 EUB : */
695 :
696 ECB : /*
697 EUB : * We might eventually allow upgrades from checksum to no-checksum
698 : * clusters.
699 : */
700 GIC 2 : if (oldctrl->data_checksum_version == 0 &&
701 2 : newctrl->data_checksum_version != 0)
702 UNC 0 : pg_fatal("old cluster does not use data checksums but the new one does");
703 GIC 2 : else if (oldctrl->data_checksum_version != 0 &&
704 UIC 0 : newctrl->data_checksum_version == 0)
705 UNC 0 : pg_fatal("old cluster uses data checksums but the new one does not");
706 GIC 2 : else if (oldctrl->data_checksum_version != newctrl->data_checksum_version)
707 UNC 0 : pg_fatal("old and new cluster pg_controldata checksum versions do not match");
708 CBC 2 : }
709 ECB :
710 EUB :
711 ECB : void
712 UBC 0 : disable_old_cluster(void)
713 EUB : {
714 ECB : char old_path[MAXPGPATH],
715 EUB : new_path[MAXPGPATH];
716 ECB :
717 : /* rename pg_control so old server cannot be accidentally started */
718 UIC 0 : prep_status("Adding \".old\" suffix to old global/pg_control");
719 :
720 UBC 0 : snprintf(old_path, sizeof(old_path), "%s/global/pg_control", old_cluster.pgdata);
721 UIC 0 : snprintf(new_path, sizeof(new_path), "%s/global/pg_control.old", old_cluster.pgdata);
722 0 : if (pg_mv_file(old_path, new_path) != 0)
723 UNC 0 : pg_fatal("could not rename file \"%s\" to \"%s\": %m",
724 : old_path, new_path);
725 UIC 0 : check_ok();
726 :
727 UBC 0 : pg_log(PG_REPORT, "\n"
728 : "If you want to start the old cluster, you will need to remove\n"
729 EUB : "the \".old\" suffix from %s/global/pg_control.old.\n"
730 : "Because \"link\" mode was used, the old cluster cannot be safely\n"
731 : "started once the new cluster has been started.",
732 : old_cluster.pgdata);
733 UBC 0 : }
|