| 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); |
| } |