home *** CD-ROM | disk | FTP | other *** search
- Snorkel #1 @2100
- Wed Jun 28 14:48:35 1995
- Bug fix for M&M007C.MOD. This fix has been incorporated into M&M007D.MOD.
-
- This corrects a bug which was preventing the BBS from exiting the rename
- function if you pressed "F" and then answered "NO" to the question about
- making the file free.
-
-
- ┌───────────┐
- │ XFEROVL.C │
- └───────────┘
-
- prt(5,get_string(830)); /* search for */
- ch=ynq(); /* DELETE THIS LINE */
- ch=onek("QNYF"); /* ADD */
- if (ch=='Q')
- break;
- else
- if (ch=='N') {
- i=nrecno(s3,cp);
- continue;
- }
- if (ch=='F') { /* ADD */
- om=u.mask; /* ADD */
- u.mask &= ~mask_free_file; /* ADD */
- nl(); /* ADD */
- outstr("5Make the file FREE? <CR>=N "); /* ADD */0
- if (yn()) /* ADD */
- u.mask|=mask_free_file; /* ADD */
- if (om!=u.mask) { /* ADD */
- f=sh_open(dlfn,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);//ADD
- SETREC(f,i); /* ADD */
- sh_write(f,(void *)&u,sizeof(uploadsrec)); /* ADD */
- f=sh_close(f); /* ADD */
- i=nrecno(s3,cp); /* ADD */
- continue;// 6<2─────── 4to here2 ──────────┐ 6ADD0
- } 2│0 /* ADD */
- continue;// 2── 4move this line from here2 ───┘ 6DELETE0
- } /* ADD */
- nl();
- prt(2,get_string(72));
-
-
-
- 1 °0
- 1 °0
- 1 °0
- 1°0
- 4Snorkel 1@21000
-