/*****************************************************************************
 * HTICK --- FTN Ticker / Request Processor
 *****************************************************************************
 * This file is part of HTICK, part of the Husky fidosoft project
 * http://husky.physcip.uni-stuttgart.de
 *
 * HTICK is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2, or (at your option) any
 * later version.
 *
 * HTICK is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with HTICK; see the file COPYING.  If not, write to the Free
 * Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 *****************************************************************************
 * $Id: add_desc.c,v 1.12 2002/06/09 12:30:47 mche Stab $
 *****************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <add_desc.h>
#include <fidoconf/fidoconf.h>
#include <fidoconf/common.h>
#include <string.h>
#include <smapi/progprot.h>
#include <global.h>
#include <fidoconf/recode.h>
#include <fidoconf/xstr.h>
#include <toss.h>
#include <filecase.h>

int add_description (char *descr_file_name, char *file_name, char **description, unsigned int count_desc)
{
    FILE *descr_file;
    unsigned int i;
    char *desc_line = NULL;
    char *namefile  = NULL;
    int descOnNewLine  = 0;
    
    descr_file = fopen (descr_file_name, "a");
    if (descr_file == NULL) return 1;
    
    namefile = sstrdup(file_name);
    
    MakeProperCase(namefile);
    xscatprintf(&desc_line, "%-12s",namefile);
    //fprintf (descr_file, "%-12s", namefile);
    if(config->addDLC && config->DLCDigits > 0 && config->DLCDigits < 10) {
        char dlc[10];
        dlc[0] = ' ';
        dlc[1] = '[';
        for(i = 1; i <= config->DLCDigits; i++) dlc[i+1] = '0';
        dlc[i+1] = ']';
        dlc[i+2] = '\x00';
        //fprintf (descr_file, "%s", dlc);
        xstrcat(&desc_line, dlc);
    }
    if((strlen(namefile) > 12) && 
       (strlen(desc_line) + strlen(description[0]) > 78))
    {
        fprintf (descr_file, "%s\n",desc_line);
        descOnNewLine = 1;
    }
    else
    {
        fprintf (descr_file, "%s",desc_line);
    }
    for ( i = 0; i < count_desc; i++ ) {
        desc_line = sstrdup(description[i]);
        if (config->intab != NULL) recodeToInternalCharset(desc_line);
        if (descOnNewLine == 0) {
            fprintf(descr_file," %s\n",desc_line);
            descOnNewLine = 1;
        } else {
            if (config->fileDescPos == 0 ) config->fileDescPos = 1;
            fprintf(descr_file,"%s%s%s\n", print_ch(config->fileDescPos-1, ' '), 
                (config->fileLDescString == NULL) ? " " : config->fileLDescString, desc_line);
            
        }
        nfree(desc_line);
    }
    if (count_desc == 0) fprintf(descr_file,"\n");
    fclose (descr_file);
    nfree(namefile);
    return 0;
}

int removeDesc (char *descr_file_name, char *file_name)
{
    FILE *f1, *f2;
    char *line, *tmp, *token, *descr_file_name_tmp, *LDescString;
    int flag = 0;
    
    line = tmp = token = descr_file_name_tmp = LDescString = NULL ;
    f1 = fopen (descr_file_name, "r");
    if (f1 == NULL) return 1;
    
    //strcpy(descr_file_name_tmp,descr_file_name);
    //strcat(descr_file_name_tmp,".tmp");
    
    xstrscat(&descr_file_name_tmp,descr_file_name,".tmp",NULL);
        
    f2 = fopen (descr_file_name_tmp, "w");
    if (f2 == NULL) {
        fclose (f1);
        nfree(descr_file_name_tmp);
        return 1;
    }
    
    if (config->fileLDescString == NULL) 
        LDescString = sstrdup(">");
    else
        LDescString = sstrdup(config->fileLDescString);
    
    while ((line = readLine(f1)) != NULL) {
        if (*line == 0 || *line == 10 || *line == 13)
            continue;
        
        if (line[strlen(line)-1]=='\r')
            line[strlen(line)-1]=0;
        
        if (flag && (*line == '\t' || *line == ' ' || *line == *LDescString))
            continue;
        else
            flag = 0;
        
        tmp = sstrdup(line);
        token = strtok(tmp, " \t\0");
        
        if (token != NULL) {
            if (stricmp(token,file_name) != 0) {
                fputs(line, f2);
                fputs("\n", f2);
            }
            else
                flag = 1;
        }
        nfree(tmp);
        nfree(line);
    }
    
    nfree(LDescString);
    fclose (f1);
    fclose (f2);
    remove(descr_file_name);
    move_file(descr_file_name_tmp,descr_file_name);
    nfree(descr_file_name_tmp);
    return 0;
}

int announceInFile (char *announcefile, char *file_name, int size, char *area, s_addr origin, char **description, int count_desc)
{
    FILE *ann_file;
    int i;
    char *desc_line = NULL;
    
    if (!fexist(announcefile)) {
        ann_file = fopen (announcefile, "w");
        if (ann_file == NULL) return 1;
        fprintf (ann_file,"File             Size         Area                 Origin\n");
        fprintf (ann_file,"---------------- ------------ -------------------- ----------------\n");
    } else {
        ann_file = fopen (announcefile, "a");
        if (ann_file == NULL) return 1;
    }
    fprintf (ann_file, "%-16s %-12d %-20s %u:%u/%u.%u\n", file_name, size, area, origin.zone, origin.net, origin.node, origin.point);
    for (i=0;i<count_desc;i++) {
        desc_line = sstrdup(description[i]);
        if (desc_line != NULL) {
            if (config->intab != NULL) recodeToInternalCharset(desc_line);
            fprintf(ann_file,"%s\n",desc_line);
            nfree(desc_line);
        }
    }
    fprintf (ann_file,"-------------------------------------------------------------------\n");
    fclose (ann_file);
    return 0;
}

int announceNewFileecho (char *announcenewfileecho, char *c_area, char *hisaddr)
{
    FILE *ann_file;
    
    if (!fexist(announcenewfileecho)) {
        ann_file = fopen (announcenewfileecho, "w");
        if (ann_file == NULL) return 1;
        fprintf (ann_file,"Action   Name                                                 By\n");
        fprintf (ann_file,"-------------------------------------------------------------------------------\n");
    } else {
        ann_file = fopen (announcenewfileecho, "a");
        if (ann_file == NULL) return 1;
    }
    fprintf (ann_file, "Created  %-52s %s\n", c_area, hisaddr);
    fclose (ann_file);
    return 0;
}

int getDesc (char *descr_file_name, char *file_name, s_ticfile *tic)
{
    FILE *f1;
    char hlp[1024] = "", tmp[1024] = "", *token = NULL;
    int flag = 0, rc = 1;
    
    f1 = fopen (descr_file_name, "r");
    if (f1 == NULL) return 1;
    
    while (!feof(f1)) {
        fgets(hlp,sizeof(hlp),f1);
        
        if (hlp[0]==0 || hlp[0]==10 || hlp[0]==13)
            continue;
        
        if (hlp[strlen(hlp)-1]=='\r')
            hlp[strlen(hlp)-1]=0;
        
        if (hlp[strlen(hlp)-1]=='\n')
            hlp[strlen(hlp)-1]=0;
        
        if (flag && (*hlp == '\t' || *hlp == ' ' || *hlp == '>')) {
            token=stripLeadingChars(hlp, " >");
            if (*token == '>') token++;
            tic->desc=
                srealloc(tic->desc,(tic->anzdesc+1)*sizeof(*tic->desc));
            tic->desc[tic->anzdesc]=sstrdup(token);
            tic->anzdesc++;
            continue;
        }
        else
            flag = 0;
        
        strcpy(tmp,hlp);
        token = strtok(tmp, " \t\0");
        
        if (token==NULL)
            continue;
        
        if (stricmp(token,file_name) == 0) {
            token=stripLeadingChars(strtok(NULL, "\0"), " ");
            if (token != NULL) {
                if(config->addDLC && config->DLCDigits > 0 && config->DLCDigits < 10 && token[0] == '[') {
                    char *p = token;
                    while(']' != *p)p++;
                    p++;
                    while(' ' == *p)p++;
                    strcpy(token,p);
                }
                tic->desc=
                    srealloc(tic->desc,(tic->anzdesc+1)*sizeof(*tic->desc));
                tic->desc[tic->anzdesc]=sstrdup(token);
                tic->anzdesc++;
            }
            flag = 1;
            rc = 0;
        }
        hlp[0] = '\0';
    }
    
    fclose (f1);
    w_log(LL_FILE, "getDesc OK for file: %s",file_name);
    return rc;
}