![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to smmutil.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 smmutil.c CVS log | Up to [Synchronet] / sbbs / sbbs2 / smm |
1.1 ! root 1: /* SMMUTIL.C */ ! 2: ! 3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */ ! 4: ! 5: #include <stdio.h> ! 6: #include <time.h> ! 7: #include <stdlib.h> ! 8: #include <io.h> ! 9: #include <dos.h> ! 10: #include <fcntl.h> ! 11: #include <sys\stat.h> ! 12: #include <malloc.h> ! 13: #include <stdarg.h> ! 14: #include "gen_defs.h" ! 15: #include "smmdefs.h" ! 16: #include "crc32.h" ! 17: ! 18: struct date date; ! 19: struct time curtime; ! 20: ! 21: FILE *log=NULL; ! 22: ! 23: /****************************************************************************/ ! 24: /* Returns 32-crc of string (not counting terminating NULL) */ ! 25: /****************************************************************************/ ! 26: ulong crc32(char *str) ! 27: { ! 28: int i=0; ! 29: ulong crc=0xffffffffUL; ! 30: ! 31: while(str[i]) ! 32: crc=ucrc32(str[i++],crc); ! 33: crc=~crc; ! 34: return(crc); ! 35: } ! 36: ! 37: /****************************************************************************/ ! 38: /* Returns the age derived from the string 'birth' in the format MM/DD/YY */ ! 39: /****************************************************************************/ ! 40: char getage(char *birth) ! 41: { ! 42: char age; ! 43: ! 44: if(birth[0]<=SP) ! 45: return(0); ! 46: getdate(&date); ! 47: age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf)); ! 48: if(atoi(birth)>12 || atoi(birth+3)>31) ! 49: return(0); ! 50: if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon || ! 51: (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon && ! 52: ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day)) ! 53: age--; ! 54: if(age<0) ! 55: return(0); ! 56: return(age); ! 57: } ! 58: ! 59: /**********************/ ! 60: /* Log print function */ ! 61: /**********************/ ! 62: void logprintf(char *str, ...) ! 63: { ! 64: va_list argptr; ! 65: char buf[256]; ! 66: time_t now; ! 67: struct tm *gm; ! 68: ! 69: va_start(argptr,str); ! 70: vsprintf(buf,str,argptr); ! 71: va_end(argptr); ! 72: fprintf(stderr,"\n%s",buf); ! 73: if(!log) return; ! 74: now=time(NULL); ! 75: gm=localtime(&now); ! 76: fseek(log,0L,SEEK_END); ! 77: fprintf(log,"%02u/%02u/%02u %02u:%02u:%02u %s\r\n" ! 78: ,gm->tm_mon+1,gm->tm_mday,gm->tm_year,gm->tm_hour,gm->tm_min,gm->tm_sec ! 79: ,buf); ! 80: fflush(log); ! 81: } ! 82: ! 83: ! 84: char *base41(unsigned int i, char *str) ! 85: { ! 86: char c; ! 87: unsigned int j=41*41,k; ! 88: ! 89: for(c=0;c<3;c++) { ! 90: k=i/j; ! 91: str[c]='0'+k; ! 92: i-=(k*j); ! 93: j/=41; ! 94: if(str[c]>=':') ! 95: str[c]='A'+(str[c]-':'); ! 96: if(str[c]>='[') ! 97: str[c]='#'+(str[c]-'['); } ! 98: str[c]=0; ! 99: return(str); ! 100: } ! 101: ! 102: /****************************************************************************/ ! 103: /* Updates 16-bit "rcrc" with character 'ch' */ ! 104: /****************************************************************************/ ! 105: void ucrc16(uchar ch, ushort *rcrc) { ! 106: ushort i, cy; ! 107: uchar nch=ch; ! 108: ! 109: for (i=0; i<8; i++) { ! 110: cy=*rcrc & 0x8000; ! 111: *rcrc<<=1; ! 112: if (nch & 0x80) *rcrc |= 1; ! 113: nch<<=1; ! 114: if (cy) *rcrc ^= 0x1021; } ! 115: } ! 116: ! 117: /****************************************************************************/ ! 118: /* Returns 16-crc of string (not counting terminating NULL) */ ! 119: /****************************************************************************/ ! 120: ushort crc16(char *str) ! 121: { ! 122: int i=0; ! 123: ushort crc=0; ! 124: ! 125: ucrc16(0,&crc); ! 126: while(str[i]) ! 127: ucrc16(str[i++],&crc); ! 128: ucrc16(0,&crc); ! 129: ucrc16(0,&crc); ! 130: return(crc); ! 131: } ! 132: ! 133: ! 134: void delphoto(user_t user) ! 135: { ! 136: char fname[64],path[128],tmp[128]; ! 137: int i; ! 138: struct ffblk ff; ! 139: ! 140: if(!(user.misc&USER_PHOTO)) ! 141: return; ! 142: for(i=0;user.system[i];i++) ! 143: if(isalnum(user.system[i])) ! 144: break; ! 145: if(!user.system[i]) ! 146: fname[0]='~'; ! 147: else ! 148: fname[0]=user.system[i]; ! 149: for(i=strlen(user.system)-1;i>0;i--) ! 150: if(isalnum(user.system[i])) ! 151: break; ! 152: if(i<=0) ! 153: fname[1]='~'; ! 154: else ! 155: fname[1]=user.system[i]; ! 156: fname[2]=0; ! 157: strupr(user.system); ! 158: strcat(fname,base41(crc16(user.system),tmp)); ! 159: strcat(fname,base41(user.number,tmp)); ! 160: strcat(fname,".*"); ! 161: strupr(fname); ! 162: sprintf(path,"PHOTO\\%s",fname); ! 163: i=findfirst(path,&ff,0); ! 164: if(i) ! 165: return; ! 166: sprintf(path,"PHOTO\\%s",ff.ff_name); ! 167: if(remove(path)) ! 168: logprintf("Photo (%s) couldn't be removed!",path); ! 169: else ! 170: logprintf("Photo (%s) removed",path); ! 171: } ! 172: ! 173: ! 174: int main(int argc, char **argv) ! 175: { ! 176: int i,file,max_age=0,max_wall=0,age; ! 177: long l,m,total_ixbs=0 ! 178: ,users=0,photos=0,networked=0 ! 179: ,male_straight=0 ! 180: ,male_gay=0 ! 181: ,male_bi=0 ! 182: ,female_straight=0 ! 183: ,female_gay=0 ! 184: ,female_bi=0 ! 185: ,age12=0 ! 186: ,age15=0 ! 187: ,age20=0,age25=0 ! 188: ,age30=0,age35=0 ! 189: ,age40=0,age45=0 ! 190: ,age50=0,age55=0 ! 191: ,age60=0,age65=0 ! 192: ,age70=0,age71=0 ! 193: ,zodiac_aries=0 ! 194: ,zodiac_taurus=0 ! 195: ,zodiac_gemini=0 ! 196: ,zodiac_cancer=0 ! 197: ,zodiac_leo=0 ! 198: ,zodiac_virgo=0 ! 199: ,zodiac_libra=0 ! 200: ,zodiac_scorpio=0 ! 201: ,zodiac_sagittarius=0 ! 202: ,zodiac_capricorn=0 ! 203: ,zodiac_aquarius=0 ! 204: ,zodiac_pisces=0 ! 205: ,hair_blonde=0 ! 206: ,hair_brown=0 ! 207: ,hair_red=0 ! 208: ,hair_black=0 ! 209: ,hair_grey=0 ! 210: ,hair_other=0 ! 211: ,eyes_blue=0 ! 212: ,eyes_green=0 ! 213: ,eyes_hazel=0 ! 214: ,eyes_brown=0 ! 215: ,eyes_other=0 ! 216: ,race_white=0 ! 217: ,race_black=0 ! 218: ,race_hispanic=0 ! 219: ,race_asian=0 ! 220: ,race_amerindian=0 ! 221: ,race_mideastern=0 ! 222: ,race_other=0 ! 223: ,marital_single=0 ! 224: ,marital_married=0 ! 225: ,marital_divorced=0 ! 226: ,marital_widowed=0 ! 227: ,marital_other=0 ! 228: ; ! 229: FILE *ixb_fp,*dab_fp,*tmp_fp; ! 230: ixb_t huge *ixb=NULL,ixbrec; ! 231: user_t user; ! 232: wall_t wall; ! 233: time_t now; ! 234: ! 235: fprintf(stderr,"\nSMMUTIL � Synchronet Match Maker Utility � v2.01�\n\n"); ! 236: ! 237: for(i=1;i<argc;i++) ! 238: if(isdigit(argv[i][0])) { ! 239: if(max_age) ! 240: max_wall=atoi(argv[i]); ! 241: else ! 242: max_age=atoi(argv[i]); } ! 243: else { ! 244: printf("usage: SMMUTIL max_profile_age_in_days " ! 245: "max_wall_writing_age_in_days\n"); ! 246: printf("\n"); ! 247: printf("example: SMMUTIL 90 7\n"); ! 248: exit(1); } ! 249: ! 250: if((file=open("SMM.IXB",O_RDWR|O_BINARY|O_CREAT|O_DENYNONE ! 251: ,S_IWRITE|S_IREAD))==-1 ! 252: || (ixb_fp=fdopen(file,"r+b"))==NULL) { ! 253: printf("Error opening SMM.IXB\n"); ! 254: exit(1); } ! 255: ! 256: if((file=open("SMM.DAB",O_RDWR|O_BINARY|O_DENYNONE))==-1 ! 257: || (dab_fp=fdopen(file,"r+b"))==NULL) { ! 258: printf("Error opening SMM.DAB\n"); ! 259: exit(1); } ! 260: ! 261: if((file=open("SMM.TMP",O_WRONLY|O_CREAT|O_TRUNC|O_BINARY|O_DENYALL ! 262: ,S_IWRITE|S_IREAD))==-1 ! 263: || (tmp_fp=fdopen(file,"r+b"))==NULL) { ! 264: printf("Error opening SMM.TMP\n"); ! 265: exit(1); } ! 266: ! 267: if((file=open("SMMUTIL.LOG",O_WRONLY|O_CREAT|O_APPEND|O_BINARY|O_DENYALL ! 268: ,S_IWRITE|S_IREAD))==-1 ! 269: || (log=fdopen(file,"w+b"))==NULL) { ! 270: printf("Error opening SMMUTIL.LOG\n"); ! 271: exit(1); } ! 272: ! 273: fprintf(stderr,"Reading profile data..."); ! 274: rewind(dab_fp); ! 275: while(!feof(dab_fp)) { ! 276: if(!fread(&user,sizeof(user_t),1,dab_fp)) ! 277: break; ! 278: if((ixb=REALLOC(ixb,sizeof(ixb_t)*(total_ixbs+1)))==NULL) { ! 279: printf("Malloc error\n"); ! 280: exit(1); } ! 281: user.name[25]=0; ! 282: strupr(user.name); ! 283: ixb[total_ixbs].name=crc32(user.name); ! 284: user.system[25]=0; ! 285: strupr(user.system); ! 286: ixb[total_ixbs].system=crc32(user.system); ! 287: ixb[total_ixbs].updated=user.updated; ! 288: if(user.misc&USER_DELETED) ! 289: ixb[total_ixbs].number=0; ! 290: else ! 291: ixb[total_ixbs].number=user.number; ! 292: total_ixbs++; } ! 293: fprintf(stderr,"\n"); ! 294: ! 295: now=time(NULL); ! 296: fprintf(stderr,"Creating new profile index and data files..."); ! 297: chsize(fileno(ixb_fp),0); ! 298: rewind(ixb_fp); ! 299: rewind(tmp_fp); ! 300: for(l=0;l<total_ixbs;l++) { ! 301: fseek(dab_fp,l*sizeof(user_t),SEEK_SET); ! 302: if(!fread(&user,sizeof(user_t),1,dab_fp)) { ! 303: logprintf("%04lX Couldn't read user record",l); ! 304: continue; } ! 305: ! 306: /* Make sure all strings are NULL terminated */ ! 307: user.name[25]=user.realname[25]=user.system[40]=user.birth[8]=0; ! 308: user.zipcode[10]=user.location[30]=0; ! 309: user.min_zipcode[10]=user.max_zipcode[10]=0; ! 310: for(i=0;i<5;i++) ! 311: user.note[i][50]=0; ! 312: ! 313: if(!ixb[l].number) { ! 314: logprintf("%04lX %5lu %-25s Deleted user" ! 315: ,l,user.number,user.system); ! 316: delphoto(user); ! 317: continue; } ! 318: if(ixb[l].number&0xffff0000UL) { ! 319: logprintf("%04lX %5lu %-25s Invalid user number" ! 320: ,l,ixb[l].number,user.system); ! 321: delphoto(user); ! 322: continue; } ! 323: if(max_age ! 324: && now>ixb[l].updated // Not in the future ! 325: && (now-ixb[l].updated)/(24UL*60UL*60UL)>max_age) { ! 326: logprintf("%04lX %5lu %-25s Not updated in %lu days" ! 327: ,l,user.number,user.system,(now-ixb[l].updated)/(24UL*60UL*60UL)); ! 328: delphoto(user); ! 329: continue; } ! 330: for(m=l+1;m<total_ixbs;m++) ! 331: if(ixb[l].number ! 332: && ixb[l].number==ixb[m].number && ixb[l].system==ixb[m].system) ! 333: break; ! 334: if(m<total_ixbs) { /* Duplicate found! */ ! 335: logprintf("%04lX %5lu %-25s Duplicate user" ! 336: ,l,user.number,user.system); ! 337: delphoto(user); ! 338: continue; } ! 339: ! 340: if(user.name[0]<SP || user.realname[0]<SP || user.system[0]<SP ! 341: || user.location[0]<SP || user.zipcode[0]<SP || user.birth[0]<SP) { ! 342: logprintf("%04lX %5lu %-25s Invalid user string" ! 343: ,l,user.number,user.system); ! 344: delphoto(user); ! 345: continue; } ! 346: if(!user.sex || !user.marital || !user.race || !user.hair || !user.eyes) { ! 347: logprintf("%04lX %5lu %-25s Null field" ! 348: ,l,user.number,user.system); ! 349: delphoto(user); ! 350: continue; } ! 351: if(user.sex=='M') { ! 352: if(user.pref_sex=='F') ! 353: male_straight++; ! 354: else if(user.pref_sex=='M') ! 355: male_gay++; ! 356: else ! 357: male_bi++; } ! 358: else if(user.sex=='F') { ! 359: if(user.pref_sex=='M') ! 360: female_straight++; ! 361: else if(user.pref_sex=='F') ! 362: female_gay++; ! 363: else ! 364: female_bi++; } ! 365: else { ! 366: logprintf("%04lX %5lu %-25s Invalid sex (%02X)" ! 367: ,l,user.number,user.system,user.sex); ! 368: delphoto(user); ! 369: continue; } ! 370: users++; ! 371: if(user.misc&USER_PHOTO) ! 372: photos++; ! 373: if(user.misc&USER_FROMSMB) ! 374: networked++; ! 375: age=getage(user.birth); ! 376: if(age<13) age12++; ! 377: else if(age<16) age15++; ! 378: else if(age<21) age20++; ! 379: else if(age<26) age25++; ! 380: else if(age<31) age30++; ! 381: else if(age<36) age35++; ! 382: else if(age<41) age40++; ! 383: else if(age<46) age45++; ! 384: else if(age<51) age50++; ! 385: else if(age<56) age55++; ! 386: else if(age<61) age60++; ! 387: else if(age<66) age65++; ! 388: else if(age<71) age70++; ! 389: else age71++; ! 390: switch(user.hair) { ! 391: case HAIR_BLONDE: ! 392: hair_blonde++; ! 393: break; ! 394: case HAIR_BROWN: ! 395: hair_brown++; ! 396: break; ! 397: case HAIR_RED: ! 398: hair_red++; ! 399: break; ! 400: case HAIR_BLACK: ! 401: hair_black++; ! 402: break; ! 403: case HAIR_GREY: ! 404: hair_grey++; ! 405: break; ! 406: default: ! 407: hair_other++; ! 408: break; } ! 409: ! 410: switch(user.eyes) { ! 411: case EYES_BLUE: ! 412: eyes_blue++; ! 413: break; ! 414: case EYES_BROWN: ! 415: eyes_brown++; ! 416: break; ! 417: case EYES_GREEN: ! 418: eyes_green++; ! 419: break; ! 420: case EYES_HAZEL: ! 421: eyes_hazel++; ! 422: break; ! 423: default: ! 424: eyes_other++; ! 425: break; } ! 426: switch(user.marital) { ! 427: case MARITAL_SINGLE: ! 428: marital_single++; ! 429: break; ! 430: case MARITAL_MARRIED: ! 431: marital_married++; ! 432: break; ! 433: case MARITAL_DIVORCED: ! 434: marital_divorced++; ! 435: break; ! 436: case MARITAL_WIDOWED: ! 437: marital_widowed++; ! 438: break; ! 439: default: ! 440: marital_other++; ! 441: break; } ! 442: ! 443: switch(user.race) { ! 444: case RACE_WHITE: ! 445: race_white++; ! 446: break; ! 447: case RACE_BLACK: ! 448: race_black++; ! 449: break; ! 450: case RACE_HISPANIC: ! 451: race_hispanic++; ! 452: break; ! 453: case RACE_ASIAN: ! 454: race_asian++; ! 455: break; ! 456: case RACE_AMERINDIAN: ! 457: race_amerindian++; ! 458: break; ! 459: case RACE_MIDEASTERN: ! 460: race_mideastern++; ! 461: break; ! 462: default: ! 463: race_other++; ! 464: break; } ! 465: ! 466: if((!strncmp(user.birth,"03",2) && atoi(user.birth+3)>=21) ! 467: || (!strncmp(user.birth,"04",2) && atoi(user.birth+3)<=19)) ! 468: zodiac_aries++; ! 469: else if((!strncmp(user.birth,"04",2) && atoi(user.birth+3)>=20) ! 470: || (!strncmp(user.birth,"05",2) && atoi(user.birth+3)<=20)) ! 471: zodiac_taurus++; ! 472: else if((!strncmp(user.birth,"05",2) && atoi(user.birth+3)>=21) ! 473: || (!strncmp(user.birth,"06",2) && atoi(user.birth+3)<=20)) ! 474: zodiac_gemini++; ! 475: else if((!strncmp(user.birth,"06",2) && atoi(user.birth+3)>=21) ! 476: || (!strncmp(user.birth,"07",2) && atoi(user.birth+3)<=22)) ! 477: zodiac_cancer++; ! 478: else if((!strncmp(user.birth,"07",2) && atoi(user.birth+3)>=23) ! 479: || (!strncmp(user.birth,"08",2) && atoi(user.birth+3)<=22)) ! 480: zodiac_leo++; ! 481: else if((!strncmp(user.birth,"08",2) && atoi(user.birth+3)>=23) ! 482: || (!strncmp(user.birth,"09",2) && atoi(user.birth+3)<=22)) ! 483: zodiac_virgo++; ! 484: else if((!strncmp(user.birth,"09",2) && atoi(user.birth+3)>=23) ! 485: || (!strncmp(user.birth,"10",2) && atoi(user.birth+3)<=22)) ! 486: zodiac_libra++; ! 487: else if((!strncmp(user.birth,"10",2) && atoi(user.birth+3)>=23) ! 488: || (!strncmp(user.birth,"11",2) && atoi(user.birth+3)<=21)) ! 489: zodiac_scorpio++; ! 490: else if((!strncmp(user.birth,"11",2) && atoi(user.birth+3)>=22) ! 491: || (!strncmp(user.birth,"12",2) && atoi(user.birth+3)<=21)) ! 492: zodiac_sagittarius++; ! 493: else if((!strncmp(user.birth,"12",2) && atoi(user.birth+3)>=22) ! 494: || (!strncmp(user.birth,"01",2) && atoi(user.birth+3)<=19)) ! 495: zodiac_capricorn++; ! 496: else if((!strncmp(user.birth,"01",2) && atoi(user.birth+3)>=20) ! 497: || (!strncmp(user.birth,"02",2) && atoi(user.birth+3)<=18)) ! 498: zodiac_aquarius++; ! 499: else if((!strncmp(user.birth,"02",2) && atoi(user.birth+3)>=19) ! 500: || (!strncmp(user.birth,"03",2) && atoi(user.birth+3)<=20)) ! 501: zodiac_pisces++; ! 502: ! 503: fwrite(&ixb[l],sizeof(ixb_t),1,ixb_fp); ! 504: fwrite(&user,sizeof(user_t),1,tmp_fp); ! 505: } ! 506: fprintf(stderr,"\n"); ! 507: fcloseall(); ! 508: remove("SMM.DAB"); ! 509: rename("SMM.TMP","SMM.DAB"); ! 510: ! 511: printf("Synchronet Match Maker Statistics\n"); ! 512: printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"); ! 513: printf("\n"); ! 514: printf("%-25s : %lu\n","Total",users); ! 515: printf("%-25s : %lu\n","Photos",photos); ! 516: printf("%-25s : %lu\n","Networked",networked); ! 517: // if(male_straight) ! 518: printf("%-25s (%4.1f%%) : %lu\n","Sex: male (hetero)" ! 519: ,(((float)male_straight/users)*100.0),male_straight); ! 520: // if(male_gay) ! 521: printf("%-25s (%4.1f%%) : %lu\n","Sex: male (gay)" ! 522: ,(((float)male_gay/users)*100.0),male_gay); ! 523: // if(male_bi) ! 524: printf("%-25s (%4.1f%%) : %lu\n","Sex: male (bi)" ! 525: ,(((float)male_bi/users)*100.0),male_bi); ! 526: // if(female_straight) ! 527: printf("%-25s (%4.1f%%) : %lu\n","Sex: female (hetero)" ! 528: ,(((float)female_straight/users)*100.0),female_straight); ! 529: // if(female_gay) ! 530: printf("%-25s (%4.1f%%) : %lu\n","Sex: female (gay)" ! 531: ,(((float)female_gay/users)*100.0),female_gay); ! 532: // if(female_bi) ! 533: printf("%-25s (%4.1f%%) : %lu\n","Sex: female (bi)" ! 534: ,(((float)female_bi/users)*100.0),female_bi); ! 535: // if(age12) ! 536: printf("%-25s (%4.1f%%) : %lu\n","Age: 12 and younger" ! 537: ,(((float)age12/users)*100.0),age12); ! 538: // if(age15) ! 539: printf("%-25s (%4.1f%%) : %lu\n","Age: 13 to 15 years old" ! 540: ,(((float)age15/users)*100.0),age15); ! 541: // if(age20) ! 542: printf("%-25s (%4.1f%%) : %lu\n","Age: 16 to 20 years old" ! 543: ,(((float)age20/users)*100.0),age20); ! 544: // if(age25) ! 545: printf("%-25s (%4.1f%%) : %lu\n","Age: 21 to 25 years old" ! 546: ,(((float)age25/users)*100.0),age25); ! 547: // if(age30) ! 548: printf("%-25s (%4.1f%%) : %lu\n","Age: 26 to 30 years old" ! 549: ,(((float)age30/users)*100.0),age30); ! 550: // if(age35) ! 551: printf("%-25s (%4.1f%%) : %lu\n","Age: 31 to 35 years old" ! 552: ,(((float)age35/users)*100.0),age35); ! 553: // if(age40) ! 554: printf("%-25s (%4.1f%%) : %lu\n","Age: 36 to 40 years old" ! 555: ,(((float)age40/users)*100.0),age40); ! 556: // if(age45) ! 557: printf("%-25s (%4.1f%%) : %lu\n","Age: 41 to 45 years old" ! 558: ,(((float)age45/users)*100.0),age45); ! 559: // if(age50) ! 560: printf("%-25s (%4.1f%%) : %lu\n","Age: 46 to 50 years old" ! 561: ,(((float)age50/users)*100.0),age50); ! 562: // if(age55) ! 563: printf("%-25s (%4.1f%%) : %lu\n","Age: 51 to 55 years old" ! 564: ,(((float)age55/users)*100.0),age55); ! 565: // if(age60) ! 566: printf("%-25s (%4.1f%%) : %lu\n","Age: 56 to 60 years old" ! 567: ,(((float)age60/users)*100.0),age60); ! 568: // if(age65) ! 569: printf("%-25s (%4.1f%%) : %lu\n","Age: 61 to 65 years old" ! 570: ,(((float)age65/users)*100.0),age65); ! 571: // if(age70) ! 572: printf("%-25s (%4.1f%%) : %lu\n","Age: 66 to 70 years old" ! 573: ,(((float)age70/users)*100.0),age70); ! 574: // if(age71) ! 575: printf("%-25s (%4.1f%%) : %lu\n","Age: 71 and older" ! 576: ,(((float)age71/users)*100.0),age71); ! 577: // if(hair_blonde) ! 578: printf("%-25s (%4.1f%%) : %lu\n","Hair: blonde" ! 579: ,(((float)hair_blonde/users)*100.0),hair_blonde); ! 580: // if(hair_brown) ! 581: printf("%-25s (%4.1f%%) : %lu\n","Hair: brown" ! 582: ,(((float)hair_brown/users)*100.0),hair_brown); ! 583: // if(hair_black) ! 584: printf("%-25s (%4.1f%%) : %lu\n","Hair: black" ! 585: ,(((float)hair_black/users)*100.0),hair_black); ! 586: // if(hair_red) ! 587: printf("%-25s (%4.1f%%) : %lu\n","Hair: red" ! 588: ,(((float)hair_red/users)*100.0),hair_red); ! 589: // if(hair_grey) ! 590: printf("%-25s (%4.1f%%) : %lu\n","Hair: grey" ! 591: ,(((float)hair_grey/users)*100.0),hair_grey); ! 592: // if(hair_other) ! 593: printf("%-25s (%4.1f%%) : %lu\n","Hair: other" ! 594: ,(((float)hair_other/users)*100.0),hair_other); ! 595: // if(eyes_blue) ! 596: printf("%-25s (%4.1f%%) : %lu\n","Eyes: blue" ! 597: ,(((float)eyes_blue/users)*100.0),eyes_blue); ! 598: // if(eyes_brown) ! 599: printf("%-25s (%4.1f%%) : %lu\n","Eyes: brown" ! 600: ,(((float)eyes_brown/users)*100.0),eyes_brown); ! 601: // if(eyes_green) ! 602: printf("%-25s (%4.1f%%) : %lu\n","Eyes: green" ! 603: ,(((float)eyes_green/users)*100.0),eyes_green); ! 604: // if(eyes_hazel) ! 605: printf("%-25s (%4.1f%%) : %lu\n","Eyes: hazel" ! 606: ,(((float)eyes_hazel/users)*100.0),eyes_hazel); ! 607: // if(eyes_other) ! 608: printf("%-25s (%4.1f%%) : %lu\n","Eyes: other" ! 609: ,(((float)eyes_other/users)*100.0),eyes_other); ! 610: // if(race_white) ! 611: printf("%-25s (%4.1f%%) : %lu\n","Race: white" ! 612: ,(((float)race_white/users)*100.0),race_white); ! 613: // if(race_black) ! 614: printf("%-25s (%4.1f%%) : %lu\n","Race: black" ! 615: ,(((float)race_black/users)*100.0),race_black); ! 616: // if(race_asian) ! 617: printf("%-25s (%4.1f%%) : %lu\n","Race: asian" ! 618: ,(((float)race_asian/users)*100.0),race_asian); ! 619: // if(race_amerindian) ! 620: printf("%-25s (%4.1f%%) : %lu\n","Race: amerindian" ! 621: ,(((float)race_amerindian/users)*100.0),race_amerindian); ! 622: // if(race_mideastern) ! 623: printf("%-25s (%4.1f%%) : %lu\n","Race: mideastern" ! 624: ,(((float)race_mideastern/users)*100.0),race_mideastern); ! 625: // if(race_hispanic) ! 626: printf("%-25s (%4.1f%%) : %lu\n","Race: hispanic" ! 627: ,(((float)race_hispanic/users)*100.0),race_hispanic); ! 628: // if(race_other) ! 629: printf("%-25s (%4.1f%%) : %lu\n","Race: other" ! 630: ,(((float)race_other/users)*100.0),race_other); ! 631: // if(marital_single) ! 632: printf("%-25s (%4.1f%%) : %lu\n","Marital: single" ! 633: ,(((float)marital_single/users)*100.0),marital_single); ! 634: // if(marital_married) ! 635: printf("%-25s (%4.1f%%) : %lu\n","Marital: married" ! 636: ,(((float)marital_married/users)*100.0),marital_married); ! 637: // if(marital_divorced) ! 638: printf("%-25s (%4.1f%%) : %lu\n","Marital: divorced" ! 639: ,(((float)marital_divorced/users)*100.0),marital_divorced); ! 640: // if(marital_widowed) ! 641: printf("%-25s (%4.1f%%) : %lu\n","Marital: widowed" ! 642: ,(((float)marital_widowed/users)*100.0),marital_widowed); ! 643: // if(marital_other) ! 644: printf("%-25s (%4.1f%%) : %lu\n","Marital: other" ! 645: ,(((float)marital_other/users)*100.0),marital_other); ! 646: // if(zodiac_aries) ! 647: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: aries" ! 648: ,(((float)zodiac_aries/users)*100.0),zodiac_aries); ! 649: // if(zodiac_taurus) ! 650: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: taurus" ! 651: ,(((float)zodiac_taurus/users)*100.0),zodiac_taurus); ! 652: // if(zodiac_gemini) ! 653: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: gemini" ! 654: ,(((float)zodiac_gemini/users)*100.0),zodiac_gemini); ! 655: // if(zodiac_cancer) ! 656: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: cancer" ! 657: ,(((float)zodiac_cancer/users)*100.0),zodiac_cancer); ! 658: // if(zodiac_leo) ! 659: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: leo" ! 660: ,(((float)zodiac_leo/users)*100.0),zodiac_leo); ! 661: // if(zodiac_virgo) ! 662: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: virgo" ! 663: ,(((float)zodiac_virgo/users)*100.0),zodiac_virgo); ! 664: // if(zodiac_libra) ! 665: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: libra" ! 666: ,(((float)zodiac_libra/users)*100.0),zodiac_libra); ! 667: // if(zodiac_scorpio) ! 668: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: scorpio" ! 669: ,(((float)zodiac_scorpio/users)*100.0),zodiac_scorpio); ! 670: // if(zodiac_sagittarius) ! 671: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: sagittarius" ! 672: ,(((float)zodiac_sagittarius/users)*100.0),zodiac_sagittarius); ! 673: // if(zodiac_capricorn) ! 674: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: capricorn" ! 675: ,(((float)zodiac_capricorn/users)*100.0),zodiac_capricorn); ! 676: // if(zodiac_aquarius) ! 677: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: aquarius" ! 678: ,(((float)zodiac_aquarius/users)*100.0),zodiac_aquarius); ! 679: // if(zodiac_pisces) ! 680: printf("%-25s (%4.1f%%) : %lu\n","Zodiac: pisces" ! 681: ,(((float)zodiac_pisces/users)*100.0),zodiac_pisces); ! 682: ! 683: if(!max_wall) ! 684: return(0); ! 685: ! 686: if((file=open("WALL.DAB",O_RDWR|O_BINARY|O_DENYNONE))==-1 ! 687: || (dab_fp=fdopen(file,"r+b"))==NULL) { ! 688: printf("Error opening WALL.DAB\n"); ! 689: exit(1); } ! 690: ! 691: if((file=open("WALL.TMP",O_WRONLY|O_CREAT|O_TRUNC|O_BINARY|O_DENYALL ! 692: ,S_IWRITE|S_IREAD))==-1 ! 693: || (tmp_fp=fdopen(file,"r+b"))==NULL) { ! 694: printf("Error opening WALL.TMP\n"); ! 695: exit(1); } ! 696: ! 697: fprintf(stderr,"Reading wall data..."); ! 698: rewind(dab_fp); ! 699: while(!feof(dab_fp)) { ! 700: if(!fread(&wall,sizeof(wall_t),1,dab_fp)) ! 701: break; ! 702: if((now-wall.imported)/(24UL*60UL*60UL)<=max_wall) ! 703: fwrite(&wall,sizeof(wall_t),1,tmp_fp); } ! 704: ! 705: fprintf(stderr,"\n"); ! 706: fcloseall(); ! 707: remove("WALL.DAB"); ! 708: rename("WALL.TMP","WALL.DAB"); ! 709: ! 710: return(0); ! 711: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.