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

This modification will allow you to type //uploadfile and
accomplish //uploading the text file descriptions provided by
many CD Rom disk publishers on thier disks. This mod will
also upload the extended description in addition to the first
line of the description provided for on the disk. It assumes
the file holds listings of files, one per line, to be
uploaded. The first word (delimited by space/tab) must be the
filename. After the filename are optional tab/space separated
words (such as file size or date/time). After the optional
words is the description, which is from that position to the
end of the line. The "type" parameter gives the number of
optional words between the filename and description. The
optional words (size, date/time) are ignored completely.

In other words, using this mod, you can //uploadfile this:


BANKLIST.ZIP 2067 06-16-92 List instrument names in AdLib bank file.
BATTLE64.LZH 47024 08-06-92 Battlestar Galactica Theme.
| CM-64 Version
BATTLEGS.LZH 46204 08-09-92 Battlestar Galactica Theme (GS
| Version)
ECSTACY.ZIP 113007 03-31-92 A great .mod of a sound mix,
GOLDPLAY.ZIP 120379 08-01-92 Goldplay 1.0 With .tpu .asm
| .pas Mod Player.
MISSION.ZIP 138986 10-04-92 .MOD MUSIC FILE FOR THE
| SB/SBPRO.
SBINTUNE.ZIP 92510 01-03-92 Play stereo ROL Blaster-Pro with the Adlib.
| SB-SOUND.COM makes it possible to use INTUNE
| Demo file and 2 .BNKs included. Great sound.
SHORT_DY.ZIP 1420931 01-26-92 Fantastic Pipe music by one of worls,s best
| mass pipe & drum etc.bands.Quick Marches.
| Voc file recorded with sfx card but should
| work on Adlib and Sounblaster.
SSG105.ZIP 39023 01-29-92 Super Sound Gram v1.05 - ROL player with
| great graphic display.


....And the entire descriptions will be included, including the extended
descriptions. You will need to make sure that you select the proper format
when you type //uploadfile from the files area. It is also important that you
make sure that your file descriptions fit the format of one of the available
file formats (that you are prmopted for in //uploadfile), or that it is
reasonably close.

...On with the mod.

Version: 4.22. May work with others, but I can't guarantee it.
Credits: All credit goes to Wayne Bell.

-------- More Credit ----------------------------------------------------------
Not enough can be said, nor enough credit given to Wayne. I have yet to meet
(or deal with) a software author that is more supportive of his works than
Wayne is of WWIV. He helps out without being asked, and in today's world, that
is very rare. Thank you Wayne!
------------------------------------------------------------------------------

In XFEROVL.C, search for, and replace the following void: (Make sure that you
replace the *right* void. There are a few that look alike. Read carefully!)


void upload_files(char *fn, int dn, int type)
/* This assumes the file holds listings of files, one per line, to be
* uploaded. The first word (delimited by space/tab) must be the filename.
* after the filename are optional tab/space separated words (such as file
* size or date/time). After the optional words is the description, which
* is from that position to the end of the line. the "type" parameter gives
* the number of optional words between the filename and description.
* the optional words (size, date/time) are ignored completely.
*/
{
char s[255],*fn1,*desc,last_fn[81],*ext=NULL;
FILE *f;
int ok=1,abort=0,next=0,ok1,i;
uploadsrec u;

last_fn[0]=0;
dliscan1(udir[dn].subnum);

f=fopen(fn,"r");
if (!f) {
sprintf(s,"%s%s",directories[udir[dn].subnum].path,fn);
f=fopen(s,"r");
}
if (!f) {
outstr(fn);
pl(": not found.");
} else {
while (ok && fgets(s,250,f)) {
if (s[0]<32)
continue;
else if (s[0]==32) {
if (last_fn[0]) {
if (!ext) {
ext=malloca(4096L);
*ext=0;
}
for (desc=s; (*desc==' ') || (*desc=='\t'); desc++)
;
if (*desc=='|') {
do {
desc++;
} while ((*desc==' ') || (*desc=='\t'));
fn1=strchr(desc,'\n');
if (fn1)
*fn1=0;
strcat(ext, desc);
strcat(ext,"\r\n");
}
}
} else {
ok1=0;
fn1=strtok(s," \t\n");
if (fn1) {
ok1=1;
for (i=0; ok1 && (i if (strtok(NULL," \t\n")==NULL)
ok1=0;
if (ok1) {
desc=strtok(NULL,"\n");
if (!desc)
ok1=0;
}
}
if (ok1) {

if (last_fn[0] && ext && *ext) {
SETREC(1);
read(dlf,(void *)&u, sizeof(uploadsrec));
if (strcmp(last_fn,u.filename)==0) {
add_extended_description(last_fn, ext);
u.mask |= mask_extended;
SETREC(1);
write(dlf, (void *)&u, sizeof(uploadsrec));
}
*ext=0;
}
while ((*desc==' ') || (*desc=='\t'))
++desc;
ok=maybe_upload(fn1,dn,desc);
checka(&abort,&next);
if (abort)
ok=0;
if (ok) {
strcpy(last_fn, fn1);
align(last_fn);
if (ext)
*ext=0;
}
}
}
}
fclose(f);
if (ok && last_fn[0] && ext && *ext) {
SETREC(1);
read(dlf,(void *)&u, sizeof(uploadsrec));
if (strcmp(last_fn,u.filename)==0) {
add_extended_description(last_fn, ext);
u.mask |= mask_extended;
SETREC(1);
write(dlf, (void *)&u, sizeof(uploadsrec));
}
}
}

closedl();

if (ext)
farfree(ext);
}


If anyone has **ANY** trouble with this, please let me know. This should be
relatively simple to do. If you don't understand the //uploadfile command, be
sure to read the docs, as Filo did an excellent job of documenting and
explaining all the features of WWIV. If you still have troubles, email me, and
I will do what I can to help you out.


Many, MANY thanks again go to Wayne!!!!


ô
õam
1@2077
-----