![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to file_ovl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to file_ovl.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 ! root 1: #line 1 "FILE_OVL.C" ! 2: ! 3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */ ! 4: ! 5: #include "sbbs.h" ! 6: ! 7: /****************************************************************************/ ! 8: /* Adds file data in 'f' to DIR#.DAT and DIR#.IXB and updates user */ ! 9: /* info for uploader. Must have .name, .desc and .dir fields filled prior */ ! 10: /* to a call to this function. */ ! 11: /* Returns 1 if file uploaded sucessfully, 0 if not. */ ! 12: /****************************************************************************/ ! 13: char uploadfile(file_t *f) ! 14: { ! 15: uchar path[256],str[256],fname[25],ext[513],desc[513],tmp[128],*p; ! 16: static uchar sbbsfilename[128],sbbsfiledesc[128]; ! 17: int file; ! 18: uint i; ! 19: long length; ! 20: FILE *stream; ! 21: ! 22: f->misc=0; ! 23: curdirnum=f->dir; ! 24: if(findfile(f->dir,f->name)) { ! 25: errormsg(WHERE,ERR_CHK,f->name,f->dir); ! 26: return(0); } ! 27: sprintf(path,"%s%s",f->altpath>0 && f->altpath<=altpaths ! 28: ? altpath[f->altpath-1] ! 29: : dir[f->dir]->path,unpadfname(f->name,fname)); ! 30: if(!fexist(path)) { ! 31: bprintf(text[FileNotReceived],f->name); ! 32: sprintf(str,"Attempted to upload %s to %s %s (Not received)",f->name ! 33: ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname); ! 34: logline("U!",str); ! 35: return(0); } ! 36: strcpy(tmp,f->name); ! 37: truncsp(tmp); ! 38: for(i=0;i<total_ftests;i++) ! 39: if(ftest[i]->ext[0]=='*' || !strcmp(tmp+9,ftest[i]->ext)) { ! 40: if(!chk_ar(ftest[i]->ar,useron)) ! 41: continue; ! 42: attr(LIGHTGRAY); ! 43: bputs(ftest[i]->workstr); ! 44: ! 45: sprintf(sbbsfilename,"SBBSFILENAME=%.12s",unpadfname(f->name,fname)); ! 46: putenv(sbbsfilename); ! 47: sprintf(sbbsfiledesc,"SBBSFILEDESC=%.*s",LEN_FDESC,f->desc); ! 48: putenv(sbbsfiledesc); ! 49: sprintf(str,"%sSBBSFILE.NAM",node_dir); ! 50: if((stream=fopen(str,"w"))!=NULL) { ! 51: fwrite(fname,1,strlen(fname),stream); ! 52: fclose(stream); } ! 53: sprintf(str,"%sSBBSFILE.DES",node_dir); ! 54: if((stream=fopen(str,"w"))!=NULL) { ! 55: fwrite(f->desc,1,strlen(f->desc),stream); ! 56: fclose(stream); } ! 57: if(external(cmdstr(ftest[i]->cmd,path,f->desc,NULL),0)) { /* EX_OUTL */ ! 58: bprintf(text[FileHadErrors],f->name,ftest[i]->ext); ! 59: if(SYSOP) { ! 60: if(!yesno(text[DeleteFileQ])) return(0); } ! 61: remove(path); ! 62: sprintf(str,"Attempted to upload %s to %s %s (%s Errors)",f->name ! 63: ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname,ftest[i]->ext); ! 64: logline("U!",str); ! 65: return(0); } ! 66: else { ! 67: sprintf(str,"%sSBBSFILE.NAM",node_dir); ! 68: if((stream=fopen(str,"r"))!=NULL) { ! 69: if(fgets(str,128,stream)) { ! 70: truncsp(str); ! 71: strupr(str); ! 72: padfname(str,f->name); ! 73: strcpy(tmp,f->name); ! 74: truncsp(tmp); ! 75: sprintf(path,"%s%s",f->altpath>0 && f->altpath<=altpaths ! 76: ? altpath[f->altpath-1] : dir[f->dir]->path ! 77: ,unpadfname(f->name,fname)); } ! 78: fclose(stream); ! 79: } ! 80: sprintf(str,"%sSBBSFILE.DES",node_dir); ! 81: if((stream=fopen(str,"r"))!=NULL) { ! 82: if(fgets(str,128,stream)) { ! 83: truncsp(str); ! 84: sprintf(f->desc,"%.*s",LEN_FDESC,str); } ! 85: fclose(stream); } ! 86: CRLF; } } ! 87: ! 88: if((length=flength(path))<=0L) { ! 89: bprintf(text[FileZeroLength],f->name); ! 90: remove(path); ! 91: sprintf(str,"Attempted to upload %s to %s %s (Zero length)",f->name ! 92: ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname); ! 93: logline("U!",str); ! 94: return(0); } ! 95: if(dir[f->dir]->misc&DIR_DIZ) { ! 96: for(i=0;i<total_fextrs;i++) ! 97: if(!stricmp(fextr[i]->ext,tmp+9) && chk_ar(fextr[i]->ar,useron)) ! 98: break; ! 99: if(i<total_fextrs) { ! 100: sprintf(str,"%sFILE_ID.DIZ",temp_dir); ! 101: remove(str); ! 102: external(cmdstr(fextr[i]->cmd,path,"FILE_ID.DIZ",NULL),EX_OUTL); ! 103: if(!fexist(str)) { ! 104: sprintf(str,"%sDESC.SDI",temp_dir); ! 105: remove(str); ! 106: external(cmdstr(fextr[i]->cmd,path,"DESC.SDI",NULL),EX_OUTL); } ! 107: if((file=nopen(str,O_RDONLY))!=-1) { ! 108: memset(ext,0,513); ! 109: read(file,ext,512); ! 110: for(i=512;i;i--) ! 111: if(ext[i-1]>SP) ! 112: break; ! 113: ext[i]=0; ! 114: if(!f->desc[0]) { ! 115: strcpy(desc,ext); ! 116: strip_exascii(desc); ! 117: strip_ctrl(desc); ! 118: for(i=0;desc[i];i++) ! 119: if(isalnum(desc[i])) ! 120: break; ! 121: sprintf(f->desc,"%.*s",LEN_FDESC,desc+i); } ! 122: close(file); ! 123: remove(str); ! 124: f->misc|=FM_EXTDESC; } } } ! 125: ! 126: logon_ulb+=length; /* Update 'this call' stats */ ! 127: logon_uls++; ! 128: if(dir[f->dir]->misc&DIR_AONLY) /* Forced anonymous */ ! 129: f->misc|=FM_ANON; ! 130: f->cdt=length; ! 131: f->dateuled=time(NULL); ! 132: f->timesdled=0; ! 133: f->datedled=0L; ! 134: f->opencount=0; ! 135: strcpy(f->uler,useron.alias); ! 136: bprintf(text[FileNBytesReceived],f->name,ultoac(length,tmp)); ! 137: if(!f->desc[0]) ! 138: sprintf(f->desc,"%.*s",LEN_FDESC,text[NoDescription]); ! 139: if(!addfiledat(f)) ! 140: return(0); ! 141: ! 142: if(f->misc&FM_EXTDESC) ! 143: putextdesc(f->dir,f->datoffset,ext); ! 144: ! 145: sprintf(str,"Uploaded %s to %s %s",f->name,lib[dir[f->dir]->lib]->sname ! 146: ,dir[f->dir]->sname); ! 147: if(dir[f->dir]->upload_sem[0]) ! 148: if((file=nopen(dir[f->dir]->upload_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1) ! 149: close(file); ! 150: logline("U+",str); ! 151: /**************************/ ! 152: /* Update Uploader's Info */ ! 153: /**************************/ ! 154: useron.uls=adjustuserrec(useron.number,U_ULS,5,1); ! 155: useron.ulb=adjustuserrec(useron.number,U_ULB,10,length); ! 156: if(dir[f->dir]->up_pct && dir[f->dir]->misc&DIR_CDTUL) { /* credit for upload */ ! 157: if(dir[f->dir]->misc&DIR_CDTMIN && cur_cps) /* Give min instead of cdt */ ! 158: useron.min=adjustuserrec(useron.number,U_MIN,10 ! 159: ,((ulong)(length*(dir[f->dir]->up_pct/100.0))/cur_cps)/60); ! 160: else ! 161: useron.cdt=adjustuserrec(useron.number,U_CDT,10 ! 162: ,(ulong)(f->cdt*(dir[f->dir]->up_pct/100.0))); } ! 163: return(1); ! 164: } ! 165: ! 166: ! 167: /****************************************************************************/ ! 168: /* Updates downloader, uploader and downloaded file data */ ! 169: /* Must have offset, dir and name fields filled prior to call. */ ! 170: /****************************************************************************/ ! 171: void downloadfile(file_t f) ! 172: { ! 173: char str[256],str2[256],fname[13]; ! 174: int i,file; ! 175: long length,mod; ! 176: ulong l; ! 177: user_t uploader; ! 178: ! 179: getfiledat(&f); /* Get current data - right after download */ ! 180: if((length=f.size)<0L) ! 181: length=0L; ! 182: logon_dlb+=length; /* Update 'this call' stats */ ! 183: logon_dls++; ! 184: bprintf(text[FileNBytesSent],f.name,ultoac(length,tmp)); ! 185: sprintf(str,"Downloaded %s from %s %s",f.name,lib[dir[f.dir]->lib]->sname ! 186: ,dir[f.dir]->sname); ! 187: logline("D-",str); ! 188: /****************************/ ! 189: /* Update Downloader's Info */ ! 190: /****************************/ ! 191: useron.dls=adjustuserrec(useron.number,U_DLS,5,1); ! 192: useron.dlb=adjustuserrec(useron.number,U_DLB,10,length); ! 193: if(!(dir[f.dir]->misc&DIR_FREE) && !(useron.exempt&FLAG('D'))) ! 194: subtract_cdt(f.cdt); ! 195: /**************************/ ! 196: /* Update Uploader's Info */ ! 197: /**************************/ ! 198: i=matchuser(f.uler); ! 199: uploader.number=i; ! 200: getuserdat(&uploader); ! 201: if(i && i!=useron.number && uploader.firston<f.dateuled) { ! 202: l=f.cdt; ! 203: if(!(dir[f.dir]->misc&DIR_CDTDL)) /* Don't give credits on d/l */ ! 204: l=0; ! 205: if(dir[f.dir]->misc&DIR_CDTMIN && cur_cps) { /* Give min instead of cdt */ ! 206: mod=((ulong)(l*(dir[f.dir]->dn_pct/100.0))/cur_cps)/60; ! 207: adjustuserrec(i,U_MIN,10,mod); ! 208: sprintf(tmp,"%lu minute",mod); ! 209: sprintf(str,text[DownloadUserMsg] ! 210: ,!strcmp(dir[f.dir]->code,"TEMP") ? temp_file : f.name ! 211: ,!strcmp(dir[f.dir]->code,"TEMP") ? text[Partially] : nulstr ! 212: ,useron.alias,tmp); } ! 213: else { ! 214: mod=(ulong)(l*(dir[f.dir]->dn_pct/100.0)); ! 215: adjustuserrec(i,U_CDT,10,mod); ! 216: ultoac(mod,tmp); ! 217: sprintf(str,text[DownloadUserMsg] ! 218: ,!strcmp(dir[f.dir]->code,"TEMP") ? temp_file : f.name ! 219: ,!strcmp(dir[f.dir]->code,"TEMP") ? text[Partially] : nulstr ! 220: ,useron.alias,tmp); } ! 221: putsmsg(i,str); } ! 222: /*******************/ ! 223: /* Update IXB File */ ! 224: /*******************/ ! 225: f.datedled=time(NULL); ! 226: sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code); ! 227: if((file=nopen(str,O_RDWR))==-1) { ! 228: errormsg(WHERE,ERR_OPEN,str,O_RDWR); ! 229: return; } ! 230: length=filelength(file); ! 231: if(length%F_IXBSIZE) { ! 232: close(file); ! 233: errormsg(WHERE,ERR_LEN,str,length); ! 234: return; } ! 235: strcpy(fname,f.name); ! 236: for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */ ! 237: fname[i]=fname[i+1]; ! 238: for(l=0;l<length;l+=F_IXBSIZE) { ! 239: read(file,str,F_IXBSIZE); /* Look for the filename in the IXB file */ ! 240: str[11]=0; ! 241: if(!strcmp(fname,str)) break; } ! 242: if(l>=length) { ! 243: close(file); ! 244: errormsg(WHERE,ERR_CHK,f.name,0); ! 245: return; } ! 246: lseek(file,l+18,SEEK_SET); ! 247: write(file,&f.datedled,4); /* Write the current time stamp for datedled */ ! 248: close(file); ! 249: /*******************/ ! 250: /* Update DAT File */ ! 251: /*******************/ ! 252: f.timesdled++; ! 253: putfiledat(f); ! 254: /******************************************/ ! 255: /* Update User to User index if necessary */ ! 256: /******************************************/ ! 257: if(f.dir==user_dir) { ! 258: rmuserxfers(0,useron.number,f.name); ! 259: if(!getuserxfers(0,0,f.name)) { /* check if any ixt entries left */ ! 260: sprintf(str,"%s%s",f.altpath>0 && f.altpath<=altpaths ? ! 261: altpath[f.altpath-1] : dir[f.dir]->path,unpadfname(f.name,tmp)); ! 262: remove(str); ! 263: removefiledat(f); } } ! 264: } ! 265: ! 266: /****************************************************************************/ ! 267: /* Removes DAT and IXB entries for the file in the struct 'f' */ ! 268: /****************************************************************************/ ! 269: void removefiledat(file_t f) ! 270: { ! 271: char c,str[256],ixbname[12],HUGE16 *ixbbuf,fname[13]; ! 272: int file; ! 273: ulong l,length; ! 274: ! 275: strcpy(fname,f.name); ! 276: for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */ ! 277: fname[c]=fname[c+1]; ! 278: sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code); ! 279: if((file=nopen(str,O_RDONLY))==-1) { ! 280: errormsg(WHERE,ERR_OPEN,str,O_RDONLY); ! 281: return; } ! 282: length=filelength(file); ! 283: if(!length) { ! 284: close(file); ! 285: return; } ! 286: if((ixbbuf=(char *)MALLOC(length))==0) { ! 287: close(file); ! 288: errormsg(WHERE,ERR_ALLOC,str,length); ! 289: return; } ! 290: if(lread(file,ixbbuf,length)!=length) { ! 291: close(file); ! 292: errormsg(WHERE,ERR_READ,str,length); ! 293: FREE((char *)ixbbuf); ! 294: return; } ! 295: close(file); ! 296: if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) { ! 297: errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_TRUNC); ! 298: return; } ! 299: for(l=0;l<length;l+=F_IXBSIZE) { ! 300: for(c=0;c<11;c++) ! 301: ixbname[c]=ixbbuf[l+c]; ! 302: ixbname[c]=0; ! 303: if(strcmp(ixbname,fname)) ! 304: if(lwrite(file,&ixbbuf[l],F_IXBSIZE)!=F_IXBSIZE) { ! 305: close(file); ! 306: errormsg(WHERE,ERR_WRITE,str,F_IXBSIZE); ! 307: FREE((char *)ixbbuf); ! 308: return; } } ! 309: FREE((char *)ixbbuf); ! 310: close(file); ! 311: sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code); ! 312: if((file=nopen(str,O_WRONLY))==-1) { ! 313: errormsg(WHERE,ERR_OPEN,str,O_WRONLY); ! 314: return; } ! 315: lseek(file,f.datoffset,SEEK_SET); ! 316: c=ETX; /* If first char of record is ETX, record is unused */ ! 317: if(write(file,&c,1)!=1) { /* So write a D_T on the first byte of the record */ ! 318: close(file); ! 319: errormsg(WHERE,ERR_WRITE,str,1); ! 320: return; } ! 321: close(file); ! 322: if(f.dir==user_dir) /* remove file from index */ ! 323: rmuserxfers(0,0,f.name); ! 324: ! 325: } ! 326: ! 327: /****************************************************************************/ ! 328: /* Puts filedata into DIR_code.DAT file */ ! 329: /* Called from removefiles */ ! 330: /****************************************************************************/ ! 331: void putfiledat(file_t f) ! 332: { ! 333: char buf[F_LEN+1],str[256]; ! 334: int file; ! 335: long length; ! 336: ! 337: putrec(buf,F_CDT,LEN_FCDT,ultoa(f.cdt,tmp,10)); ! 338: putrec(buf,F_DESC,LEN_FDESC,f.desc); ! 339: putrec(buf,F_DESC+LEN_FDESC,2,crlf); ! 340: putrec(buf,F_ULER,LEN_ALIAS+5,f.uler); ! 341: putrec(buf,F_ULER+LEN_ALIAS+5,2,crlf); ! 342: putrec(buf,F_TIMESDLED,5,itoa(f.timesdled,tmp,10)); ! 343: putrec(buf,F_TIMESDLED+5,2,crlf); ! 344: putrec(buf,F_OPENCOUNT,3,itoa(f.opencount,tmp,10)); ! 345: putrec(buf,F_OPENCOUNT+3,2,crlf); ! 346: buf[F_MISC]=f.misc+SP; ! 347: putrec(buf,F_ALTPATH,2,hexplus(f.altpath,tmp)); ! 348: putrec(buf,F_ALTPATH+2,2,crlf); ! 349: sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code); ! 350: if((file=nopen(str,O_WRONLY))==-1) { ! 351: errormsg(WHERE,ERR_OPEN,str,O_WRONLY); ! 352: return; } ! 353: length=filelength(file); ! 354: if(length%F_LEN) { ! 355: close(file); ! 356: errormsg(WHERE,ERR_LEN,str,length); ! 357: return; } ! 358: if(f.datoffset>length) { ! 359: close(file); ! 360: errormsg(WHERE,ERR_LEN,str,length); ! 361: return; } ! 362: lseek(file,f.datoffset,SEEK_SET); ! 363: if(write(file,buf,F_LEN)!=F_LEN) { ! 364: close(file); ! 365: errormsg(WHERE,ERR_WRITE,str,F_LEN); ! 366: return; } ! 367: length=filelength(file); ! 368: close(file); ! 369: if(length%F_LEN) ! 370: errormsg(WHERE,ERR_LEN,str,length); ! 371: } ! 372: ! 373: /****************************************************************************/ ! 374: /* Adds the data for struct filedat to the directory's data base. */ ! 375: /* changes the .datoffset field only */ ! 376: /* returns 1 if added successfully, 0 if not. */ ! 377: /****************************************************************************/ ! 378: char addfiledat(file_t *f) ! 379: { ! 380: uchar str[256],fdat[F_LEN+1],fname[13],idx[3],c,HUGE16 *ixbbuf; ! 381: int i,file; ! 382: ulong length,l; ! 383: time_t uldate; ! 384: ! 385: /************************/ ! 386: /* Add data to DAT File */ ! 387: /************************/ ! 388: sprintf(str,"%s%s.DAT",dir[f->dir]->data_dir,dir[f->dir]->code); ! 389: if((file=nopen(str,O_RDWR|O_CREAT))==-1) { ! 390: errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_CREAT); ! 391: return(0); } ! 392: length=filelength(file); ! 393: if(length==0L) ! 394: l=0L; ! 395: else { ! 396: if(length%F_LEN) { ! 397: close(file); ! 398: errormsg(WHERE,ERR_LEN,str,length); ! 399: return(0); } ! 400: for(l=0;l<length;l+=F_LEN) { /* Find empty slot */ ! 401: lseek(file,l,SEEK_SET); ! 402: read(file,&c,1); ! 403: if(c==ETX) break; } ! 404: if(l/F_LEN>=MAX_FILES || l/F_LEN>=dir[f->dir]->maxfiles) { ! 405: bputs(text[DirFull]); ! 406: close(file); ! 407: sprintf(str,"Directory Full: %s %s" ! 408: ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname); ! 409: logline("U!",str); ! 410: return(0); } } ! 411: putrec(fdat,F_CDT,LEN_FCDT,ultoa(f->cdt,tmp,10)); ! 412: putrec(fdat,F_DESC,LEN_FDESC,f->desc); ! 413: putrec(fdat,F_DESC+LEN_FDESC,2,crlf); ! 414: putrec(fdat,F_ULER,LEN_ALIAS+5,f->uler); ! 415: putrec(fdat,F_ULER+LEN_ALIAS+5,2,crlf); ! 416: putrec(fdat,F_TIMESDLED,5,ultoa(f->timesdled,tmp,10)); ! 417: putrec(fdat,F_TIMESDLED+5,2,crlf); ! 418: putrec(fdat,F_OPENCOUNT,3,itoa(f->opencount,tmp,10)); ! 419: putrec(fdat,F_OPENCOUNT+3,2,crlf); ! 420: fdat[F_MISC]=f->misc+SP; ! 421: putrec(fdat,F_ALTPATH,2,hexplus(f->altpath,tmp)); ! 422: putrec(fdat,F_ALTPATH+2,2,crlf); ! 423: f->datoffset=l; ! 424: idx[0]=l&0xff; /* Get offset within DAT file for IXB file */ ! 425: idx[1]=(l>>8)&0xff; ! 426: idx[2]=(l>>16)&0xff; ! 427: lseek(file,l,SEEK_SET); ! 428: if(write(file,fdat,F_LEN)!=F_LEN) { ! 429: close(file); ! 430: errormsg(WHERE,ERR_WRITE,str,F_LEN); ! 431: return(0); } ! 432: length=filelength(file); ! 433: close(file); ! 434: if(length%F_LEN) ! 435: errormsg(WHERE,ERR_LEN,str,length); ! 436: ! 437: /*******************************************/ ! 438: /* Update last upload date/time stamp file */ ! 439: /*******************************************/ ! 440: sprintf(str,"%s%s.DAB",dir[f->dir]->data_dir,dir[f->dir]->code); ! 441: if((file=nopen(str,O_WRONLY|O_CREAT))==-1) ! 442: errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT); ! 443: else { ! 444: now=time(NULL); ! 445: write(file,&now,4); ! 446: close(file); } ! 447: ! 448: /************************/ ! 449: /* Add data to IXB File */ ! 450: /************************/ ! 451: strcpy(fname,f->name); ! 452: for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */ ! 453: fname[i]=fname[i+1]; ! 454: sprintf(str,"%s%s.IXB",dir[f->dir]->data_dir,dir[f->dir]->code); ! 455: if((file=nopen(str,O_RDWR|O_CREAT))==-1) { ! 456: errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_CREAT); ! 457: return(0); } ! 458: length=filelength(file); ! 459: if(length) { /* IXB file isn't empty */ ! 460: if(length%F_IXBSIZE) { ! 461: close(file); ! 462: errormsg(WHERE,ERR_LEN,str,length); ! 463: return(0); } ! 464: if((ixbbuf=(char *)MALLOC(length))==NULL) { ! 465: close(file); ! 466: errormsg(WHERE,ERR_ALLOC,str,length); ! 467: return(0); } ! 468: if(lread(file,ixbbuf,length)!=length) { ! 469: close(file); ! 470: errormsg(WHERE,ERR_READ,str,length); ! 471: FREE((char *)ixbbuf); ! 472: return(0); } ! 473: /************************************************/ ! 474: /* Sort by Name or Date, Assending or Decending */ ! 475: /************************************************/ ! 476: if(dir[f->dir]->sort==SORT_NAME_A || dir[f->dir]->sort==SORT_NAME_D) { ! 477: for(l=0;l<length;l+=F_IXBSIZE) { ! 478: for(i=0;i<12 && fname[i]==ixbbuf[l+i];i++); ! 479: if(i==12) { /* file already in directory index */ ! 480: close(file); ! 481: errormsg(WHERE,ERR_CHK,str,0); ! 482: FREE((char *)ixbbuf); ! 483: return(0); } ! 484: if(dir[f->dir]->sort==SORT_NAME_A && fname[i]<ixbbuf[l+i]) ! 485: break; ! 486: if(dir[f->dir]->sort==SORT_NAME_D && fname[i]>ixbbuf[l+i]) ! 487: break; } } ! 488: else { /* sort by date */ ! 489: for(l=0;l<length;l+=F_IXBSIZE) { ! 490: uldate=(ixbbuf[l+14]|((long)ixbbuf[l+15]<<8) ! 491: |((long)ixbbuf[l+16]<<16)|((long)ixbbuf[l+17]<<24)); ! 492: if(dir[f->dir]->sort==SORT_DATE_A && f->dateuled<uldate) ! 493: break; ! 494: if(dir[f->dir]->sort==SORT_DATE_D && f->dateuled>uldate) ! 495: break; } } ! 496: lseek(file,l,SEEK_SET); ! 497: if(write(file,fname,11)!=11) { /* Write filename to IXB file */ ! 498: close(file); ! 499: errormsg(WHERE,ERR_WRITE,str,11); ! 500: FREE((char *)ixbbuf); ! 501: return(0); } ! 502: if(write(file,idx,3)!=3) { /* Write DAT offset into IXB file */ ! 503: close(file); ! 504: errormsg(WHERE,ERR_WRITE,str,3); ! 505: FREE((char *)ixbbuf); ! 506: return(0); } ! 507: write(file,&f->dateuled,sizeof(time_t)); ! 508: write(file,&f->datedled,4); /* Write 0 for datedled */ ! 509: if(lwrite(file,&ixbbuf[l],length-l)!=length-l) { /* Write rest of IXB */ ! 510: close(file); ! 511: errormsg(WHERE,ERR_WRITE,str,length-l); ! 512: FREE((char *)ixbbuf); ! 513: return(0); } ! 514: FREE((char *)ixbbuf); } ! 515: else { /* IXB file is empty... No files */ ! 516: if(write(file,fname,11)!=11) { /* Write filename it IXB file */ ! 517: close(file); ! 518: errormsg(WHERE,ERR_WRITE,str,11); ! 519: return(0); } ! 520: if(write(file,idx,3)!=3) { /* Write DAT offset into IXB file */ ! 521: close(file); ! 522: errormsg(WHERE,ERR_WRITE,str,3); ! 523: return(0); } ! 524: write(file,&f->dateuled,sizeof(time_t)); ! 525: write(file,&f->datedled,4); } ! 526: length=filelength(file); ! 527: close(file); ! 528: if(length%F_IXBSIZE) ! 529: errormsg(WHERE,ERR_LEN,str,length); ! 530: return(1); ! 531: } ! 532: ! 533: /****************************************************************************/ ! 534: /* Update the upload date for the file 'f' */ ! 535: /****************************************************************************/ ! 536: void update_uldate(file_t f) ! 537: { ! 538: char str[256],fname[13]; ! 539: int i,file; ! 540: long l,length; ! 541: ! 542: /*******************/ ! 543: /* Update IXB File */ ! 544: /*******************/ ! 545: sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code); ! 546: if((file=nopen(str,O_RDWR))==-1) { ! 547: errormsg(WHERE,ERR_OPEN,str,O_RDWR); ! 548: return; } ! 549: length=filelength(file); ! 550: if(length%F_IXBSIZE) { ! 551: close(file); ! 552: errormsg(WHERE,ERR_LEN,str,length); ! 553: return; } ! 554: strcpy(fname,f.name); ! 555: for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */ ! 556: fname[i]=fname[i+1]; ! 557: for(l=0;l<length;l+=F_IXBSIZE) { ! 558: read(file,str,F_IXBSIZE); /* Look for the filename in the IXB file */ ! 559: str[11]=0; ! 560: if(!strcmp(fname,str)) break; } ! 561: if(l>=length) { ! 562: close(file); ! 563: errormsg(WHERE,ERR_CHK,f.name,length); ! 564: return; } ! 565: lseek(file,l+14,SEEK_SET); ! 566: write(file,&f.dateuled,4); ! 567: close(file); ! 568: ! 569: /*******************************************/ ! 570: /* Update last upload date/time stamp file */ ! 571: /*******************************************/ ! 572: sprintf(str,"%s%s.DAB",dir[f.dir]->data_dir,dir[f.dir]->code); ! 573: if((file=nopen(str,O_WRONLY|O_CREAT))==-1) ! 574: errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT); ! 575: else { ! 576: write(file,&f.dateuled,4); ! 577: close(file); } ! 578: ! 579: } ! 580:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.