From ced2ee821084bf00c99adab5ca34e1a2595f7ca1 Mon Sep 17 00:00:00 2001
From: "Thomas G. Lockhart" <lockhart@fourpalms.org>
Date: Mon, 10 Nov 1997 15:17:44 +0000
Subject: [PATCH] Clean up path handling esp. when interpreting environment
 variables. Remove unused old code.

---
 src/backend/parser/dbcommands.c | 46 ++++++++-------------------------
 1 file changed, 11 insertions(+), 35 deletions(-)

diff --git a/src/backend/parser/dbcommands.c b/src/backend/parser/dbcommands.c
index 871cf24593..d3f3f23eab 100644
--- a/src/backend/parser/dbcommands.c
+++ b/src/backend/parser/dbcommands.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/parser/Attic/dbcommands.c,v 1.10 1997/11/07 06:37:55 thomas Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/parser/Attic/dbcommands.c,v 1.11 1997/11/10 15:17:44 thomas Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -74,6 +74,11 @@ createdb(char *dbname, char *dbpath)
 
 	lp = ExpandDatabasePath(loc);
 
+	if (lp == NULL)
+		elog(WARN,"Unable to locate path '%s'"
+			"\n\tThis may be due to a missing environment variable"
+			" in the server",loc);
+
 	if (mkdir(lp,S_IRWXU) != 0)
 		elog(WARN,"Unable to create database directory %s",lp);
 
@@ -101,11 +106,6 @@ destroydb(char *dbname)
 	char	   *path;
 	char		dbpath[MAXPGPATH+1];
 	char		buf[512];
-	char		loc[512];
-	text	   *dbtext;
-
-	Relation	dbrel;
-	HeapTuple	dbtup;
 
 	/*
 	 * If this call returns, the database exists and we're allowed to
@@ -121,34 +121,11 @@ destroydb(char *dbname)
 	/* stop the vacuum daemon */
 	stop_vacuum(dbpath, dbname);
 
-#if FALSE
-	dbrel = heap_openr(DatabaseRelationName);
-	if (!RelationIsValid(dbrel))
-		elog(FATAL, "%s: cannot open relation \"%-.*s\"",
-			 "destroydb", DatabaseRelationName);
-
-	dbtup = get_pg_dbtup("destroydb", dbname, dbrel);
-
-	if (!HeapTupleIsValid(dbtup))
-		elog(NOTICE,"destroydb: pg_database entry not found %s",dbname);
-
-	dbtext = (text *) heap_getattr(dbtup, InvalidBuffer,
-								 Anum_pg_database_datpath,
-								 RelationGetTupleDescriptor(dbrel),
-								 (char *) NULL);
-	memcpy(loc, VARDATA(dbtext), (VARSIZE(dbtext)-VARHDRSZ));
-	*(loc+(VARSIZE(dbtext)-VARHDRSZ)) = '\0';
-
-#if FALSE
-	if (*loc != SEP_CHAR)
-	{
-		sprintf(buf, "%s/base/%s", DataDir, loc);
-		strcpy(loc, buf);
-	}
-#endif
-
-	heap_close(dbrel);
-#endif
+	path = ExpandDatabasePath(dbpath);
+    if (path == NULL)
+		elog(WARN,"Unable to locate path '%s'"
+			"\n\tThis may be due to a missing environment variable"
+			" in the server",dbpath);
 
 	/*
 	 * remove the pg_database tuple FIRST, this may fail due to
@@ -162,7 +139,6 @@ destroydb(char *dbname)
 	 * remove the data directory. If the DELETE above failed, this will
 	 * not be reached
 	 */
-	path = ExpandDatabasePath(dbpath);
 
 	sprintf(buf, "rm -r %s", path);
 	system(buf);
-- 
2.40.0