0,0 → 1,422 |
/* |
* This file is part of FDNPKG. |
* |
* Loads the list of repositories from the config file specified in %FDNPKG%. |
* Returns the amount of repositories found (and loaded) on success, or -1 on failure. |
* |
* Copyright (C) 2012-2016 Mateusz Viste |
*/ |
|
#include <stdio.h> /* printf(), fclose(), fopen()... */ |
#include <string.h> /* strcasecmp() */ |
#include <stdlib.h> /* malloc(), free() */ |
|
#include "crc32.h" /* crc32() */ |
#include "fdnpkg.h" /* PKGINST_NOSOURCE, PKGINST_SKIPLINKS... */ |
#include "helpers.h" /* slash2backslash(), removeDoubleBackslashes()... */ |
#include "kprintf.h" |
#include "loadconf.h" |
#include "parsecmd.h" |
#include "version.h" |
|
|
void freeconf(char **repolist, int repscount, struct customdirs **dirlist) { |
int x; |
struct customdirs *curpos; |
/* free repolist */ |
for (x = 0; x < repscount; x++) free(repolist[x]); |
/* free the linked list of custom dirs */ |
while (*dirlist != NULL) { |
curpos = *dirlist; |
if (curpos->name != NULL) free(curpos->name); |
if (curpos->location != NULL) free(curpos->location); |
*dirlist = (*dirlist)->next; |
free(curpos); |
} |
*dirlist = NULL; |
} |
|
|
static int checkfordoubledrepos(char **repolist, int repocount) { |
int x, y; |
for (x = 0; x < (repocount - 1); x++) { |
for (y = x + 1; y < repocount; y++) { |
if (strcmp(repolist[x], repolist[y]) == 0) { |
kitten_printf(7, 14, "Error: repository '%s' is listed twice!", repolist[x]); |
puts(""); |
return(-1); |
} |
} |
} |
return(0); |
} |
|
|
static int checkfordoubledirlist(struct customdirs *dirlist) { |
struct customdirs *curpos; |
for (; dirlist != NULL; dirlist = dirlist->next) { |
for (curpos = dirlist->next; curpos != NULL; curpos = curpos->next) { |
if (strcasecmp(curpos->name, dirlist->name) == 0) { |
kitten_printf(7, 0, "Error: custom dir '%s' is listed twice!", curpos->name); |
puts(""); |
return(-1); |
} |
} |
} |
return(0); |
} |
|
|
/* validates dirlist entries: check that they are absolute paths and are not using restricted names */ |
static int validatedirlist(struct customdirs *dirlist) { |
for (; dirlist != NULL; dirlist = dirlist->next) { |
/* the location must be at least 3 characters long to be a valid absolute path (like 'c:\')*/ |
if (strlen(dirlist->location) < 3) { |
kitten_printf(7, 15, "Error: custom dir '%s' is not a valid absolute path!", dirlist->name); |
puts(""); |
return(-1); |
} |
/* is it a valid absolute path? should start with [a..Z]:\ */ |
if ((dirlist->location[1] != ':') || |
((dirlist->location[2] != '/') && (dirlist->location[2] != '\\')) || |
(((dirlist->location[0] < 'a') || (dirlist->location[0] > 'z')) && ((dirlist->location[0] < 'A') || (dirlist->location[0] > 'Z')))) { |
kitten_printf(7, 15, "Error: custom dir '%s' is not a valid absolute path!", dirlist->name); |
puts(""); |
return(-1); |
} |
/* check for forbidden names */ |
if ((strcasecmp(dirlist->name, "appinfo") == 0) || |
(strcasecmp(dirlist->name, "bin") == 0) || |
(strcasecmp(dirlist->name, "doc") == 0) || |
(strcasecmp(dirlist->name, "help") == 0) || |
(strcasecmp(dirlist->name, "nls") == 0) || |
(strcasecmp(dirlist->name, "packages") == 0)) { |
kitten_printf(7, 16, "Error: custom dir '%s' is a reserved name!", dirlist->name); |
puts(""); |
return(-1); |
} |
} |
return(0); |
} |
|
|
/* add (and allocates) a new custom dir entry to dirlist. Returns 0 on success, |
or non-zero on failure (failures happen on out of memory events). */ |
static int addnewdir(struct customdirs **dirlist, char *name, char *location) { |
struct customdirs *newentry; |
newentry = malloc(sizeof(struct customdirs)); |
if (newentry == NULL) return(-1); |
newentry->name = malloc(strlen(name) + 1); |
if (newentry->name == NULL) { |
free(newentry); |
return(-1); |
} |
newentry->location = malloc(strlen(location) + 1); |
if (newentry->location == NULL) { |
free(newentry->name); |
free(newentry); |
return(-1); |
} |
strcpy(newentry->name, name); |
strcpy(newentry->location, location); |
newentry->next = *dirlist; |
*dirlist = newentry; |
return(0); |
} |
|
|
int loadconf(char *cfgfile, char **repolist, int maxreps, unsigned long *crc32val, long *maxcachetime, struct customdirs **dirlist, int *flags, char **proxy, int *proxyport, char **mapdrv) { |
int bytebuff, parserstate = 0; |
FILE *fd; |
#define BUFFSIZE 1024 |
unsigned char *fbuff; |
#define maxtok 16 |
char token[maxtok]; |
#define maxval 1024 |
char value[maxval]; |
int curtok = 0, curval = 0, nline = 1; |
int repocount = 0; |
int buffread; |
|
fd = fopen(cfgfile, "r"); |
if (fd == NULL) { |
kitten_printf(7, 1, "Error: Could not open config file '%s'!", cfgfile); |
puts(""); |
return(-1); |
} |
|
/* compute the CRC32 of the configuration file (if crc32val not NULL) */ |
if (crc32val != NULL) { |
fbuff = malloc(BUFFSIZE); |
if (fbuff == NULL) { |
fclose(fd); |
kitten_printf(2, 14, "Out of memory! (%s)", "fbuff malloc"); |
puts(""); |
puts(""); |
return(-1); |
} |
*crc32val = crc32_init(); |
while ((buffread = fread(fbuff, sizeof(char), BUFFSIZE, fd)) > 0) { |
if (buffread > 0) crc32_feed(crc32val, fbuff, buffread); |
} |
crc32_finish(crc32val); |
free(fbuff); |
} |
/* rewind the file, to start reading it again */ |
rewind(fd); |
|
/* read the config file line by line */ |
do { |
bytebuff = fgetc(fd); |
if (bytebuff != '\r') { |
switch (parserstate) { |
case 0: /* Looking for start of line */ |
if ((bytebuff == EOF) || (bytebuff == ' ') || (bytebuff == '\t')) break; |
if (bytebuff == '\n') { |
nline += 1; |
break; |
} |
if (bytebuff == '#') { |
parserstate = 9; |
} else { |
token[0] = bytebuff; |
curtok = 1; |
parserstate = 1; |
} |
break; |
case 1: /* Looking for token end */ |
if ((bytebuff == EOF) || (bytebuff == '\n')) { |
kitten_printf(7, 2, "Warning: token without value on line #%d", nline); |
puts(""); |
if (bytebuff == '\n') nline += 1; |
parserstate = 0; |
break; |
} |
if ((bytebuff == ' ') || (bytebuff == '\t')) { |
token[curtok] = 0; |
parserstate = 2; |
} else { |
token[curtok] = bytebuff; |
curtok += 1; |
if (curtok >= maxtok) { |
parserstate = 9; /* ignore the line */ |
kitten_printf(7, 3, "Warning: Config file token overflow on line #%d", nline); |
puts(""); |
} |
} |
break; |
case 2: /* Looking for value start */ |
if ((bytebuff == EOF) || (bytebuff == '\n')) { |
kitten_printf(7, 4, "Warning: token with empty value on line #%d", nline); |
puts(""); |
if (bytebuff == '\n') nline += 1; |
parserstate = 0; |
break; |
} |
if ((bytebuff != ' ') && (bytebuff != '\t')) { |
value[0] = bytebuff; |
curval = 1; |
parserstate = 3; |
} |
break; |
case 3: /* Looking for value end */ |
if ((bytebuff == EOF) || (bytebuff == '\n')) { |
parserstate = 0; |
value[curval] = 0; |
if ((value[curval - 1] == ' ') || (value[curval - 1] == '\t')) { |
kitten_printf(7, 5, "Warning: trailing white-space(s) after value on line #%d", nline); |
puts(""); |
while ((value[curval - 1] == ' ') || (value[curval - 1] == '\t')) value[--curval] = 0; |
} |
/* Interpret the token/value pair now! */ |
/* printf("token='%s' ; value = '%s'\n", token, value); */ |
if (strcasecmp(token, "REPO") == 0) { /* Repository declaration */ |
if (maxreps == 0) { |
/* simply ignore if the app explicitely wishes to load no repositories */ |
} else if (repocount >= maxreps) { |
kitten_printf(7, 6, "Dropped a repository: too many configured (max=%d)", maxreps); |
puts(""); |
} else { |
char pathdelimchar; |
/* add a trailing path delimiter (slash or backslash) to the url if not there already */ |
if (detect_localpath(value) != 0) { |
pathdelimchar = '\\'; |
} else { |
pathdelimchar = '/'; |
} |
if ((value[curval - 1] != '/') && (value[curval - 1] != '\\')) { |
value[curval++] = pathdelimchar; |
value[curval] = 0; |
} |
/* copy the value into the repository list */ |
repolist[repocount] = strdup(value); |
if (repolist[repocount] == NULL) { |
kitten_printf(2, 14, "Out of memory! (%s)", "repolist malloc"); |
puts(""); |
freeconf(repolist, repocount, dirlist); |
fclose(fd); |
return(-1); |
} |
repocount += 1; |
} |
} else if (strcasecmp(token, "MAPDRIVES") == 0) { |
*mapdrv = strdup(value); |
if ((*mapdrv != NULL) && strlen(*mapdrv) & 1) { |
free(*mapdrv); |
*mapdrv = NULL; |
} |
if (*mapdrv == NULL) *mapdrv = ""; |
} else if (strcasecmp(token, "MAXCACHETIME") == 0) { |
long tmpint = atol(value); |
if ((tmpint >= 0) && (tmpint < 1209600l)) { /* min 0s / max 2 weeks */ |
if (maxcachetime != NULL) *maxcachetime = tmpint; |
} else { |
kitten_printf(7, 10, "Warning: Ignored an illegal '%s' value at line #%d", "maxcachetime", nline); |
puts(""); |
} |
} else if (strcasecmp(token, "INSTALLSOURCES") == 0) { |
int tmpint = atoi(value); /* must be 0/1 */ |
if (tmpint == 0) { |
*flags |= PKGINST_NOSOURCE; |
} else if (tmpint == 1) { |
/* do nothing */ |
} else { |
kitten_printf(7, 10, "Warning: Ignored an illegal '%s' value at line #%d", "installsources", nline); |
puts(""); |
} |
} else if (strcasecmp(token, "SKIPLINKS") == 0) { |
int tmpint = atoi(value); /* must be 0/1 */ |
if (tmpint == 0) { |
/* do nothing */ |
} else if (tmpint == 1) { |
*flags |= PKGINST_SKIPLINKS; |
} else { |
kitten_printf(7, 10, "Warning: Ignored an illegal '%s' value at line #%d", "skiplinks", nline); |
puts(""); |
} |
} else if (strcasecmp(token, "HTTP_PROXY") == 0) { |
if (value[0] != 0) { |
if (proxy != NULL) *proxy = strdup(value); |
} else { |
kitten_printf(7, 10, "Warning: Ignored an illegal '%s' value at line #%d", "http_proxy", nline); |
puts(""); |
} |
} else if (strcasecmp(token, "HTTP_PROXYPORT") == 0) { |
int tmpint = atoi(value); |
if (tmpint != 0) { |
if (proxyport != NULL) *proxyport = tmpint; |
} else { |
kitten_printf(7, 10, "Warning: Ignored an illegal '%s' value at line #%d", "http_proxyport", nline); |
puts(""); |
} |
} else if (strcasecmp(token, "DIR") == 0) { /* custom repository entry */ |
char *argv[2], *evar, *evar_content, *realLocation; |
#define realLocation_len 512 |
int x, y; |
if (parsecmd(value, argv, 2) != 2) { |
kitten_printf(7, 11, "Warning: Invalid 'DIR' directive found at line #%d", nline); |
puts(""); |
} |
realLocation = malloc(realLocation_len); |
if (realLocation == NULL) { |
kitten_printf(2, 14, "Out of memory! (%s)", "malloc realLocation"); |
puts(""); |
freeconf(repolist, repocount, dirlist); |
fclose(fd); |
return(-1); |
} |
realLocation[0] = 0; /* force it to be empty, since we might use strcat() on this later! */ |
/* resolve possible env variables */ |
evar = NULL; |
y = 0; |
for (x = 0; argv[1][x] != 0; x++) { |
if (evar == NULL) { /* searching for % and copying */ |
if (argv[1][x] == '%') { |
evar = &argv[1][x+1]; |
} else { |
if (y + 1 > realLocation_len) { |
kitten_printf(7, 12, "Error: DIR path too long at line #%d", nline); |
puts(""); |
freeconf(repolist, repocount, dirlist); |
free(realLocation); |
fclose(fd); |
return(-1); |
} |
realLocation[y] = argv[1][x]; /* copy over */ |
y++; |
realLocation[y] = 0; /* make sure to terminate the string at any time */ |
} |
} else { /* reading a % variable */ |
if (argv[1][x] == '%') { |
argv[1][x] = 0; |
evar_content = getenv(evar); |
if (evar_content == NULL) { |
kitten_printf(7, 13, "Error: Found inexisting environnement variable '%s' at line #%d", evar, nline); |
puts(""); |
freeconf(repolist, repocount, dirlist); |
free(realLocation); |
fclose(fd); |
return(-1); |
} |
if (strlen(evar_content) + y + 1 > realLocation_len) { |
kitten_printf(7, 12, "Error: DIR path too long at line #%d", nline); |
puts(""); |
freeconf(repolist, repocount, dirlist); |
free(realLocation); |
fclose(fd); |
return(-1); |
} |
strcat(realLocation, evar_content); |
y += strlen(evar_content); |
evar = NULL; |
} |
} |
} |
/* add the entry to the list */ |
slash2backslash(realLocation); |
removeDoubleBackslashes(realLocation); |
if (realLocation[strlen(realLocation) - 1] != '\\') strcat(realLocation, "\\"); /* make sure to end dirs with a backslash */ |
if (addnewdir(dirlist, argv[0], realLocation) != 0) { |
kitten_printf(2, 14, "Out of memory! (%s)", "addnewdir"); |
puts(""); |
freeconf(repolist, repocount, dirlist); |
free(realLocation); |
fclose(fd); |
return(-1); |
} |
free(realLocation); |
} else { /* unknown token */ |
kitten_printf(7, 8, "Warning: Unknown token '%s' at line #%d", token, nline); |
puts(""); |
} |
/* interpretation done */ |
if (bytebuff == '\n') nline += 1; |
} else { |
value[curval] = bytebuff; |
curval += 1; |
if ((curval + 1) >= maxval) { |
parserstate = 9; /* ignore the line */ |
kitten_printf(7, 9, "Warning: Config file value overflow on line #%d", nline); |
puts(""); |
} |
} |
break; |
case 9: /* Got comment, ignoring the rest of line */ |
if (bytebuff == EOF) break; |
if (bytebuff == '\n') { |
nline += 1; |
parserstate = 0; |
} |
break; |
} |
} |
} while (bytebuff != EOF); |
fclose(fd); |
|
/* Look out for doubled repositories */ |
if (checkfordoubledrepos(repolist, repocount) != 0) return(-1); |
if (checkfordoubledirlist(*dirlist) != 0) return(-1); |
if (validatedirlist(*dirlist) != 0) return(-1); |
|
return(repocount); |
} |