![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dupefind.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3|
Return to dupefind.c CVS log | Up to [Synchronet] / sbbs / src / sbbs3 |
1.1 root 1: /* DUPEFIND.C */
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #include "sbbs.h"
6: #include "crc32.h"
7:
8: #define DUPEFIND_VER "1.01"
9:
10: void bail(int code)
11: {
12: exit(code);
13: }
14:
15: long lputs(char *str)
16: {
17: char tmp[256];
18: int i,j,k;
19:
20: j=strlen(str);
21: for(i=k=0;i<j;i++) /* remove CRs */
22: if(str[i]==CR && str[i+1]==LF)
23: continue;
24: else
25: tmp[k++]=str[i];
26: tmp[k]=0;
27: return(fputs(tmp,stderr));
28: }
29:
30: /****************************************************************************/
31: /* Performs printf() through local assembly routines */
32: /* Called from everywhere */
33: /****************************************************************************/
34: int lprintf(char *fmat, ...)
35: {
36: va_list argptr;
37: char sbuf[256];
38: int chcount;
39:
40: va_start(argptr,fmat);
41: chcount=vsprintf(sbuf,fmat,argptr);
42: va_end(argptr);
43: lputs(sbuf);
44: return(chcount);
45: }
46:
47: char *display_filename(scfg_t *cfg, ushort dir_num,ushort fil_off)
48: {
49: static char str[256];
50: char fname[13];
51: int file;
52:
53: sprintf(str,"%s%s.IXB",cfg->dir[dir_num]->data_dir,cfg->dir[dir_num]->code);
54: if((file=nopen(str,O_RDONLY))==-1)
55: return("UNKNOWN");
56: lseek(file,(long)(22*(fil_off-1)),SEEK_SET);
57: read(file,fname,11);
58: close(file);
59:
60: sprintf(str,"%-8.8s.%c%c%c",fname,fname[8],fname[9],fname[10]);
61: return(str);
62: }
63:
64: int main(int argc,char **argv)
65: {
66: char str[256],*ixbbuf,*p;
67: ulong **fcrc,*foundcrc,total_found=0L;
68: ushort i,j,k,h,g,start_lib=0,end_lib=0,found=-1;
69: int file;
70: long l,m;
71: scfg_t cfg;
72:
73: putenv("TZ=UCT0");
74: setvbuf(stdout,NULL,_IONBF,0);
75:
76: fprintf(stderr,"\nDUPEFIND Version %s (%s) - Synchronet Duplicate File "
77: "Finder\n", DUPEFIND_VER, PLATFORM_DESC);
78:
79: p=getenv("SBBSCTRL");
80: if(p==NULL) {
81: fprintf(stderr,"\nSBBSCTRL environment variable must be set.\n");
82: #ifdef __unix__
83: fprintf(stderr,"\nExample: export SBBSCTRL=/sbbs/ctrl\n");
84: #else
85: fprintf(stderr,"\nExample: SET SBBSCTRL=C:\\SBBS\\CTRL\n");
86: #endif
87: return(1); }
88:
89: if(argc>1 && (!stricmp(argv[1],"/?") || !stricmp(argv[1],"?") || !stricmp(argv[1],"-?"))) {
90: fprintf(stderr,"\n");
91: fprintf(stderr,"usage: DUPEFIND [start] [end]\n");
92: fprintf(stderr,"where: [start] is the starting library number to check\n");
93: fprintf(stderr," [end] is the final library number to check\n");
94: return(0); }
95:
96: memset(&cfg,0,sizeof(cfg));
97: cfg.size=sizeof(cfg);
98: SAFECOPY(cfg.ctrl_dir,p);
99:
100: if(!load_cfg(&cfg,NULL,TRUE,str)) {
101: fprintf(stderr,"!ERROR loading configuration files: %s\n",str);
102: return(1);
103: }
104:
105: chdir(cfg.ctrl_dir);
106:
107: lputs("\n");
108:
109: start_lib=0;
110: end_lib=cfg.total_libs-1;
111: if(argc>1)
112: start_lib=end_lib=atoi(argv[1])-1;
113: if(argc>2)
114: end_lib=atoi(argv[2])-1;
115:
116: if((fcrc=(ulong **)malloc(cfg.total_dirs*sizeof(ulong *)))==NULL) {
117: printf("Not enough memory for CRCs.\r\n");
118: return(1); }
119:
120: for(i=0;i<cfg.total_dirs;i++) {
121: fprintf(stderr,"Reading directory index %u of %u\r",i+1,cfg.total_dirs);
122: sprintf(str,"%s%s.ixb",cfg.dir[i]->data_dir,cfg.dir[i]->code);
123: if((file=nopen(str,O_RDONLY|O_BINARY))==-1) {
124: fcrc[i]=(ulong *)malloc(1*sizeof(ulong));
125: fcrc[i][0]=0;
126: continue; }
127: l=filelength(file);
128: if(!l || (cfg.dir[i]->lib<start_lib || cfg.dir[i]->lib>end_lib)) {
129: close(file);
130: fcrc[i]=(ulong *)malloc(1*sizeof(ulong));
131: fcrc[i][0]=0;
132: continue; }
133: if((fcrc[i]=(ulong *)malloc((l/22+2)*sizeof(ulong)))==NULL) {
134: printf("Not enough memory for CRCs.\r\n");
135: return(1); }
136: fcrc[i][0]=(ulong)(l/22);
137: if((ixbbuf=(char *)malloc(l))==NULL) {
138: close(file);
139: printf("\7Error allocating memory for index %s.\r\n",str);
140: continue; }
141: if(read(file,ixbbuf,l)!=l) {
142: close(file);
143: printf("\7Error reading %s.\r\n",str);
144: free(ixbbuf);
145: continue; }
146: close(file);
147: j=1;
148: m=0L;
149: while(m<l) {
150: sprintf(str,"%-11.11s",(ixbbuf+m));
151: strupr(str);
152: fcrc[i][j++]=crc32(str,0);
153: m+=22; }
154: free(ixbbuf); }
155: lputs("\n");
156:
157: foundcrc=0L;
158: for(i=0;i<cfg.total_dirs;i++) {
159: if(cfg.dir[i]->lib<start_lib || cfg.dir[i]->lib>end_lib)
160: continue;
161: lprintf("Scanning %s %s\n",cfg.lib[cfg.dir[i]->lib]->sname,cfg.dir[i]->sname);
162: for(k=1;k<fcrc[i][0];k++) {
163: for(j=i+1;j<cfg.total_dirs;j++) {
164: if(cfg.dir[j]->lib<start_lib || cfg.dir[j]->lib>end_lib)
165: continue;
166: for(h=1;h<fcrc[j][0];h++) {
167: if(fcrc[i][k]==fcrc[j][h]) {
168: if(found!=k) {
169: found=k;
170: for(g=0;g<total_found;g++) {
171: if(foundcrc[g]==fcrc[i][k])
172: g=total_found+1; }
173: if(g==total_found) {
174: ++total_found;
175: if((foundcrc=(ulong *)realloc(foundcrc
176: ,total_found*sizeof(ulong)))==NULL) {
177: printf("Out of memory reallocating\r\n");
178: return(1); } }
179: else
180: found=0;
181: printf("\n%-12s is located in : %-*s %s\n"
182: "%-12s and : %-*s %s\n"
183: ,display_filename(&cfg,i,k)
184: ,LEN_GSNAME
185: ,cfg.lib[cfg.dir[i]->lib]->sname
186: ,cfg.dir[i]->sname
187: ,""
188: ,LEN_GSNAME
189: ,cfg.lib[cfg.dir[j]->lib]->sname
190: ,cfg.dir[j]->sname
191: ); }
192: else
193: printf("%-12s and : %-*s %s\n"
194: ,""
195: ,LEN_GSNAME
196: ,cfg.lib[cfg.dir[j]->lib]->sname
197: ,cfg.dir[j]->sname
198: ); } } } } }
199: return(0);
200: }
201:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.