![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to listfile.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to listfile.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 root 1: #line 1 "LISTFILE.C"
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #include "sbbs.h"
6:
7: int listfile(char *fname, char HUGE16 *buf, uint dirnum
8: , char *search, char letter, ulong datoffset);
9:
10: void clearline(void)
11: {
12: int i;
13:
14: outchar(CR);
15: if(useron.misc&ANSI)
16: bputs("\x1b[K");
17: else {
18: for(i=0;i<79;i++)
19: outchar(SP);
20: outchar(CR); }
21: }
22:
23: /****************************************************************************/
24: /* Remove credits from uploader of file 'f' */
25: /****************************************************************************/
26: void removefcdt(file_t f)
27: {
28: char str[128];
29: int u;
30: long cdt;
31:
32: if((u=matchuser(f.uler))==0) {
33: bputs(text[UnknownUser]);
34: return; }
35: cdt=0L;
36: if(dir[f.dir]->misc&DIR_CDTMIN && cur_cps) {
37: if(dir[f.dir]->misc&DIR_CDTUL)
38: cdt=((ulong)(f.cdt*(dir[f.dir]->up_pct/100.0))/cur_cps)/60;
39: if(dir[f.dir]->misc&DIR_CDTDL
40: && f.timesdled) /* all downloads */
41: cdt+=((ulong)((long)f.timesdled
42: *f.cdt*(dir[f.dir]->dn_pct/100.0))/cur_cps)/60;
43: adjustuserrec(u,U_MIN,10,-cdt);
44: sprintf(str,"%lu minute",cdt);
45: sprintf(tmp,text[FileRemovedUserMsg]
46: ,f.name,cdt ? str : text[No]);
47: putsmsg(u,tmp); }
48: else {
49: if(dir[f.dir]->misc&DIR_CDTUL)
50: cdt=(ulong)(f.cdt*(dir[f.dir]->up_pct/100.0));
51: if(dir[f.dir]->misc&DIR_CDTDL
52: && f.timesdled) /* all downloads */
53: cdt+=(ulong)((long)f.timesdled
54: *f.cdt*(dir[f.dir]->dn_pct/100.0));
55: adjustuserrec(u,U_CDT,10,-cdt);
56: sprintf(tmp,text[FileRemovedUserMsg]
57: ,f.name,cdt ? ultoac(cdt,str) : text[No]);
58: putsmsg(u,tmp); }
59:
60: adjustuserrec(u,U_ULB,10,-f.size);
61: adjustuserrec(u,U_ULS,5,-1);
62: }
63:
64: /****************************************************************************/
65: /* Move file 'f' from f.dir to newdir */
66: /****************************************************************************/
67: void movefile(file_t f, int newdir)
68: {
69: char str[256],path[256],fname[128],ext[1024];
70: int olddir=f.dir;
71:
72: if(findfile(newdir,f.name)) {
73: bprintf(text[FileAlreadyThere],f.name);
74: return; }
75: getextdesc(olddir,f.datoffset,ext);
76: if(dir[olddir]->misc&DIR_MOVENEW)
77: f.dateuled=time(NULL);
78: unpadfname(f.name,fname);
79: removefiledat(f);
80: f.dir=newdir;
81: addfiledat(&f);
82: bprintf(text[MovedFile],f.name
83: ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
84: sprintf(str,"Moved %s to %s %s",f.name
85: ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
86: logline(nulstr,str);
87: if(!f.altpath) { /* move actual file */
88: sprintf(str,"%s%s",dir[olddir]->path,fname);
89: if(fexist(str)) {
90: sprintf(path,"%s%s",dir[f.dir]->path,fname);
91: mv(str,path,0); } }
92: if(f.misc&FM_EXTDESC)
93: putextdesc(f.dir,f.datoffset,ext);
94: }
95:
96: /****************************************************************************/
97: /* Batch flagging prompt for download, extended info, and archive viewing */
98: /* Returns -1 if 'Q' or Ctrl-C, 0 if skip, 1 if [Enter], 2 otherwise */
99: /* or 3, backwards. */
100: /****************************************************************************/
101: char batchflagprompt(int dirnum, file_t bf[26], char total, long totalfiles)
102: {
103: char ch,c,d,str[256],fname[128],*p,remcdt,remfile;
104: int i,j,u,ml,md,udir,ulib;
105: long cdt;
106: file_t f;
107:
108: for(ulib=0;ulib<usrlibs;ulib++)
109: if(usrlib[ulib]==dir[dirnum]->lib)
110: break;
111: for(udir=0;udir<usrdirs[ulib];udir++)
112: if(usrdir[ulib][udir]==dirnum)
113: break;
114:
115: CRLF;
116: while(online) {
117: bprintf(text[BatchFlagPrompt]
118: ,ulib+1
119: ,lib[dir[dirnum]->lib]->sname
120: ,udir+1
121: ,dir[dirnum]->sname
122: ,totalfiles);
123: ch=getkey(K_UPPER);
124: clearline();
125: if(ch=='?') {
126: menu("BATFLAG");
127: if(lncntr)
128: pause();
129: return(2); }
130: if(ch=='Q' || sys_status&SS_ABORT)
131: return(-1);
132: if(ch=='S')
133: return(0);
134: if(ch=='P')
135: return(3);
136: if(ch=='B') { /* Flag for batch download */
137: if(useron.rest&FLAG('D')) {
138: bputs(text[R_Download]);
139: return(2); }
140: if(total==1) {
141: f.dir=dirnum;
142: strcpy(f.name,bf[0].name);
143: f.datoffset=bf[0].datoffset;
144: f.size=0;
145: getfiledat(&f);
146: addtobatdl(f);
147: CRLF;
148: return(2); }
149: bputs(text[BatchDlFlags]);
150: d=getstr(str,26,K_UPPER|K_LOWPRIO|K_NOCRLF);
151: lncntr=0;
152: if(sys_status&SS_ABORT)
153: return(-1);
154: if(d) { /* d is string length */
155: CRLF;
156: lncntr=0;
157: for(c=0;c<d;c++) {
158: if(batdn_total>=max_batdn) {
159: bprintf(text[BatchDlQueueIsFull],str+c);
160: break; }
161: if(strchr(str+c,'.')) { /* filename or spec given */
162: f.dir=dirnum;
163: p=strchr(str+c,SP);
164: if(!p) p=strchr(str+c,',');
165: if(p) *p=0;
166: for(i=0;i<total;i++) {
167: if(batdn_total>=max_batdn) {
168: bprintf(text[BatchDlQueueIsFull],str+c);
169: break; }
170: padfname(str+c,tmp);
171: if(filematch(bf[i].name,tmp)) {
172: strcpy(f.name,bf[i].name);
173: f.datoffset=bf[i].datoffset;
174: f.size=0;
175: getfiledat(&f);
176: addtobatdl(f); } } }
177: if(strchr(str+c,'.'))
178: c+=strlen(str+c);
179: else if(str[c]<'A'+total && str[c]>='A') {
180: f.dir=dirnum;
181: strcpy(f.name,bf[str[c]-'A'].name);
182: f.datoffset=bf[str[c]-'A'].datoffset;
183: f.size=0;
184: getfiledat(&f);
185: addtobatdl(f); } }
186: CRLF;
187: return(2); }
188: clearline();
189: continue; }
190:
191: if(ch=='E' || ch=='V') { /* Extended Info */
192: if(total==1) {
193: f.dir=dirnum;
194: strcpy(f.name,bf[0].name);
195: f.datoffset=bf[0].datoffset;
196: f.dateuled=bf[0].dateuled;
197: f.datedled=bf[0].datedled;
198: f.size=0;
199: getfiledat(&f);
200: if(!viewfile(f,ch=='E'))
201: return(-1);
202: return(2); }
203: bputs(text[BatchDlFlags]);
204: d=getstr(str,26,K_UPPER|K_LOWPRIO|K_NOCRLF);
205: lncntr=0;
206: if(sys_status&SS_ABORT)
207: return(-1);
208: if(d) { /* d is string length */
209: CRLF;
210: lncntr=0;
211: for(c=0;c<d;c++) {
212: if(strchr(str+c,'.')) { /* filename or spec given */
213: f.dir=dirnum;
214: p=strchr(str+c,SP);
215: if(!p) p=strchr(str+c,',');
216: if(p) *p=0;
217: for(i=0;i<total;i++) {
218: padfname(str+c,tmp);
219: if(filematch(bf[i].name,tmp)) {
220: strcpy(f.name,bf[i].name);
221: f.datoffset=bf[i].datoffset;
222: f.dateuled=bf[i].dateuled;
223: f.datedled=bf[i].datedled;
224: f.size=0;
225: getfiledat(&f);
226: if(!viewfile(f,ch=='E'))
227: return(-1); } } }
228: if(strchr(str+c,'.'))
229: c+=strlen(str+c);
230: else if(str[c]<'A'+total && str[c]>='A') {
231: f.dir=dirnum;
232: strcpy(f.name,bf[str[c]-'A'].name);
233: f.datoffset=bf[str[c]-'A'].datoffset;
234: f.dateuled=bf[str[c]-'A'].dateuled;
235: f.datedled=bf[str[c]-'A'].datedled;
236: f.size=0;
237: getfiledat(&f);
238: if(!viewfile(f,ch=='E'))
239: return(-1); } }
240: return(2); }
241: clearline();
242: continue; }
243:
244: if((ch=='D' || ch=='M') /* Delete or Move */
245: && !(useron.rest&FLAG('R'))
246: && (dir_op(dirnum) || useron.exempt&FLAG('R'))) {
247: if(total==1) {
248: strcpy(str,"A");
249: d=1; }
250: else {
251: bputs(text[BatchDlFlags]);
252: d=getstr(str,26,K_UPPER|K_LOWPRIO|K_NOCRLF); }
253: lncntr=0;
254: if(sys_status&SS_ABORT)
255: return(-1);
256: if(d) { /* d is string length */
257: CRLF;
258: if(ch=='D') {
259: if(noyes(text[AreYouSureQ]))
260: return(2);
261: remcdt=remfile=1;
262: if(dir_op(dirnum)) {
263: remcdt=!noyes(text[RemoveCreditsQ]);
264: remfile=!noyes(text[DeleteFileQ]); } }
265: else if(ch=='M') {
266: CRLF;
267: for(i=0;i<usrlibs;i++)
268: bprintf(text[MoveToLibLstFmt],i+1,lib[usrlib[i]]->lname);
269: SYNC;
270: bprintf(text[MoveToLibPrompt],dir[dirnum]->lib+1);
271: if((ml=getnum(usrlibs))==-1)
272: return(2);
273: if(!ml)
274: ml=dir[dirnum]->lib;
275: else
276: ml--;
277: CRLF;
278: for(j=0;j<usrdirs[ml];j++)
279: bprintf(text[MoveToDirLstFmt]
280: ,j+1,dir[usrdir[ml][j]]->lname);
281: SYNC;
282: bprintf(text[MoveToDirPrompt],usrdirs[ml]);
283: if((md=getnum(usrdirs[ml]))==-1)
284: return(2);
285: if(!md)
286: md=usrdirs[ml]-1;
287: else md--;
288: CRLF; }
289: lncntr=0;
290: for(c=0;c<d;c++) {
291: if(strchr(str+c,'.')) { /* filename or spec given */
292: f.dir=dirnum;
293: p=strchr(str+c,SP);
294: if(!p) p=strchr(str+c,',');
295: if(p) *p=0;
296: for(i=0;i<total;i++) {
297: padfname(str+c,tmp);
298: if(filematch(bf[i].name,tmp)) {
299: strcpy(f.name,bf[i].name);
300: unpadfname(f.name,fname);
301: f.datoffset=bf[i].datoffset;
302: f.dateuled=bf[i].dateuled;
303: f.datedled=bf[i].datedled;
304: f.size=0;
305: getfiledat(&f);
306: if(f.opencount) {
307: bprintf(text[FileIsOpen]
308: ,f.opencount,f.opencount>1 ? "s":nulstr);
309: continue; }
310: if(ch=='D') {
311: removefiledat(f);
312: if(remfile) {
313: sprintf(tmp,"%s%s",dir[f.dir]->path,fname);
314: remove(tmp); }
315: if(remcdt)
316: removefcdt(f); }
317: else if(ch=='M')
318: movefile(f,usrdir[ml][md]); } } }
319: if(strchr(str+c,'.'))
320: c+=strlen(str+c);
321: else if(str[c]<'A'+total && str[c]>='A') {
322: f.dir=dirnum;
323: strcpy(f.name,bf[str[c]-'A'].name);
324: unpadfname(f.name,fname);
325: f.datoffset=bf[str[c]-'A'].datoffset;
326: f.dateuled=bf[str[c]-'A'].dateuled;
327: f.datedled=bf[str[c]-'A'].datedled;
328: f.size=0;
329: getfiledat(&f);
330: if(f.opencount) {
331: bprintf(text[FileIsOpen]
332: ,f.opencount,f.opencount>1 ? "s":nulstr);
333: continue; }
334: if(ch=='D') {
335: removefiledat(f);
336: if(remfile) {
337: sprintf(tmp,"%s%s",dir[f.dir]->path,fname);
338: remove(tmp); }
339: if(remcdt)
340: removefcdt(f); }
341: else if(ch=='M')
342: movefile(f,usrdir[ml][md]); } }
343: return(2); }
344: clearline();
345: continue; }
346:
347: return(1); }
348:
349: return(-1);
350: }
351:
352: /*****************************************************************************/
353: /* List files in directory 'dir' that match 'filespec'. Filespec must be */
354: /* padded. ex: FILE* .EXT, not FILE*.EXT. 'mode' determines other critiria */
355: /* the files must meet before they'll be listed. 'mode' bit FL_NOHDR doesn't */
356: /* list the directory header. */
357: /* Returns -1 if the listing was aborted, otherwise total files listed */
358: /*****************************************************************************/
359: int listfiles(uint dirnum, char *filespec, int tofile, char mode)
360: {
361: uchar str[256],hdr[256],cmd[129],c,d,letter='A',*buf,*p,ext[513];
362: uchar HUGE16 *datbuf,HUGE16 *ixbbuf,flagprompt=0;
363: int i,j,file,found=0,lastbat=0,disp;
364: ulong l,m=0,n,length,anchor,next,datbuflen;
365: file_t f,bf[26]; /* bf is batch flagged files */
366:
367: if(mode&FL_ULTIME) {
368: last_ns_time=now;
369: sprintf(str,"%s%s.DAB",dir[dirnum]->data_dir,dir[dirnum]->code);
370: if((file=nopen(str,O_RDONLY))!=-1) {
371: read(file,&l,4);
372: close(file);
373: if(ns_time>l)
374: return(0); } }
375: sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
376: if((file=nopen(str,O_RDONLY))==-1)
377: return(0);
378: l=filelength(file);
379: if(!l) {
380: close(file);
381: return(0); }
382: if((ixbbuf=(char *)MALLOC(l))==NULL) {
383: close(file);
384: errormsg(WHERE,ERR_ALLOC,str,l);
385: return(0); }
386: if(lread(file,ixbbuf,l)!=l) {
387: close(file);
388: errormsg(WHERE,ERR_READ,str,l);
389: FREE((char *)ixbbuf);
390: return(0); }
391: close(file);
392: sprintf(str,"%s%s.DAT",dir[dirnum]->data_dir,dir[dirnum]->code);
393: if((file=nopen(str,O_RDONLY))==-1) {
394: errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
395: FREE((char *)ixbbuf);
396: return(0); }
397: datbuflen=filelength(file);
398: if((datbuf=MALLOC(datbuflen))==NULL) {
399: close(file);
400: errormsg(WHERE,ERR_ALLOC,str,datbuflen);
401: FREE((char *)ixbbuf);
402: return(0); }
403: if(lread(file,datbuf,datbuflen)!=datbuflen) {
404: close(file);
405: errormsg(WHERE,ERR_READ,str,datbuflen);
406: FREE((char *)datbuf);
407: FREE((char *)ixbbuf);
408: return(0); }
409: close(file);
410: if(!tofile) {
411: action=NODE_LFIL;
412: getnodedat(node_num,&thisnode,0);
413: if(thisnode.action!=NODE_LFIL) { /* was a sync */
414: getnodedat(node_num,&thisnode,1);
415: thisnode.action=NODE_LFIL;
416: putnodedat(node_num,thisnode); } }
417: while(online && found<MAX_FILES) {
418: if(found<0)
419: found=0;
420: if(m>=l || flagprompt) { /* End of list */
421: if(useron.misc&BATCHFLAG && !tofile && found && found!=lastbat
422: && !(mode&(FL_EXFIND|FL_VIEW))) {
423: flagprompt=0;
424: lncntr=0;
425: if((i=batchflagprompt(dirnum,bf,letter-'A',l/F_IXBSIZE))==2) {
426: m=anchor;
427: found-=letter-'A';
428: letter='A'; }
429: else if(i==3) {
430: if((long)anchor-((letter-'A')*F_IXBSIZE)<0) {
431: m=0;
432: found=0; }
433: else {
434: m=anchor-((letter-'A')*F_IXBSIZE);
435: found-=letter-'A'; }
436: letter='A'; }
437: else if(i==-1) {
438: FREE((char *)ixbbuf);
439: FREE((char *)datbuf);
440: return(-1); }
441: else
442: break;
443: getnodedat(node_num,&thisnode,0);
444: nodesync(); }
445: else
446: break; }
447:
448: if(letter>'Z')
449: letter='A';
450: if(letter=='A')
451: anchor=m;
452:
453: if(msgabort()) { /* used to be !tofile && msgabort() */
454: FREE((char *)ixbbuf);
455: FREE((char *)datbuf);
456: return(-1); }
457: for(j=0;j<12 && m<l;j++)
458: if(j==8)
459: str[j]='.';
460: else
461: str[j]=ixbbuf[m++]; /* Turns FILENAMEEXT into FILENAME.EXT */
462: str[j]=0;
463: if(!(mode&(FL_FINDDESC|FL_EXFIND)) && filespec[0]
464: && !filematch(str,filespec)) {
465: m+=11;
466: continue; }
467: n=ixbbuf[m]|((long)ixbbuf[m+1]<<8)|((long)ixbbuf[m+2]<<16);
468: if(n>=datbuflen) { /* out of bounds */
469: m+=11;
470: continue; }
471: if(mode&(FL_FINDDESC|FL_EXFIND)) {
472: getrec((char *)&datbuf[n],F_DESC,LEN_FDESC,tmp);
473: strupr(tmp);
474: p=strstr(tmp,filespec);
475: if(!(mode&FL_EXFIND) && p==NULL) {
476: m+=11;
477: continue; }
478: getrec((char *)&datbuf[n],F_MISC,1,tmp);
479: j=tmp[0]; /* misc bits */
480: if(j) j-=SP;
481: if(mode&FL_EXFIND && j&FM_EXTDESC) { /* search extended description */
482: getextdesc(dirnum,n,ext);
483: strupr(ext);
484: if(!strstr(ext,filespec) && !p) { /* not in description or */
485: m+=11; /* extended description */
486: continue; } }
487: else if(!p) { /* no extended description and not in desc */
488: m+=11;
489: continue; } }
490: if(mode&FL_ULTIME) {
491: if(ns_time>(ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)|((long)ixbbuf[m+5]<<16)
492: |((long)ixbbuf[m+6]<<24))) {
493: m+=11;
494: continue; } }
495: if(useron.misc&BATCHFLAG && letter=='A' && found && !tofile
496: && !(mode&(FL_EXFIND|FL_VIEW))
497: && (!mode || !(useron.misc&EXPERT)))
498: bputs(text[FileListBatchCommands]);
499: m+=11;
500: if(!found && !(mode&(FL_EXFIND|FL_VIEW))) {
501: for(i=0;i<usrlibs;i++)
502: if(usrlib[i]==dir[dirnum]->lib)
503: break;
504: for(j=0;j<usrdirs[i];j++)
505: if(usrdir[i][j]==dirnum)
506: break; /* big header */
507: if((!mode || !(useron.misc&EXPERT)) && !tofile && (!filespec[0]
508: || (strchr(filespec,'*') || strchr(filespec,'?')))) {
509: sprintf(hdr,"%s%s.HDR",dir[dirnum]->data_dir,dir[dirnum]->code);
510: if(fexist(hdr))
511: printfile(hdr,0); /* Use DATA\DIRS\<CODE>.HDR */
512: else {
513: if(useron.misc&BATCHFLAG)
514: bputs(text[FileListBatchCommands]);
515: else {
516: CLS;
517: d=strlen(lib[usrlib[i]]->lname)>strlen(dir[dirnum]->lname) ?
518: strlen(lib[usrlib[i]]->lname)+17
519: : strlen(dir[dirnum]->lname)+17;
520: if(i>8 || j>8) d++;
521: attr(color[clr_filelsthdrbox]);
522: bputs("��"); /* use to start with \r\n */
523: for(c=0;c<d;c++)
524: outchar('�');
525: bputs("�\r\n� ");
526: sprintf(hdr,text[BoxHdrLib],i+1,lib[usrlib[i]]->lname);
527: bputs(hdr);
528: for(c=bstrlen(hdr);c<d;c++)
529: outchar(SP);
530: bputs("�\r\n� ");
531: sprintf(hdr,text[BoxHdrDir],j+1,dir[dirnum]->lname);
532: bputs(hdr);
533: for(c=bstrlen(hdr);c<d;c++)
534: outchar(SP);
535: bputs("�\r\n� ");
536: sprintf(hdr,text[BoxHdrFiles],l/F_IXBSIZE);
537: bputs(hdr);
538: for(c=bstrlen(hdr);c<d;c++)
539: outchar(SP);
540: bputs("�\r\n��");
541: for(c=0;c<d;c++)
542: outchar('�');
543: bputs("�\r\n"); } } }
544: else { /* short header */
545: if(tofile) {
546: sprintf(hdr,"(%u) %s ",i+1,lib[usrlib[i]]->sname);
547: write(tofile,crlf,2);
548: write(tofile,hdr,strlen(hdr)); }
549: else {
550: sprintf(hdr,text[ShortHdrLib],i+1,lib[usrlib[i]]->sname);
551: bputs("\r\1>\r\n");
552: bputs(hdr); }
553: c=bstrlen(hdr);
554: if(tofile) {
555: sprintf(hdr,"(%u) %s",j+1,dir[dirnum]->lname);
556: write(tofile,hdr,strlen(hdr)); }
557: else {
558: sprintf(hdr,text[ShortHdrDir],j+1,dir[dirnum]->lname);
559: bputs(hdr); }
560: c+=bstrlen(hdr);
561: if(tofile) {
562: write(tofile,crlf,2);
563: sprintf(hdr,"%*s",c,nulstr);
564: strset(hdr,'�');
565: strcat(hdr,crlf);
566: write(tofile,hdr,strlen(hdr)); }
567: else {
568: CRLF;
569: attr(color[clr_filelstline]);
570: while(c--)
571: outchar('�');
572: CRLF; } } }
573: next=m;
574: disp=1;
575: if(mode&(FL_EXFIND|FL_VIEW)) {
576: f.dir=dirnum;
577: strcpy(f.name,str);
578: m-=11;
579: f.datoffset=n;
580: f.dateuled=ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
581: |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24);
582: f.datedled=ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
583: |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24);
584: m+=11;
585: f.size=0;
586: getfiledat(&f);
587: if(!found)
588: bputs("\r\1>");
589: if(mode&FL_EXFIND) {
590: if(!viewfile(f,1)) {
591: FREE((char *)ixbbuf);
592: FREE((char *)datbuf);
593: return(-1); } }
594: else {
595: if(!viewfile(f,0)) {
596: FREE((char *)ixbbuf);
597: FREE((char *)datbuf);
598: return(-1); } } }
599:
600: else if(tofile)
601: listfiletofile(str,&datbuf[n],dirnum,tofile);
602: else if(mode&FL_FINDDESC)
603: disp=listfile(str,&datbuf[n],dirnum,filespec,letter,n);
604: else
605: disp=listfile(str,&datbuf[n],dirnum,nulstr,letter,n);
606: if(!disp && letter>'A') {
607: next=m-F_IXBSIZE;
608: letter--; }
609: else {
610: disp=1;
611: found++; }
612: if(sys_status&SS_ABORT) {
613: FREE((char *)ixbbuf);
614: FREE((char *)datbuf);
615: return(-1); }
616: if(mode&(FL_EXFIND|FL_VIEW))
617: continue;
618: if(useron.misc&BATCHFLAG && !tofile) {
619: if(disp) {
620: strcpy(bf[letter-'A'].name,str);
621: m-=11;
622: bf[letter-'A'].datoffset=n;
623: bf[letter-'A'].dateuled=ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
624: |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24);
625: bf[letter-'A'].datedled=ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
626: |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24); }
627: m+=11;
628: if(flagprompt || letter=='Z' || !disp ||
629: (filespec[0] && !strchr(filespec,'*') && !strchr(filespec,'?')
630: && !(mode&FL_FINDDESC))
631: || (useron.misc&BATCHFLAG && !tofile && lncntr>=rows-2)
632: ) {
633: flagprompt=0;
634: lncntr=0;
635: lastbat=found;
636: if((i=batchflagprompt(dirnum,bf,letter-'A'+1,l/F_IXBSIZE))<1) {
637: FREE((char *)ixbbuf);
638: FREE((char *)datbuf);
639: if(i==-1)
640: return(-1);
641: else
642: return(found); }
643: if(i==2) {
644: next=anchor;
645: found-=(letter-'A')+1; }
646: else if(i==3) {
647: if((long)anchor-((letter-'A'+1)*F_IXBSIZE)<0) {
648: next=0;
649: found=0; }
650: else {
651: next=anchor-((letter-'A'+1)*F_IXBSIZE);
652: found-=letter-'A'+1; } }
653: getnodedat(node_num,&thisnode,0);
654: nodesync();
655: letter='A'; }
656: else letter++; }
657: if(useron.misc&BATCHFLAG && !tofile
658: && lncntr>=rows-2) {
659: lncntr=0; /* defeat pause() */
660: flagprompt=1; }
661: m=next;
662: if(mode&FL_FINDDESC) continue;
663: if(filespec[0] && !strchr(filespec,'*') && !strchr(filespec,'?') && m)
664: break; }
665:
666: FREE((char *)ixbbuf);
667: FREE((char *)datbuf);
668: return(found);
669: }
670:
671: int cntlines(char *str)
672: {
673: int i,lc,last;
674:
675: for(i=lc=last=0;str[i];i++)
676: if(str[i]==LF || i-last>LEN_FDESC) {
677: lc++;
678: last=i; }
679: return(lc);
680: }
681:
682: /****************************************************************************/
683: /* Prints one file's information on a single line */
684: /* Return 1 if displayed, 0 otherwise */
685: /****************************************************************************/
686: int listfile(char *fname, char HUGE16 *buf, uint dirnum
687: , char *search, char letter, ulong datoffset)
688: {
689: char str[256],ext[513]="",*ptr,*cr,*lf,exist=1;
690: uchar alt;
691: int i,j;
692: ulong cdt;
693:
694: if(buf[F_MISC]!=ETX && (buf[F_MISC]-SP)&FM_EXTDESC && useron.misc&EXTDESC) {
695: getextdesc(dirnum,datoffset,ext);
1.1.1.2 ! root 696: if(useron.misc&BATCHFLAG && lncntr+cntlines(ext)>=rows-2 && letter!='A')
1.1 root 697: return(0); }
698: attr(color[clr_filename]);
699: bputs(fname);
700: if(buf[F_MISC]!=ETX && (buf[F_MISC]-SP)&FM_EXTDESC) {
701: if(!(useron.misc&EXTDESC))
702: outchar('+');
703: else
704: outchar(SP); }
705: else
706: outchar(SP);
707: if(useron.misc&BATCHFLAG) {
708: attr(color[clr_filedesc]);
709: bprintf("%c",letter); }
710: getrec((char *)buf,F_ALTPATH,2,str);
711: alt=(uchar)ahtoul(str);
712: sprintf(str,"%s%s",alt>0 && alt<=altpaths ? altpath[alt-1]:dir[dirnum]->path
713: ,unpadfname(fname,tmp));
714: if(dir[dirnum]->misc&DIR_FCHK && !fexist(str)) {
715: exist=0;
716: attr(color[clr_err]); }
717: else
718: attr(color[clr_filecdt]);
719: getrec((char *)buf,F_CDT,LEN_FCDT,str);
720: cdt=atol(str);
721: if(useron.misc&BATCHFLAG) {
722: if(!cdt) {
723: attr(curatr^(HIGH|BLINK));
724: bputs(" FREE"); }
725: else {
726: if(cdt<1024) /* 1k is smallest size */
727: cdt=1024;
728: bprintf("%5luk",cdt/1024L); } }
729: else {
730: if(!cdt) { /* FREE file */
731: attr(curatr^(HIGH|BLINK));
732: bputs(" FREE"); }
733: else if(cdt>9999999L)
734: bprintf("%6luk",cdt/1024L);
735: else
736: bprintf("%7lu",cdt); }
737: if(exist)
738: outchar(SP);
739: else
740: outchar('-');
741: getrec((char *)buf,F_DESC,LEN_FDESC,str);
742: attr(color[clr_filedesc]);
743: if(!ext[0]) {
744: if(search[0]) { /* high-light string in string */
745: strcpy(tmp,str);
746: strupr(tmp);
747: ptr=strstr(tmp,search);
748: i=strlen(search);
749: j=ptr-tmp;
750: bprintf("%.*s",j,str);
751: attr(color[clr_filedesc]^HIGH);
752: bprintf("%.*s",i,str+j);
753: attr(color[clr_filedesc]);
754: bprintf("%.*s",strlen(str)-(j+i),str+j+i); }
755: else
756: bputs(str);
757: CRLF; }
758: ptr=ext;
759: while(*ptr && ptr<ext+512 && !msgabort()) {
760: cr=strchr(ptr,CR);
761: lf=strchr(ptr,LF);
762: if(lf && (lf<cr || !cr)) cr=lf;
763: if(cr>ptr+LEN_FDESC)
764: cr=ptr+LEN_FDESC;
765: else if(cr)
766: *cr=0;
767: // bprintf("%.*s\r\n",LEN_FDESC,ptr);
768: sprintf(str,"%.*s\r\n",LEN_FDESC,ptr);
769: putmsg(str,P_NOATCODES|P_SAVEATR);
770: if(!cr) {
771: if(strlen(ptr)>LEN_FDESC)
772: cr=ptr+LEN_FDESC;
773: else
774: break; }
775: if(!(*(cr+1)) || !(*(cr+2)))
776: break;
777: bprintf("%21s",nulstr);
778: ptr=cr;
779: if(!(*ptr)) ptr++;
780: while(*ptr==LF || *ptr==CR) ptr++; }
781: return(1);
782: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.