#include <stdio.h>
#include <sys/types.h>
#include <unistd.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>
#include <ctype.h>
#include "config.h"
#include "pttstruct.h"
#include "util.h"
#include "perm.h"
#include "common.h" 
#include "proto.h"

#define OUTFILE  BBSHOME "/etc/toplazyBBM"
#define FIREFILE BBSHOME "/etc/topfireBBM"

extern boardheader_t *bcache;
extern int numboards;

boardheader_t allbrd[MAX_BOARD];
extern userec_t xuser;
typedef struct lostbm {
	char *bmname;
	char *title;
	char *ctitle;
	int lostdays;
} lostbm;
lostbm lostbms[MAX_BOARD];

typedef struct BMarray{
	char *bmname;
	int  flag;
}  BMArray;
BMArray bms[3];

int bmlostdays_cmp(const void *va, const void *vb)
{
	lostbm *a=(lostbm *)va, *b=(lostbm *)vb;
	if (a->lostdays > b->lostdays) return -1;
	else if (a->lostdays == b->lostdays) return 0;
	else return 1;
}

int LINK(char* src, char* dst){
	char cmd[200];
   if(symlink(src,dst) == -1)	
     {	
	sprintf(cmd, "/bin/cp -R %s %s", src, dst);
	return system(cmd);
     }
   return 0;
}

int main(int argc, char *argv[])
{
    int bmid, i, j=0;
    FILE *inf, *firef;

    resolve_boards();

    if(passwd_mmap())
        exit(1);      

   memcpy(allbrd,bcache,numboards*sizeof(boardheader_t));

	/* write out the target file */

	inf   = fopen(OUTFILE, "w+");
	if(inf == NULL){
		printf("open file error : %s\n", OUTFILE);
		exit(1);
	}	
	firef = fopen(FIREFILE, "w+");
	if(firef == NULL){
		printf("open file error : %s\n", FIREFILE);
		fclose(inf);
		exit(1);
	}
	
	fprintf(inf, "ĵ�i: �p�ժ��Y��@�Ӥ를�W��,�N����K¾\n");
	fprintf(inf,
        "�ݪO�W��                                      "
	"    �p�ժ�        �X�ѨS�Ӱ�\n"
        "---------------------------------------------------"
	"-------------------\n");

        fprintf(firef, "�K¾�p�ժ�\n");
        fprintf(firef,
        "�ݪO�W��                                      "
        "    �p�ժ�      �X�ѨS�Ӱ�\n"
        "---------------------------------------------------"
        "-------------------\n"); 


	j = 0 ;
        for (i = 0; i < numboards; i++) {
	 char *p, bmbuf[IDLEN * 3 + 3];
	 int   index = 0, flag = 0, k, n;
	 p=strtok(allbrd[i].BM,"/ ");
	 if(p)
		do
		{
		  if(allbrd[i].brdname[0] == '\0' || (allbrd[i].brdattr & BRD_GROUPBOARD) ==0 ) continue;
	          if (*p  == '[' ){p[strlen(p)-1]='\0'; p++;}
  		  bmid=getuser(p);
  		  bms[index].bmname = p;
  		  bms[index].flag = 0;
		  if (((((int)time(NULL)-(int)xuser.lastlogin)/(60*60*24))>=7)
                 //&& isalpha(allbrd[i].brdname[0])
		 && isalpha(allbrd[i].BM[0])
		 && !(xuser.userlevel & PERM_SYSOP))
		   {
			lostbms[j].bmname = p;
			lostbms[j].title = allbrd[i].brdname;
			lostbms[j].ctitle = allbrd[i].title;
			lostbms[j].lostdays =
			     ((int)time(NULL)-(int)xuser.lastlogin)/(60*60*24);
			
			printf("%s\n", lostbms[j].title);
			//�W�L���Q�� �K¾
			if(lostbms[j].lostdays > 30){
				xuser.userlevel &= ~PERM_BM;
				bms[index].flag = 1;
				flag = 1;
			}
			j++;
		   }
		   index++;		  
		} while((p=strtok(NULL,"/ "))!=NULL);
	
		//�q���D�W�殳���W�r
		
		if(flag == 1){
			bmbuf[0] = '\0';
			for(k = 0 , n = 0; k < index; k++){
				if(!bms[k].flag){
					if( n++ != 0) strcat(bmbuf, "/");
					strcat(bmbuf, bms[k].bmname);	
				}	
			}
			strcpy(bcache[i].BM, bmbuf);
		}
		
        }
    qsort(lostbms, j, sizeof(lostbm), bmlostdays_cmp);
 
    //write to the etc/toplazyBBM
    for ( i=0; i<j; i++)
    {
	if( lostbms[i].lostdays > 7){
		fprintf(firef, "%-*.*s%-*.*s%-*.*s%3d�ѨS�W��\n", IDLEN, IDLEN, lostbms[i].title,
		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
		lostbms[i].bmname,lostbms[i].lostdays);
	}else{
		fprintf(inf, "%-*.*s%-*.*s%-*.*s%3d�ѨS�W��\n", IDLEN, IDLEN, lostbms[i].title, 
		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
		lostbms[i].bmname,lostbms[i].lostdays);
	}
    }
    fclose(inf);
    fclose(firef);

    //printf("Total %d boards.\n", count);
    
    //mail to the users
    for( i=0; i<j; i++)
    {
    	fileheader_t mymail;
    	char	genbuf[200];
    	int	lostdays;
    	
    	lostdays = lostbms[i].lostdays;

	if( (lostdays != 14) || (lostdays != 21) ) // 14 21 �Ѥ��o�H
		continue;
	   	
    	sprintf(genbuf, BBSHOME "/home/%c/%s", lostbms[i].bmname[0], lostbms[i].bmname);
    	stampfile(genbuf, &mymail);
    	
    	strcpy(mymail.owner, "[PTTĵ�]");
    	
    	if(lostdays <= 60){
    		sprintf(mymail.title,
    		"\033[32m [�p�ժ��K¾ĵ�i�q��] \033[m %s BM %s", lostbms[i].title, lostbms[i].bmname);
    	}else{
    		sprintf(mymail.title,
    		"\033[32m [�p�ժ��K¾�q��] \033[m %s BM %s", lostbms[i].title, lostbms[i].bmname);
    	}
    	mymail.savemode = 0 ;
    	unlink(genbuf);
    	if(lostdays <= 60){
    		LINK(OUTFILE, genbuf);
    	}else{
    		LINK(FIREFILE, genbuf);
    	}
    	
    	sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", lostbms[i].bmname[0], lostbms[i].bmname);
  	append_record(genbuf, &mymail, sizeof(mymail)); 	
    }
  
    return 0;
}