home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Devil's Doorknob BBS Capture (1996-2003)
/
devilsdoorknobbbscapture1996-2003.iso
/
WWIV2.ZIP
/
DIREDIT.C
< prev
next >
Wrap
C/C++ Source or Header
|
1992-12-16
|
8KB
|
361 lines
/*****************************************************************************
WWIV Version 4
Copyright (C) 1988-1993 by Wayne Bell
Distribution of the source code for WWIV, in any form, modified or unmodified,
without PRIOR, WRITTEN APPROVAL by the author, is expressly prohibited.
Distribution of compiled versions of WWIV is limited to copies compiled BY
THE AUTHOR. Distribution of any copies of WWIV not compiled by the author
is expressly prohibited.
*****************************************************************************/
#include "vars.h"
#pragma hdrstop
#include <dir.h>
void dirdata(int n, char *s)
{
char x,y,k,i;
directoryrec r;
r=directories[n];
if (r.dar==0)
x=32;
else {
for (i=0; i<16; i++)
if ((1 << i) & r.dar)
x='A'+i;
}
sprintf(s,"%2d %1c %-40s %-8s %-3d %-3d %-3d %-9.9s",
n,x,r.name,r.filename,r.dsl,r.age,r.maxfiles,r.path);
}
void showdirs(void)
{
int abort,i;
char s[180];
outchr(12);
abort=0;
pla(get_string(133),
&abort);
pla(get_string(134),
&abort);
for (i=0; (i<num_dirs) && (!abort); i++) {
dirdata(i,s);
pla(s,&abort);
}
}
void modify_dir(int n)
{
directoryrec r;
char s[81],s1[81],ch,ch2,*ss;
int i,i1,done;
r=directories[n];
done=0;
do {
outchr(12);
outstr(get_string(62)); pl(r.name);
outstr(get_string(63)); pl(r.filename);
outstr(get_string(135)); pl(r.path);
outstr(get_string(136)); pln(r.dsl);
outstr(get_string(137)); pln(r.age);
outstr(get_string(138)); pln(r.maxfiles);
strcpy(s,get_string(5));
if (r.dar!=0) {
for (i=0; i<16; i++)
if ((1 << i) & r.dar)
s[0]='A'+i;
s[1]=0;
}
outstr(get_string(139)); pl(s);
outstr(get_string(140)); pl((r.mask&mask_PD)?str_yes:str_no);
outstr(get_string(141)); pln(r.type);
outstr(get_string(142));
pl((r.mask & mask_no_uploads) ? get_string(143) : get_string(115));
outstr(get_string(144));
pl((r.mask & mask_archive) ? str_yes : str_no);
nl();
prt(2,get_string(119));
ch=onek("QABCDEFGHIJK");
switch(ch) {
case 'Q':done=1; break;
case 'A':
nl();
prt(2,get_string(69));
inputl(s,40);
if (s[0])
strcpy(r.name,s);
break;
case 'B':
nl();
prt(2,get_string(72));
input(s,8);
if ((s[0]!=0) && (strchr(s,'.')==0))
strcpy(r.filename,s);
break;
case 'C':
nl();
pl(get_string(145));
pl(get_string(146));
prt(2,get_string(147));
input(s,80);
if (s[0]) {
if (chdir(s)) {
cd_to(cdir);
if (mkdir(s)) {
pl(get_string(148));
pl(get_string(149));
getkey();
s[0]=0;
}
} else {
cd_to(cdir);
}
if (s[0]) {
strcat(s,"\\");
strcpy(r.path,s);
pl(get_string(150));
pl(get_string(151));
pl(get_string(152));
pl(get_string(149));
getkey();
}
}
break;
case 'D':
nl();
prt(2,get_string(153));
input(s,3);
i=atoi(s);
if ((i>=0) && (i<256) && (s[0]))
r.dsl=i;
break;
case 'E':
nl();
prt(2,get_string(77));
input(s,3);
i=atoi(s);
if ((i>=0) && (i<128) && (s[0]))
r.age=i;
break;
case 'F':
nl();
prt(2,get_string(79));
input(s,3);
i=atoi(s);
if ((i>0) && (i<500) && (s[0]))
r.maxfiles=i;
break;
case 'G':
nl();
prt(2,get_string(154));
ch2=onek("ABCDEFGHIJKLMNOP ");
if (ch2==32)
r.dar=0;
else
r.dar=1 << (ch2-'A');
break;
case 'H':
r.mask &= ~mask_PD;
nl();
prt(5,get_string(155));
if (ny())
r.mask |= mask_PD;
break;
case 'I':
nl();
prt(2,get_string(156));
input(s,4);
i=atoi(s);
if (s[0])
r.type=i;
break;
case 'J':
r.mask &= ~mask_no_uploads;
nl();
prt(5,get_string(157));
if (!ny())
r.mask |= mask_no_uploads;
break;
case 'K':
r.mask &= ~mask_archive;
nl();
prt(5,get_string(158));
if (yn())
r.mask |= mask_archive;
break;
}
} while ((!done) && (!hangup));
directories[n]=r;
}
void insert_dir(int n)
{
directoryrec r;
int i,i1,i2,nu;
unsigned long *qsc, *qsc_n, m1, m2, m3;
for (i=num_dirs-1; i>=n; i--) {
directories[i+1]=directories[i];
dir_dates[i+1]=dir_dates[i];
}
strcpy(r.name,get_string(159));
strcpy(r.filename,get_string(82));
strcpy(r.path,syscfg.dloadsdir);
r.dsl=10;
r.age=0;
r.maxfiles=50;
r.dar=0;
r.type=0;
r.mask=0;
directories[n]=r;
++num_dirs;
nu=number_userrecs();
close_user();
qsc=(unsigned long *)farmalloc(syscfg.qscn_len);
if (qsc) {
qsc_n=qsc+1;
m1=1L<<(n%32);
m2=0xffffffff<<((n%32)+1);
m3=0xffffffff>>(32-(n%32));
for (i=1; i<=nu; i++) {
read_qscn(i,qsc, 1);
for (i2=num_dirs/32; i2>n/32; i2--) {
qsc_n[i2]=(qsc_n[i2]<<1) | (qsc_n[i2-1]>>31);
}
qsc_n[i2]=m1 | (m2 & (qsc_n[i2]<<1)) | (m3 & qsc_n[i2]);
write_qscn(i,qsc,1);
}
close_qscn();
farfree(qsc);
}
modify_dir(n);
}
void delete_dir(int n)
{
int i,i1,i2,nu;
unsigned long *qsc, *qsc_n, m2, m3;
for (i=n; i<num_dirs; i++) {
directories[i]=directories[i+1];
dir_dates[i]=dir_dates[i+1];
}
--num_dirs;
nu=number_userrecs();
close_user();
qsc=(unsigned long *)farmalloc(syscfg.qscn_len);
if (qsc) {
qsc_n=qsc+1;
m2=0xffffffff<<(n%32);
m3=0xffffffff>>(32-(n%32));
for (i=1; i<=nu; i++) {
read_qscn(i,qsc, 1);
qsc_n[n/32]=(qsc_n[n/32]&m3) | ((qsc_n[n/32]>>1)&m2) |
(qsc_n[(n/32)+1]<<31);
for (i2=(n/32)+1; i2<=(num_dirs/32); i2++) {
qsc_n[i2]=(qsc_n[i2]>>1) | (qsc_n[i2+1]<<31);
}
write_qscn(i,qsc,1);
}
close_qscn();
farfree(qsc);
}
}
void dlboardedit(void)
{
int i,i1,i2,done,f;
char s[81],s1[81],s2[81],ch;
if (!checkpw())
return;
showdirs();
done=0;
do {
nl();
prt(2,get_string(160));
ch=onek("QDIM?");
switch(ch) {
case '?':
showdirs();
break;
case 'Q':
done=1;
break;
case 'M':
nl();
prt(2,get_string(161));
input(s,3);
i=atoi(s);
if ((s[0]!=0) && (i>=0) && (i<num_dirs))
modify_dir(i);
break;
case 'I':
if (num_dirs<max_dirs) {
nl();
prt(2,get_string(162));
input(s,3);
i=atoi(s);
if ((s[0]!=0) && (i>=0) && (i<=num_dirs))
insert_dir(i);
}
break;
case 'D':
nl();
prt(2,get_string(163));
input(s,3);
i=atoi(s);
if ((s[0]!=0) && (i>=0) && (i<num_dirs)) {
nl();
ansic(5);
outstr(get_string(87));
outstr(directories[i].name);
outstr("? ");
if (yn())
delete_dir(i);
}
break;
}
} while ((!done) && (!hangup));
sprintf(s,"%sDIRS.DAT",syscfg.datadir);
f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
write(f,(void *)&directories[0], num_dirs * sizeof(directoryrec));
close(f);
if (!wfc)
changedsl();
}