Category : BBS Programs+Doors
Archive   : MULTILNE.ZIP
Filename : ML.2

 
Output of file : ML.2 contained in archive : MULTILNE.ZIP
E
Arc Angel #1 @3144
Sat Aug 22 12:33:37 1992





A "BATCH.C" Page 1
B "421A\BATCH.C"



Matching lines: 25

A 26 #define SETRECW(i) lseek(dlf_w,((long) (i))*((long)sizeof(uploadsrec)),SEEK_SET);

Matching lines: 59

A 86 /* MOD */ opendlf_w1(batch[i1].dir);
A 87 /* MOD */ SETRECW(i);
A 88 /* MOD */ write(dlf_w,(void *)&u,sizeof(uploadsrec));
A 89 /* MOD */ closedlf_w();
B 85 SETREC(i);
B 86 write(dlf,(void *)&u,sizeof(uploadsrec));

Matching lines: 43

A 133 /* MOD */ opendlf_w1(batch[ind].dir);

Matching lines: 3

A 137 /* MOD */ SETRECW(i1);
A 138 /* MOD */ write(dlf_w,(void *)&u,sizeof(uploadsrec));
B 133 SETREC(i1);
B 134 write(dlf,(void *)&u,sizeof(uploadsrec));

Matching lines: 6

A 145 /* MOD */ SETRECW(0);
A 146 /* MOD */ write(dlf_w,(void *)&u,sizeof(uploadsrec));
A 147 /* MOD */ closedlf_w();
B 141 SETREC(0);
B 142 write(dlf,(void *)&u,sizeof(uploadsrec));

Matching lines: 58

A 206 /* MOD */ filecopy(s1,s2);
B 201 if ((b=malloca(16400))==NULL)
B 202 return;
B 203 d1=open(s1,O_RDONLY | O_BINARY);
B 204 d2=open(s2,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
B 205 i=read(d1,(void *)b,16384);
B 206 while (i>0) {
B 207 write(d2,(void *)b,i);
B 208 i=read(d1,(void *)b,16384);
B 209 }
B 210 close(d1);
B 211 close(d2);

Matching lines: 1

B 213 farfree(b);

Matching lines: 3

A 211 /* MOD */ d1=open_r(s2);
B 217 d1=open(s2,O_RDONLY | O_BINARY);


A "BATCH.C" Page 2
B "421A\BATCH.C"



Matching lines: 18

A 230 /* MOD */ load_status();

Matching lines: 2

A 233 /* MOD */ opendlf_w(batch[i1].dir);
A 234 /* MOD */ SETRECW(rn);
A 235 /* MOD */ write(dlf_w,(void *)&u,sizeof(uploadsrec));
A 236 /* MOD */ closedlf_w();
B 238 SETREC(rn);
B 239 write(dlf,(void *)&u,sizeof(uploadsrec));

Matching lines: 554


File A contains 790 lines; 18 are unique.
File B contains 793 lines; 21 are unique.
Files contain 772 matching lines.





A "BBS.C" Page 1
B "421A\BBS.C"



Matching lines: 49

A 50 /* MOD */ char s[81];
A 51
A 52 /* MOD */ close(nodestatusfile);
A 53 /* MOD */ sprintf(s,"%sSTATUS.%d",syscfg.datadir,node);
A 54 /* MOD */ unlink(s);
A 55 /* MOD */ sprintf(s,"****** %s node %d was taken offline at %s ******",syscfg.systemname,node,times(),date());
A 56 /* MOD */ sl1(0,"");
A 57 /* MOD */ sl1(0,s);
A 58 /* MOD */ sl1(5,"");

Matching lines: 333

A 392 /* MOD */ save_nodestatus("Resetting the computer");
A 393 /* MOD */ close(nodestatusfile);

Matching lines: 2

A 396 /* MOD */ sl1(5,"");

Matching lines: 137

A 534 /* MOD */ save_nodestatus("Zip downloading the new messages");

Matching lines: 63

A 598 /* MOD */ save_nodestatus("In chain menu");

Matching lines: 8

A 607 /* MOD */ save_nodestatus("Reading the BBS list");

Matching lines: 8

A 616 /* MOD */ save_nodestatus("Editing user Defaults");

Matching lines: 4

A 621 /* MOD */ save_nodestatus("Writing email");

Matching lines: 3

A 625 /* MOD */ save_nodestatus("Writing email");

Matching lines: 6

A 632 /* MOD */ save_nodestatus("Reading Gfiles");

Matching lines: 18

A 651 /* MOD */ save_nodestatus("Reading email");

Matching lines: 9



A "BBS.C" Page 2
B "421A\BBS.C"


A 661 /* MOD */ save_nodestatus("Reading messages");

Matching lines: 17

A 679 /* MOD */ save_nodestatus("Posting a message");

Matching lines: 7

A 687 /* MOD */ save_nodestatus("Reading messages");

Matching lines: 21

A 709 /* MOD */ save_nodestatus("At the transfer menu");

Matching lines: 15

A 725 /* MOD */ case 'W':
A 726 /* MOD */ save_nodestatus("Seeing who's online");
A 727 /* MOD */ prnodestatus();
A 728 /* MOD */ break;

Matching lines: 7

A 736 /* MOD */ save_nodestatus("Reading messages");

Matching lines: 330

A 1067 /* MOD */ save_nodestatus("Waiting for caller");
A 1068 /* MOD */ sl1(5,"");

Matching lines: 32

A 1101 /* MOD */ if (strcmp(date(),status.date1)!=0) {
A 1102 /* MOD */ load_status();
A 1103 /* MOD */ if (strcmp(date(),status.date1)!=0) {
A 1104 /* MOD */ nl();
A 1105 /* MOD */ pl("Now running daily maintainance.");
A 1106 /* MOD */ nl();
A 1107 /* MOD */ holdphone(1);
A 1108 /* MOD */ beginday();
A 1109 /* MOD */ holdphone(0);
A 1110 /* MOD */ clrscrb();
A 1111 /* MOD */ any=1;
A 1112 /* MOD */ } else {
A 1113 /* MOD */ close(statusfile);
A 1114 /* MOD */ statusfile = -1;
A 1115 /* MOD */ }
A 1116 /* MOD */ }

Matching lines: 349

A 1466 /* MOD */ no_dialout=0;

Matching lines: 27

A 1494 /* MOD */ case '?':


A "BBS.C" Page 3
B "421A\BBS.C"


A 1495 /* MOD */ printf("WWIV Bulletin Board\n\n");
A 1496 /* MOD */ printf("BBS /Brate /Srate /Nlevel /Alevel /O /H /M /X /F /C /D /?\n\n");
A 1497 /* MOD */ printf(" /B - someone already logged on at rate (modem speed)\n");
A 1498 /* MOD */ printf(" /S - used only with /B, indicates com port speed\n");
A 1499 /* MOD */ printf(" /N - normal exit level\n");
A 1500 /* MOD */ printf(" /A - abnormal exit level\n");
A 1501 /* MOD */ printf(" /O - quit WWIV after one user done\n");
A 1502 /* MOD */ printf(" /H - don't hang up on user when he logs off\n");
A 1503 /* MOD */ printf(" /M - don't access modem at all\n");
A 1504 /* MOD */ printf(" /X - pointer to bbs.com info\n");
A 1505 /* MOD */ printf(" /F - Pass full result code (\"CONNECT 9600/ARQ/HST/HST/V.42BIS\")\n");
A 1506 /* MOD */ printf(" /C - Enable flow control\n");
A 1507 /* MOD */ printf(" /D - don't dial out for network connects\n");
A 1508 /* MOD */ printf(" /? - display command line options\n\n");
A 1509 /* MOD */ exit(0);
A 1510 /* MOD */ case 'D':
A 1511 /* MOD */ no_dialout=1;
A 1512 /* MOD */ break;

Matching lines: 167


File A contains 1679 lines; 67 are unique.
File B contains 1612 lines; 0 are unique.
Files contain 1612 matching lines.





A "BBSUTL1.C" Page 1
B "421A\BBSUTL1.C"



Matching lines: 68

A 69 /* MOD */ char *s1;
A 70 /* MOD */ static int nlf=-1;

Matching lines: 2

A 73 case 0: /* Write line to node log */
A 74 /* MOD */ if (nlf<=0) {
A 75 /* MOD */ sprintf(l,"%sNODE-%d.LOG",syscfg.gfilesdir,node);
A 76 /* MOD */ nlf=open(l,O_RDWR | O_BINARY | O_CREAT | O_TRUNC | O_DENYWRITE, S_IREAD | S_IWRITE);
A 77 /* MOD */ if (filelength(nlf)) {
A 78 /* MOD */ lseek(nlf,-1L,SEEK_END);
A 79 /* MOD */ read(nlf,((void *)&ch1),1);
A 80 /* MOD */ if (ch1==26)
A 81 /* MOD */ lseek(nlf,-1L,SEEK_END);
A 82 /* MOD */ }
A 83 /* MOD */ }
A 84 /* MOD */ if (midline) {
A 85 /* MOD */ sprintf(l,"\r\n%s",s);
A 86 /* MOD */ midline = 0;
A 87 /* MOD */ } else
A 88 /* MOD */ strcpy(l,s);
A 89 /* MOD */ i=strlen(l);
A 90 /* MOD */ l[i++]='\r';
A 91 /* MOD */ l[i++]='\n';
A 92 /* MOD */ l[i]=0;
A 93 /* MOD */ write(nlf,(void *)l,i);
A 94 /* MOD */ break;
B 71 case 0: /* Write line to sysop's log */
B 72 if (slf<=0) {
B 73 slf=open(f,O_RDWR | O_CREAT | O_BINARY, S_IREAD | S_IWRITE);
B 74 if (filelength(slf)) {
B 75 lseek(slf,-1L,SEEK_END);
B 76 read(slf,((void *)&ch1),1);
B 77 if (ch1==26)
B 78 lseek(slf,-1L,SEEK_END);
B 79 }
A 95 case 1: /* Close sysop's log */
A 96 if (slf>0) {
A 97 close(slf);
A 98 slf=-1;

Matching lines: 1

B 81 if (midline) {
B 82 sprintf(l,"\r\n%s",s);
B 83 midline = 0;
B 84 } else
B 85 strcpy(l,s);
B 86 if (syscfg.sysconfig & sysconfig_printer)
B 87 fprintf(stdprn,"%s\r\n",s);
B 88 i=strlen(l);
B 89 l[i++]='\r';
B 90 l[i++]='\n';


A "BBSUTL1.C" Page 2
B "421A\BBSUTL1.C"


B 91 l[i]=0;
B 92 write(slf,(void *)l,i);

Matching lines: 1

B 94 case 1: /* Close sysop's log */
A 101 case 2: /* Set filename */

Matching lines: 4

B 99 break;
B 100 case 2: /* Set filename */
B 101 if (slf>0) {
B 102 close(slf);
B 103 slf=-1;
B 104 }

Matching lines: 18

A 124 case 4: /* Write a character to the node log file */
A 125 /* MOD */ if (nlf<=0) {
A 126 /* MOD */ sprintf(l,"%sNODE-%d.LOG",syscfg.gfilesdir,node);
A 127 /* MOD */ nlf=open(l,O_RDWR | O_BINARY | O_CREAT | O_TRUNC | O_DENYWRITE, S_IREAD | S_IWRITE);
A 128 /* MOD */ if (filelength(nlf)) {
A 129 /* MOD */ lseek(nlf, -1L, SEEK_END);
A 130 /* MOD */ read(nlf, ((void *)&ch1), 1);
A 131 /* MOD */ if (ch1 == 26)
A 132 /* MOD */ lseek(nlf, -1L, SEEK_END);
A 133 /* MOD */ }
A 134 /* MOD */ }
A 135 /* MOD */ if (!midline || ((midline + 2 + strlen(s)) > 78)) {
A 136 /* MOD */ strcpy(l, midline ? "\r\n " : " ");
A 137 /* MOD */ strcat(l, s);
A 138 /* MOD */ midline = 3 + strlen(s);
A 139 /* MOD */ }
A 140 /* MOD */ else {
A 141 /* MOD */ strcpy(l, ", ");
A 142 /* MOD */ strcat(l, s);
A 143 /* MOD */ midline += (2 + strlen(s));
A 144 /* MOD */ }
A 145 /* MOD */ i = strlen(l);
A 146 /* MOD */ write(nlf, (void *)l, i);
A 147 /* MOD */ break;
A 148 case 5: /* Write node log to sysop log */
A 149 /* MOD */ sprintf(l,"%sNODE-%d.LOG",syscfg.gfilesdir,node);
A 150 /* MOD */ if (nlf<=0)
A 151 /* MOD */ nlf=open(l,O_RDONLY | O_BINARY | O_DENYNONE);
A 152 /* MOD */ if (nlf>0) {
A 153 /* MOD */ i = filelength(nlf);
A 154 /* MOD */ s1 = (char *) malloc(i+1);
A 155 /* MOD */ lseek(nlf,0L,SEEK_SET);
A 156 /* MOD */ read(nlf,(void *)s1,i);
A 157 /* MOD */ close(nlf);
A 158 /* MOD */ nlf=-1;
A 159 /* MOD */ unlink(l);
A 160 /* MOD */ if (slf<=0)


A "BBSUTL1.C" Page 3
B "421A\BBSUTL1.C"


A 161 /* MOD */ slf=open_w(f,O_APPEND);
A 162 /* MOD */ write(slf,(void *)s1,i);
A 163 /* MOD */ if (syscfg.sysconfig & sysconfig_printer)
A 164 /* MOD */ fprintf(stdprn, "%s", s1);
A 165 /* MOD */ free(s1);
A 166 /* MOD */ }
A 167 /* MOD */ if (slf>0) {
A 168 /* MOD */ close(slf);
A 169 /* MOD */ slf=-1;
A 170 /* MOD */ }
A 171 /* MOD */ break;
B 123 case 4:
B 124 if (slf <= 0) {
B 125 slf = open(f, O_RDWR | O_CREAT | O_BINARY, S_IREAD | S_IWRITE);
B 126 if (filelength(slf)) {
B 127 lseek(slf, -1L, SEEK_END);
B 128 read(slf, ((void *)&ch1), 1);
B 129 if (ch1 == 26)
B 130 lseek(slf, -1L, SEEK_END);
B 131 }
B 132 }
B 133 if (!midline || ((midline + 2 + strlen(s)) > 78)) {
B 134 strcpy(l, midline ? "\r\n " : " ");
B 135 strcat(l, s);
B 136 midline = 3 + strlen(s);
B 137 }
B 138 else {
B 139 strcpy(l, ", ");
B 140 strcat(l, s);
B 141 midline += (2 + strlen(s));
B 142 }
B 143 if (syscfg.sysconfig & sysconfig_printer)
B 144 fprintf(stdprn, "%s", l);
B 145 i = strlen(l);
B 146 write(slf, (void *)l, i);
B 147 break;

Matching lines: 34

A 206 /* MOD */ f=open_w(s1,0);
B 182 f=open(s1,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);

Matching lines: 38

A 245 /* MOD */ sprintf(s1,"%sNODE-P0.%d",net_data,node);
A 246 /* MOD */ f=open_w(s1,O_APPEND);
B 221 sprintf(s1,"%sP0.NET",net_data);
B 222 f=open(s1,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
B 223 lseek(f,0L,SEEK_END);

Matching lines: 15

A 262 /* MOD */ f=open_w(s1,0);
B 239 f=open(s1,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);

Matching lines: 5


A "BBSUTL1.C" Page 4
B "421A\BBSUTL1.C"



A 268 /* MOD */ if (sm.touser==usernum)

Matching lines: 26

A 295 /* MOD */ i1=lockchain_test(map[i]);
A 296 /* MOD */ sprintf(s,"%d. %s%s%s",i+1, (i1 ? " " : "("), chains[map[i]].description, (i1 ? " " : ")"));
B 271 sprintf(s,"%d. %s",i+1, chains[map[i]].description);

Matching lines: 12

A 309 /* MOD */ if (!lockchain_set(cn)) {
A 310 /* MOD */ npr("%s is currently in use by another user.",chains[cn].description);
A 311 /* MOD */ return;
A 312 /* MOD */ }

Matching lines: 8

A 321 /* MOD */ strcpy(s1,chains[cn].filename);
A 322 /* MOD */ cd_to(strrev(strchr(strrev(s1),'\\')));
A 323 /* MOD */ sprintf(s2,"Chaining to %s",chains[cn].description);
A 324 /* MOD */ save_nodestatus(s2);

Matching lines: 22

A 347 /* MOD */ lockchain_release();
A 348 /* MOD */ cd_to(cdir);

Matching lines: 62


File A contains 410 lines; 94 are unique.
File B contains 375 lines; 59 are unique.
Files contain 316 matching lines.





A "CHNEDIT.C" Page 1
B "421A\CHNEDIT.C"



Matching lines: 265

A 266 /* MOD */ f=open_w(s, O_TRUNC);
B 266 f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);

Matching lines: 4


File A contains 270 lines; 1 are unique.
File B contains 270 lines; 1 are unique.
Files contain 269 matching lines.





A "CONIO.C" Page 1
B "421A\CONIO.C"



Matching lines: 72

A 73 /* MOD */ global_handle=open_w(s,O_APPEND);
B 73 global_handle=open(s,O_RDWR | O_APPEND | O_BINARY | O_CREAT,
B 74 S_IREAD | S_IWRITE);

Matching lines: 66

A 140 /* MOD */ global_handle=open_w(s,O_TRUNC);
B 141 global_handle=open(s,O_RDWR | O_TRUNC | O_BINARY | O_CREAT,
B 142 S_IREAD | S_IWRITE);

Matching lines: 1

A 142 /* MOD */ global_handle=open_w(s,O_APPEND);
B 144 global_handle=open(s,O_RDWR | O_APPEND | O_BINARY | O_CREAT,
B 145 S_IREAD | S_IWRITE);

Matching lines: 678


A 821 /* MOD */ f=open_r(s);
B 824 f=open(s,O_RDONLY | O_BINARY);

Matching lines: 873

A 1695 /* MOD */ sprintf(s2,"%sCHAT-%d.TXT",syscfg.gfilesdir,node);
A 1696 /* MOD */ cf=open_w(s2,0);
B 1698 sprintf(s2,"%sCHAT.TXT",syscfg.gfilesdir);
B 1699 cf=open(s2,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);

Matching lines: 60


File A contains 1756 lines; 6 are unique.
File B contains 1759 lines; 9 are unique.
Files contain 1750 matching lines.





A "CONNECT1.C" Page 1
B "421A\CONNECT1.C"



Matching lines: 44

A 45 /* MOD */ f=open_r(s);
B 45 f=open(s,O_RDWR | O_BINARY);

Matching lines: 16

A 62 /* MOD */ f=open_r(s);
B 62 f=open(s,O_RDWR | O_BINARY);

Matching lines: 119

A 182 /* MOD */ f=open_r(s);
B 182 f=open(s,O_RDWR | O_BINARY);

Matching lines: 25

A 208 f=open_r(s);
B 208 f=open(s,O_RDWR | O_BINARY);

Matching lines: 36

A 245 /* MOD */ f=open_r(s);
B 245 f=open(s,O_RDONLY | O_BINARY);

Matching lines: 32

A 278 /* MOD */ f=open_r(s);
B 278 f=open(s,O_RDWR | O_BINARY);

Matching lines: 13


File A contains 291 lines; 6 are unique.
File B contains 291 lines; 6 are unique.
Files contain 285 matching lines.





A "DIREDIT.C" Page 1
B "421A\DIREDIT.C"



Matching lines: 340

A 341 /* MOD */ f=open_w(s,O_TRUNC);
B 341 f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);

Matching lines: 8


File A contains 349 lines; 1 are unique.
File B contains 349 lines; 1 are unique.
Files contain 348 matching lines.





A "EXTRN.C" Page 1
B "421A\EXTRN.C"



Matching lines: 276

A 277 /* MOD */ void run_external_abs(char *s) /* runs external program even through a hangup */
A 278 /* MOD */ { /* used to run maintainence without a user online */
A 279 /* MOD */ char x[161];
A 280 /* MOD */
A 281 /* MOD */ sl1(1,"");
A 282 /* MOD */ close_user();
A 283 /* MOD */ checkhangup();
A 284 /* MOD */ if (hangup) {
A 285 /* MOD */ dtr(1);
A 286 /* MOD */ wait1(2);
A 287 /* MOD */ holdphone(1);
A 288 /* MOD */ }
A 289 /* MOD */ sprintf(x,"%s /C %s", getenv("COMSPEC"), s);
A 290 /* MOD */ do_it(x);
A 291 /* MOD */ initporte(syscfg.primaryport);
A 292 /* MOD */ chdir(cdir);
A 293 /* MOD */ setdisk(cdir[0]-'A');
A 294 /* MOD */ }

Matching lines: 1

A 296 /* MOD */ int run_external1_abs(char *s) /* runs external program even through a hangup */
A 297 /* MOD */ {
A 298 /* MOD */ int i;
A 299 /* MOD */
A 300 /* MOD */ sl1(1,"");
A 301 /* MOD */ close_user();
A 302 /* MOD */ checkhangup();
A 303 /* MOD */ if (hangup) {
A 304 /* MOD */ dtr(1);
A 305 /* MOD */ wait1(2);
A 306 /* MOD */ holdphone(1);
A 307 /* MOD */ }
A 308 /* MOD */ i=do_it(s);
A 309 /* MOD */ initporte(syscfg.primaryport);
A 310 /* MOD */ chdir(cdir);
A 311 /* MOD */ setdisk(cdir[0]-'A');
A 312 /* MOD */ return(i);
A 313 /* MOD */ }

Matching lines: 1

A 315
A 316

Matching lines: 369


File A contains 685 lines; 38 are unique.
File B contains 647 lines; 0 are unique.
Files contain 647 matching lines.





A "GFILES.C" Page 1
B "421A\GFILES.C"



Matching lines: 27

A 28 /* MOD */ i=open_r(fn);
B 28 i=open(fn,O_RDWR | O_BINARY);

Matching lines: 27

A 56 /* MOD */ f=open_r(s);
B 56 f=open(s,O_RDWR | O_BINARY);

Matching lines: 110

A 167 /* MOD */ i=open_w(s,O_TRUNC);
B 167 i=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);

Matching lines: 84


File A contains 251 lines; 3 are unique.
File B contains 251 lines; 3 are unique.
Files contain 248 matching lines.





A "GFLEDIT.C" Page 1
B "421A\GFLEDIT.C"



Matching lines: 267

A 268 /* MOD */ f=open_w(s,O_TRUNC);
B 268 f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);

Matching lines: 51

A 320 /* MOD */ i=open_w(s,O_TRUNC);
B 320 i=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);

Matching lines: 8


File A contains 328 lines; 2 are unique.
File B contains 328 lines; 2 are unique.
Files contain 326 matching lines.





A "LILO.C" Page 1
B "421A\LILO.C"



Matching lines: 119

A 120 /* MOD */ sprintf(s3,"### ILLEGAL LOGON for %s %s %s %s node %d ###", nam(&thisuser,usernum),times(),date(),curspeed,node);
A 121 /* MOD */ sl1(0,"");
B 120 sprintf(s3,"### ILLEGAL LOGON for %s (%s) (PW=%s)",
B 121 nam(&thisuser,usernum),
B 122 ctim(timer()),
B 123 s);

Matching lines: 16

A 138 /* MOD save_status(); */
B 140 save_status();

Matching lines: 5

A 144 /* MOD */ if (locknetdial_set())

Matching lines: 1

A 146 /* MOD */ locknetdial_release();

Matching lines: 9

A 156 /* MOD */ sprintf(s3,"REMOTES.DAT");
B 156 sprintf(s3,"%sREMOTES.DAT",syscfg.datadir);

Matching lines: 69

A 226 /* MOD if (strcmp(date(),status.date1)!=0) { */
A 227 /* MOD if (live_user) { */
A 228 /* MOD nl(); */
A 229 /* MOD pl("Now doing daily maintenance."); */
A 230 /* MOD nl(); */
A 231 /* MOD } */
A 232 /* MOD beginday(); */
A 233 /* MOD } */
A 234 /* MOD */ read_user(usernum,&thisuserbackup);
B 226 if (strcmp(date(),status.date1)!=0) {
B 227 if (live_user) {
B 228 nl();
B 229 pl("Now doing daily maintenance.");
B 230 nl();
B 231 }
B 232 beginday();
B 233 }

Matching lines: 26

A 261 /* MOD */ load_status();

Matching lines: 2

A 264 /* MOD */ save_status();



A "LILO.C" Page 2
B "421A\LILO.C"


Matching lines: 1

A 266 /* MOD */ sprintf(s,"%ld: %s %s %s %s - %d node %d", status.callernum1, nam(&thisuser,usernum), times(), date(), curspeed, thisuser.ontoday, node);
A 267
B 263 sprintf(s,"%ld: %s %s %s %s - %d",
B 264 status.callernum1,
B 265 nam(&thisuser,usernum),
B 266 times(),
B 267 date(),
B 268 curspeed,
B 269 thisuser.ontoday);
B 270

Matching lines: 23

A 291 /* MOD */ sl1(5,"");

Matching lines: 9

A 301 /* MOD */ f=open_w(s1,O_APPEND);
B 303 f=open(s1,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
B 304 lseek(f,0L,SEEK_END);

Matching lines: 4

A 306 /* MOD */ f=open_w(s2,O_TRUNC);
B 309 f=open(s2,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);

Matching lines: 72

A 379 /* MOD */ npr("BBS node : %d\r\n",node);

Matching lines: 83

A 463 /* MOD save_status(); */
B 465 save_status();

Matching lines: 12

A 476 /* MOD */ char s1[81];
A 477 /* MOD */ userrec thisuserdisk;

Matching lines: 7

A 485 /* MOD */ if ((actsl!=255) || (incom)) {
A 486 /* MOD */ sprintf(s,"Logged off: %s %s Read: %u Time on: %s",times(),date(),msgreadlogon,ctim(timer()-timeon));
A 487 /* MOD */ sl1(0,s);
A 488 /* MOD */ sl1(5,"");
A 489 /* MOD */ }
A 490 /* MOD */ for (i=0; i<2; i++) {
A 491 /* MOD */ sprintf(s,"%sNODE-P%d.%d",syscfg.datadir,i,node);
A 492 /* MOD */ if (exist(s)) {
A 493 /* MOD */ sprintf(s1,"%sP%d%d.NET",syscfg.datadir,i,node);
A 494 /* MOD */ rename(s,s1);
A 495 /* MOD */ }
A 496 /* MOD */ }


A "LILO.C" Page 3
B "421A\LILO.C"


A 497

Matching lines: 8

A 506 /* MOD */ load_status();

Matching lines: 7

A 514
A 515 /* MOD */ load_user(usernum,&thisuserdisk);
A 516 /* MOD */ if (thisuser.exempt!=thisuserdisk.exempt && thisuser.exempt==thisuserbackup.exempt)
A 517 /* MOD */ thisuser.exempt=thisuserdisk.exempt;
A 518 /* MOD */ if (thisuser.ar!=thisuserdisk.ar && thisuser.ar==thisuserbackup.ar)
A 519 /* MOD */ thisuser.ar=thisuserdisk.ar;
A 520 /* MOD */ if (thisuser.dar!=thisuserdisk.dar && thisuser.dar==thisuserbackup.dar)
A 521 /* MOD */ thisuser.dar=thisuserdisk.dar;
A 522 /* MOD */ if (thisuser.restrict!=thisuserdisk.restrict && thisuser.restrict==thisuserbackup.restrict)
A 523 /* MOD */ thisuser.restrict=thisuserdisk.restrict;
A 524 /* MOD */ thisuser.uk += (thisuserdisk.uk-thisuserbackup.uk);
A 525 /* MOD */ thisuser.dk += (thisuserdisk.dk-thisuserbackup.dk);
A 526 /* MOD */ thisuser.pos_account += (thisuserdisk.pos_account-thisuserbackup.pos_account);
A 527 /* MOD */ thisuser.neg_account += (thisuserdisk.neg_account-thisuserbackup.neg_account);
A 528 /* MOD */ thisuser.gold += (thisuserdisk.gold-thisuserbackup.gold);
A 529 /* MOD */ countmail();
A 530
A 531 /* MOD */ if (timeon<0.0) {
A 532 /* MOD */ if (strcmp(date(),status.date1)!=0) {
A 533 /* MOD */ load_status();
A 534 /* MOD */ close(statusfile);
A 535 /* MOD */ statusfile=-1;
A 536 /* MOD */ }
A 537 /* MOD */ if (strcmp(date(),status.date1)==0)
A 538 /* MOD update_user(usernum); in case you have special maintainance */;
A 539 /* MOD */ }
A 540

Matching lines: 10

A 551 /* MOD */ f=openemail_w();
B 510 sprintf(s,"%sEMAIL.DAT",syscfg.datadir);
B 511 f=open(s,O_BINARY | O_RDWR);

Matching lines: 17

A 569 /* MOD */ closeemail_w();
B 529 close(f);

Matching lines: 5

A 575 /* MOD */ f=open_w_exist(s,0);
B 535 f=open(s,O_BINARY | O_RDWR);

Matching lines: 34


File A contains 609 lines; 70 are unique.
File B contains 569 lines; 30 are unique.
Files contain 539 matching lines.






  3 Responses to “Category : BBS Programs+Doors
Archive   : MULTILNE.ZIP
Filename : ML.2

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/