path: root/util/smtest.c

#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 WARNFILE  BBSHOME "/etc/DeleteBoard.warn"
#define EXECFILE  BBSHOME"/etc/DeleteBoard.exec"
#define WARNLIST  BBSHOME"/etc/DeleteBoardList.warn"
#define EXECLIST  BBSHOME"/etc/DeleteBoardList.exec" 

extern boardheader_t *bcache;
extern int numboards;

boardheader_t allbrd[MAX_BOARD];
extern userec_t xuser;


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

int outofdate(char *hdrdate, char thedate[], int *zf)
{
  int k = 0;
  char *dd;
  char latestdate[6];
  int date1[2], date2[2],datetemp;
  *zf = 0;

  strcpy(latestdate, thedate);

  dd = strtok(hdrdate,"/");
  if(dd == NULL) return 2;
  if(dd)
    k = 0;
    do{
      if (*dd  == '[' ){dd[strlen(dd)-1]='\0'; dd++;}
        date1[k] = atoi(dd);
      k++;
    } while((dd=strtok(NULL,"/ "))!=NULL);

  dd = strtok(latestdate,"/");
  if(dd)
    k = 0;
    do{
      if (*dd  == '[' ){dd[strlen(dd)-1]='\0'; dd++;}
        date2[k] = atoi(dd);
      k++;
    } while((dd=strtok(NULL,"/ "))!=NULL);

  if(date2[0] == date1[0] && date2[1] >= date1[1])
    return 0;

  datetemp = date2[0];

  for(k = 1;k <= 5;k++)
  {
    datetemp -= 1;
    if((datetemp) <= 0){
      datetemp = 12;
    }
    if(k < 3 && datetemp == date1[0]) return 0;
    if(k == 3 && datetemp == date1[0] && date2[1] <= date1[1]) return 0;
    if(k == 3 && datetemp == date1[0] && date2[1] > date1[1]) return 1;
    if(k == 4 && datetemp == date1[0] && date2[1] > date1[1]) return 1;
  }
  *zf = 1;
  return 1;
}

void mailtouser(char *bmname, char *bname, int zf)
{
  fileheader_t mymail;
  char    genbuf[200];

  sprintf(genbuf, BBSHOME "/home/%c/%s", bmname[0], bmname);
  stampfile(genbuf, &mymail);
  strcpy(mymail.owner, "[PTT警察局]");

  if(zf == 0){
    sprintf(mymail.title,"\033[32m [廢版警告通知]"
    "\033[m %s版(BM:%s)",bname, bmname);
  }else{
    sprintf(mymail.title,"\033[32m [廢版通知] "
    "\033[m %s版(BM:%s)",bname, bmname);
  }
  mymail.savemode = 0 ;
  unlink(genbuf);
  if(zf == 0){
    LINK(WARNFILE, genbuf);
  }else{
    LINK(EXECFILE, genbuf);
  }

  sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", bmname[0], bmname);
  append_record(genbuf, &mymail, sizeof(mymail)); 
}

int main()
{
    int bmid, i, j, k, rd, ood, flag, zapflag = 0,warncount = 0,execcount = 0;
    char *p, *bmsname[3], fname[256], hdrdatetemp[6],thedate[6];
    char bname[32],genbuf[200];
    fileheader_t hdr;
    FILE *inf, *def;
    
    ///// set date //////
    time_t t = time(NULL);
    struct tm *tm = localtime(&t);
    sprintf(thedate, "%2d/%02d", tm->tm_mon + 1, tm->tm_mday);

    ////// board //////

    resolve_boards();
    if(passwd_mmap())
        exit(1);
    memcpy(allbrd,bcache,numboards*sizeof(boardheader_t));

    ////// write out the target file //////
    inf = fopen(WARNLIST, "w+");
    if(inf == NULL){
        printf("open file error : %s\n", WARNLIST);
        exit(1);
    }

    def = fopen(EXECLIST, "w+"); 
    if(def == NULL)
    {
        printf("open file error : %s\n", EXECLIST);
        exit(1);
    }

    ////// fprint table title /////
    fprintf(inf,"\n[廢版警告]即日起一個月內若看板"
    "使用率仍然過低，則予以廢除。\n\n"
    "英文版名    類別 中文版名           日期    "
        "    版主名單\n\n");

    fprintf(def,"\n[廢版公告]下列看板因使用率仍然過低，故予以廢除。\n\n"
        "英文版名    類別 中文版名           日期    "
        "    版主名單\n\n");

    ////// start process /////
    j = 0 ;
    for (i = 0; i < numboards; i++) {
        rd = 0;
    if(allbrd[i].brdname[0] == '\0') continue;
    if((allbrd[i].brdattr & BRD_NOZAP) || 
    (allbrd[i].brdattr & BRD_GROUPBOARD) ||
    (allbrd[i].brdattr & BRD_WARNDEL) || 
    (allbrd[i].brdattr & BRD_HIDE) ||
    (allbrd[i].brdattr & BRD_POSTMASK) ||
    (allbrd[i].brdattr & BRD_VOTEBOARD) ||
    (allbrd[i].brdattr & BRD_BAD) ||
    (allbrd[i].level != 0)) continue;

    sprintf(fname, BBSHOME "/boards/%c/%s/.DIR", allbrd[i].brdname[0], allbrd[i].brdname); 

    /* get date to choose junk board  */
    /* exception when ood == 2 */
    flag = 30;
    rd = get_num_records(fname, sizeof(fileheader_t));
    if(rd <= 30)
    {
        get_record(fname, &hdr, sizeof (hdr), 1);
        strcpy(hdrdatetemp, hdr.date);
        ood = outofdate(hdrdatetemp,thedate, &zapflag);
    }
    else
    {
      do{
        if(rd == 0) 
          {
        ood = 0;
        break;
          }
        get_record(fname, &hdr, sizeof (hdr), rd - flag);
        strcpy(hdrdatetemp, hdr.date);
        ood = outofdate(hdrdatetemp,thedate, &zapflag);
        flag += 5;
          }while(ood == 2 && flag < 60);
    }
    if(ood == 0) continue;

    warncount++;
    /* print to file */
        fprintf(inf,"%-*.*s%-*.*s %-*.*s%-*.*s\n", IDLEN, IDLEN,
    allbrd[i].brdname, BTLEN-26, BTLEN-26, allbrd[i].title, 
    IDLEN - 5, IDLEN-5,hdr.date, IDLEN * 3, IDLEN * 3, allbrd[i].BM);

        /* post warn file to each board */
        sprintf(genbuf,"~/bin/post %s [廢版警告通知]"
        " [PTT警察局] %s",allbrd[i].brdname,WARNFILE);
        system(genbuf);

    /* user extract to mail */
        p=strtok(allbrd[i].BM,"/ ");
    if(p){
        k = 0;
        do
        {
            if (*p  == '[' ){p[strlen(p)-1]='\0'; p++;}
          bmid=getuser(p);
          bmsname[k] = p;
          if(isalpha(allbrd[i].BM[0])&& !(xuser.userlevel &PERM_SYSOP))
          {
            mailtouser(bmsname[k],allbrd[i].title, zapflag);
          }
            k++;
        } while((p=strtok(NULL,"/ "))!=NULL);
    }
    /* set attribute of DeleteBoardWarn Flag */
    bcache[i].brdattr = allbrd[i].brdattr | BRD_WARNDEL;

    /* zap boards */
    if (zapflag == 1)
    {
    execcount++;
        /* print to file */
        fprintf(def,"%-*.*s%-*.*s %-*.*s%-*.*s\n", IDLEN, IDLEN,
        allbrd[i].brdname, BTLEN-26, BTLEN-26, allbrd[i].title,
        IDLEN - 5, IDLEN-5,hdr.date, IDLEN * 3, IDLEN * 3, allbrd[i].BM); 

    /* if you want to unmark these code,
       make sure board, man path have changed to [man/]boards/<First char of brdname>/brdname
    */
                                                        
//  strcpy(bname, allbrd[i].brdname);
//  sprintf(genbuf,
//        "/bin/tar zcvf ~/tmp/board_%s.tgz boards/%s man/%s>/dev/null 2>&1;"
//        "/bin/rm -fr ~/boards/%s man/%s",bname, bname, bname, bname,bname);
//      system(genbuf);

//      memset(&allbrd[i], 0, sizeof(allbrd[i]));
//      sprintf(allbrd[i].title, "[%s] deleted by System", bname);
//      substitute_record(fn_board, &bh, sizeof(allbrd[i]), bid);
//      reset_board(bid);
    }

    }

        /* post to  Record, ViolateLaw */
    if(warncount > 0){
      sprintf(genbuf,"~/bin/post Record [廢版警告通知]"
      " [PTT警察局] %s",WARNLIST);
        system(genbuf);
      sprintf(genbuf,"~/bin/post ViolateLaw [廢版警告通知]"
      " [PTT警察局] %s",WARNLIST);
        system(genbuf);
    }
    if(execcount > 0){
      sprintf(genbuf,"~/bin/post Record [廢版公告]"
      " [PTT警察局] %s",EXECLIST);
        system(genbuf);
      sprintf(genbuf,"~/bin/post ViolateLaw [廢版公告]"
      " [PTT警察局] %s",EXECLIST);
        system(genbuf);
    }


/*     Below is for test only      */
/*
    mailtouser("Smile","test", 1);
    mailtouser("Smile","test", 0);

        strcpy(bname, "Test");
        sprintf(genbuf,"~/bin/post %s test Smile ~/etc/test.fileaaa",bname);
    system(genbuf);


    bid = getbnum(bname); 
        strcpy(bname,"jourslamdunk");
      sprintf(genbuf,
      "/bin/tar zcvf ~/tmp/board_%s.tgz boards/%c/%s man/%c/%s>/dev/null 2>&1;"
        "/bin/rm -fr ~/boards/%c/%s man/%c/%s",
    bname, bname[0], bname, bname[0], bname, bname[0], bname, bname[0], bname);
      system(genbuf);

      memset(&bh, 0, sizeof(bh));
      sprintf(bh.title, "[%s] deleted by %s", bname,cuser.userid);
      substitute_record(fn_board, &bh, sizeof(bh), bid);
      reset_board(bid);
*/
    return 0;
}