Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : BILBO85F.MOD

Tuck #1 @3652
Fri Mar 09 21:29:55 1990
Bilbo Baggins #1 @7303
Thu Mar 08 00:25:43 1990



* Now insert the following procedure, bat_prot, before procedure arc_l :

int bat_prot(int t, int *had)

{
FILE *f;
int i,abort,done,rr,i2,numb,f1;
directoryrec d;
char s[81],s1[81],s2[81];
double percent;
uploadsrec u,u1;
int i1;
long l;
double ti;
batchuser br;

if (!incom)
{
*had=0;
return(*had);
}
nl();
prt(5,"Hang up after transfer? ");
*had=yn();
nl();
nl();
sprintf(s,"%s is currently online",thisuser.name);
outs(s);
nl();
sprintf(s,"Bilbo Baggins presents...The Batch UL/DL Mod!");
pl(s);
nl();
nl();
sprintf(s,"Transmitting: Files - %d DL Time - %s",numbatch+numbatchul,
ctim(batchtime));
pl(s);
nl();
rr=0;
if ((syscfg.req_ratio>0.0001) && (ratio() && (numbatch > 0))
rr=1;
if (thisuser.exempt & exempt_ratio)
rr=0;
if (rr) {
nl();
pl("Sorry, your ratio is too low.");
nl();
*had=0; /* reset hangup to no */
return(*had);
}
/* */
/* RECEIVE USER BATCH UPLOADS */
/* */

/* if there are files in the batch queue */
if ((numbatchul)>0) {

/* Send batch file to uploader */

prt(5,"Receive batch file for upload(s) ? ");
if (yn()) {

br=batchcfg(0);
strcpy(s,"C:\\BBS\\BATCH.BAT");
f = fopen(s,"w");

/* Write the filenames out to a file for protocol to use. */
switch (t)
{
case 0:
sprintf(s1,"%sdsz port %s sz %s",br.protopath,
br.comport,br.ulpath);
break;
case 1:
sprintf(s1,"%sdsz port %s sb %s",br.protopath,
br.comport,br.ulpath);
break;
case 2:
sprintf(s1,"%slynx s /%s /S /H %s",br.protopath,
br.comport,br.ulpath);
break;
case 3:
sprintf(s1,"%spuma P%s s %s",br.protopath,
br.comport,br.ulpath);
break;
case 4:
sprintf(s1,"%sdsz port %s sb -g %s",br.protopath,
br.comport,br.ulpath);
break;
} /* end switch */

for (i=0; (i strcpy(s2,s1);
strcat(s2,stripfn(batchfnul[i]));
fprintf(f,"%s\n",s2);
} /* end for numbatchul */
/* if numbatch (dl) > 0, tack on receive batch to BATCH.BAT */
if (numbatch > 0) {
switch (t)
{
case 0:
sprintf(s1,"%sdsz port %s rz %s",br.protopath,
br.comport,br.dlpath);
fprintf(f,"%s\n",s1);
break;
case 1:
sprintf(s1,"%sdsz port %s rb %s",br.protopath,
br.comport,br.dlpath);
fprintf(f,"%s\n",s1);
break;
case 2:
sprintf(s1,"%slynx r /%s /S /H %s",br.protopath,
br.comport,br.dlpath);
fprintf(f,"%s\n",s1);
break;
case 3:
sprintf(s1,"%spuma P%s r %s",br.protopath,
br.comport,br.dlpath);
fprintf(f,"%s\n",s1);
break;
case 4:
sprintf(s1,"%sdsz port %s rb -g %s",br.protopath,
br.comport,br.dlpath);
fprintf(f,"%s\n",s1);
break;
}
} /* endif */

strcpy(s1,"EXIT\n");
fprintf(f,"%s\n",s1);

fclose(f);
pl("Sending BATCH.BAT file...");
extern_prot(t,s,1);
}