[轉載] FB 自動精華區程式

【 以下文字轉載自 sysop 討論區 】
【 原文由 klt 所發表 】
/*----------------------------------------------------------*/
/* autogem.c                                                */
/*----------------------------------------------------------*/
/* target : FB diary版面文章自動送進精華區                  */
/* create : 04/02/23                                        */
/* update :   /  /                                          */
/* author : [e-mail]                      */
/*----------------------------------------------------------*/
/* 說明：使用前需手動建立 精華區裡的a-z的目錄(大小寫不拘)，
         若目錄已存在則不需建立。茲因功力不強，程式雜亂無章，
         請見諒。
         http://mis.nkfust.edu.tw/u8924355/autogem.c        */

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>                     
#include <stdio.h>
#include <string.h>
#define FB "/home/fb"
#define PATHLEN 256
char fn_search[]="/.Search";
struct dirstr
{
 char art[80];
 char postman[80];
 char title[96];
};
main()
{
 int inf,i,newname,upname,has,test;
 FILE *fn,*fm,*fi,*fo,*fl,*fp,*fq;
 char  tmp[PATHLEN],tmp2[PATHLEN],buf6[PATHLEN],buf5[PATHLEN],buf4[PATHLEN],buf
[PATHLEN],buf2[PATHLEN],buf3[PATHLEN],dpath[PATHLEN],fpath[PATHLEN],buf7[PATHLE
N];
 struct dirstr writer;
 sprintf(buf,"%s/0Announce%s", FB, fn_search); /* get dpath */
 if((fn=fopen(buf,"r")) != NULL){
  while (fgets(buf,sizeof(buf), fn) != NULL){
   if (!strncmp(buf,"diary",5)){
   strncpy(buf,buf+7,sizeof(buf));
   sprintf(fpath,"%s/0Announce/%s",FB,buf);
   snprintf(dpath,strlen(fpath),fpath);}} } 
   fclose(fn);
/* dpath means the /home/fb/boards/diary  in real path */
 
 sprintf(fpath,"");
 sprintf(fpath,"%s/boards/diary/.DIR",FB); /* get fpath  */

 inf=open(fpath,O_RDONLY);
 if (inf == -1){
   printf("error open /boards/diary/.DIR file\n");
   exit(1);}
/* Read the .DIR file */
 while (read(inf, &writer,sizeof(writer))==sizeof(writer))
 {
  sprintf(buf,"%s/.Names",dpath);
  fn=fopen(buf,"r");/* buf means the /home/fb/0Announce/groups/GROUP_7/diary/.N
ames file */
   if (fn == NULL){
   printf("error open 1st /groups/GROUP_7/diary/.Names file\n");
   exit(1);}
  while(fgets(tmp,sizeof(tmp),fn)!=NULL){
   if(!strncmp(tmp,"Name=",5)){
    if(writer.postman[0]==tolower(tmp[5]) || writer.postman[0]==toupper(tmp[5])
 ){
     fgets(tmp,sizeof(tmp),fn);
     snprintf(buf3,strlen(tmp),tmp);
     snprintf(buf3,strlen(buf3),buf3+6);}} }
  fclose(fn);
  sprintf(buf2,"%s%s/.Names",dpath,buf3);/* buf2 diary/D11/.Names */
  fq=fopen(buf2,"r");
   if (fq == NULL){
   printf("error 2nd open groups/GROUP_7/diary/D11/.Names file\n");
   exit(1);}
  upname=0;
  newname=0;
  has=0;
  while(fgets(tmp2,sizeof(tmp2),fq)!=NULL){
   if(!strncmp(tmp2,"Name=",5)){
   upname=1; }
   snprintf(tmp2,strlen(writer.postman)+1,tmp2+5);
   if(!strcmp(tmp2,writer.postman)){
   has=1; }}
  fclose(fq);   
  if(!upname||!has)
  {
    newname=1;
    sprintf(buf7,"/D%X",time(0)+getpid()+getppid()+rand());
    sprintf(buf4, "%s%s%s",dpath,buf3,buf7);
    mkdir(buf4,0755);
    sprintf(buf4, "%s%s/.Names",dpath,buf3);
    fp=fopen(buf4,"r");
     if (fp == NULL){
     printf("error open /D11/.Names file\n");
     exit(1);}
    i=1;
    while(fgets(buf4,sizeof(buf4),fp)!=NULL){
     if(!strncmp(buf4,"Numb=",5)){
     i++;}}
    fclose(fp);
    sprintf(buf4, "%s%s/.Names",dpath,buf3);
    fp=fopen(buf4,"a");
     if (fp == NULL){
     printf("error open /D11/.Names file\n");
     exit(1);}
    fprintf(fp,"Name=%s\n",writer.postman);
    fprintf(fp,"Path=~%s\n",buf7);
    fprintf(fp,"Numb=%d\n",i);
    fprintf(fp,"#\n");
    fclose(fp);
    sprintf(buf4, "%s%s%s/.Names",dpath,buf3,buf7);
    fp=fopen(buf4,"w");
     if (fp == NULL){
     printf("error write /D11/DAA/.Names file\n");
     exit(1);}
    fprintf(fp,"#\n");
    fprintf(fp,"# Title=%-38s\n",writer.postman);
    fprintf(fp,"#\n");
    fclose(fp);
    strcpy(buf4,buf7);
    upname=1;
  }
  fm=fopen(buf2,"r");
  if (fm == NULL){
   printf("error 2nd open groups/GROUP_7/diary/D11/.Names file\n");
   exit(1);}
  while(fgets(tmp2,sizeof(tmp2),fm)!=NULL)
  {
   if(!strncmp(tmp2,"Name=",5)&&upname) 
   {
    snprintf(tmp2,strlen(writer.postman)+1,tmp2+5);
    if(!strcmp(writer.postman,tmp2))
    {
     fgets(tmp2,sizeof(tmp2),fm);
      if(!newname){
      snprintf(buf7,strlen(tmp2),tmp2);
     snprintf(buf4,strlen(buf7),buf7+6);}
     sprintf(buf2,"%s%s%s/.Names",dpath,buf3,buf4);  
     sprintf(buf5,"%s/boards/diary/%s",FB,writer.art);    
     sprintf(buf6,"%s%s%s/%s",dpath,buf3,buf4,writer.art);
     fi=fopen(buf5,"r");
      if(fi==NULL){
      printf("Open posted file for read error!\n");
      exit(1);}
     fo=fopen(buf6,"w");
      if(fo==NULL){
      printf("Open posted file for write error!\n");
      exit(1);}
     while(fgets(buf5,sizeof(buf5),fi)!=NULL){
      fputs(buf5,fo);}
     fclose(fo);
     fclose(fi);
     sprintf(buf5,"%s/boards/diary/%s",FB,writer.art);
     fi=fopen(buf5,"a");
      if(fi==NULL){
      printf("Open posted file for del error!\n");
      exit(1);}
     remove(buf5);
     fclose(fi);
     fl=fopen(buf2,"r");
      if(fl==NULL){
      printf("Open .Names for read numb error");}
     i=1;
     while(fgets(buf2,sizeof(buf2),fl)!=NULL){
      if(!strncmp(buf2,"Numb=",5)){
      i++;}}
     fclose(fl);
     sprintf(buf2,"%s%s%s/.Names",dpath,buf3,buf4); 
     fl=fopen(buf2,"a");
      if(fl==NULL){
      printf("Open /D/D/.Names for write new data error");
      exit(1);}
     fprintf(fl,"Name=%s\n",writer.title);
     fprintf(fl,"Path=~/%s\n",writer.art);
     fprintf(fl,"Numb=%d\n",i);
     fprintf(fl,"#\n");
     fclose(fl);
    }
   }
  }
 }
 remove(fpath);
 close(inf);
}


--
        短暫的自由，只為了進入下一個牢籠。
        永遠的自由，也許要等到魂飛魄散之後。

※ 來源:‧亞太之星 bbs.nkfust.edu.tw‧[FROM: m145-184.dialup.seed]
--
※ 轉載:‧亞太之星 bbs.nkfust.edu.tw‧[FROM: m145-184.dialup.seed]