/*-------------------------------------------------------*/ /* util/account.c ( NTHU CS MapleBBS Ver 2.36 ) */ /*-------------------------------------------------------*/ /* target : 上站人次統計、系統資料備份 */ /* create : 95/03/29 */ /* update : 95/12/15 */ /*-------------------------------------------------------*/ #include "bbs.h" #include <time.h> #include <sys/ipc.h> #include <sys/shm.h> #include "record.c" #define MAX_LINE 16 #define ADJUST_M 6 /* adjust back 5 minutes */ /* Ptt about share memory */ struct UCACHE *uidshm; struct FILMCACHE *ptt; struct FROMCACHE *fcache; static void attach_err(shmkey, name) int shmkey; char *name; { fprintf(stderr, "[%s error] key = %x\n", name, shmkey); exit(1); } static void * attach_shm(shmkey, shmsize) int shmkey, shmsize; { void *shmptr; int shmid; shmid = shmget(shmkey, shmsize, 0); if (shmid < 0) { shmid = shmget(shmkey, shmsize, IPC_CREAT | 0600); if (shmid < 0) attach_err(shmkey, "shmget"); shmptr = (void *) shmat(shmid, NULL, 0); if (shmptr == (void *) -1) attach_err(shmkey, "shmat"); memset(shmptr, 0, shmsize); } else { shmptr = (void *) shmat(shmid, NULL, 0); if (shmptr == (void *) -1) attach_err(shmkey, "shmat"); } return shmptr; } void resolve_ucache() { if (uidshm == NULL) { uidshm = attach_shm(UIDSHM_KEY, sizeof(*uidshm)); } } void reset_garbage() { if (ptt == NULL) { ptt = attach_shm(FILMSHM_KEY, sizeof(*ptt)); if (ptt->touchtime == 0) ptt->touchtime = 1; } ptt->uptime =0; } void resolve_fcache() { if (fcache == NULL) { fcache = attach_shm(FROMSHM_KEY, sizeof(*fcache)); if (fcache->touchtime == 0) fcache->touchtime = 1; } fcache->uptime =0; } void keeplog(fpath, board, title) char *fpath; char *board; char *title; { fileheader fhdr; char genbuf[256]; char *flog; if(!board) board = "Record"; sprintf(genbuf, "boards/%s", board); stampfile(genbuf, &fhdr); f_mv(fpath, genbuf); strcpy(fhdr.title, title); strcpy(fhdr.owner, "[歷史的今天]"); sprintf(genbuf, "boards/%s/.DIR", board); rec_add(genbuf, &fhdr, sizeof(fhdr)); } void outs(fp, buf, mode) FILE *fp; char buf[], mode; { static char state = '0'; if (state != mode) fprintf(fp, "%cm", state = mode); if (buf[0]) { fprintf(fp, buf); buf[0] = 0; } } void gzip(source, target, stamp) char *source, *target, *stamp; { char buf[128]; sprintf(buf, "/bin/gzip -9n adm/%s%s", target, stamp); f_mv(source, &buf[14]); system(buf); } main() { int hour, max, item, total, i, j,mo,da,max_user=0,max_login=0,max_reg=0,mahour,k; char *act_file = ".act"; char *log_file = "usies"; char buf[256],buf1[256], *p; FILE *fp,*fp1; int act[27]; /* 次數/累計時間/pointer */ time_t now; struct tm *ptime; chdir(BBSHOME); now = time(NULL) - ADJUST_M * 60; /* back to ancent */ ptime = localtime(&now); memset(act, 0, sizeof(act)); printf("次數/累計時間\n"); if ((ptime->tm_hour != 0) && (fp = fopen(act_file, "r"))) { fread(act, sizeof(act), 1, fp); fclose(fp); } if ((fp = fopen(log_file, "r")) == NULL) { printf("cann't open usies\n"); if (fp = fopen(act_file, "w")) { memset(act, 0, sizeof(act)); fwrite(act, sizeof(act), 1, fp); fclose(fp); } return 1; } if (act[26]) fseek(fp, (off_t)(act[26]), 0); while (fgets(buf, 256, fp)) { hour = atoi(buf + 9); if (hour < 0 || hour > 23) { continue; } if (!strncmp(buf + 22, "ENTER", 5)) { act[hour]++; continue; } if (p = (char *) strstr(buf + 40, "Stay:")) { if (hour = atoi(p + 5)) { act[24] += hour; act[25]++; } continue; } } act[26] = ftell(fp); fclose(fp); for (i = max = total = 0; i < 24; i++) { total += act[i]; if (act[i] > max) { max_user = max = act[i]; mahour = i; } } item = max / MAX_LINE + 1; if (!ptime->tm_hour) keeplog("etc/today", "Record", "[塵埃紀錄] 上站人次統計"); if ((fp = fopen("etc/today", "w")) == NULL) { printf("cann't open etc/today\n"); return 1; } fprintf(fp, "\t\t\tm3;46m 每小時上站人次統計 [%02d/%02d/%02d] 0m\n\n", ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday); for (i = MAX_LINE + 1; i > 0; i--) { strcpy(buf, " "); for (j = 0; j < 24; j++) { max = item * i; hour = act[j]; if (hour && (max > hour) && (max - item <= hour)) { outs(fp, buf, '7'); fprintf(fp, "%-3d", hour); } else if (max <= hour) { outs(fp, buf, '6'); fprintf(fp, "█ "); } else strcat(buf, " "); } fprintf(fp, "\n"); } fprintf(fp, " 3m" "0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23\n\n" "\t3m總共上站人次：7m%-9d3m平均使用人數：7m%-5d3m平均使用時間：7m %d 3m分m \n" ,total, total/24,act[24]/act[25]+1); fclose(fp); if (fp = fopen(act_file, "w")) { fwrite(act, sizeof(act), 1, fp); fclose(fp); } /* -------------------------------------------------------------- */ sprintf(buf, "-%02d%02d%02d", ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday); now += ADJUST_M * 60; /* back to future */ /* Ptt 歷史事件處理 */ if(fp = fopen("etc/history.data","r")) { /*最多同時上線*/ if(fscanf(fp,"%d %d %d %d",&max_login,&max,&max_reg,&k)) { int a; resolve_fcache(); printf("此時段最多同時上線:%d 過去:%d",a=fcache->max_user,k); // fclose(fp); if(a > k) { time_t now = time(0); ptime=localtime(&fcache->max_time); // ptime=localtime(&now); if(fp1=fopen("etc/history", "a")) { fprintf(fp1, "◎ 【%02d/%02d/%02d %02d:%02d】" "2m同時在站內人數m首次達到 ;36m%dm 人次\n", ptime->tm_mon+1, ptime->tm_mday, ptime->tm_year % 100, ptime->tm_hour,ptime->tm_min,a); fclose(fp1); } fclose(fp); // 如果 a < k,那會關檔兩次, 所以移到這邊 hialan if(fp=fopen("etc/history.data","w")) { fprintf(fp,"%d %d %d %d",max_login,max,max_reg,a); } } } fclose(fp); } ptime = localtime(&now); if(ptime->tm_hour) { printf("多個節日處理\n"); /* Ptt 多個節日處理 */ if(fp1 = fopen("etc/today_is","r")); { char tod[20][100]; for(i=0;fgets(tod[i],20,fp1) && i<100;i++); fclose(fp1); fp1 = fopen("etc/today_is","w"); for(j=1;j<=i;j++) { fputs(tod[j%i],fp1); } fclose(fp1); } /* Ptt reset Ptt's share memory */ reset_garbage(); } if(!ptime->tm_hour) { keeplog(BBSHOME"/.note", "Record", "[塵埃紀錄] 心情留言版"); keeplog(BBSHOME"/log/GNP","Record","[金融中心] 生產毛額統計"); keeplog(BBSHOME"/log/counter/上站人次","Record","[系統報告] 本日人數計數器"); keeplog("usies", "Security", "[系統報告] 使用者上線紀錄"); keeplog("usboard", "Security", "[系統報告] 看板使用紀錄"); keeplog(BBSHOME"/log/article_score.log", "Security", "[系統報告] 文章評分紀錄"); keeplog(BBSHOME"/log/bighome", "Security", "[系統報告] 超過 500K 的 userhome"); keeplog(BBSHOME"/log/bigboard", "Security", "[系統報告] 超過 3000K 的 board"); keeplog(BBSHOME"/log/board.log", "Record", "[系統報告] 看板使用紀錄"); keeplog(BBSHOME"/log/personal.log", "Record", "[系統報告] 個人板使用紀錄"); keeplog(BBSHOME"/log/admin.log", "Security","[系統報告] 今日系統紀錄"); keeplog(BBSHOME"/log/func.log", "Security","[系統報告] 今日功\能使用紀錄"); keeplog(BBSHOME"/log/bm_check", "Record","[系統報告] 板主到站紀錄"); keeplog(BBSHOME"/log/bank.log", "Security","[金融中心] 金錢流動紀錄"); keeplog(BBSHOME"/log/board_edit", "Security","[系統報告] 看板更動紀錄"); system("rm -f log/dlog"); // gzip("usies", "usies", buf); system("/bin/cp etc/today etc/yesterday"); /*每日上站人數歸零*/ system("/bin/cp -f ~log/counter/上站人次.new ~/log/counter/上站人次"); system("rm -f note.dat"); gzip(log_file, "usies", buf); /* Ptt 歷史事件處理 */ now = time(NULL) - ADJUST_M * 60; /* back to ancent */ ptime = localtime(&now); resolve_ucache(); if(fp = fopen("etc/history.data","r")) { /* 單日最多次人次,同時上線,註冊*/ if(fscanf(fp,"%d %d %d %d",&max_login,&max,&max_reg,&k)) { fp1 = fopen("etc/history","r+"); fseek(fp1,(off_t)0,2); if ( max_user > max ) { fprintf(fp1,"◇ 【%02d/%02d/%02d %02d】 " ";32m單一小時上線人次m首次達到 ;35m%dm 人次 \n" ,ptime->tm_mon+1,ptime->tm_mday,ptime->tm_year % 100,mahour,max_user); max = max_user; } if ( total > max_login ) { fprintf(fp1,"◆ 【%02d/%02d/%02d】 " ";32m單日上線人次m首次達到;33m %dm 人次 \n" ,ptime->tm_mon+1,ptime->tm_mday,ptime->tm_year % 100,total); max_login = total; } if ( uidshm->number > max_reg + max_reg/10) { fprintf(fp1,"★ 【%02d/%02d/%02d】 " ";32m總註冊人數m提升到;31m %dm 人 \n" ,ptime->tm_mon+1,ptime->tm_mday,ptime->tm_year % 100,uidshm->number); max_reg = uidshm->number; } fclose(fp1); } fclose(fp); fp = fopen("etc/history.data","w"); fprintf(fp,"%d %d %d %d",max_login,max,max_reg,k); fclose(fp); } now += ADJUST_M * 60; /* back to future */ ptime = localtime(&now); /* Ptt 節日處理 */ i=0; if(fp1 = fopen("etc/today_is","w")) { if(fp = fopen("etc/feast","r")) { while (fscanf(fp,"%d %d %s\n",&mo,&da,buf1) != EOF) { if(ptime->tm_mday == da && ptime->tm_mon + 1 == mo) { i =1; fprintf(fp1,"%-14s\n",buf1); } } fclose(fp); } if(i==0) { if(fp = fopen("etc/today_boring","r")) { while (fgets(buf1,250,fp)) { if(strlen(buf)>3) { buf1[strlen(buf1)-1]=0; fprintf(fp1,"%-14s\n",buf1); } } fclose(fp); } else { fprintf(fp1,"本日節日徵求中"); } } fclose(fp1); } /* Ptt 歡迎畫面處理 */ /* if(fp = fopen("etc/Welcome.date","r")) { char temp[50]; while (fscanf(fp,"%d %d %s\n",&mo,&da,buf1) != EOF) { if(ptime->tm_mday == da && ptime->tm_mon + 1 == mo) { strcpy(temp,buf1); sprintf(buf1,"cp -f etc/Welcomes/%s etc/Welcome",temp); system(buf1); break; } } fclose(fp); } */ if (ptime->tm_wday == 0) { keeplog("log/week", "Record", "[塵埃紀錄] 本週熱門話題"); keeplog("log/trade.log", "Record","[金融中心] 商品販賣狀況"); keeplog("log/race.log", "LocalGame","[遊樂場] 本週賽馬紀錄"); keeplog("log/pip.log", "LocalGame","[遊樂場] 本週電子雞飼養紀錄"); keeplog("log/bingo.log", "LocalGame","[遊樂場] 本週賓果紀錄"); keeplog("log/stock.log", "LocalGame","[遊樂場] 本週股市紀錄"); keeplog("log/gp.log", "LocalGame","[遊樂場] 本週金撲克紀錄"); keeplog("log/dice.log", "LocalGame","[遊樂場] 本週西八拉紀錄"); keeplog("log/marie.log", "LocalGame","[遊樂場] 本週小瑪麗紀錄"); keeplog("log/nine.log", "LocalGame","[遊樂場] 本週九九紀錄"); keeplog("log/ab.log", "LocalGame","[遊樂場] 本週猜數字紀錄"); keeplog("log/bj.log", "LocalGame","[遊樂場] 本週黑傑克紀錄"); keeplog("log/chessmj.log", "LocalGame","[遊樂場] 本週象棋麻將紀錄"); keeplog("log/seven.log", "LocalGame","[遊樂場] 本週賭城七張紀錄"); gzip("bbslog", "bntplink", buf); gzip("innd/bbslog", "innbbsd", buf); gzip("log/bbsmail.log", "mailog", buf); } if (ptime->tm_mday == 1) { keeplog("log/month", "Record", "[塵埃紀錄] 本月熱門話題"); keeplog("log/topboard", "Record", "[塵埃紀錄] 本月看板排行"); keeplog("log/toppersonal", "Record", "[塵埃紀錄] 本月個人板排行"); } if (ptime->tm_yday == 1) keeplog("log/year", "Record", "[塵埃紀錄] 年度熱門話題"); } else if (ptime->tm_hour == 3 && ptime->tm_wday == 6) { char *fn1 = "tmp"; char *fn2 = "suicide"; f_mv(fn1, fn2); mkdir(fn1, 0755); sprintf(buf, "/bin/gtar cfz adm/%s-%02d%02d%02d.tgz %s", fn2, ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday, fn2); system(buf); sprintf(buf, "/bin/rm -fr %s", fn2); system(buf); } } -- ☆發信站(wuliwala.twbbs.org) ☆打從(61-216-179-100.dynamic.hinet.net)來po這篇文章 ▁▄█…擁擠的樂園…█▇▆▅▄▃▂▁▁ 你 最 美 麗 的 邂 逅