From 9f30ec29ebe5b9b9926ba46643db9e250e3ad451 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Tue, 4 Apr 1989 08:52:20 +0000
Subject: [PATCH] ING_DB

---
 .../ingres/dbs/src/support/destroydb.c        | 224 ++++++++++++++++++
 1 file changed, 224 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/support/destroydb.c

diff --git a/WEGA/contrib/ingres/dbs/src/support/destroydb.c b/WEGA/contrib/ingres/dbs/src/support/destroydb.c
new file mode 100644
index 0000000..b1efe07
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/support/destroydb.c
@@ -0,0 +1,224 @@
+# include	<stdio.h>
+# include	"gen.h"
+# include	"../h/dbs.h"
+# include	"../h/aux.h"
+# include	"../h/access.h"
+# include	"../h/lock.h"
+# include	"../h/bs.h"
+
+# ifdef P8000
+ret_buf		AAjmp_buf;
+# else
+jmp_buf		AAjmp_buf;
+# endif
+
+extern char	*AAusercode;
+extern int	AAdbstat;
+extern char	*AApath;
+extern char	*Parmvect[];
+extern char	*Flagvect[];
+extern char	*AAdbpath;
+extern char	*AAproc_name;
+struct admin	AAdmin;
+char		RMDIR[]		= "rmdir";
+
+/*
+**  DESTROY DATA BASE
+**
+**	This program destroys an existing database.  To be able
+**	to wield this awesome power, you must be the dba for
+**	the database.  Also, anyone has this power if the admin
+**	the database, or the DBS superuser, and have the "-s"
+**	flag requested.  If admin is trashed, the DBS superuser
+**	must either destroy the database or recover it.
+**
+**	If -m is specified, then the directory is not removed.
+**	This is useful if the directory is a mounted file system.
+*/
+main(argc, argv)
+int	argc;
+char	*argv[];
+{
+	register int		i;
+	register char		*dbase;
+	register int		iop;
+	register char		*p;
+	int			s_flag;
+	int			mounted;
+	int			indirect;
+	char			dbdbuf[BUFSIZ];
+	char			**av;
+	char			*q;
+	extern char		*AAztack();
+# ifdef NON_V7_FS
+	extern char		*read_dir();
+# endif
+
+	AAproc_name = "DESTROYDB";
+
+#	ifdef xSTR1
+	AAtTrace(&argc, argv, 'X');
+#	endif
+
+	i = initucode(argc, argv, TRUE, (char *) 0, M_EXCL);
+	dbase = Parmvect[0];
+	switch (i)
+	{
+	  case 0:
+		indirect = FALSE;
+		break;
+
+	  case 5:
+		indirect = TRUE;
+		break;
+
+	  case 1:
+	  case 6:
+		AAsyserr(0, "Die Datenbank '%s' existiert nicht", dbase);
+
+	  case 2:
+		AAsyserr(0, "Sie duerfen auf die Datenbank '%s' nicht zugreifen", dbase);
+
+	  case 3:
+		AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
+
+	  case 4:
+		printf("Sie haben keinen Datenbanknamen angegeben\n");
+	usage:
+		AAsyserr(0, "HINWEIS: destroydb [-s] [-m] db_name");
+
+	  default:
+		AAsyserr(22200, AAproc_name, i);
+	}
+
+	mounted = s_flag = 0;
+	for (av = Flagvect; p = *av; av++)
+	{
+		if (p[0] != '-')
+		{
+		badflag:
+			printf("Unbekanntes Flag '%s'\n", p);
+			goto usage;
+		}
+		switch (p[1])
+		{
+		  case 's':
+			s_flag++;
+			break;
+
+		  case 'M':
+		  case 'm':
+			mounted++;
+			break;
+
+		  default:
+			goto badflag;
+		}
+	}
+
+	if (Parmvect[1])
+	{
+		printf("Zu viele Argumente\n");
+		goto usage;
+	}
+	if (AAlength(dbase) > MAXNAME)
+		AAsyserr(0, "Unerlaubter Datenbankname '%s'", dbase);
+
+	if (s_flag)
+	{
+		if (!(AAdbstat & U_SUPER))
+			AAsyserr(0, "Sie duerfen das -s Flag nicht verwenden");
+	}
+	else if (!AAbequal(AAdmin.adhdr.adowner, AAusercode, 2))
+		AAsyserr(0, "Sie sind nicht der DBA der Datenbank '%s'", dbase);
+
+	if (chdir(AAdbpath) < 0)
+		AAsyserr(22201, AAproc_name, AAdbpath);
+
+# ifdef NON_V7_FS
+	if (!open_dir("."))
+		AAsyserr(21050, AAdbpath);
+	while (dbase = read_dir())
+	{
+		/* throw out legitimate files */
+		if (AAsequal(dbase, ".") || AAsequal(dbase, ".."))
+			continue;
+		unlink(dbase);
+	}
+	close_dir();
+# else
+	if ((iop = open(".", 0)) < 0)
+		AAsyserr(21050, AAdbpath);
+	clean(iop);
+	close(iop);
+# endif
+
+	if (indirect)
+	{
+		initdbpath((char *) 0, dbdbuf, FALSE);
+		unlink(AAztack(dbdbuf, dbase));
+	}
+
+	AAunldb();
+	fflush(stdout);
+
+	if (!mounted)
+	{
+		/* find end of AAdbpath and trim it off. */
+		for (p = q = AAdbpath; *p; p++)
+			if (*p == '/')
+				q = p;
+		*q++ = '\0';
+		if (chdir(AAdbpath) < 0)
+			AAsyserr(22201, AAproc_name, AAdbpath);
+		execlp(RMDIR, RMDIR, q, (char *) 0);
+	}
+	exit(0);
+}
+
+
+# ifndef NON_V7_FS
+clean(f)
+register int	f;
+{
+	struct direc
+	{
+		short	inum;
+		char	name[14];
+		char	null;
+	};
+	struct direc	cur;
+	extern long	lseek();
+
+	cur.null = 0;
+
+	/* skip "." and ".." entries */
+	lseek(f, 32L, 0);
+
+	/* scan directory */
+	while (read(f, &cur, 16) == 16)
+	{
+		/* skip null entries */
+		if (!cur.inum)
+			continue;
+
+		unlink(cur.name);
+	}
+}
+# endif
+
+
+/*
+**  Rubout processing.
+*/
+rubproc()
+{
+	AAunlall();
+	fflush(stdout);
+	exit(-2);
+}
+
+
+AApageflush()
+{
+}