This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-mbse/mbsetup/m_hatch.c

678 lines
16 KiB
C
Raw Normal View History

2001-08-17 05:46:24 +00:00
/*****************************************************************************
*
2001-11-14 21:37:58 +00:00
* $Id$
2001-08-17 05:46:24 +00:00
* Purpose ...............: Hatch Setup
*
*****************************************************************************
2004-02-01 17:04:00 +00:00
* Copyright (C) 1997-2004
2001-08-17 05:46:24 +00:00
*
* Michiel Broek FIDO: 2:280/2802
* Beekmansbos 10
* 1971 BV IJmuiden
* the Netherlands
*
* This file is part of MBSE BBS.
*
* This BBS 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.
*
* MB BBS 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 MB BBS; see the file COPYING. If not, write to the Free
2003-08-15 20:05:34 +00:00
* Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
2001-08-17 05:46:24 +00:00
*****************************************************************************/
2002-06-30 12:48:44 +00:00
#include "../config.h"
2004-02-21 17:22:00 +00:00
#include "../lib/mbselib.h"
2001-08-17 05:46:24 +00:00
#include "screen.h"
#include "mutil.h"
#include "ledit.h"
#include "stlist.h"
#include "m_global.h"
#include "m_fgroup.h"
#include "m_ticarea.h"
#include "m_hatch.h"
int HatchUpdated = 0;
char *Days[] = {(char *)"Sun",(char *)"Mon",(char *)"Tue",(char *)"Wed",
(char *)"Thu",(char *)"Fri",(char *)"Sat"};
char *Month[] = {(char *)"1", (char *)"2", (char *)"3", (char *)"4",
(char *)"5", (char *)"6", (char *)"7", (char *)"8",
(char *)"9", (char *)"10",(char *)"11",(char *)"12",
(char *)"13",(char *)"14",(char *)"15",(char *)"16",
(char *)"17",(char *)"18",(char *)"19",(char *)"20",
(char *)"21",(char *)"22",(char *)"23",(char *)"24",
(char *)"25",(char *)"26",(char *)"27",(char *)"28",
(char *)"29",(char *)"30",(char *)"31",(char *)"Last"};
/*
* Count nr of hatch records in the database.
* Creates the database if it doesn't exist.
*/
int CountHatch(void)
{
FILE *fil;
char ffile[PATH_MAX];
2001-08-17 05:46:24 +00:00
int count;
sprintf(ffile, "%s/etc/hatch.data", getenv("MBSE_ROOT"));
if ((fil = fopen(ffile, "r")) == NULL) {
if ((fil = fopen(ffile, "a+")) != NULL) {
Syslog('+', "Created new %s", ffile);
2001-08-17 05:46:24 +00:00
hatchhdr.hdrsize = sizeof(hatchhdr);
hatchhdr.recsize = sizeof(hatch);
hatchhdr.lastupd = time(NULL);
fwrite(&hatchhdr, sizeof(hatchhdr), 1, fil);
fclose(fil);
2001-11-14 21:37:58 +00:00
chmod(ffile, 0640);
2001-08-17 05:46:24 +00:00
return 0;
} else
return -1;
}
fread(&hatchhdr, sizeof(hatchhdr), 1, fil);
fseek(fil, 0, SEEK_END);
count = (ftell(fil) - hatchhdr.hdrsize) / hatchhdr.recsize;
fclose(fil);
return count;
}
/*
* Open database for editing. The datafile is copied, if the format
* is changed it will be converted on the fly. All editing must be
* done on the copied file.
*/
int OpenHatch(void);
2001-08-17 05:46:24 +00:00
int OpenHatch(void)
{
FILE *fin, *fout;
char fnin[PATH_MAX], fnout[PATH_MAX];
2001-08-17 05:46:24 +00:00
long oldsize;
int FieldPatch = FALSE;
sprintf(fnin, "%s/etc/hatch.data", getenv("MBSE_ROOT"));
sprintf(fnout, "%s/etc/hatch.temp", getenv("MBSE_ROOT"));
if ((fin = fopen(fnin, "r")) != NULL) {
if ((fout = fopen(fnout, "w")) != NULL) {
fread(&hatchhdr, sizeof(hatchhdr), 1, fin);
/*
* In case we are automatic upgrading the data format
* we save the old format. If it is changed, the
* database must always be updated.
*/
oldsize = hatchhdr.recsize;
if (oldsize != sizeof(hatch)) {
HatchUpdated = 1;
Syslog('+', "Updated %s, format changed", fnin);
2001-08-17 05:46:24 +00:00
if ((oldsize + 8) == sizeof(hatch)) {
FieldPatch = TRUE;
Syslog('?', "Hatch: performing FieldPatch");
}
} else
HatchUpdated = 0;
hatchhdr.hdrsize = sizeof(hatchhdr);
hatchhdr.recsize = sizeof(hatch);
fwrite(&hatchhdr, sizeof(hatchhdr), 1, fout);
/*
* The datarecord is filled with zero's before each
* read, so if the format changed, the new fields
* will be empty.
*/
memset(&hatch, 0, sizeof(hatch));
while (fread(&hatch, oldsize, 1, fin) == 1) {
if (FieldPatch) {
memmove(&hatch.Replace, &hatch.Name[13], oldsize-12);
memset(&hatch.Name[13], 0, 8);
}
fwrite(&hatch, sizeof(hatch), 1, fout);
memset(&hatch, 0, sizeof(hatch));
}
fclose(fin);
fclose(fout);
return 0;
} else
return -1;
}
return -1;
}
void CloseHatch(int);
void CloseHatch(int force)
2001-08-17 05:46:24 +00:00
{
char fin[PATH_MAX], fout[PATH_MAX];
2001-08-17 05:46:24 +00:00
FILE *fi, *fo;
st_list *hat = NULL, *tmp;
sprintf(fin, "%s/etc/hatch.data", getenv("MBSE_ROOT"));
sprintf(fout,"%s/etc/hatch.temp", getenv("MBSE_ROOT"));
if (HatchUpdated == 1) {
if (force || (yes_no((char *)"Database is changed, save changes") == 1)) {
2001-08-17 05:46:24 +00:00
working(1, 0, 0);
fi = fopen(fout, "r");
fo = fopen(fin, "w");
fread(&hatchhdr, hatchhdr.hdrsize, 1, fi);
fwrite(&hatchhdr, hatchhdr.hdrsize, 1, fo);
while (fread(&hatch, hatchhdr.recsize, 1, fi) == 1)
if (!hatch.Deleted)
fill_stlist(&hat, hatch.Spec, ftell(fi) - hatchhdr.recsize);
sort_stlist(&hat);
for (tmp = hat; tmp; tmp = tmp->next) {
fseek(fi, tmp->pos, SEEK_SET);
fread(&hatch, hatchhdr.recsize, 1, fi);
fwrite(&hatch, hatchhdr.recsize, 1, fo);
}
tidy_stlist(&hat);
fclose(fi);
fclose(fo);
unlink(fout);
2001-11-14 21:37:58 +00:00
chmod(fin, 0640);
2004-03-20 23:00:22 +00:00
disk_reset();
2001-08-17 05:46:24 +00:00
Syslog('+', "Updated \"hatch.data\"");
2004-02-05 21:05:31 +00:00
if (!force)
working(6, 0, 0);
2001-08-17 05:46:24 +00:00
return;
}
}
2002-01-25 20:21:50 +00:00
chmod(fin, 0640);
2001-08-17 05:46:24 +00:00
working(1, 0, 0);
unlink(fout);
}
int AppendHatch(void)
{
FILE *fil;
char ffile[PATH_MAX];
2001-08-17 05:46:24 +00:00
int i;
sprintf(ffile, "%s/etc/hatch.temp", getenv("MBSE_ROOT"));
if ((fil = fopen(ffile, "a")) != NULL) {
memset(&hatch, 0, sizeof(hatch));
/*
* Fill in default values
*/
hatch.DupeCheck = TRUE;
for (i = 0; i < 7; i++)
hatch.Days[i] = TRUE;
fwrite(&hatch, sizeof(hatch), 1, fil);
fclose(fil);
HatchUpdated = 1;
return 0;
} else
return -1;
}
void HatchScreen(void)
{
clr_index();
set_color(WHITE, BLACK);
mvprintw( 5, 2, "10.3 EDIT HATCH MANAGER");
set_color(CYAN, BLACK);
mvprintw( 7, 2, "1. Mask");
mvprintw( 8, 2, "2. Area");
mvprintw( 9, 2, "3. Replace");
mvprintw(10, 2, "4. Magic");
mvprintw(11, 2, "5. Desc");
mvprintw(12, 2, "6. Dupe");
mvprintw(13, 2, "7. Active");
mvprintw(14, 2, "8. Deleted");
mvprintw(15, 2, "9. Days");
mvprintw(16, 2, "10. Month");
}
void EditDates(void);
void EditDates(void)
{
int i, x, y;
clr_index();
for (;;) {
set_color(WHITE, BLACK);
mvprintw( 5, 6, "10.3.9 EDIT DATES IN MONTH");
set_color(CYAN, BLACK);
y = 7;
x = 5;
for (i = 0; i < 32; i++) {
mvprintw(y, x, (char *)"%2d. %s", i+1, Month[i]);
y++;
if (y == 17) {
y = 7;
x += 20;
}
}
set_color(WHITE, BLACK);
y = 7;
x = 15;
for (i = 0; i < 32; i++) {
show_bool(y,x, hatch.Month[i]);
y++;
if (y == 17) {
y = 7;
x += 20;
}
}
i = select_menu(32);
if (i == 0)
return;
if (i < 11) {
y = 6 + i;
x = 15;
} else if (i < 21) {
y = i - 4;
x = 35;
} else if (i < 31) {
y = i - 14;
x = 55;
} else {
y = i - 24;
x = 75;
}
if (i == 32)
hatch.Month[i-1] = edit_bool(y, x, hatch.Month[i-1], (char *)"Hatch file in the ^last^ day of the month");
else
hatch.Month[i-1] = edit_bool(y, x, hatch.Month[i-1], (char *)"Hatch file on this date");
}
}
void EditDays(void);
void EditDays(void)
{
int i;
clr_index();
for (;;) {
set_color(WHITE, BLACK);
mvprintw( 5, 6, "10.3.8 EDIT DAYS IN WEEK");
set_color(CYAN, BLACK);
for (i = 0; i < 7; i++)
mvprintw(7+i, 6, (char *)"%d. %s", i+1, Days[i]);
set_color(WHITE, BLACK);
for (i = 0; i < 7; i++)
show_bool(7+i,14, hatch.Days[i]);
i = select_menu(7);
if (i == 0)
return;
hatch.Days[i-1] = edit_bool(6+i, 14, hatch.Days[i-1], (char *)"Hatch file on this day");
}
}
/*
* Edit one record, return -1 if record doesn't exist, 0 if ok.
*/
int EditHatchRec(int Area)
{
FILE *fil;
char mfile[PATH_MAX];
2001-08-17 05:46:24 +00:00
static char *tmp = NULL;
long offset;
unsigned long crc, crc1;
int i, All;
clr_index();
working(1, 0, 0);
IsDoing("Edit Hatch");
sprintf(mfile, "%s/etc/hatch.temp", getenv("MBSE_ROOT"));
if ((fil = fopen(mfile, "r")) == NULL) {
working(2, 0, 0);
return -1;
}
fread(&hatchhdr, sizeof(hatchhdr), 1, fil);
offset = hatchhdr.hdrsize + ((Area -1) * hatchhdr.recsize);
if (fseek(fil, offset, 0) != 0) {
working(2, 0, 0);
return -1;
}
fread(&hatch, hatchhdr.recsize, 1, fil);
fclose(fil);
crc = 0xffffffff;
crc = upd_crc32((char *)&hatch, crc, hatchhdr.recsize);
for (;;) {
HatchScreen();
set_color(WHITE, BLACK);
show_str( 7,18,55, hatch.Spec);
show_str( 8,18,20, hatch.Name);
show_str( 9,18,14, hatch.Replace);
show_str( 10,18,14, hatch.Magic);
show_str( 11,18,55, hatch.Desc);
show_bool(12,18, hatch.DupeCheck);
show_bool(13,18, hatch.Active);
show_bool(14,18, hatch.Deleted);
for (i = 0; i < 7; i++)
if (hatch.Days[i]) {
if (tmp == NULL) {
tmp = xstrcpy(Days[i]);
} else {
tmp = xstrcat(tmp, (char *)", ");
tmp = xstrcat(tmp, Days[i]);
}
}
if (tmp == NULL)
tmp = xstrcpy((char *)"None");
show_str( 15,18,55, tmp);
if (tmp != NULL) {
free(tmp);
tmp = NULL;
}
All = TRUE;
for (i = 0; i < 32; i++)
if (!hatch.Month[i])
All = FALSE;
if (!All) {
for (i = 0; i < 32; i++)
if (hatch.Month[i]) {
if (tmp == NULL) {
tmp = xstrcpy(Month[i]);
} else {
tmp = xstrcat(tmp, (char *)", ");
tmp = xstrcat(tmp, Month[i]);
}
}
} else
tmp = xstrcpy((char *)"All dates");
if (tmp == NULL)
tmp = xstrcpy((char *)"None");
show_str( 16,18,55, tmp);
if (tmp != NULL) {
free(tmp);
tmp = NULL;
}
switch(select_menu(10)) {
case 0:
crc1 = 0xffffffff;
crc1 = upd_crc32((char *)&hatch, crc1, hatchhdr.recsize);
if (crc != crc1) {
if (yes_no((char *)"Record is changed, save") == 1) {
working(1, 0, 0);
if ((fil = fopen(mfile, "r+")) == NULL) {
working(2, 0, 0);
return -1;
}
fseek(fil, offset, 0);
fwrite(&hatch, hatchhdr.recsize, 1, fil);
fclose(fil);
HatchUpdated = 1;
2004-02-05 21:05:31 +00:00
working(6, 0, 0);
2001-08-17 05:46:24 +00:00
}
}
IsDoing("Browsing Menu");
return 0;
case 1: E_STR( 7,18,55, hatch.Spec, "Hatch ^path/filespec^. ^?^ is any char, '@' is any alpha, '#' is any number")
case 2: strcpy(hatch.Name, PickTicarea((char *)"10.3.2"));
break;
case 3: E_UPS( 9,18,14, hatch.Replace, "The ^filename^ to replace by this file")
case 4: E_UPS( 10,18,14, hatch.Magic, "The ^magic^ filename for this file")
case 5: E_STR( 11,18,55, hatch.Desc, "The ^description^ for this file")
case 6: E_BOOL(12,18, hatch.DupeCheck, "Check if this files is a ^duplicate^ hatch")
case 7: E_BOOL(13,18, hatch.Active, "If this file is ^active^")
case 8: E_BOOL(14,18, hatch.Deleted, "If this record is ^Deleted^")
case 9: EditDays();
break;
case 10:EditDates();
break;
}
}
}
void EditHatch(void)
{
int records, i, o, x, y;
char pick[12];
FILE *fil;
char temp[PATH_MAX];
2001-08-17 05:46:24 +00:00
long offset;
clr_index();
working(1, 0, 0);
IsDoing("Browsing Menu");
if (config_read() == -1) {
working(2, 0, 0);
return;
}
records = CountHatch();
if (records == -1) {
working(2, 0, 0);
return;
}
if (OpenHatch() == -1) {
working(2, 0, 0);
return;
}
o = 0;
for (;;) {
clr_index();
set_color(WHITE, BLACK);
mvprintw( 5, 4, "10.3. HATCH MANAGER");
set_color(CYAN, BLACK);
if (records != 0) {
sprintf(temp, "%s/etc/hatch.temp", getenv("MBSE_ROOT"));
working(1, 0, 0);
if ((fil = fopen(temp, "r")) != NULL) {
fread(&hatchhdr, sizeof(hatchhdr), 1, fil);
x = 2;
y = 7;
set_color(CYAN, BLACK);
for (i = 1; i <= 20; i++) {
if (i == 11) {
x = 42;
y = 7;
}
if ((o + i) <= records) {
offset = sizeof(hatchhdr) + (((o + i) - 1) * hatchhdr.recsize);
fseek(fil, offset, 0);
fread(&hatch, hatchhdr.recsize, 1, fil);
if (hatch.Active)
set_color(CYAN, BLACK);
else
set_color(LIGHTBLUE, BLACK);
sprintf(temp, "%3d. %-32s", o + i, hatch.Spec);
temp[37] = 0;
mvprintw(y, x, temp);
y++;
}
}
fclose(fil);
}
}
strcpy(pick, select_record(records, 20));
if (strncmp(pick, "-", 1) == 0) {
CloseHatch(FALSE);
2001-08-17 05:46:24 +00:00
return;
}
if (strncmp(pick, "A", 1) == 0) {
working(1, 0, 0);
if (AppendHatch() == 0) {
records++;
working(1, 0, 0);
} else
working(2, 0, 0);
}
if (strncmp(pick, "N", 1) == 0)
if ((o + 20) < records)
o = o + 20;
if (strncmp(pick, "P", 1) == 0)
if ((o - 20) >= 0)
o = o - 20;
2002-01-19 19:27:29 +00:00
if ((atoi(pick) >= 1) && (atoi(pick) <= records)) {
2001-08-17 05:46:24 +00:00
EditHatchRec(atoi(pick));
2002-01-19 19:27:29 +00:00
o = ((atoi(pick) - 1) / 20) * 20;
}
2001-08-17 05:46:24 +00:00
}
}
void InitHatch(void)
{
CountHatch();
OpenHatch();
CloseHatch(TRUE);
}
2001-08-17 05:46:24 +00:00
int tic_hatch_doc(FILE *fp, FILE *toc, int page)
{
2004-03-28 15:51:29 +00:00
char temp[PATH_MAX], *tmp = NULL;
FILE *wp, *ip, *no;
int i, j, nr = 0, All;
2001-08-17 05:46:24 +00:00
2004-03-28 15:51:29 +00:00
sprintf(temp, "%s/etc/hatch.data", getenv("MBSE_ROOT"));
if ((no = fopen(temp, "r")) == NULL)
return page;
2001-08-17 05:46:24 +00:00
2004-03-28 15:51:29 +00:00
page = newpage(fp, page);
addtoc(fp, toc, 10, 3, page, (char *)"Hatch manager");
j = 1;
2001-08-17 05:46:24 +00:00
2004-03-28 15:51:29 +00:00
fprintf(fp, "\n\n");
fread(&hatchhdr, sizeof(hatchhdr), 1, no);
2001-08-17 05:46:24 +00:00
2004-03-28 15:51:29 +00:00
ip = open_webdoc((char *)"hatch.html", (char *)"File Areas", NULL);
fprintf(ip, "<A HREF=\"index.html\">Main</A>\n");
fprintf(ip, "<UL>\n");
while ((fread(&hatch, hatchhdr.recsize, 1, no)) == 1) {
2001-08-17 05:46:24 +00:00
2004-03-28 15:51:29 +00:00
nr++;
if (j == 5) {
page = newpage(fp, page);
fprintf(fp, "\n");
j = 0;
}
2001-08-17 05:46:24 +00:00
2004-03-28 15:51:29 +00:00
sprintf(temp, "hatch_%d.html", nr);
fprintf(ip, " <LI><A HREF=\"%s\">Hatch %3d</A> %s</LI>\n", temp, nr, hatch.Spec);
if ((wp = open_webdoc(temp, (char *)"Hatch Manager", hatch.Spec))) {
fprintf(wp, "<A HREF=\"index.html\">Main</A>&nbsp;<A HREF=\"hatch.html\">Back</A>\n");
fprintf(wp, "<P>\n");
fprintf(wp, "<TABLE width='600' border='0' cellspacing='0' cellpadding='2'>\n");
fprintf(wp, "<COL width='30%%'><COL width='70%%'>\n");
fprintf(wp, "<TBODY>\n");
add_webtable(wp, (char *)"File specification", hatch.Spec);
2004-04-03 18:46:54 +00:00
fprintf(wp, "<TR><TH align='left'>TIC File area</TH><TD><A HREF=\"ticarea_%s.html\">%s</A></TD></TR>\n",
hatch.Name, hatch.Name);
2004-03-28 15:51:29 +00:00
add_webtable(wp, (char *)"Replace file", hatch.Replace);
add_webtable(wp, (char *)"Magic filename", hatch.Magic);
add_webtable(wp, (char *)"File description", hatch.Desc);
add_webtable(wp, (char *)"Dupe check", getboolean(hatch.DupeCheck));
add_webtable(wp, (char *)"Active", getboolean(hatch.Active));
}
fprintf(fp, " File spec %s\n", hatch.Spec);
fprintf(fp, " File echo %s\n", hatch.Name);
fprintf(fp, " Replace file %s\n", hatch.Replace);
fprintf(fp, " Magic filename %s\n", hatch.Magic);
fprintf(fp, " Description %s\n", hatch.Desc);
fprintf(fp, " Dupe check %s\n", getboolean(hatch.DupeCheck));
fprintf(fp, " Active %s\n", getboolean(hatch.Active));
tmp = NULL;
for (i = 0; i < 7; i++)
if (hatch.Days[i]) {
if (tmp == NULL) {
tmp = xstrcpy(Days[i]);
} else {
tmp = xstrcat(tmp, (char *)", ");
tmp = xstrcat(tmp, Days[i]);
2001-08-17 05:46:24 +00:00
}
2004-03-28 15:51:29 +00:00
}
if (tmp == NULL)
tmp = xstrcpy((char *)"None");
if (wp != NULL)
add_webtable(wp, (char *)"Hatch on days", tmp);
fprintf(fp, " Hatch on days %s\n", tmp);
if (tmp != NULL) {
free(tmp);
tmp = NULL;
}
All = TRUE;
for (i = 0; i < 32; i++)
if (!hatch.Month[i])
All = FALSE;
if (!All) {
for (i = 0; i < 32; i++) {
if (hatch.Month[i]) {
if (tmp == NULL) {
tmp = xstrcpy(Month[i]);
} else {
tmp = xstrcat(tmp, (char *)", ");
tmp = xstrcat(tmp, Month[i]);
}
2001-08-17 05:46:24 +00:00
}
2004-03-28 15:51:29 +00:00
}
} else {
tmp = xstrcpy((char *)"All dates");
2001-08-17 05:46:24 +00:00
}
2004-03-28 15:51:29 +00:00
if (tmp == NULL)
tmp = xstrcpy((char *)"None");
if (wp != NULL) {
add_webtable(wp, (char *)"Hatch on dates", tmp);
fprintf(wp, "</TBODY>\n");
fprintf(wp, "</TABLE>\n");
fprintf(wp, "<HR>\n");
fprintf(wp, "<H3>Hatch Statistics</H3>\n");
add_statcnt(wp, (char *)"hatched files", hatch.Hatched);
close_webdoc(wp);
}
fprintf(fp, " Hatch on dates %s\n", tmp);
if (tmp != NULL) {
free(tmp);
tmp = NULL;
}
fprintf(fp, "\n\n");
j++;
}
fprintf(ip, "</UL>\n");
close_webdoc(ip);
fclose(no);
return page;
2001-08-17 05:46:24 +00:00
}