![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to delfiles.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3|
Return to delfiles.c CVS log | Up to [Synchronet] / sbbs / src / sbbs3 |
1.1 root 1: /* delfiles.c */
2:
3: /* Program to delete expired files from a Synchronet file database */
4:
5: /* $Id: delfiles.c,v 1.4 2006/04/26 19:23:18 rswindell Exp $ */
6:
7: /****************************************************************************
8: * @format.tab-size 4 (Plain Text/Source Code File Header) *
9: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
10: * *
11: * Copyright 2006 Rob Swindell - http://www.synchro.net/copyright.html *
12: * *
13: * This program is free software; you can redistribute it and/or *
14: * modify it under the terms of the GNU General Public License *
15: * as published by the Free Software Foundation; either version 2 *
16: * of the License, or (at your option) any later version. *
17: * See the GNU General Public License for more details: gpl.txt or *
18: * http://www.fsf.org/copyleft/gpl.html *
19: * *
20: * Anonymous FTP access to the most recent released source is available at *
21: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
22: * *
23: * Anonymous CVS access to the development source and modification history *
24: * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login *
26: * (just hit return, no password is necessary) *
27: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src *
28: * *
29: * For Synchronet coding style and modification guidelines, see *
30: * http://www.synchro.net/source.html *
31: * *
32: * You are encouraged to submit any modifications (preferably in Unix diff *
33: * format) via e-mail to [email protected] *
34: * *
35: * Note: If this box doesn't appear square, then you need to fix your tabs. *
36: ****************************************************************************/
37:
38: #include "sbbs.h"
39:
40: #define DELFILES_VER "1.01"
41:
42: char tmp[256];
43: char *crlf="\r\n";
44:
45: #define MAX_NOTS 25
46:
47: #define ALL (1L<<0)
48: #define OFFLINE (1L<<1)
49: #define NO_LINK (1L<<2)
50: #define REPORT (1L<<3)
51:
52: void bail(int code)
53: {
54: exit(code);
55: }
56:
57: long lputs(char *str)
58: {
59: char tmp[256];
60: int i,j,k;
61:
62: j=strlen(str);
63: for(i=k=0;i<j;i++) /* remove CRs */
64: if(str[i]==CR && str[i+1]==LF)
65: continue;
66: else
67: tmp[k++]=str[i];
68: tmp[k]=0;
69: return(fputs(tmp,stdout));
70: }
71:
72: /****************************************************************************/
73: /* Performs printf() through local assembly routines */
74: /* Called from everywhere */
75: /****************************************************************************/
76: int lprintf(char *fmat, ...)
77: {
78: va_list argptr;
79: char sbuf[256];
80: int chcount;
81:
82: va_start(argptr,fmat);
83: chcount=vsprintf(sbuf,fmat,argptr);
84: va_end(argptr);
85: lputs(sbuf);
86: return(chcount);
87: }
88:
89: int main(int argc, char **argv)
90: {
91: char str[256],fname[MAX_PATH+1],not[MAX_NOTS][9],nots=0,*p;
92: int i,j,dirnum,libnum,file;
93: ulong l,m;
94: long misc=0;
95: time_t now;
96: file_t workfile;
97: scfg_t cfg;
98: glob_t gl;
99: uchar *ixbbuf;
100:
101: setvbuf(stdout,NULL,_IONBF,0);
102:
103: fprintf(stderr,"\nDELFILES Version %s (%s) - Removes files from Synchronet "
104: "Filebase\n" ,DELFILES_VER, PLATFORM_DESC );
105:
106: if(argc<2) {
107: printf("\n usage: DELFILES <dir_code or * for ALL> [switches]\n");
108: printf("\nswitches: -LIB name All directories of specified library\n");
109: printf(" -NOT code Exclude specific directory\n");
110: printf(" -OFF Remove files that are offline "
111: "(don't exist on disk)\n");
112: printf(" -NOL Remove files with no link "
113: "(don't exist in database)\n");
114: printf(" -RPT Report findings only "
115: "(don't delete any files)\n");
116: return(0); }
117:
118: p=getenv("SBBSCTRL");
119: if(p==NULL) {
120: printf("\nSBBSCTRL environment variable not set.\n");
121: #ifdef __unix__
122: printf("\nExample: export SBBSCTRL=/sbbs/ctrl\n");
123: #else
124: printf("\nExample: SET SBBSCTRL=C:\\SBBS\\CTRL\n");
125: #endif
126: return(1); }
127:
128: memset(&cfg, 0, sizeof(cfg));
129: cfg.size=sizeof(cfg);
130: SAFECOPY(cfg.ctrl_dir, p);
131: backslash(cfg.ctrl_dir);
132:
133: load_cfg(&cfg, NULL, TRUE, str);
134: chdir(cfg.ctrl_dir);
135:
136: if(!(cfg.sys_misc&SM_LOCAL_TZ))
137: putenv("TZ=UTC0");
138:
139: dirnum=libnum=-1;
140: if(argv[1][0]=='*')
141: misc|=ALL;
142: else if(argv[1][0]!='/' && argv[1][0]!='-') {
143: strupr(argv[1]);
144: for(i=0;i<cfg.total_dirs;i++)
145: if(!stricmp(argv[1],cfg.dir[i]->code))
146: break;
147: if(i>=cfg.total_dirs) {
148: printf("\nDirectory code '%s' not found.\n",argv[1]);
149: return(1); }
150: dirnum=i; }
151: for(i=1;i<argc;i++) {
152: if(!stricmp(argv[i]+1,"LIB")) {
153: if(dirnum!=-1) {
154: printf("\nBoth directory code and /LIB parameters were used.\n");
155: return(1); }
156: i++;
157: if(i>=argc) {
158: printf("\nLibrary short name must follow /LIB parameter.\n");
159: return(1); }
160: strupr(argv[i]);
161: for(j=0;j<cfg.total_libs;j++)
162: if(!stricmp(cfg.lib[j]->sname,argv[i]))
163: break;
164: if(j>=cfg.total_libs) {
165: printf("\nLibrary short name '%s' not found.\n",argv[i]);
166: return(1); }
167: libnum=j; }
168: else if(!stricmp(argv[i]+1,"NOT")) {
169: if(nots>=MAX_NOTS) {
170: printf("\nMaximum number of /NOT options (%u) exceeded.\n"
171: ,MAX_NOTS);
172: return(1); }
173: i++;
174: if(i>=argc) {
175: printf("\nDirectory internal code must follow /NOT parameter.\n");
176: return(1); }
177: sprintf(not[nots++],"%.8s",argv[i]); }
178: else if(!stricmp(argv[i]+1,"OFF"))
179: misc|=OFFLINE;
180: else if(!stricmp(argv[i]+1,"NOL"))
181: misc|=NO_LINK;
182: else if(!stricmp(argv[i]+1,"RPT"))
183: misc|=REPORT;
184: else if(!stricmp(argv[i]+1,"ALL")) {
185: if(dirnum!=-1) {
186: printf("\nBoth directory code and /ALL parameters were used.\n");
187: return(1); }
188: if(libnum!=-1) {
189: printf("\nBoth library name and /ALL parameters were used.\n");
190: return(1); }
191: misc|=ALL; } }
192:
193: for(i=0;i<cfg.total_dirs;i++) {
194: if(!(misc&ALL) && i!=dirnum && cfg.dir[i]->lib!=libnum)
195: continue;
196: for(j=0;j<nots;j++)
197: if(!stricmp(not[j],cfg.dir[i]->code))
198: break;
199: if(j<nots)
200: continue;
201:
202: if(misc&NO_LINK && cfg.dir[i]->misc&DIR_FCHK) {
203: strcpy(tmp,cfg.dir[i]->path);
204: sprintf(str,"%s*.*",tmp);
205: printf("\nSearching %s for unlinked files\n",str);
206: if(!glob(str, GLOB_MARK, NULL, &gl)) {
207: for(j=0; j<(int)gl.gl_pathc; j++) {
208: /* emulate _A_NORMAL */
209: if(isdir(gl.gl_pathv[j]))
210: continue;
211: if(access(gl.gl_pathv[j], R_OK|W_OK))
212: continue;
213: padfname(gl.gl_pathv[j],str);
214: /* strupr(str); */
215: if(!findfile(&cfg, i,str)) {
216: sprintf(str,"%s%s",tmp,gl.gl_pathv[j]);
217: printf("Removing %s (not in database)\n",gl.gl_pathv);
218: if(!(misc&REPORT) && remove(str))
219: printf("Error removing %s\n",str); } } }
220: globfree(&gl);
221: }
222:
223: if(!cfg.dir[i]->maxage && !(misc&OFFLINE))
224: continue;
225:
226: printf("\nScanning %s %s\n",cfg.lib[cfg.dir[i]->lib]->sname,cfg.dir[i]->lname);
227:
228: sprintf(str,"%s%s.ixb",cfg.dir[i]->data_dir,cfg.dir[i]->code);
229: if((file=nopen(str,O_RDONLY|O_BINARY))==-1)
230: continue;
231: l=filelength(file);
232: if(!l) {
233: close(file);
234: continue; }
235: if((ixbbuf=(char *)malloc(l))==NULL) {
236: close(file);
237: printf("\7ERR_ALLOC %s %lu\n",str,l);
238: continue; }
239: if(read(file,ixbbuf,l)!=(int)l) {
240: close(file);
241: printf("\7ERR_READ %s %lu\n",str,l);
242: free((char *)ixbbuf);
243: continue; }
244: close(file);
245:
246: m=0L;
247: now=time(NULL);
248: while(m<l) {
249: memset(&workfile,0,sizeof(file_t));
250: for(j=0;j<12 && m<l;j++)
251: if(j==8)
252: fname[j]='.';
253: else
254: fname[j]=ixbbuf[m++];
255: fname[j]=0;
256: strcpy(workfile.name,fname);
257: unpadfname(workfile.name,fname);
258: workfile.dir=i;
259: sprintf(str,"%s%s"
260: ,workfile.altpath>0 && workfile.altpath<=cfg.altpaths
261: ? cfg.altpath[workfile.altpath-1]
262: : cfg.dir[workfile.dir]->path,fname);
263: workfile.datoffset=ixbbuf[m]|((long)ixbbuf[m+1]<<8)
264: |((long)ixbbuf[m+2]<<16);
265: workfile.dateuled=(ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
266: |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24));
267: workfile.datedled=(ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
268: |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24));
269: m+=11;
270: if(cfg.dir[i]->maxage && cfg.dir[i]->misc&DIR_SINCEDL && workfile.datedled
271: && (now-workfile.datedled)/86400L>cfg.dir[i]->maxage) {
272: printf("Deleting %s (%ld days since last download)\n",fname
273: ,(now-workfile.datedled)/86400L);
274: getfiledat(&cfg, &workfile);
275: if(!(misc&REPORT)) {
276: removefiledat(&cfg, &workfile);
277: if(remove(str))
278: printf("Error removing %s\n",str); } }
279: else if(cfg.dir[i]->maxage
280: && !(workfile.datedled && cfg.dir[i]->misc&DIR_SINCEDL)
281: && (now-workfile.dateuled)/86400L>cfg.dir[i]->maxage) {
282: printf("Deleting %s (uploaded %ld days ago)\n",fname
283: ,(now-workfile.dateuled)/86400L);
284: getfiledat(&cfg, &workfile);
285: if(!(misc&REPORT)) {
286: removefiledat(&cfg, &workfile);
287: if(remove(str))
288: printf("Error removing %s\n",str); } }
289: else if(misc&OFFLINE && cfg.dir[i]->misc&DIR_FCHK && !fexist(str)) {
290: printf("Removing %s (doesn't exist)\n",fname);
291: getfiledat(&cfg, &workfile);
292: if(!(misc&REPORT))
293: removefiledat(&cfg, &workfile); } }
294:
295: free((char *)ixbbuf); }
296:
297: return(0);
298: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.