Subversion Repositories SvarDOS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
219 mateuszvis 1
/*
268 mateuszvis 2
 * This file is part of pkg (SvarDOS)
219 mateuszvis 3
 * Copyright (C) 2012-2021 Mateusz Viste
4
 */
5
 
6
#include <ctype.h>     /* toupper() */
7
#include <stdio.h>
8
#include <stdlib.h>    /* system() */
9
#include <string.h>    /* strcpy() */
10
#include <unistd.h>    /* read() */
11
#include <sys/types.h> /* struct utimbuf */
12
 
13
#include "helpers.h"   /* slash2backslash(), strtolower() */
14
#include "fileexst.h"
15
#include "kprintf.h"
16
#include "libunzip.h"  /* zip_listfiles()... */
17
#include "showinst.h"  /* pkg_loadflist() */
268 mateuszvis 18
 
219 mateuszvis 19
#include "pkginst.h"   /* include self for control */
20
 
21
 
22
/* validate a filename (8+3, no weird characters, etc). returns 0 on success,
23
 * nonzero otherwise. */
236 mateuszvis 24
static int validfilename(const char *fname) {
219 mateuszvis 25
  int i, i2;
26
  char *validchars = "!#$%&'()-@^_`{}~";
27
  int elemlen = 0;
28
  int elemmaxlen = 8; /* switches from 8 to 3 depending wheter I am analyzing
29
                         a filename or an extension */
30
  /* look for invalid chars in the entire string, and check the length of the
31
   * element at the same time */
32
  for (i = 0; fname[i] != 0; i++) {
33
    /* director separators are threated specially */
34
    if (fname[i] == '\\') {
35
      elemlen = 0;
36
      elemmaxlen = 8;
37
      continue;
38
    }
39
    /* '.' switches the check into extension mode */
40
    if (fname[i] == '.') {
41
      if (elemlen == 0) return(-1); /* a file must have a base name */
42
      if (elemmaxlen == 3) return(-2); /* a file cannot have two extensions */
43
      elemlen = 0;
44
      elemmaxlen = 3;
45
      continue;
46
    }
47
    /* check that the element is not too long */
48
    if (++elemlen > elemmaxlen) return(-3);
49
    /* look for valid characters */
50
    if ((fname[i] >= 'a') && (fname[i] <= 'z')) continue;
51
    if ((fname[i] >= 'A') && (fname[i] <= 'Z')) continue;
52
    if ((fname[i] >= '0') && (fname[i] <= '9')) continue;
53
    if ((fname[i] & 128) != 0) continue; /* high bytes are okay (NLS) */
54
    /* look for other valid characters */
55
    for (i2 = 0; validchars[i2] != 0; i2++) {
56
      if (fname[i] == validchars[i2]) break;
57
    }
58
    if (validchars[i2] != 0) continue;
59
    /* if we are here, then the character is invalid */
60
    return(-4);
61
  }
62
  /* all checks passed */
63
  return(0);
64
}
65
 
66
 
67
/* returns 0 if pkgname is not installed, non-zero otherwise */
230 mateuszvis 68
int is_package_installed(const char *pkgname, const char *dosdir) {
219 mateuszvis 69
  char fname[512];
70
  sprintf(fname, "%s\\packages\\%s.lst", dosdir, pkgname);
230 mateuszvis 71
  return(fileexists(fname)); /* file exists -> package is installed */
219 mateuszvis 72
}
73
 
74
 
75
/* checks that pkgname is NOT installed. return 0 on success, non-zero otherwise. */
230 mateuszvis 76
static int validate_package_not_installed(const char *pkgname, const char *dosdir) {
225 mateuszvis 77
  if (is_package_installed(pkgname, dosdir) != 0) {
219 mateuszvis 78
    kitten_printf(3, 18, "Package %s is already installed! You might want to use the 'update' action.", pkgname);
79
    puts("");
80
    return(-1);
81
  }
82
  return(0);
83
}
84
 
85
 
86
/* find a filename in a flist linked list, and returns a pointer to it */
236 mateuszvis 87
static struct flist_t *findfileinlist(struct flist_t *flist, const char *fname) {
219 mateuszvis 88
  while (flist != NULL) {
260 mateuszvis 89
    if (strcasecmp(flist->fname, fname) == 0) return(flist);
219 mateuszvis 90
    flist = flist->next;
91
  }
92
  return(NULL);
93
}
94
 
95
 
96
/* prepare a package for installation. this is mandatory before actually installing it!
230 mateuszvis 97
 * returns a pointer to the zip file's index on success, NULL on failure. the **zipfd pointer is updated with a file descriptor to the open zip file to install. */
236 mateuszvis 98
struct ziplist *pkginstall_preparepackage(const char *pkgname, const char *zipfile, int flags, FILE **zipfd, const char *dosdir, const struct customdirs *dirlist) {
99
  char fname[256];
100
  char appinfofile[256];
219 mateuszvis 101
  int appinfopresence;
102
  char *shortfile;
230 mateuszvis 103
  struct ziplist *ziplinkedlist = NULL, *curzipnode, *prevzipnode;
104
  struct flist_t *flist = NULL;
219 mateuszvis 105
 
106
  sprintf(appinfofile, "appinfo\\%s.lsm", pkgname); /* Prepare the appinfo/xxxx.lsm filename string for later use */
107
 
108
  /* check if not already installed, if already here, print a message "you might want to use update instead"
109
   * of course this must not be done if we are in the process of upgrading said package */
225 mateuszvis 110
  if (((flags & PKGINST_UPDATE) == 0) && (validate_package_not_installed(pkgname, dosdir) != 0)) {
219 mateuszvis 111
    return(NULL);
112
  }
113
 
114
  /* Now let's check the content of the zip file */
115
 
116
  *zipfd = fopen(zipfile, "rb");
117
  if (*zipfd == NULL) {
272 mateuszvis 118
    kitten_puts(3, 8, "ERROR: Invalid zip archive! Package not installed.");
230 mateuszvis 119
    goto RAII;
219 mateuszvis 120
  }
121
  ziplinkedlist = zip_listfiles(*zipfd);
122
  if (ziplinkedlist == NULL) {
272 mateuszvis 123
    kitten_puts(3, 8, "ERROR: Invalid zip archive! Package not installed.");
230 mateuszvis 124
    goto RAII;
219 mateuszvis 125
  }
126
  /* if updating, load the list of files belonging to the current package */
127
  if ((flags & PKGINST_UPDATE) != 0) {
128
    flist = pkg_loadflist(pkgname, dosdir);
129
  }
260 mateuszvis 130
  /* Verify that there's no collision with existing local files, look for the appinfo presence */
219 mateuszvis 131
  appinfopresence = 0;
132
  prevzipnode = NULL;
133
  for (curzipnode = ziplinkedlist; curzipnode != NULL;) {
134
    /* change all slashes to backslashes, and switch into all-lowercase */
135
    slash2backslash(curzipnode->filename);
136
    strtolower(curzipnode->filename);
137
    /* remove 'directory' ZIP entries to avoid false alerts about directory already existing */
138
    if ((curzipnode->flags & ZIP_FLAG_ISADIR) != 0) {
139
      curzipnode->filename[0] = 0; /* mark it "empty", will be removed in a short moment */
140
    }
260 mateuszvis 141
    /* is it a "link file"? skip it - link files are no longer supported */
219 mateuszvis 142
    if (fdnpkg_strcasestr(curzipnode->filename, "links\\") == curzipnode->filename) {
260 mateuszvis 143
      curzipnode->filename[0] = 0; /* in fact, I just mark the file as 'empty' on the filename - see later below */
219 mateuszvis 144
    }
145
 
146
    if (curzipnode->filename[0] == 0) { /* ignore empty filenames (maybe it was empty originally, or has been emptied because it's a dropped source or link) */
147
      if (prevzipnode == NULL) {  /* take the item out of the list */
148
        ziplinkedlist = curzipnode->nextfile;
149
        free(curzipnode); /* free the item */
150
        curzipnode = ziplinkedlist;
151
      } else {
152
        prevzipnode->nextfile = curzipnode->nextfile;
153
        free(curzipnode); /* free the item */
154
        curzipnode = prevzipnode->nextfile;
155
      }
156
      continue; /* go to the next item */
157
    }
158
    /* validate that the file has a valid filename (8+3, no shady chars...) */
159
    if (validfilename(curzipnode->filename) != 0) {
272 mateuszvis 160
      kitten_puts(3, 23, "ERROR: Package contains an invalid filename:");
219 mateuszvis 161
      printf(" %s\n", curzipnode->filename);
230 mateuszvis 162
      goto RAII_ERR;
219 mateuszvis 163
    }
164
    /* look out for collisions with already existing files (unless we are
165
     * updating the package and the local file belongs to it */
166
    shortfile = computelocalpath(curzipnode->filename, fname, dosdir, dirlist);
167
    strcat(fname, shortfile);
168
    if ((findfileinlist(flist, fname) == NULL) && (fileexists(fname) != 0)) {
272 mateuszvis 169
      kitten_puts(3, 9, "ERROR: Package contains a file that already exists locally:");
219 mateuszvis 170
      printf(" %s\n", fname);
230 mateuszvis 171
      goto RAII_ERR;
219 mateuszvis 172
    }
173
    /* abort if any entry is encrypted */
174
    if ((curzipnode->flags & ZIP_FLAG_ENCRYPTED) != 0) {
272 mateuszvis 175
      kitten_printf(3, 20, "ERROR: Package contains an encrypted file:");
219 mateuszvis 176
      puts("");
177
      printf(" %s\n", curzipnode->filename);
230 mateuszvis 178
      goto RAII_ERR;
219 mateuszvis 179
    }
180
    /* abort if any file is compressed with an unsupported method */
223 mateuszvis 181
    if ((curzipnode->compmethod != 0/*store*/) && (curzipnode->compmethod != 8/*deflate*/)) { /* unsupported compression method */
272 mateuszvis 182
      kitten_printf(8, 2, "ERROR: Package contains a file compressed with an unsupported method (%d):", curzipnode->compmethod);
219 mateuszvis 183
      puts("");
184
      printf(" %s\n", curzipnode->filename);
230 mateuszvis 185
      goto RAII_ERR;
219 mateuszvis 186
    }
187
    if (strcmp(curzipnode->filename, appinfofile) == 0) appinfopresence = 1;
188
    prevzipnode = curzipnode;
189
    curzipnode = curzipnode->nextfile;
190
  }
191
  /* if appinfo file not found, this is not a real FreeDOS package */
192
  if (appinfopresence != 1) {
272 mateuszvis 193
    kitten_printf(3, 12, "ERROR: Package do not contain the %s file! Not a valid FreeDOS package.", appinfofile);
219 mateuszvis 194
    puts("");
230 mateuszvis 195
    goto RAII_ERR;
196
  }
197
 
198
  goto RAII;
199
 
200
  RAII_ERR:
201
  zip_freelist(&ziplinkedlist);
202
  ziplinkedlist = NULL;
203
  if ((zipfd != NULL) && (*zipfd != NULL)) {
219 mateuszvis 204
    fclose(*zipfd);
230 mateuszvis 205
    *zipfd = NULL;
219 mateuszvis 206
  }
207
 
230 mateuszvis 208
  RAII:
209
  pkg_freeflist(flist);
219 mateuszvis 210
  return(ziplinkedlist);
211
}
212
 
213
 
214
/* install a package that has been prepared already. returns 0 on success,
215
 * or a negative value on error, or a positive value on warning */
236 mateuszvis 216
int pkginstall_installpackage(const char *pkgname, const char *dosdir, const struct customdirs *dirlist, struct ziplist *ziplinkedlist, FILE *zipfd) {
219 mateuszvis 217
  char *buff;
218
  char *fulldestfilename;
219
  char packageslst[64];
220
  char *shortfile;
221
  long filesextractedsuccess = 0, filesextractedfailure = 0;
222
  struct ziplist *curzipnode;
223
  FILE *lstfd;
224
 
225
  sprintf(packageslst, "packages\\%s.lst", pkgname); /* Prepare the packages/xxxx.lst filename string for later use */
226
 
227
  buff = malloc(512);
228
  fulldestfilename = malloc(1024);
229
  if ((buff == NULL) || (fulldestfilename == NULL)) {
272 mateuszvis 230
    kitten_printf(2, 14, "Out of memory! (%s)", "fulldestfilename");
231
    puts("");
219 mateuszvis 232
    zip_freelist(&ziplinkedlist);
233
    free(buff);
234
    free(fulldestfilename);
235
    return(-1);
236
  }
237
 
238
  /* create the %DOSDIR%/packages directory, just in case it doesn't exist yet */
239
  sprintf(buff, "%s\\packages\\", dosdir);
240
  mkpath(buff);
241
 
242
  /* open the lst file */
243
  sprintf(buff, "%s\\%s", dosdir, packageslst);
244
  lstfd = fopen(buff, "wb"); /* opening it in binary mode, because I like to have control over line terminators (CR/LF) */
245
  if (lstfd == NULL) {
272 mateuszvis 246
    kitten_printf(3, 10, "ERROR: Could not create %s!", buff);
219 mateuszvis 247
    puts("");
248
    zip_freelist(&ziplinkedlist);
249
    free(buff);
250
    free(fulldestfilename);
251
    return(-2);
252
  }
253
 
254
  /* write list of files in zip into the lst, and create the directories structure */
255
  for (curzipnode = ziplinkedlist; curzipnode != NULL; curzipnode = curzipnode->nextfile) {
256
    int unzip_result;
257
    if ((curzipnode->flags & ZIP_FLAG_ISADIR) != 0) continue; /* skip directories */
258
    if (strcasecmp(curzipnode->filename, packageslst) == 0) continue; /* skip silently the package.lst file, if found */
259
    shortfile = computelocalpath(curzipnode->filename, buff, dosdir, dirlist); /* substitute paths to custom dirs */
260
    /* log the filename to packages\pkg.lst (with original, unmapped drive) */
261
    fprintf(lstfd, "%s%s\r\n", buff, shortfile);
262
    /* create the path, just in case it doesn't exist yet */
263
    mkpath(buff);
264
    sprintf(fulldestfilename, "%s%s", buff, shortfile);
265
    /* Now unzip the file */
266
    unzip_result = zip_unzip(zipfd, curzipnode, fulldestfilename);
267
    if (unzip_result != 0) {
272 mateuszvis 268
      kitten_printf(8, 3, "ERROR: failed extracting '%s' to '%s'!", curzipnode->filename, fulldestfilename);
219 mateuszvis 269
      printf(" [%d]\n", unzip_result);
270
      filesextractedfailure += 1;
271
    } else {
272
      printf(" %s -> %s\n", curzipnode->filename, buff);
273
      filesextractedsuccess += 1;
274
    }
275
  }
276
  fclose(lstfd);
277
 
278
  /* free the ziplist and close file descriptor */
279
  zip_freelist(&ziplinkedlist);
280
  free(buff);
281
  free(fulldestfilename);
282
 
283
  kitten_printf(3, 19, "Package %s installed: %ld files extracted, %ld errors.", pkgname, filesextractedsuccess, filesextractedfailure);
284
  puts("");
285
  return(filesextractedfailure);
286
}