ING_DB
This commit is contained in:
Oliver Lehmann
parent
3046bc250c
commit
d1c174e06a
|
|
@ -0,0 +1,117 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/symbol.h"
|
||||
# include "../h/lock.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# ifdef P8000
|
||||
ret_buf AAjmp_buf;
|
||||
# else
|
||||
jmp_buf AAjmp_buf;
|
||||
# endif
|
||||
|
||||
int Noupdt;
|
||||
extern char *Parmvect[];
|
||||
extern char *Flagvect[];
|
||||
extern char *AAdbpath;
|
||||
extern char *AAproc_name;
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char **av;
|
||||
register char *p;
|
||||
register int i;
|
||||
char null;
|
||||
|
||||
AAproc_name = "COPYR";
|
||||
|
||||
# ifdef xSTR1
|
||||
AAtTrace(&argc, argv, 'X');
|
||||
# endif
|
||||
|
||||
switch (i = initucode(argc, argv, TRUE, (char **) 0, M_SHARE))
|
||||
{
|
||||
case 0:
|
||||
case 5:
|
||||
break;
|
||||
|
||||
case 1:
|
||||
case 6:
|
||||
AAsyserr(0, "Die Datenbank `%s' existiert nicht", Parmvect[0]);
|
||||
|
||||
case 2:
|
||||
AAsyserr(0, "Sie duerfen auf die Datenbank `%s' nicht zugreifen", Parmvect[0]);
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
case 4:
|
||||
printf("Sie haben keinen Datenbanknamen angegeben\n");
|
||||
usage:
|
||||
AAsyserr(0, "HINWEIS: copyr db_name rel_name {dom_name format} into|from file_name");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
|
||||
for (i = 0, av = Flagvect; p = *av; av++)
|
||||
{
|
||||
printf("Unbekanntes Flag `%s'\n", p);
|
||||
i++;
|
||||
}
|
||||
|
||||
if (i)
|
||||
goto usage;
|
||||
|
||||
for (i = 0; Parmvect[i]; i++)
|
||||
continue;
|
||||
|
||||
if ((argc = i) < 4 || argc % 2)
|
||||
goto usage;
|
||||
|
||||
/* initialize access methods (and AAdmin struct) for user_ovrd test */
|
||||
AAam_start();
|
||||
opencatalog(AA_REL, 2);
|
||||
|
||||
/* do function */
|
||||
for (i = 0; i < argc - 3; i++)
|
||||
Parmvect[i] = Parmvect[i + 1];
|
||||
null = 0;
|
||||
Parmvect[argc - 3] = &null;
|
||||
copy(argc, Parmvect);
|
||||
|
||||
/* logout database */
|
||||
closecatalog(TRUE);
|
||||
AAunldb();
|
||||
AAam_exit();
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
char *AArelpath(rel)
|
||||
register char *rel;
|
||||
{
|
||||
extern char *AAztack();
|
||||
|
||||
return (AAztack(AAztack(AAdbpath, "/"), rel));
|
||||
}
|
||||
|
||||
|
||||
rubproc()
|
||||
{
|
||||
AAunlall();
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
|
||||
/* substitution */
|
||||
fullwait() {}
|
||||
fork() {}
|
||||
pipe() {}
|
||||
|
|
@ -0,0 +1,104 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/symbol.h"
|
||||
# include "../h/lock.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# ifdef P8000
|
||||
ret_buf AAjmp_buf;
|
||||
# else
|
||||
jmp_buf AAjmp_buf;
|
||||
# endif
|
||||
|
||||
extern char *Parmvect[];
|
||||
extern char *Flagvect[];
|
||||
extern char *AAdbpath;
|
||||
extern int Standalone;
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char **av;
|
||||
register char *p;
|
||||
register int i;
|
||||
extern char *AAproc_name;
|
||||
|
||||
AAproc_name = "DESTROYR";
|
||||
|
||||
# ifdef xSTR1
|
||||
AAtTrace(&argc, argv, 'X');
|
||||
# endif
|
||||
|
||||
switch (i = initucode(argc, argv, TRUE, (char **) 0, M_SHARE))
|
||||
{
|
||||
case 0:
|
||||
case 5:
|
||||
break;
|
||||
|
||||
case 1:
|
||||
case 6:
|
||||
AAsyserr(0, "Die Datenbank `%s' existiert nicht", Parmvect[0]);
|
||||
|
||||
case 2:
|
||||
AAsyserr(0, "Sie duerfen auf die Datenbank `%s' nicht zugreifen", Parmvect[0]);
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
case 4:
|
||||
printf("Sie haben keinen Datenbanknamen angegeben\n");
|
||||
usage:
|
||||
AAsyserr(0, "HINWEIS: destroyr db_name {rel_name}");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
|
||||
for (i = 0, av = Flagvect; p = *av; av++)
|
||||
{
|
||||
printf("Unbekanntes Flag `%s'\n", p);
|
||||
i++;
|
||||
}
|
||||
|
||||
if (i)
|
||||
goto usage;
|
||||
|
||||
for (i = 0; Parmvect[i]; i++)
|
||||
continue;
|
||||
|
||||
if ((argc = i) < 2)
|
||||
goto usage;
|
||||
|
||||
if (chdir(AAdbpath) < 0)
|
||||
AAsyserr(22201, AAproc_name, AAdbpath);
|
||||
|
||||
/* hello eric */
|
||||
Standalone = 0;
|
||||
|
||||
/* initialize access methods (and AAdmin struct) for user_ovrd test */
|
||||
AAam_start();
|
||||
opencatalog(AA_REL, 2);
|
||||
|
||||
/* do function */
|
||||
Parmvect[argc] = (char *) -1;
|
||||
destroy(--argc, &Parmvect[1]);
|
||||
|
||||
/* logout database */
|
||||
closecatalog(TRUE);
|
||||
AAunldb();
|
||||
AAam_exit();
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
rubproc()
|
||||
{
|
||||
AAunlall();
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
|
|
@ -0,0 +1,232 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/batch.h"
|
||||
# include "../h/symbol.h"
|
||||
# include "../h/lock.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# ifdef P8000
|
||||
ret_buf AAjmp_buf;
|
||||
# else
|
||||
jmp_buf AAjmp_buf;
|
||||
# endif
|
||||
|
||||
char KSORT[] = "/sys/bin/dbu___s";
|
||||
|
||||
char SYSNAME[] = "_SYS";
|
||||
int s_SYSNAME = sizeof SYSNAME - 1;
|
||||
char *Fileset;
|
||||
char *Ksort;
|
||||
char **Xparams = &Ksort;
|
||||
int Noupdt;
|
||||
int Where;
|
||||
char *Fillflag;
|
||||
char *Fillfactor;
|
||||
char *Minflag;
|
||||
char *Minpages;
|
||||
char *Maxflag;
|
||||
char *Maxpages;
|
||||
char *Storage_structure = "isam";
|
||||
int Tidp;
|
||||
struct batchbuf Batchbuf;
|
||||
extern char *Parmvect[];
|
||||
extern char *Flagvect[];
|
||||
extern char *AAdbpath;
|
||||
extern char *AApath;
|
||||
extern char *AAproc_name;
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char **av;
|
||||
register char *p;
|
||||
register int i;
|
||||
char null;
|
||||
char ksort[100];
|
||||
char fileset[6];
|
||||
|
||||
AAproc_name = "INDEXR";
|
||||
|
||||
# ifdef xSTR1
|
||||
AAtTrace(&argc, argv, 'X');
|
||||
# endif
|
||||
|
||||
switch (i = initucode(argc, argv, TRUE, (char **) 0, M_SHARE))
|
||||
{
|
||||
case 0:
|
||||
case 5:
|
||||
break;
|
||||
|
||||
case 1:
|
||||
case 6:
|
||||
AAsyserr(0, "Die Datenbank '%s' existiert nicht", Parmvect[0]);
|
||||
|
||||
case 2:
|
||||
AAsyserr(0, "Sie duerfen auf die Datenbank '%s' nicht zugreifen", Parmvect[0]);
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
case 4:
|
||||
printf("Sie haben keinen Datenbanknamen angegeben\n");
|
||||
usage:
|
||||
AAsyserr(0, "HINWEIS: indexr db_name prim_rel index_rel {dom_name}");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
|
||||
for (i = 0, av = Flagvect; p = *av; av++)
|
||||
{
|
||||
if (*p == '-')
|
||||
{
|
||||
if (where_flag(p + 1))
|
||||
continue;
|
||||
|
||||
switch (p[1])
|
||||
{
|
||||
case 'N':
|
||||
case 'n':
|
||||
Storage_structure = &p[2];
|
||||
continue;
|
||||
|
||||
case 'T':
|
||||
case 't':
|
||||
Tidp++;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
printf("Unbekanntes Flag '%s'\n", p);
|
||||
i++;
|
||||
}
|
||||
|
||||
if (i)
|
||||
goto usage;
|
||||
|
||||
for (i = 0; Parmvect[i]; i++)
|
||||
continue;
|
||||
|
||||
if ((argc = i) < 4 || argc > 9)
|
||||
goto usage;
|
||||
|
||||
if (chdir(AAdbpath) < 0)
|
||||
AAsyserr(22201, AAproc_name, AAdbpath);
|
||||
|
||||
/* initialize access methods (and AAdmin struct) for user_ovrd test */
|
||||
AAam_start();
|
||||
opencatalog(AA_REL, 2);
|
||||
|
||||
/* do function index */
|
||||
if (sec_index(argc - 1, &Parmvect[1]))
|
||||
goto no_modify;
|
||||
|
||||
/* do function modify */
|
||||
AA_itoa(getpid(), Fileset = fileset);
|
||||
AAconcat(AApath, KSORT, ksort);
|
||||
Ksort = ksort;
|
||||
Parmvect[0] = Parmvect[2];
|
||||
Parmvect[1] = Storage_structure;
|
||||
Parmvect[2] = "name";
|
||||
if (Tidp)
|
||||
Parmvect[argc++] = "tidp";
|
||||
if (Where)
|
||||
{
|
||||
i = argc;
|
||||
null = 0;
|
||||
Parmvect[i++] = &null;
|
||||
if (Fillflag)
|
||||
{
|
||||
Parmvect[i++] = Fillflag;
|
||||
Parmvect[i++] = Fillfactor;
|
||||
}
|
||||
if (Minflag)
|
||||
{
|
||||
Parmvect[i++] = Minflag;
|
||||
Parmvect[i++] = Minpages;
|
||||
}
|
||||
if (Maxflag)
|
||||
{
|
||||
Parmvect[i++] = Maxflag;
|
||||
Parmvect[i++] = Maxpages;
|
||||
}
|
||||
argc = i;
|
||||
}
|
||||
Parmvect[argc] = (char *) -1;
|
||||
Parmvect[argc + 1] = (char *) 0;
|
||||
modify(argc, Parmvect);
|
||||
|
||||
no_modify:
|
||||
/* logout database */
|
||||
closecatalog(TRUE);
|
||||
AAunldb();
|
||||
AAam_exit();
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
where_flag(flag)
|
||||
register char *flag;
|
||||
{
|
||||
register char *f;
|
||||
long i;
|
||||
|
||||
for (f = flag; *f && *f != ':'; f++)
|
||||
continue;
|
||||
|
||||
if (!*f)
|
||||
return (0);
|
||||
|
||||
*f++ = 0;
|
||||
|
||||
if ((AAsequal(flag, "fillfactor")
|
||||
# ifdef ESER
|
||||
|| AAsequal(flag, "FILLFACTOR")
|
||||
# endif
|
||||
) && !AA_atol(f, &i))
|
||||
{
|
||||
Fillflag = flag;
|
||||
Fillfactor = f;
|
||||
goto flag_ok;
|
||||
}
|
||||
|
||||
if ((AAsequal(flag, "minpages")
|
||||
# ifdef ESER
|
||||
|| AAsequal(flag, "MINPAGES")
|
||||
# endif
|
||||
) && !AA_atol(f, &i))
|
||||
{
|
||||
Minflag = flag;
|
||||
Minpages = f;
|
||||
goto flag_ok;
|
||||
}
|
||||
|
||||
if ((AAsequal(flag, "maxpages")
|
||||
# ifdef ESER
|
||||
|| AAsequal(flag, "MAXPAGES")
|
||||
# endif
|
||||
) && !AA_atol(f, &i))
|
||||
{
|
||||
Maxflag = flag;
|
||||
Maxpages = f;
|
||||
flag_ok:
|
||||
Where++;
|
||||
return (1);
|
||||
}
|
||||
|
||||
*--f = ':';
|
||||
return (0);
|
||||
}
|
||||
|
||||
|
||||
rubproc()
|
||||
{
|
||||
AAunlall();
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
|
|
@ -0,0 +1,99 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/symbol.h"
|
||||
# include "../h/lock.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# ifdef P8000
|
||||
ret_buf AAjmp_buf;
|
||||
# else
|
||||
jmp_buf AAjmp_buf;
|
||||
# endif
|
||||
|
||||
extern char *Parmvect[];
|
||||
extern char *Flagvect[];
|
||||
extern char *AAdbpath;
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char **av;
|
||||
register char *p;
|
||||
register int i;
|
||||
extern char *AAproc_name;
|
||||
|
||||
AAproc_name = "SAVER";
|
||||
|
||||
# ifdef xSTR1
|
||||
AAtTrace(&argc, argv, 'X');
|
||||
# endif
|
||||
|
||||
switch (i = initucode(argc, argv, TRUE, (char **) 0, M_SHARE))
|
||||
{
|
||||
case 0:
|
||||
case 5:
|
||||
break;
|
||||
|
||||
case 1:
|
||||
case 6:
|
||||
AAsyserr(0, "Die Datenbank `%s' existiert nicht", Parmvect[0]);
|
||||
|
||||
case 2:
|
||||
AAsyserr(0, "Sie duerfen auf die Datenbank `%s' nicht zugreifen", Parmvect[0]);
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
case 4:
|
||||
printf("Sie haben keinen Datenbanknamen angegeben\n");
|
||||
usage:
|
||||
AAsyserr(0, "HINWEIS: saver db_name rel_name month day year");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
|
||||
for (i = 0, av = Flagvect; p = *av; av++)
|
||||
{
|
||||
printf("Unbekanntes Flag `%s'\n", p);
|
||||
i++;
|
||||
}
|
||||
|
||||
if (i)
|
||||
goto usage;
|
||||
|
||||
for (i = 0; Parmvect[i]; i++)
|
||||
continue;
|
||||
|
||||
if ((argc = i) != 5)
|
||||
goto usage;
|
||||
|
||||
if (chdir(AAdbpath) < 0)
|
||||
AAsyserr(22201, AAproc_name, AAdbpath);
|
||||
|
||||
/* initialize access methods (and AAdmin struct) for user_ovrd test */
|
||||
AAam_start();
|
||||
opencatalog(AA_REL, 0);
|
||||
|
||||
/* do function */
|
||||
save(argc - 1, &Parmvect[1]);
|
||||
|
||||
/* logout database */
|
||||
closecatalog(TRUE);
|
||||
AAunldb();
|
||||
AAam_exit();
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
rubproc()
|
||||
{
|
||||
AAunlall();
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
|
|
@ -0,0 +1,312 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/lock.h"
|
||||
|
||||
/*
|
||||
** These are subroutines common to RESTORE and PURGE.
|
||||
*/
|
||||
|
||||
char All;
|
||||
char Qrymod;
|
||||
char Superuser;
|
||||
char Ask;
|
||||
char Purge;
|
||||
char No_purge;
|
||||
char No_sysmod;
|
||||
char Clean;
|
||||
char Lastflag;
|
||||
|
||||
struct directory
|
||||
{
|
||||
# ifndef NON_V7_FS
|
||||
short inumber;
|
||||
# endif
|
||||
char fname[MAXNAME + 3];
|
||||
};
|
||||
|
||||
# ifndef NON_V7_FS
|
||||
int Direc_fd;
|
||||
# endif
|
||||
|
||||
extern int AAdbstat;
|
||||
extern char *AAusercode;
|
||||
char **Dblist;
|
||||
|
||||
/*
|
||||
** INITIALIZE GLOBALS
|
||||
**
|
||||
** Set up AAusercode and AAdbstat
|
||||
*/
|
||||
initialize(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
register int i;
|
||||
register char *p;
|
||||
register char **av;
|
||||
char datadir[MAXLINE];
|
||||
extern char *AAproc_name;
|
||||
extern char *Flagvect[];
|
||||
extern char *Parmvect[];
|
||||
extern long lseek();
|
||||
|
||||
AAproc_name = "INITIALIZE";
|
||||
|
||||
# ifdef xSTR2
|
||||
AAtTfp(40, 0, "entered initialize\n");
|
||||
# endif
|
||||
|
||||
i = initucode(argc, argv, FALSE, (char *) 0, -1);
|
||||
|
||||
# ifdef xSTR2
|
||||
AAtTfp(40, 1, "initucode ret:%d\n", i);
|
||||
# endif
|
||||
|
||||
switch (i)
|
||||
{
|
||||
case 0:
|
||||
break;
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
initdbpath((char *) 0, datadir, FALSE);
|
||||
|
||||
# ifdef xSTR2
|
||||
AAtTfp(40, 2, "scanning flags\n");
|
||||
# endif
|
||||
for (av = Flagvect; *av; av++)
|
||||
{
|
||||
p = *av;
|
||||
if (p[0] != '-')
|
||||
{
|
||||
badflag:
|
||||
AAsyserr(0, "Unbekanntes Flag %s", p);
|
||||
}
|
||||
switch (p[1])
|
||||
{
|
||||
case 'A':
|
||||
case 'a':
|
||||
Ask++;
|
||||
break;
|
||||
|
||||
case 'f':
|
||||
Clean++;
|
||||
break;
|
||||
|
||||
case 'p':
|
||||
Purge++;
|
||||
break;
|
||||
|
||||
case 'P':
|
||||
No_purge++;
|
||||
break;
|
||||
|
||||
case 's':
|
||||
if (sucheck())
|
||||
Superuser++;
|
||||
else
|
||||
AAsyserr(0, "Sie duerfen das -s Flag nicht verwenden");
|
||||
break;
|
||||
|
||||
case 'S':
|
||||
No_sysmod++;
|
||||
break;
|
||||
|
||||
default:
|
||||
goto badflag;
|
||||
}
|
||||
}
|
||||
Dblist = Parmvect;
|
||||
if (!*Dblist)
|
||||
{
|
||||
# ifdef xSTR2
|
||||
AAtTfp(40, 3, "doing all\n");
|
||||
# endif
|
||||
All++;
|
||||
# ifdef NON_V7_FS
|
||||
if (!open_dir(datadir))
|
||||
AAsyserr(21131);
|
||||
# else
|
||||
if ((Direc_fd = open(datadir, 0)) < 0)
|
||||
AAsyserr(21131);
|
||||
lseek(Direc_fd, 32L, 0);
|
||||
# endif
|
||||
}
|
||||
# ifdef xSTR2
|
||||
AAtTfp(40, 0, "leaving initialize\n");
|
||||
# endif
|
||||
|
||||
return (0);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** CHECK FOR SUPERUSER
|
||||
**
|
||||
** The user has requested the -s flag. Can he do it? Will Martha
|
||||
** recover from cancer? Will Dick get the girl? Stay tuned for
|
||||
** "sucheck".
|
||||
**
|
||||
** Permission is based on the U_SUPER bit in the status field
|
||||
** in the AA_USERS.
|
||||
*/
|
||||
sucheck()
|
||||
{
|
||||
return (AAdbstat & U_SUPER);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** GET NEXT DATABASE
|
||||
**
|
||||
** The next database to be purged is selected. It comes from
|
||||
** either the directory or the database list.
|
||||
**
|
||||
** Getnxtdb() leaves the user in the database directory.
|
||||
*/
|
||||
char *getnxtdb()
|
||||
{
|
||||
# ifdef NON_V7_FS
|
||||
extern char *read_dir();
|
||||
# endif
|
||||
static struct directory buf;
|
||||
register char *db;
|
||||
register int admin_fd;
|
||||
register int i;
|
||||
extern struct admin AAdmin;
|
||||
static char dbpbuf[MAXLINE];
|
||||
|
||||
# ifdef xSTR2
|
||||
AAtTfp(41, 0, "entered getnxtdb\n");
|
||||
# endif
|
||||
|
||||
for ( ; ; )
|
||||
{
|
||||
if (All)
|
||||
{
|
||||
# ifdef NON_V7_FS
|
||||
if (db = read_dir())
|
||||
{
|
||||
/* throw out legitimate files */
|
||||
if (AAsequal(db, ".") || AAsequal(db, ".."))
|
||||
continue;
|
||||
AAbmove(db, buf.fname, MAXNAME + 2);
|
||||
db = buf.fname;
|
||||
}
|
||||
# else
|
||||
if ((i = read(Direc_fd, &buf, 16)) < 16)
|
||||
db = (char *) 0;
|
||||
else
|
||||
{
|
||||
if (!buf.inumber)
|
||||
continue;
|
||||
db = buf.fname;
|
||||
}
|
||||
# endif
|
||||
buf.fname[MAXNAME + 2] = 0;
|
||||
}
|
||||
else
|
||||
db = *Dblist++;
|
||||
if (!db)
|
||||
{
|
||||
# ifdef NON_V7_FS
|
||||
close_dir();
|
||||
# else
|
||||
if (Direc_fd);
|
||||
close(Direc_fd);
|
||||
# endif
|
||||
return ((char *) 0);
|
||||
}
|
||||
|
||||
# ifdef xSTR2
|
||||
AAtTfp(41, 1, "using %s as Database\n", db);
|
||||
# endif
|
||||
|
||||
i = initdbpath(db, dbpbuf, TRUE);
|
||||
# ifdef xSTR2
|
||||
AAtTfp(41, 3, "INITDBPATH: ret %d, %s\n", i, dbpbuf);
|
||||
# endif
|
||||
switch (i)
|
||||
{
|
||||
case 0:
|
||||
case 1:
|
||||
break;
|
||||
|
||||
case 2:
|
||||
case 3:
|
||||
printf("Die Datenbank %s existiert nicht\n", db);
|
||||
continue;
|
||||
|
||||
default:
|
||||
AAsyserr(21132, i);
|
||||
}
|
||||
if (chdir(dbpbuf) < 0)
|
||||
{
|
||||
printf("Fehler bei cd %s.", dbpbuf);
|
||||
continue;
|
||||
}
|
||||
# ifdef xSTR2
|
||||
AAtTfp(41, 4, "chdir ok, Superuser: %d\n", Superuser);
|
||||
# endif
|
||||
if ((admin_fd = open(AA_ADMIN, 0)) < 0)
|
||||
{
|
||||
printf("Fehler beim Eroeffnen des DBA file %s/admin\n", dbpbuf);
|
||||
continue;
|
||||
}
|
||||
read(admin_fd, &AAdmin.adhdr, sizeof AAdmin.adhdr);
|
||||
close(admin_fd);
|
||||
# ifdef xSTR2
|
||||
AAtTfp(41, 5, "dba: %.2s\n", AAdmin.adhdr.adowner);
|
||||
# endif
|
||||
|
||||
/* set qrymod flag from database status */
|
||||
Qrymod = ((AAdmin.adhdr.adflags & A_QRYMOD) == A_QRYMOD);
|
||||
|
||||
/* check for dba of database if not superuser */
|
||||
if (Superuser || AAbequal(AAdmin.adhdr.adowner, AAusercode, 2))
|
||||
break;
|
||||
|
||||
/*
|
||||
** not DBA isn't an error if running in all mode since user
|
||||
** couln't have specified the database
|
||||
*/
|
||||
if (All)
|
||||
continue;
|
||||
printf("Sie sind nicht der DBA der Datenbank %s\n", db);
|
||||
}
|
||||
# ifdef xSTR2
|
||||
AAtTfp(41, 6, "leaving getnxtdb, %s ok\n", db);
|
||||
# endif
|
||||
return (db);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** ASK
|
||||
** If Ask is set desplay prompt and look for 'y' and return TRUE
|
||||
** If Ask is not set return TRUE
|
||||
*/
|
||||
ask(prompt)
|
||||
register char *prompt;
|
||||
{
|
||||
char line[MAXLINE];
|
||||
extern char Ask;
|
||||
extern char *fgetline();
|
||||
|
||||
if (!Ask)
|
||||
return (TRUE);
|
||||
|
||||
printf("**\t\t%s ? *\b", prompt);
|
||||
|
||||
if (!fgetline(line, MAXLINE, stdin))
|
||||
AAsyserr(21133);
|
||||
|
||||
return (line[0] == 'y');
|
||||
}
|
||||
|
|
@ -0,0 +1,282 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/lock.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/batch.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# ifdef P8000
|
||||
ret_buf AAjmp_buf;
|
||||
# else
|
||||
jmp_buf AAjmp_buf;
|
||||
# endif
|
||||
|
||||
extern int AAdbstat;
|
||||
|
||||
short Qrymod;
|
||||
char *Fileset;
|
||||
int Noupdt = FALSE;
|
||||
char *Dummy;
|
||||
char **Xparams = &Dummy;
|
||||
struct batchbuf Batchbuf;
|
||||
char Header[] = "**\t\t";
|
||||
|
||||
char KSORT[] = "/sys/bin/dbu___s";
|
||||
|
||||
struct modtabl
|
||||
{
|
||||
char *rname;
|
||||
char **parvec;
|
||||
short qmcatalogs;
|
||||
short goahead;
|
||||
short normgo;
|
||||
short optn;
|
||||
};
|
||||
|
||||
char *Relpar[] =
|
||||
{
|
||||
AA_REL,
|
||||
"hash",
|
||||
"name",
|
||||
"relid",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
char *Attpar[] =
|
||||
{
|
||||
AA_ATT,
|
||||
"hash",
|
||||
"name",
|
||||
"attrelid", "attowner", "#attid",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
char *Indpar[] =
|
||||
{
|
||||
AA_INDEX,
|
||||
"hash",
|
||||
"name",
|
||||
"irelidp", "iownerp",
|
||||
"",
|
||||
"minpages", "5",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
char *Trepar[] =
|
||||
{
|
||||
AA_TREE,
|
||||
"hash",
|
||||
"name",
|
||||
"treerelid", "treeowner", "treetype",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
char *Propar[] =
|
||||
{
|
||||
AA_PROTECT,
|
||||
"hash",
|
||||
"name",
|
||||
"prorelid", "proowner",
|
||||
"",
|
||||
"minpages", "5",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
char *Intpar[] =
|
||||
{
|
||||
AA_INTEG,
|
||||
"hash",
|
||||
"name",
|
||||
"intrelid", "intrelowner",
|
||||
"",
|
||||
"minpages", "5",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
char *Refpar[] =
|
||||
{
|
||||
AA_REF,
|
||||
"hash",
|
||||
"name",
|
||||
"refrelid", "refowner", "reftype",
|
||||
"",
|
||||
"minpages", "5",
|
||||
(char *) -1
|
||||
};
|
||||
|
||||
struct modtabl Modtabl[] =
|
||||
{
|
||||
AA_REL, Relpar, FALSE, FALSE, TRUE, FALSE,
|
||||
AA_ATT, Attpar, FALSE, FALSE, TRUE, FALSE,
|
||||
AA_INDEX, Indpar, FALSE, FALSE, TRUE, FALSE,
|
||||
AA_TREE, Trepar, TRUE, FALSE, TRUE, TRUE,
|
||||
AA_PROTECT, Propar, TRUE, FALSE, TRUE, TRUE,
|
||||
AA_INTEG, Intpar, TRUE, FALSE, TRUE, TRUE,
|
||||
AA_REF, Refpar, TRUE, FALSE, TRUE, TRUE,
|
||||
(char *) 0
|
||||
};
|
||||
|
||||
/*
|
||||
** SYSMOD -- Modify system catalogs to a predetermined
|
||||
** storage structure with predetermined keys.
|
||||
*/
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register int i;
|
||||
register int j;
|
||||
register char **av;
|
||||
register char *p;
|
||||
register int retval;
|
||||
register int superuser;
|
||||
char fileset[10];
|
||||
char proctab[100];
|
||||
extern char *Parmvect[];
|
||||
extern char *Flagvect[];
|
||||
extern char *AAdbpath;
|
||||
extern char *AApath;
|
||||
extern char *AAproc_name;
|
||||
|
||||
AAproc_name = "SYSMOD";
|
||||
|
||||
# ifdef xSTR1
|
||||
AAtTrace(&argc, argv, 'X');
|
||||
# endif
|
||||
|
||||
AA_itoa(getpid(), fileset);
|
||||
Fileset = fileset;
|
||||
i = initucode(argc, argv, TRUE, (char *) 0, M_EXCL);
|
||||
printf("Datenbank %s\n", Parmvect[0]);
|
||||
switch (i)
|
||||
{
|
||||
case 0:
|
||||
case 5:
|
||||
break;
|
||||
|
||||
case 1:
|
||||
case 6:
|
||||
AAsyserr(0, "Die Datenbank %s existiert nicht", Parmvect[0]);
|
||||
|
||||
case 2:
|
||||
AAsyserr(0, "Sie duerfen auf die Datenbank %s nicht zugreifen", Parmvect[0]);
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
case 4:
|
||||
printf("Sie haben keinen Datenbanknamen angegeben\n");
|
||||
usage:
|
||||
AAsyserr(0, "HINWEIS: sysmod [-s] [+-w] db_name {relation ...}");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
|
||||
AAconcat(AApath, KSORT, proctab);
|
||||
Dummy = proctab;
|
||||
|
||||
superuser = FALSE;
|
||||
for (av = Flagvect; p = *av; av++)
|
||||
{
|
||||
if (p[0] != '-')
|
||||
{
|
||||
badflag:
|
||||
printf("Unbekanntes Flag %s\n", p);
|
||||
goto usage;
|
||||
}
|
||||
switch (p[1])
|
||||
{
|
||||
case 's':
|
||||
if (!(AAdbstat & U_SUPER))
|
||||
AAsyserr(0, "Sie duerfen das -s Flag nicht verwenden");
|
||||
superuser = TRUE;
|
||||
break;
|
||||
|
||||
default:
|
||||
goto badflag;
|
||||
}
|
||||
}
|
||||
if (chdir(AAdbpath) < 0)
|
||||
AAsyserr(0, "Die Datenbank %s existiert nicht", Parmvect[0]);
|
||||
if (superuser)
|
||||
AAbmove(AAdmin.adhdr.adowner, AAusercode, 2);
|
||||
if (!AAbequal(AAusercode, AAdmin.adhdr.adowner, 2))
|
||||
AAsyserr(0, "Sie sind nicht der DBA der Datenbank %s", Parmvect[0]);
|
||||
|
||||
Qrymod = ((AAdmin.adhdr.adflags & A_QRYMOD) == A_QRYMOD);
|
||||
|
||||
/*
|
||||
** if there are any arguments, verify that they are valid
|
||||
** names of relations which can be modified by this program.
|
||||
** if there are no arguments, assume all system relations are to be
|
||||
** modified.
|
||||
*/
|
||||
if (Parmvect[1])
|
||||
if (!(Parmvect[2]) && AAsequal(Parmvect[1], "all"))
|
||||
for (i = 0; Modtabl[i].rname; i++)
|
||||
Modtabl[i].goahead = TRUE;
|
||||
else
|
||||
for (av = &Parmvect[1]; p = *av; av++)
|
||||
{
|
||||
for (j = 0; Modtabl[j].rname; j++)
|
||||
{
|
||||
if (!AAscompare(p, MAXNAME, Modtabl[j].rname, MAXNAME))
|
||||
{
|
||||
if (Modtabl[j].goahead)
|
||||
AAsyserr(0, "Doppelt angegebener Relationsname %s", p);
|
||||
Modtabl[j].goahead = TRUE;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (!Modtabl[j].rname)
|
||||
AAsyserr(0, "%s ist kein Katalogname", p);
|
||||
}
|
||||
else
|
||||
for (i = 0; Modtabl[i].rname; i++)
|
||||
Modtabl[i].goahead = Modtabl[i].normgo;
|
||||
for (i = 0; Modtabl[i].rname; i++)
|
||||
{
|
||||
if (!Modtabl[i].goahead || optn_rel(&Modtabl[i]))
|
||||
continue;
|
||||
|
||||
if (!Qrymod && Modtabl[i].qmcatalogs)
|
||||
continue;
|
||||
|
||||
printf("%sKatalog %s\n", Header, Modtabl[i].rname);
|
||||
av = Modtabl[i].parvec + 3;
|
||||
j = 0;
|
||||
while (*av != (char *) -1)
|
||||
{
|
||||
j++;
|
||||
av++;
|
||||
}
|
||||
j += 3;
|
||||
AAsmove(Fileset, Batchbuf.file_id);
|
||||
if (retval = modify(j, Modtabl[i].parvec))
|
||||
AAsyserr(0, "%sFehlernummer *%d*", Header, retval);
|
||||
}
|
||||
AAunldb();
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
optn_rel(m)
|
||||
register struct modtabl *m;
|
||||
{
|
||||
DESC des;
|
||||
|
||||
return (m->optn & AArelopen(&des, -1, m->rname));
|
||||
}
|
||||
|
||||
|
||||
rubproc()
|
||||
{
|
||||
printf("%sSYSMOD interrupted\n", Header);
|
||||
AAunlall();
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
Loading…
Reference in New Issue