![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to file.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs3|
Return to file.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 |
1.1 root 1: /* file.cpp */
2:
3: /* Synchronet file transfer-related functions */
4:
5: /* $Id: file.cpp,v 1.5 2000/12/11 23:21:11 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 2000 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: void sbbs_t::getextdesc(uint dirnum, ulong datoffset, char *ext)
41: {
42: char str[256];
43: int file;
44:
45: memset(ext,0,513);
46: sprintf(str,"%s%s.exb",cfg.dir[dirnum]->data_dir,cfg.dir[dirnum]->code);
47: if((file=nopen(str,O_RDONLY))==-1)
48: return;
49: lseek(file,(datoffset/F_LEN)*512L,SEEK_SET);
50: read(file,ext,512);
51: close(file);
52: }
53:
54: void sbbs_t::putextdesc(uint dirnum, ulong datoffset, char *ext)
55: {
56: char str[256],nulbuf[512];
57: int file;
58:
59: memset(nulbuf,0,512);
60: sprintf(str,"%s%s.exb",cfg.dir[dirnum]->data_dir,cfg.dir[dirnum]->code);
61: if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
62: return;
63: lseek(file,0L,SEEK_END);
64: while(filelength(file)<(long)(datoffset/F_LEN)*512L)
65: write(file,nulbuf,512);
66: lseek(file,(datoffset/F_LEN)*512L,SEEK_SET);
67: write(file,ext,512);
68: close(file);
69: }
70:
71: /****************************************************************************/
72: /* Prints all information of file in file_t structure 'f' */
73: /****************************************************************************/
74: void sbbs_t::fileinfo(file_t* f)
75: {
76: char fname[13],ext[513];
77: char tmp[512];
78: uint i,j;
79:
80: for(i=0;i<usrlibs;i++)
81: if(usrlib[i]==cfg.dir[f->dir]->lib)
82: break;
83: for(j=0;j<usrdirs[i];j++)
84: if(usrdir[i][j]==f->dir)
85: break;
86: unpadfname(f->name,fname);
87: bprintf(text[FiLib],i+1,cfg.lib[cfg.dir[f->dir]->lib]->lname);
88: bprintf(text[FiDir],j+1,cfg.dir[f->dir]->lname);
89: bprintf(text[FiFilename],fname);
90: if(f->size!=-1L)
91: bprintf(text[FiFileSize],ultoac(f->size,tmp));
92: bprintf(text[FiCredits]
93: ,(cfg.dir[f->dir]->misc&DIR_FREE || !f->cdt) ? "FREE" : ultoac(f->cdt,tmp));
94: bprintf(text[FiDescription],f->desc);
95: bprintf(text[FiUploadedBy],f->misc&FM_ANON ? text[UNKNOWN_USER] : f->uler);
96: if(f->date)
97: bprintf(text[FiFileDate],timestr(&f->date));
98: bprintf(text[FiDateUled],timestr(&f->dateuled));
99: bprintf(text[FiDateDled],f->datedled ? timestr(&f->datedled) : "Never");
100: bprintf(text[FiTimesDled],f->timesdled);
101: if(f->size!=-1L)
102: bprintf(text[FiTransferTime],sectostr(f->timetodl,tmp));
103: if(f->altpath) {
104: if(f->altpath<=cfg.altpaths) {
105: if(SYSOP)
106: bprintf(text[FiAlternatePath],cfg.altpath[f->altpath-1]); }
107: else
108: bprintf(text[InvalidAlternatePathN],f->altpath); }
109: CRLF;
110: if(f->misc&FM_EXTDESC) {
111: getextdesc(f->dir,f->datoffset,ext);
112: CRLF;
113: putmsg(ext,P_NOATCODES);
114: CRLF; }
115: if(f->size==-1L)
116: bprintf(text[FileIsNotOnline],f->name);
117: if(f->opencount)
118: bprintf(text[FileIsOpen],f->opencount,f->opencount>1 ? "s" : nulstr);
119:
120: }
121:
122:
123: /****************************************************************************/
124: /* Increments the opencount on the file data 'f' and adds the transaction */
125: /* to the backout.dab */
126: /****************************************************************************/
127: void sbbs_t::openfile(file_t* f)
128: {
129: char str1[256],str2[4],str3[4],ch;
130: int file;
131:
132: /************************************/
133: /* Increment open count in dat file */
134: /************************************/
135: sprintf(str1,"%s%s.dat",cfg.dir[f->dir]->data_dir,cfg.dir[f->dir]->code);
136: if((file=nopen(str1,O_RDWR))==-1) {
137: errormsg(WHERE,ERR_OPEN,str1,O_RDWR);
138: return; }
139: lseek(file,f->datoffset+F_OPENCOUNT,SEEK_SET);
140: if(read(file,str2,3)!=3) {
141: close(file);
142: errormsg(WHERE,ERR_READ,str1,3);
143: return; }
144: str2[3]=0;
145: ultoa(atoi(str2)+1,str3,10);
146: putrec(str2,0,3,str3);
147: lseek(file,f->datoffset+F_OPENCOUNT,SEEK_SET);
148: if(write(file,str2,3)!=3) {
149: close(file);
150: errormsg(WHERE,ERR_WRITE,str1,3);
151: return; }
152: close(file);
153: /**********************************/
154: /* Add transaction to BACKOUT.DAB */
155: /**********************************/
156: sprintf(str1,"%sbackout.dab",cfg.node_dir);
157: if((file=nopen(str1,O_WRONLY|O_APPEND|O_CREAT))==-1) {
158: errormsg(WHERE,ERR_OPEN,str1,O_WRONLY|O_APPEND|O_CREAT);
159: return; }
160: ch=BO_OPENFILE;
161: write(file,&ch,1); /* backout type */
162: write(file,cfg.dir[f->dir]->code,8); /* directory code */
163: write(file,&f->datoffset,4); /* offset into .dat file */
164: write(file,&ch,BO_LEN-(1+8+4)); /* pad it */
165: close(file);
166: }
167:
168: /****************************************************************************/
169: /* Decrements the opencount on the file data 'f' and removes the backout */
170: /* from the backout.dab */
171: /****************************************************************************/
172: void sbbs_t::closefile(file_t* f)
173: {
174: char str1[256],str2[4],str3[4],ch,*buf;
175: int file;
176: long length,l,offset;
177:
178: /************************************/
179: /* Decrement open count in dat file */
180: /************************************/
181: sprintf(str1,"%s%s.dat",cfg.dir[f->dir]->data_dir,cfg.dir[f->dir]->code);
182: if((file=nopen(str1,O_RDWR))==-1) {
183: errormsg(WHERE,ERR_OPEN,str1,O_RDWR);
184: return; }
185: lseek(file,f->datoffset+F_OPENCOUNT,SEEK_SET);
186: if(read(file,str2,3)!=3) {
187: close(file);
188: errormsg(WHERE,ERR_READ,str1,3);
189: return; }
190: str2[3]=0;
191: ch=atoi(str2);
192: if(ch) ch--;
193: ultoa(ch,str3,10);
194: putrec(str2,0,3,str3);
195: lseek(file,f->datoffset+F_OPENCOUNT,SEEK_SET);
196: if(write(file,str2,3)!=3) {
197: close(file);
198: errormsg(WHERE,ERR_WRITE,str1,3);
199: return; }
200: close(file);
201: /*****************************************/
202: /* Removing transaction from BACKOUT.DAB */
203: /*****************************************/
204: sprintf(str1,"%sbackout.dab",cfg.node_dir);
205: if(flength(str1)<1L) /* file is not there or empty */
206: return;
207: if((file=nopen(str1,O_RDONLY))==-1) {
208: errormsg(WHERE,ERR_OPEN,str1,O_RDONLY);
209: return; }
210: length=filelength(file);
211: if((buf=(char *)MALLOC(length))==NULL) {
212: close(file);
213: errormsg(WHERE,ERR_ALLOC,str1,length);
214: return; }
215: if(read(file,buf,length)!=length) {
216: close(file);
217: FREE(buf);
218: errormsg(WHERE,ERR_READ,str1,length);
219: return; }
220: close(file);
221: if((file=nopen(str1,O_WRONLY|O_TRUNC))==-1) {
222: errormsg(WHERE,ERR_OPEN,str1,O_WRONLY|O_TRUNC);
223: return; }
224: ch=0; /* 'ch' is a 'file already removed' flag */
225: for(l=0;l<length;l+=BO_LEN) { /* in case file is in backout.dab > 1 */
226: if(!ch && buf[l]==BO_OPENFILE) {
227: memcpy(str1,buf+l+1,8);
228: str1[8]=0;
229: memcpy(&offset,buf+l+9,4);
230: if(!stricmp(str1,cfg.dir[f->dir]->code) && offset==f->datoffset) {
231: ch=1;
232: continue; } }
233: write(file,buf+l,BO_LEN); }
234: FREE(buf);
235: close(file);
236: }
237:
238: /****************************************************************************/
239: /* Prompts user for file specification. <CR> is *.* and .* is assumed. */
240: /* Returns padded file specification. */
241: /* Returns NULL if input was aborted. */
242: /****************************************************************************/
243: char * sbbs_t::getfilespec(char *str)
244: {
245: bputs(text[FileSpecStarDotStar]);
246: if(!getstr(str,12,K_UPPER))
247: strcpy(str,"*.*");
248: else if(!strchr(str,'.') && strlen(str)<=8)
249: strcat(str,".*");
250: if(sys_status&SS_ABORT)
251: return(0);
252: return(str);
253: }
254:
255: /****************************************************************************/
256: /* Checks to see if filename matches filespec. Returns 1 if yes, 0 if no */
257: /****************************************************************************/
258: BOOL filematch(char *filename, char *filespec)
259: {
260: char c;
261:
262: for(c=0;c<8;c++) /* Handle Name */
263: if(filespec[c]=='*') break;
264: else if(filespec[c]=='?') continue;
265: else if(toupper(filename[c])!=toupper(filespec[c])) return(FALSE);
266: for(c=9;c<12;c++)
267: if(filespec[c]=='*') break;
268: else if(filespec[c]=='?') continue;
269: else if(toupper(filename[c])!=toupper(filespec[c])) return(FALSE);
270: return(TRUE);
271: }
272:
273: /****************************************************************************/
274: /* Deletes all files in dir 'path' that match file spec 'spec' */
275: /****************************************************************************/
276: uint sbbs_t::delfiles(char *inpath, char *spec)
277: {
278: char path[MAX_PATH];
279: uint i,files=0;
280: glob_t g;
281:
282: strcpy(path,inpath);
283: backslash(path);
284: strcat(path,spec);
285: glob(path,0,NULL,&g);
286: for(i=0;i<g.gl_pathc;i++) {
287: if(isdir(g.gl_pathv[i]))
288: continue;
289: CHMOD(g.gl_pathv[i],S_IWRITE); // Incase it's been marked RDONLY
290: if(remove(g.gl_pathv[i]))
291: errormsg(WHERE,ERR_REMOVE,g.gl_pathv[i],0);
292: else
293: files++;
294: }
295: globfree(&g);
296: return(files);
297: }
298:
299: /*****************************************************************************/
300: /* Checks the filename 'fname' for invalid symbol or character sequences */
301: /*****************************************************************************/
302: bool sbbs_t::checkfname(char *fname)
303: {
304: char str[256];
305: int c=0,d;
306:
307: if(strcspn(fname,"\\/|<>+[]:=\";,%")!=strlen(fname)) {
308: sprintf(str,"Suspicious filename attempt: '%s'",fname);
309: errorlog(str);
310: return(false); }
311: if(strstr(fname,".."))
312: return(false);
313: if(strcspn(fname,".")>8)
314: return(false);
315: d=strlen(fname);
316: while(c<d) {
317: if(fname[c]<=SP || fname[c]&0x80)
318: return(false);
319: c++; }
320: return(true);
321: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.