aboutsummaryrefslogtreecommitdiff
path: root/usr.sbin/sup/lib/scan.c
diff options
context:
space:
mode:
Diffstat (limited to 'usr.sbin/sup/lib/scan.c')
-rw-r--r--usr.sbin/sup/lib/scan.c1045
1 files changed, 0 insertions, 1045 deletions
diff --git a/usr.sbin/sup/lib/scan.c b/usr.sbin/sup/lib/scan.c
deleted file mode 100644
index 0823e4d1e45e..000000000000
--- a/usr.sbin/sup/lib/scan.c
+++ /dev/null
@@ -1,1045 +0,0 @@
-/*
- * Copyright (c) 1992 Carnegie Mellon University
- * All Rights Reserved.
- *
- * Permission to use, copy, modify and distribute this software and its
- * documentation is hereby granted, provided that both the copyright
- * notice and this permission notice appear in all copies of the
- * software, derivative works or modified versions, and any portions
- * thereof, and that both notices appear in supporting documentation.
- *
- * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
- * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
- * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
- *
- * Carnegie Mellon requests users of this software to return to
- *
- * Software Distribution Coordinator or Software_Distribution@CS.CMU.EDU
- * School of Computer Science
- * Carnegie Mellon University
- * Pittsburgh PA 15213-3890
- *
- * any improvements or extensions that they make and grant Carnegie Mellon
- * the rights to redistribute these changes.
- */
-/*
- * scan.c - sup list file scanner
- *
- **********************************************************************
- * HISTORY
- * $Log: scan.c,v $
- * Revision 1.3 1995/12/26 05:10:59 peter
- * Apply ports/net/sup/patches/patch-ab
- *
- * Revision 1.2 1995/12/26 05:02:48 peter
- * Apply ports/net/sup/patches/patch-aa...
- *
- * Revision 1.1.1.1 1995/12/26 04:54:47 peter
- * Import the unmodified version of the sup that we are using.
- * The heritage of this version is not clear. It appears to be NetBSD
- * derived from some time ago.
- *
- * Revision 1.1.1.1 1993/08/21 00:46:33 jkh
- * Current sup with compression support.
- *
- * Revision 1.1.1.1 1993/05/21 14:52:17 cgd
- * initial import of CMU's SUP to NetBSD
- *
- * Revision 1.8 92/08/11 12:04:28 mrt
- * Brad's changes: delinted, added forward declarations of static
- * functions.Added Copyright.
- * [92/07/24 mrt]
- *
- * 18-Mar-88 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added host=<hostfile> support to releases file.
- *
- * 11-Mar-88 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added "rsymlink" recursive symbolic link quoting directive.
- *
- * 28-Jun-87 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added code for "release" support.
- *
- * 26-May-87 Doug Philips (dwp) at Carnegie-Mellon University
- * Lets see if we'll be able to write the scan file BEFORE
- * we collect the data for it. Include sys/file.h and use
- * new definitions for access check codes.
- *
- * 20-May-87 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added type casting information for lint.
- *
- * 21-Jan-86 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added check for newonly upgrade when lasttime is the same as
- * scantime. This will save us the trouble of parsing the scanfile
- * when the client has successfully received everything in the
- * scanfile already.
- *
- * 16-Jan-86 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Clear Texec pointers in execT so that Tfree of execT will not
- * free command trees associated with files in listT.
- *
- * 06-Jan-86 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added code to omit scanned files from list if we want new files
- * only and they are old.
- *
- * 29-Dec-85 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Major rewrite for protocol version 4. Added version numbers to
- * scan file. Also added mode of file in addition to flags.
- * Execute commands are now immediately after file information.
- *
- * 13-Dec-85 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added comments to list file format.
- *
- * 08-Dec-85 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Added code to implement omitany. Currently doesn't know about
- * {a,b,c} patterns.
- *
- * 07-Oct-85 Glenn Marcy (gm0w) at Carnegie-Mellon University
- * Created.
- *
- **********************************************************************
- */
-
-#include <libc.h>
-#include <c.h>
-#include <sys/types.h>
-#include <sys/time.h>
-#include <sys/stat.h>
-#include <sys/file.h>
-#include <dirent.h>
-#include "sup.h"
-
-/*************************
- *** M A C R O S ***
- *************************/
-
-#define SPECNUMBER 1000
- /* number of filenames produced by a single spec in the list file */
-
-/*******************************************
- *** D A T A S T R U C T U R E S ***
- *******************************************/
-
-typedef enum { /* release options */
- ONEXT, OPREFIX, OLIST, OSCAN,
- OHOST
-} OPTION;
-
-static char *options[] = {
- "next", "prefix", "list", "scan",
- "host",
- 0
-};
-
-typedef enum { /* <collection>/list file lines */
- LUPGRADE, LOMIT, LBACKUP, LEXECUTE,
- LINCLUDE, LNOACCT, LOMITANY, LALWAYS,
- LSYMLINK, LRSYMLINK, LRENAME
-} LISTTYPE;
-
-static char *ltname[] = {
- "upgrade", "omit", "backup", "execute",
- "include", "noaccount", "omitany", "always",
- "symlink", "rsymlink", "rename",
- 0
-};
-
-#define FALWAYS FUPDATE
-
-/* list file lines */
-static TREE *upgT; /* files to upgrade */
-static TREE *flagsT; /* special flags: BACKUP NOACCT */
-static TREE *omitT; /* recursize file omition list */
-static TREE *omanyT; /* non-recursize file omition list */
-static TREE *symT; /* symbolic links to quote */
-static TREE *rsymT; /* recursive symbolic links to quote */
-static TREE *execT; /* execute command list */
-
-/*************************
- *** E X T E R N ***
- *************************/
-
-#ifdef lint
-static char _argbreak;
-#else
-extern char _argbreak; /* break character from nxtarg */
-#endif
-
-extern TREELIST *listTL; /* list of trees for scanning */
-extern TREE *listT; /* final list of files in collection */
-extern TREE *refuseT; /* files refused by client */
-
-extern char *collname; /* collection name */
-extern char *basedir; /* base directory name */
-extern char *prefix; /* collection pathname prefix */
-extern long lasttime; /* time of last upgrade */
-extern long scantime; /* time of this scan */
-extern int trace; /* trace directories */
-extern int newonly; /* new files only */
-
-extern long time();
-
-/*************************************************
- *** STATIC R O U T I N E S ***
- *************************************************/
-
-static makescan();
-static getscan();
-static doscan();
-static readlistfile();
-static expTinsert();
-static listone();
-static listentry();
-static listname();
-static listdir();
-static omitanyone();
-static anyglob();
-static int getscanfile();
-static int chkscanfile();
-static makescanfile();
-static recordone();
-static recordexec();
-
-/*************************************************
- *** L I S T S C A N R O U T I N E S ***
- *************************************************/
-
-static
-passdelim (ptr,delim) /* skip over delimiter */
-char **ptr,delim;
-{
- *ptr = skipover (*ptr, " \t");
- if (_argbreak != delim && **ptr == delim) {
- (*ptr)++;
- *ptr = skipover (*ptr, " \t");
- }
-}
-
-static
-char *parserelease(tlp,relname,args)
-TREELIST **tlp;
-char *relname,*args;
-{
- register TREELIST *tl;
- register char *arg;
- register OPTION option;
- int opno;
- char *nextrel;
-
- tl = (TREELIST *) malloc (sizeof(TREELIST));
- if ((*tlp = tl) == NULL)
- goaway ("Couldn't allocate TREELIST");
- tl->TLnext = NULL;
- tl->TLname = salloc (relname);
- tl->TLprefix = NULL;
- tl->TLlist = NULL;
- tl->TLscan = NULL;
- tl->TLhost = NULL;
- nextrel = NULL;
- args = skipover (args," \t");
- while (*(arg=nxtarg(&args," \t="))) {
- for (opno = 0; options[opno] != NULL; opno++)
- if (strcmp (arg,options[opno]) == 0)
- break;
- if (options[opno] == NULL)
- goaway ("Invalid release option %s for release %s",
- arg,relname);
- option = (OPTION) opno;
- switch (option) {
- case ONEXT:
- passdelim (&args,'=');
- arg = nxtarg (&args," \t");
- nextrel = salloc (arg);
- break;
- case OPREFIX:
- passdelim (&args,'=');
- arg = nxtarg (&args," \t");
- tl->TLprefix = salloc (arg);
- break;
- case OLIST:
- passdelim (&args,'=');
- arg = nxtarg (&args," \t");
- tl->TLlist = salloc (arg);
- break;
- case OSCAN:
- passdelim (&args,'=');
- arg = nxtarg (&args," \t");
- tl->TLscan = salloc (arg);
- break;
- case OHOST:
- passdelim (&args,'=');
- arg = nxtarg (&args," \t");
- tl->TLhost = salloc (arg);
- break;
- }
- }
- return (nextrel);
-}
-
-getrelease (release)
-char *release;
-{
- TREELIST *tl;
- char buf[STRINGLENGTH];
- char *p,*q;
- int rewound;
- FILE *f;
-
- if (release == NULL)
- release = salloc (DEFRELEASE);
- listTL = NULL;
-
- (void) sprintf (buf,FILERELEASES,collname);
- f = fopen (buf,"r");
- if (f != NULL) {
- rewound = TRUE;
- for (;;) {
- p = fgets (buf,STRINGLENGTH,f);
- if (p == NULL) {
- if (rewound)
- break;
- rewind (f);
- rewound = TRUE;
- continue;
- }
- q = index (p,'\n');
- if (q) *q = 0;
- if (index ("#;:",*p)) continue;
- q = nxtarg (&p," \t");
- if (strcmp (q,release) != 0)
- continue;
- release = parserelease (&tl,release,p);
- if (tl->TLprefix == NULL)
- tl->TLprefix = prefix;
- else if (chdir (tl->TLprefix) < 0)
- return (FALSE);
- else
- (void) chdir (basedir);
- tl->TLnext = listTL;
- listTL = tl;
- if (release == NULL)
- break;
- rewound = FALSE;
- }
- (void) fclose (f);
- }
- if (release == NULL)
- return (TRUE);
- if (strcmp (release,DEFRELEASE) != 0)
- return (FALSE);
- (void) parserelease (&tl,release,"");
- tl->TLprefix = prefix;
- tl->TLnext = listTL;
- listTL = tl;
- return (TRUE);
-}
-
-makescanlists (releases)
- char **releases;
-{
- TREELIST *tl;
- char buf[STRINGLENGTH];
- char *p,*q;
- FILE *f;
- char *saveprefix = prefix;
- char **rel_index;
- int count = 0;
-
- (void) sprintf (buf,FILERELEASES,collname);
- f = fopen (buf,"r");
- if (f != NULL) {
- while (p = fgets (buf,STRINGLENGTH,f)) {
- q = index (p,'\n');
- if (q) *q = 0;
- if (index ("#;:",*p)) continue;
- q = nxtarg (&p," \t");
- (void) parserelease (&tl,q,p);
- if ((prefix = tl->TLprefix) == NULL)
- prefix = saveprefix;
- if (prefix != NULL) {
- if (chdir (prefix) < 0)
- goaway ("Can't chdir to %s",prefix);
- (void) chdir (basedir);
- }
- if (releases)
- {
- rel_index = releases;
- while (*rel_index) {
- if (!strcmp (*rel_index, tl->TLname)) {
- makescan (tl->TLlist,tl->TLscan);
- break;
- }
- rel_index++;
- }
- }
- else
- makescan (tl->TLlist,tl->TLscan);
- free ((char *)tl);
- count++;
- }
- (void) fclose (f);
- }
- if (count == 0)
- makescan ((char *)NULL,FILESCANDEF);
-}
-
-static
-scanone (t)
-register TREE *t;
-{
- register TREE *newt;
-
- if (newonly && (t->Tflags&FNEW) == 0)
- return (SCMOK);
- newt = Tinsert (&listT,t->Tname,t->Tflags&FRENAME ? TRUE : FALSE);
- if (newt == NULL)
- return (SCMOK);
- if(t->Tnewname)
- newt->Tnewname = salloc(t->Tnewname);
- newt->Tmode = t->Tmode;
- newt->Tflags = t->Tflags;
- newt->Tmtime = t->Tmtime;
- return (SCMOK);
-}
-
-getscanlists ()
-{
- TREELIST *tl,*stl;
-
- stl = listTL;
- listTL = NULL;
- while ((tl = stl) != NULL) {
- prefix = tl->TLprefix;
- getscan (tl->TLlist,tl->TLscan);
- tl->TLtree = listT;
- stl = tl->TLnext;
- tl->TLnext = listTL;
- listTL = tl;
- }
- listT = NULL;
- for (tl = listTL; tl != NULL; tl = tl->TLnext)
- (void) Tprocess (tl->TLtree,scanone);
-}
-
-static
-makescan (listfile,scanfile)
-char *listfile,*scanfile;
-{
- listT = NULL;
- if(chkscanfile (scanfile)) { /* can we can write a scan file? */
- doscan (listfile); /* read list file and scan disk */
- makescanfile (scanfile);/* record names in scan file */
- Tfree (&listT); /* free file list tree */
- }
-}
-
-static
-getscan (listfile,scanfile)
-char *listfile,*scanfile;
-{
- listT = NULL;
- if (!getscanfile(scanfile)) { /* check for pre-scanned file list */
- scantime = time ((long *)NULL);
- doscan (listfile); /* read list file and scan disk */
- }
-}
-
-static
-doscan (listfile)
- char *listfile;
-{
- char buf[STRINGLENGTH];
- int listone ();
-
- upgT = NULL;
- flagsT = NULL;
- omitT = NULL;
- omanyT = NULL;
- execT = NULL;
- symT = NULL;
- rsymT = NULL;
- if (listfile == NULL)
- listfile = FILELISTDEF;
- (void) sprintf (buf,FILELIST,collname,listfile);
- readlistfile (buf); /* get contents of list file */
- (void) Tprocess (upgT,listone); /* build list of files specified */
- cdprefix ((char *)NULL);
- Tfree (&upgT);
- Tfree (&flagsT);
- Tfree (&omitT);
- Tfree (&omanyT);
- Tfree (&execT);
- Tfree (&symT);
- Tfree (&rsymT);
-}
-
-static
-readlistfile (fname)
-char *fname;
-{
- char buf[STRINGLENGTH],*p;
- register char *q,*r;
- register FILE *f;
- register int ltn,n,i,flags;
- register TREE **t;
- register LISTTYPE lt;
- char *speclist[SPECNUMBER];
-
- f = fopen (fname,"r");
- if (f == NULL) goaway ("Can't read list file %s",fname);
- cdprefix (prefix);
- while (p = fgets (buf,STRINGLENGTH,f)) {
- if (q = index (p,'\n')) *q = '\0';
- if (index ("#;:",*p)) continue;
- q = nxtarg (&p," \t");
- if (*q == '\0') continue;
- for (ltn = 0; ltname[ltn] && strcmp(q,ltname[ltn]) != 0; ltn++);
- if (ltname[ltn] == NULL)
- goaway ("Invalid list file keyword %s",q);
- lt = (LISTTYPE) ltn;
- flags = 0;
- switch (lt) {
- case LUPGRADE:
- t = &upgT;
- break;
- case LRENAME:
- t = &flagsT;
- flags = FRENAME;
- break;
- case LBACKUP:
- t = &flagsT;
- flags = FBACKUP;
- break;
- case LNOACCT:
- t = &flagsT;
- flags = FNOACCT;
- break;
- case LSYMLINK:
- t = &symT;
- break;
- case LRSYMLINK:
- t = &rsymT;
- break;
- case LOMIT:
- t = &omitT;
- break;
- case LOMITANY:
- t = &omanyT;
- break;
- case LALWAYS:
- t = &upgT;
- flags = FALWAYS;
- break;
- case LINCLUDE:
- while (*(q=nxtarg(&p," \t"))) {
- cdprefix ((char *)NULL);
- n = expand (q,speclist,SPECNUMBER);
- for (i = 0; i < n && i < SPECNUMBER; i++) {
- readlistfile (speclist[i]);
- cdprefix ((char *)NULL);
- free (speclist[i]);
- }
- cdprefix (prefix);
- }
- continue;
- case LEXECUTE:
- r = p = q = skipover (p," \t");
- do {
- q = p = skipto (p," \t(");
- p = skipover (p," \t");
- } while (*p != '(' && *p != '\0');
- if (*p++ == '(') {
- *q = '\0';
- do {
- q = nxtarg (&p," \t)");
- if (*q == 0)
- _argbreak = ')';
- else
- expTinsert (q,&execT,0,r,NULL);
- } while (_argbreak != ')');
- continue;
- }
- /* fall through */
- default:
- goaway ("Error in handling list file keyword %d",ltn);
- }
- while (*(q=nxtarg(&p," \t"))) {
- if (lt == LOMITANY)
- (void) Tinsert (t,q,FALSE);
- else if( lt == LRENAME )
- if(*(r=nxtarg(&p," \t")))
- {
- expTinsert (q,t,flags,(char *)NULL,r);
- /*
- * Omit the file it is being
- * renamed to, to avoid confusion
- */
- expTinsert (r,&omitT,0,
- (char *)NULL, (char *)NULL);
- }
- else
- printf("Rename %s without destination "
- "file. Skipping...\n", q);
- else
- expTinsert (q,t,flags,(char *)NULL,(char *)NULL);
- }
- }
- (void) fclose (f);
-}
-
-static
-expTinsert (p,t,flags,exec, q)
-char *p;
-char *q;
-TREE **t;
-int flags;
-char *exec;
-{
- register int n, i;
- register TREE *newt, *ts;
- char *speclist[SPECNUMBER];
- char buf[STRINGLENGTH];
-
- n = expand (p,speclist,SPECNUMBER);
- for (i = 0; i < n && i < SPECNUMBER; i++) {
- newt = Tinsert (t,speclist[i],TRUE);
- newt->Tflags |= flags;
- if (exec) {
- if((ts = Tsearch(flagsT, speclist[i]))
- && ts->Tflags&FRENAME)
- (void) sprintf (buf,exec,ts->Tnewname);
- else
- (void) sprintf (buf,exec,speclist[i]);
- (void) Tinsert (&newt->Texec,buf,FALSE);
- }
- if (q)
- newt->Tnewname = salloc(q);
- free (speclist[i]);
- }
-}
-
-static
-listone(t) /* expand and add one name from upgrade list */
-TREE *t;
-{
- listentry(t->Tname,t->Tname,(char *)NULL,
- (t->Tflags&FALWAYS) != 0);
- return (SCMOK);
-}
-
-static
-listentry(name,fullname,updir,always)
-register char *name, *fullname, *updir;
-int always;
-{
- struct stat statbuf;
- int link = 0;
- int omitanyone ();
-
- if (Tlookup (refuseT,fullname)) return;
- if (!always) {
- if (Tsearch (omitT,fullname)) return;
- if (Tprocess (omanyT,omitanyone,fullname) != SCMOK)
- return;
- }
- if (lstat(name,&statbuf) < 0)
- return;
- if ((statbuf.st_mode&S_IFMT) == S_IFLNK) {
- if (Tsearch (symT,fullname)) {
- listname (fullname,&statbuf);
- return;
- }
- if (Tlookup (rsymT,fullname)) {
- listname (fullname,&statbuf);
- return;
- }
- if (updir) link++;
- if (stat(name,&statbuf) < 0) return;
- }
- if ((statbuf.st_mode&S_IFMT) == S_IFDIR) {
- if (access(name,R_OK|X_OK) < 0) return;
- if (chdir(name) < 0) return;
- listname (fullname,&statbuf);
- if (trace) {
- printf ("Scanning directory %s\n",fullname);
- (void) fflush (stdout);
- }
- listdir (fullname,always);
- if (updir == 0 || link) {
- (void) chdir (basedir);
- if (prefix) (void) chdir (prefix);
- if (updir && *updir) (void) chdir (updir);
- } else
- (void) chdir ("..");
- return;
- }
- if (access(name,R_OK) < 0) return;
- listname (fullname,&statbuf);
-}
-
-static
-listname (name,st)
-register char *name;
-register struct stat *st;
-{
- register TREE *t,*ts;
- register int new;
- register TREELIST *tl;
-
- new = st->st_ctime > lasttime;
- if (newonly && !new) {
- for (tl = listTL; tl != NULL; tl = tl->TLnext)
- if (ts = Tsearch (tl->TLtree,name))
- ts->Tflags &= ~FNEW;
- return;
- }
- t = Tinsert (&listT,name,FALSE);
- if (t == NULL) return;
- t->Tmode = st->st_mode;
- t->Tctime = st->st_ctime;
- t->Tmtime = st->st_mtime;
- if (new) t->Tflags |= FNEW;
- if (ts = Tsearch (flagsT,name)){
- t->Tflags |= ts->Tflags;
- if(t->Tflags&FRENAME)
- t->Tnewname = salloc(ts->Tnewname);
- }
- if (ts = Tsearch (execT,name)) {
- t->Texec = ts->Texec;
- ts->Texec = NULL;
- }
-}
-
-static
-listdir (name,always) /* expand directory */
-char *name;
-int always;
-{
- struct dirent *dentry;
- register DIR *dirp;
- char ename[STRINGLENGTH],newname[STRINGLENGTH],filename[STRINGLENGTH];
- register char *p,*newp;
- register int i;
-
- dirp = opendir (".");
- if (dirp == 0) return; /* unreadable: probably protected */
-
- p = name; /* punt leading ./ and trailing / */
- newp = newname;
- if (p[0] == '.' && p[1] == '/') {
- p += 2;
- while (*p == '/') p++;
- }
- while (*newp++ = *p++) ; /* copy string */
- --newp; /* trailing null */
- while (newp > newname && newp[-1] == '/') --newp; /* trailing / */
- *newp = 0;
- if (strcmp (newname,".") == 0) newname[0] = 0; /* "." ==> "" */
-
- while (dentry=readdir(dirp)) {
- if (dentry->d_ino == 0) continue;
- if (strcmp(dentry->d_name,".") == 0) continue;
- if (strcmp(dentry->d_name,"..") == 0) continue;
- for (i=0; i<=MAXNAMLEN && dentry->d_name[i]; i++)
- ename[i] = dentry->d_name[i];
- ename[i] = 0;
- if (*newname)
- (void) sprintf (filename,"%s/%s",newname,ename);
- else
- (void) strcpy (filename,ename);
- listentry(ename,filename,newname,always);
- }
- closedir (dirp);
-}
-
-static
-omitanyone (t,filename)
-TREE *t;
-char **filename;
-{
- if (anyglob (t->Tname,*filename))
- return (SCMERR);
- return (SCMOK);
-}
-
-static
-anyglob (pattern,match)
-char *pattern,*match;
-{
- register char *p,*m;
- register char *pb,*pe;
-
- p = pattern;
- m = match;
- while (*m && *p == *m ) {
- p++;
- m++;
- }
- if (*p == '\0' && *m == '\0')
- return (TRUE);
- switch (*p++) {
- case '*':
- for (;;) {
- if (*p == '\0')
- return (TRUE);
- if (*m == '\0')
- return (*p == '\0');
- if (anyglob (p,++m))
- return (TRUE);
- }
- case '?':
- return (anyglob (p,++m));
- case '[':
- pb = p;
- while (*(++p) != ']')
- if (*p == '\0')
- return (FALSE);
- pe = p;
- for (p = pb + 1; p != pe; p++) {
- switch (*p) {
- case '-':
- if (p == pb && *m == '-') {
- p = pe + 1;
- return (anyglob (p,++m));
- }
- if (p == pb)
- continue;
- if ((p + 1) == pe)
- return (FALSE);
- if (*m > *(p - 1) &&
- *m <= *(p + 1)) {
- p = pe + 1;
- return (anyglob (p,++m));
- }
- continue;
- default:
- if (*m == *p) {
- p = pe + 1;
- return (anyglob (p,++m));
- }
- }
- }
- return (FALSE);
- default:
- return (FALSE);
- }
-}
-
-/*****************************************
- *** R E A D S C A N F I L E ***
- *****************************************/
-
-static
-int getscanfile (scanfile)
-char *scanfile;
-{
- char buf[STRINGLENGTH];
- struct stat sbuf;
- register FILE *f;
- TREE ts;
- register char *p,*q;
- register TREE *tmp, *t = NULL;
- register notwanted;
- register TREELIST *tl;
-
- if (scanfile == NULL)
- return(FALSE);
- (void) sprintf (buf,FILESCAN,collname,scanfile);
- if (stat(buf,&sbuf) < 0)
- return (FALSE);
- if ((f = fopen (buf,"r")) == NULL)
- return (FALSE);
- if ((p = fgets (buf,STRINGLENGTH,f)) == NULL) {
- (void) fclose (f);
- return (FALSE);
- }
- if (q = index (p,'\n')) *q = '\0';
- if (*p++ != 'V') {
- (void) fclose (f);
- return (FALSE);
- }
- if (atoi (p) != SCANVERSION) {
- (void) fclose (f);
- return (FALSE);
- }
- scantime = sbuf.st_mtime; /* upgrade time is time of supscan,
- * i.e. time of creation of scanfile */
- if (newonly && scantime == lasttime) {
- (void) fclose (f);
- return (TRUE);
- }
- notwanted = FALSE;
- while (p = fgets (buf,STRINGLENGTH,f)) {
- q = index (p,'\n');
- if (q) *q = 0;
- ts.Tflags = 0;
- if (*p == 'X') {
- if (notwanted) continue;
- if (t == NULL)
- goaway ("scanfile format inconsistant");
- (void) Tinsert (&t->Texec,++p,FALSE);
- continue;
- }
- notwanted = FALSE;
- if (*p == 'B') {
- p++;
- ts.Tflags |= FBACKUP;
- }
- if (*p == 'N') {
- p++;
- ts.Tflags |= FNOACCT;
- }
- if (*p == 'R') {
- p++;
- ts.Tflags |= FRENAME;
- }
- if ((q = index (p,' ')) == NULL)
- goaway ("scanfile format inconsistant");
- *q++ = '\0';
- ts.Tmode = atoo (p);
- p = q;
- if ((q = index (p,' ')) == NULL)
- goaway ("scanfile format inconsistant");
- *q++ = '\0';
- ts.Tctime = atoi (p);
- p = q;
- if ((q = index (p,' ')) == NULL)
- goaway ("scanfile format inconsistant");
- *q++ = 0;
- ts.Tmtime = atoi (p);
- p = q;
- ts.Tnewname = NULL;
- if (ts.Tflags & FRENAME){
- if ((q = index (p,' ')) == NULL)
- goaway ("scanfile format inconsistant");
- *q++ = '\0';
- ts.Tnewname = salloc(q);
- q = p;
- }
- if (ts.Tctime > lasttime)
- ts.Tflags |= FNEW;
- else if (newonly) {
- for (tl = listTL; tl != NULL; tl = tl->TLnext)
- if (tmp = Tsearch (tl->TLtree,q))
- tmp->Tflags &= ~FNEW;
- notwanted = TRUE;
- continue;
- }
- if (Tlookup (refuseT,q)) {
- notwanted = TRUE;
- continue;
- }
- t = Tinsert (&listT,q,TRUE);
- t->Tmode = ts.Tmode;
- t->Tflags = ts.Tflags;
- t->Tctime = ts.Tctime;
- t->Tmtime = ts.Tmtime;
- t->Tnewname = ts.Tnewname;
- }
- (void) fclose (f);
- return (TRUE);
-}
-
-/*******************************************
- *** W R I T E S C A N F I L E ***
- *******************************************/
-
-static chkscanfile (scanfile)
-char *scanfile;
-{
- char tname[STRINGLENGTH], fname[STRINGLENGTH];
- FILE *f;
-
- if (scanfile == NULL)
- return(FALSE);
- (void) sprintf (fname,FILESCAN,collname,scanfile);
- (void) sprintf (tname,"%s.temp",fname);
- if (NULL == (f = fopen (tname, "w")))
- goaway ("Can't test scan file temp %s for %s",tname,collname);
- else {
- (void) unlink (tname);
- (void) fclose (f);
- }
- return(TRUE);
-}
-
-static makescanfile (scanfile)
-char *scanfile;
-{
- char tname[STRINGLENGTH],fname[STRINGLENGTH];
- struct timeval tbuf[2];
- FILE *scanF; /* output file for scanned file list */
- int recordone ();
-
- (void) sprintf (fname,FILESCAN,collname,scanfile);
- (void) sprintf (tname,"%s.temp",fname);
- scanF = fopen (tname,"w");
- if (scanF == NULL)
- goaway ("Can't write scan file temp %s for %s",tname,collname);
- fprintf (scanF,"V%d\n",SCANVERSION);
- (void) Tprocess (listT,recordone,scanF);
- (void) fclose (scanF);
- if (rename (tname,fname) < 0)
- goaway ("Can't change %s to %s",tname,fname);
- (void) unlink (tname);
- tbuf[0].tv_sec = time((long *)NULL); tbuf[0].tv_usec = 0;
- tbuf[1].tv_sec = scantime; tbuf[1].tv_usec = 0;
- (void) utimes (fname,tbuf);
-}
-
-static
-recordone (t,scanF)
-TREE *t;
-FILE **scanF;
-{
- int recordexec ();
-
- if (t->Tflags&FBACKUP) fprintf (*scanF,"B");
- if (t->Tflags&FNOACCT) fprintf (*scanF,"N");
- if (t->Tflags&FRENAME) fprintf (*scanF,"R");
-
- fprintf (*scanF,"%o %d %d",
- t->Tmode,t->Tctime,t->Tmtime,t->Tname);
- if ( t->Tflags&FRENAME)
- fprintf (*scanF," %s %s\n",t->Tname, t->Tnewname);
- else
- fprintf (*scanF," %s\n", t->Tname);
- (void) Tprocess (t->Texec,recordexec,*scanF);
- return (SCMOK);
-}
-
-static
-recordexec (t,scanF)
-TREE *t;
-FILE **scanF;
-{
- fprintf(*scanF,"X%s\n",t->Tname);
- return (SCMOK);
-}
-
-cdprefix (prefix)
-char *prefix;
-{
- static char *curprefix = NULL;
-
- if (curprefix == NULL) {
- if (prefix == NULL)
- return;
- (void) chdir (prefix);
- curprefix = prefix;
- return;
- }
- if (prefix == NULL) {
- (void) chdir (basedir);
- curprefix = NULL;
- return;
- }
- if (prefix == curprefix)
- return;
- if (strcmp (prefix, curprefix) == 0) {
- curprefix = prefix;
- return;
- }
- (void) chdir (basedir);
- (void) chdir (prefix);
- curprefix = prefix;
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-02-28 09:44:34 +0000