![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to delphoto.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2 / smm|
Return to delphoto.c CVS log | Up to [Synchronet] / sbbs / sbbs2 / smm |
1.1 root 1: /* DELPHOTO.C */
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #include <io.h>
6: #include <dos.h>
7: #include <dir.h>
8: #include <bios.h>
9: #include <time.h>
10: #include <ctype.h>
11: #include <stdio.h>
12: #include <share.h>
13: #include <conio.h>
14: #include <errno.h>
15: #include <fcntl.h>
16: #include <string.h>
17: #include <stdlib.h>
18: #include <stdarg.h>
19: #include <malloc.h>
20: #include <sys/stat.h>
21: #include <sys/types.h>
22:
23: #include "gen_defs.h"
24: #include "crc32.h"
25: #include "smmdefs.h"
26:
27: extern int daylight=0;
28: extern long timezone=0L;
29:
30:
31:
32: char *base41(unsigned int i, char *str)
33: {
34: char c;
35: unsigned int j=41*41,k;
36:
37: for(c=0;c<3;c++) {
38: k=i/j;
39: str[c]='0'+k;
40: i-=(k*j);
41: j/=41;
42: if(str[c]>=':')
43: str[c]='A'+(str[c]-':');
44: if(str[c]>='[')
45: str[c]='#'+(str[c]-'['); }
46: str[c]=0;
47: return(str);
48: }
49:
50: /****************************************************************************/
51: /* Updates 16-bit "rcrc" with character 'ch' */
52: /****************************************************************************/
53: void ucrc16(uchar ch, ushort *rcrc) {
54: ushort i, cy;
55: uchar nch=ch;
56:
57: for (i=0; i<8; i++) {
58: cy=*rcrc & 0x8000;
59: *rcrc<<=1;
60: if (nch & 0x80) *rcrc |= 1;
61: nch<<=1;
62: if (cy) *rcrc ^= 0x1021; }
63: }
64:
65: /****************************************************************************/
66: /* Returns 16-crc of string (not counting terminating NULL) */
67: /****************************************************************************/
68: ushort crc16(char *str)
69: {
70: int i=0;
71: ushort crc=0;
72:
73: ucrc16(0,&crc);
74: while(str[i])
75: ucrc16(str[i++],&crc);
76: ucrc16(0,&crc);
77: ucrc16(0,&crc);
78: return(crc);
79: }
80:
81: /****************************************************************************/
82: /* Returns 32-crc of string (not counting terminating NULL) */
83: /****************************************************************************/
84: ulong crc32(char *str)
85: {
86: int i=0;
87: ulong crc=0xffffffffUL;
88:
89: while(str[i])
90: crc=ucrc32(str[i++],crc);
91: crc=~crc;
92: return(crc);
93: }
94:
95: time_t checktime()
96: {
97: struct tm tm;
98:
99: memset(&tm,0,sizeof(tm));
100: tm.tm_year=94;
101: tm.tm_mday=1;
102: return(mktime(&tm)^0x2D24BD00L);
103: }
104:
105:
106: int main(int argc, char **argv)
107: {
108: char str[128],fname[128],path[128],tmp[128];
109: int i,file;
110: FILE *index, *stream;
111: ulong number,crc;
112: user_t user;
113: ixb_t ixb;
114: struct ffblk ff;
115:
116: printf("\nDELPHOTO v1.00 - Synchronet Match Maker Photograph Deletion\n\n");
117:
118: if(checktime()) {
119: printf("Time problem!\n");
120: exit(1); }
121:
122: if(argc<3) {
123: printf("usage: delphoto user_number system_name\n");
124: exit(1); }
125:
126: if((file=open("SMM.DAB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
127: ,S_IWRITE|S_IREAD))==-1) {
128: printf("\n\7Error opening/creating SMM.DAB\n");
129: exit(1); }
130: if((stream=fdopen(file,"w+b"))==NULL) {
131: printf("\n\7Error converting SMM.DAB file handle to stream\n");
132: exit(1); }
133: setvbuf(stream,0L,_IOFBF,4096);
134:
135: if((file=open("SMM.IXB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
136: ,S_IWRITE|S_IREAD))==-1) {
137: printf("\n\7Error opening/creating SMM.IXB\n");
138: exit(1); }
139: if((index=fdopen(file,"w+b"))==NULL) {
140: printf("\n\7Error converting SMM.IXB file handle to stream\n");
141: exit(1); }
142: setvbuf(stream,0L,_IOFBF,1024);
143:
144: number=atol(argv[1]);
145: str[0]=0;
146: for(i=2;i<argc;i++) {
147: if(str[0])
148: strcat(str," ");
149: strcat(str,argv[i]); }
150:
151: strupr(str);
152: str[25]=0;
153:
154: crc=crc32(str);
155: rewind(index);
156: i=0;
157: while(!feof(index)) {
158: if(!fread(&ixb,sizeof(ixb_t),1,index))
159: break;
160: if(!ixb.number) /* DELETED */
161: continue;
162: if(ixb.system!=crc || ixb.number!=number)
163: continue;
164: fseek(stream
165: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
166: *sizeof(user_t),SEEK_SET);
167: if(!fread(&user,sizeof(user_t),1,stream))
168: continue;
169: i=1;
170: break; }
171: if(!i) {
172: printf("\7User #%lu @ %s not found!\n",number,str);
173: exit(2); }
174:
175: if(!(user.misc&USER_PHOTO)) {
176: printf("\7User #%lu @ %s doesn't have a photo attached to their profile.\n"
177: ,number,str);
178: exit(3); }
179:
180: for(i=0;user.system[i];i++)
181: if(isalnum(user.system[i]))
182: break;
183: if(!user.system[i])
184: fname[0]='~';
185: else
186: fname[0]=user.system[i];
187: for(i=strlen(user.system)-1;i>0;i--)
188: if(isalnum(user.system[i]))
189: break;
190: if(i<=0)
191: fname[1]='~';
192: else
193: fname[1]=user.system[i];
194: fname[2]=0;
195: strupr(user.system);
196: strcat(fname,base41(crc16(user.system),tmp));
197: strcat(fname,base41(user.number,tmp));
198: strcat(fname,".*");
199: strupr(fname);
200: sprintf(path,"PHOTO\\%s",fname);
201: i=findfirst(path,&ff,0);
202: if(i)
203: printf("\7%s doesn't exist!\n",path);
204: else {
205: sprintf(path,"PHOTO\\%s",ff.ff_name);
206: if(remove(path))
207: printf("\7%s couldn't be removed!\n",path); }
208:
209: user.misc&=~USER_PHOTO;
210: user.updated=time(NULL);
211: user.photo=0;
212: fseek(stream
213: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
214: *sizeof(user_t),SEEK_SET);
215: fwrite(&user,sizeof(user_t),1,stream);
216: ixb.updated=user.updated;
217: fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
218: fwrite(&ixb,sizeof(ixb_t),1,index);
219:
220: printf("Photo removed successfully from database.\n");
221: return(0);
222: }
223:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.