Subversion Repositories SvarDOS

Rev

Rev 1683 | Rev 1800 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
219 mateuszvis 1
/*
268 mateuszvis 2
 * This file is part of pkg (SvarDOS)
1678 mateusz.vi 3
 * Copyright (C) 2012-2024 Mateusz Viste
219 mateuszvis 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
 
995 mateusz.vi 13
#include "helpers.h"   /* slash2backslash() */
219 mateuszvis 14
#include "fileexst.h"
15
#include "kprintf.h"
16
#include "libunzip.h"  /* zip_listfiles()... */
17
#include "showinst.h"  /* pkg_loadflist() */
613 mateuszvis 18
#include "svarlang.lib\svarlang.h"
268 mateuszvis 19
 
219 mateuszvis 20
#include "pkginst.h"   /* include self for control */
21
 
22
 
23
/* validate a filename (8+3, no weird characters, etc). returns 0 on success,
24
 * nonzero otherwise. */
236 mateuszvis 25
static int validfilename(const char *fname) {
219 mateuszvis 26
  int i, i2;
27
  char *validchars = "!#$%&'()-@^_`{}~";
28
  int elemlen = 0;
29
  int elemmaxlen = 8; /* switches from 8 to 3 depending wheter I am analyzing
30
                         a filename or an extension */
31
  /* look for invalid chars in the entire string, and check the length of the
32
   * element at the same time */
33
  for (i = 0; fname[i] != 0; i++) {
34
    /* director separators are threated specially */
35
    if (fname[i] == '\\') {
36
      elemlen = 0;
37
      elemmaxlen = 8;
38
      continue;
39
    }
40
    /* '.' switches the check into extension mode */
41
    if (fname[i] == '.') {
42
      if (elemlen == 0) return(-1); /* a file must have a base name */
43
      if (elemmaxlen == 3) return(-2); /* a file cannot have two extensions */
44
      elemlen = 0;
45
      elemmaxlen = 3;
46
      continue;
47
    }
48
    /* check that the element is not too long */
49
    if (++elemlen > elemmaxlen) return(-3);
50
    /* look for valid characters */
51
    if ((fname[i] >= 'a') && (fname[i] <= 'z')) continue;
52
    if ((fname[i] >= 'A') && (fname[i] <= 'Z')) continue;
53
    if ((fname[i] >= '0') && (fname[i] <= '9')) continue;
54
    if ((fname[i] & 128) != 0) continue; /* high bytes are okay (NLS) */
55
    /* look for other valid characters */
56
    for (i2 = 0; validchars[i2] != 0; i2++) {
57
      if (fname[i] == validchars[i2]) break;
58
    }
59
    if (validchars[i2] != 0) continue;
60
    /* if we are here, then the character is invalid */
61
    return(-4);
62
  }
63
  /* all checks passed */
64
  return(0);
65
}
66
 
67
 
68
/* returns 0 if pkgname is not installed, non-zero otherwise */
230 mateuszvis 69
int is_package_installed(const char *pkgname, const char *dosdir) {
1678 mateusz.vi 70
  char fname[256];
71
  sprintf(fname, "%s\\appinfo\\%s.lsm", dosdir, pkgname);
230 mateuszvis 72
  return(fileexists(fname)); /* file exists -> package is installed */
219 mateuszvis 73
}
74
 
75
 
76
/* checks that pkgname is NOT installed. return 0 on success, non-zero otherwise. */
230 mateuszvis 77
static int validate_package_not_installed(const char *pkgname, const char *dosdir) {
225 mateuszvis 78
  if (is_package_installed(pkgname, dosdir) != 0) {
613 mateuszvis 79
    kitten_printf(3, 18, pkgname); /* "Package %s is already installed! You might want to use the 'update' action." */
219 mateuszvis 80
    puts("");
81
    return(-1);
82
  }
83
  return(0);
84
}
85
 
86
 
87
/* find a filename in a flist linked list, and returns a pointer to it */
236 mateuszvis 88
static struct flist_t *findfileinlist(struct flist_t *flist, const char *fname) {
219 mateuszvis 89
  while (flist != NULL) {
260 mateuszvis 90
    if (strcasecmp(flist->fname, fname) == 0) return(flist);
219 mateuszvis 91
    flist = flist->next;
92
  }
93
  return(NULL);
94
}
95
 
96
 
1678 mateusz.vi 97
/* prepare a package for installation. this is mandatory before installing it!
98
 * returns a pointer to the zip file's index on success, NULL on failure.
99
 * the **zipfd pointer is updated with file descriptor of the open (to be
100
 * installed) zip file.
101
 * the returned ziplist is guaranteed to have the APPINFO file as first node
102
 * the ziplist is also guaranteed not to contain any directory entries */
236 mateuszvis 103
struct ziplist *pkginstall_preparepackage(const char *pkgname, const char *zipfile, int flags, FILE **zipfd, const char *dosdir, const struct customdirs *dirlist) {
104
  char fname[256];
1678 mateusz.vi 105
  char appinfofile[32];
106
  struct ziplist *appinfoptr;
219 mateuszvis 107
  char *shortfile;
230 mateuszvis 108
  struct ziplist *ziplinkedlist = NULL, *curzipnode, *prevzipnode;
109
  struct flist_t *flist = NULL;
219 mateuszvis 110
 
111
  sprintf(appinfofile, "appinfo\\%s.lsm", pkgname); /* Prepare the appinfo/xxxx.lsm filename string for later use */
112
 
113
  /* check if not already installed, if already here, print a message "you might want to use update instead"
114
   * of course this must not be done if we are in the process of upgrading said package */
225 mateuszvis 115
  if (((flags & PKGINST_UPDATE) == 0) && (validate_package_not_installed(pkgname, dosdir) != 0)) {
219 mateuszvis 116
    return(NULL);
117
  }
118
 
1600 mateusz.vi 119
  /* copy zip filename into fname */
120
  strcpy(fname, zipfile);
121
 
122
  /* append an .SVP extension if not present */
123
  {
124
    int slen = strlen(fname);
1601 mateusz.vi 125
    if ((slen < 4) || (fname[slen - 4] != '.')) strcat(fname, ".SVP");
1600 mateusz.vi 126
  }
127
 
1678 mateusz.vi 128
  /* now let's check the content of the zip file */
219 mateuszvis 129
 
1600 mateusz.vi 130
  *zipfd = fopen(fname, "rb");
219 mateuszvis 131
  if (*zipfd == NULL) {
613 mateuszvis 132
    puts(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */
230 mateuszvis 133
    goto RAII;
219 mateuszvis 134
  }
135
  ziplinkedlist = zip_listfiles(*zipfd);
136
  if (ziplinkedlist == NULL) {
613 mateuszvis 137
    puts(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */
230 mateuszvis 138
    goto RAII;
219 mateuszvis 139
  }
140
  /* if updating, load the list of files belonging to the current package */
141
  if ((flags & PKGINST_UPDATE) != 0) {
142
    flist = pkg_loadflist(pkgname, dosdir);
143
  }
1678 mateusz.vi 144
 
260 mateuszvis 145
  /* Verify that there's no collision with existing local files, look for the appinfo presence */
1678 mateusz.vi 146
  appinfoptr = NULL;
219 mateuszvis 147
  prevzipnode = NULL;
1678 mateusz.vi 148
 
219 mateuszvis 149
  for (curzipnode = ziplinkedlist; curzipnode != NULL;) {
150
    /* change all slashes to backslashes, and switch into all-lowercase */
151
    slash2backslash(curzipnode->filename);
995 mateusz.vi 152
    strlwr(curzipnode->filename);
219 mateuszvis 153
    /* remove 'directory' ZIP entries to avoid false alerts about directory already existing */
154
    if ((curzipnode->flags & ZIP_FLAG_ISADIR) != 0) {
155
      curzipnode->filename[0] = 0; /* mark it "empty", will be removed in a short moment */
156
    }
260 mateuszvis 157
    /* is it a "link file"? skip it - link files are no longer supported */
1678 mateusz.vi 158
    if (strstr(curzipnode->filename, "links\\") == curzipnode->filename) {
260 mateuszvis 159
      curzipnode->filename[0] = 0; /* in fact, I just mark the file as 'empty' on the filename - see later below */
219 mateuszvis 160
    }
161
 
1683 mateusz.vi 162
    /* is it the appinfo file? detach it from the list for now */
1678 mateusz.vi 163
    if (strcmp(curzipnode->filename, appinfofile) == 0) {
164
      appinfoptr = curzipnode;
165
      curzipnode = curzipnode->nextfile;
1683 mateusz.vi 166
      if (prevzipnode == NULL) {
167
        ziplinkedlist = curzipnode;
168
      } else {
169
        prevzipnode->nextfile = curzipnode;
170
      }
1678 mateusz.vi 171
      continue;
172
    }
173
 
219 mateuszvis 174
    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) */
175
      if (prevzipnode == NULL) {  /* take the item out of the list */
176
        ziplinkedlist = curzipnode->nextfile;
177
        free(curzipnode); /* free the item */
178
        curzipnode = ziplinkedlist;
179
      } else {
180
        prevzipnode->nextfile = curzipnode->nextfile;
181
        free(curzipnode); /* free the item */
182
        curzipnode = prevzipnode->nextfile;
183
      }
184
      continue; /* go to the next item */
185
    }
1678 mateusz.vi 186
 
219 mateuszvis 187
    /* validate that the file has a valid filename (8+3, no shady chars...) */
188
    if (validfilename(curzipnode->filename) != 0) {
613 mateuszvis 189
      puts(svarlang_str(3, 23)); /* "ERROR: Package contains an invalid filename:" */
219 mateuszvis 190
      printf(" %s\n", curzipnode->filename);
230 mateuszvis 191
      goto RAII_ERR;
219 mateuszvis 192
    }
1678 mateusz.vi 193
 
219 mateuszvis 194
    /* look out for collisions with already existing files (unless we are
195
     * updating the package and the local file belongs to it */
196
    shortfile = computelocalpath(curzipnode->filename, fname, dosdir, dirlist);
197
    strcat(fname, shortfile);
198
    if ((findfileinlist(flist, fname) == NULL) && (fileexists(fname) != 0)) {
613 mateuszvis 199
      puts(svarlang_str(3, 9)); /* "ERROR: Package contains a file that already exists locally:" */
219 mateuszvis 200
      printf(" %s\n", fname);
230 mateuszvis 201
      goto RAII_ERR;
219 mateuszvis 202
    }
1678 mateusz.vi 203
 
219 mateuszvis 204
    /* abort if any entry is encrypted */
205
    if ((curzipnode->flags & ZIP_FLAG_ENCRYPTED) != 0) {
613 mateuszvis 206
      puts(svarlang_str(3, 20)); /* "ERROR: Package contains an encrypted file:" */
219 mateuszvis 207
      printf(" %s\n", curzipnode->filename);
230 mateuszvis 208
      goto RAII_ERR;
219 mateuszvis 209
    }
1678 mateusz.vi 210
 
219 mateuszvis 211
    /* abort if any file is compressed with an unsupported method */
295 mateuszvis 212
    if ((curzipnode->compmethod != ZIP_METH_STORE) && (curzipnode->compmethod != ZIP_METH_DEFLATE)) { /* unsupported compression method */
613 mateuszvis 213
      kitten_printf(8, 2, curzipnode->compmethod); /* "ERROR: Package contains a file compressed with an unsupported method (%d):" */
219 mateuszvis 214
      puts("");
215
      printf(" %s\n", curzipnode->filename);
230 mateuszvis 216
      goto RAII_ERR;
219 mateuszvis 217
    }
1678 mateusz.vi 218
 
219
    /* add node to list */
219 mateuszvis 220
    prevzipnode = curzipnode;
221
    curzipnode = curzipnode->nextfile;
222
  }
1678 mateusz.vi 223
 
727 bttr 224
  /* if appinfo file not found, this is not a real SvarDOS package */
1678 mateusz.vi 225
  if (appinfoptr == NULL) {
613 mateuszvis 226
    kitten_printf(3, 12, appinfofile); /* "ERROR: Package do not contain the %s file! Not a valid SvarDOS package." */
219 mateuszvis 227
    puts("");
230 mateuszvis 228
    goto RAII_ERR;
229
  }
230
 
1678 mateusz.vi 231
  /* attach the appinfo node to the top of the list (installation second stage
232
   * relies on this) */
233
  appinfoptr->nextfile = ziplinkedlist;
234
  ziplinkedlist = appinfoptr;
235
 
230 mateuszvis 236
  goto RAII;
237
 
238
  RAII_ERR:
239
  zip_freelist(&ziplinkedlist);
240
  ziplinkedlist = NULL;
241
  if ((zipfd != NULL) && (*zipfd != NULL)) {
219 mateuszvis 242
    fclose(*zipfd);
230 mateuszvis 243
    *zipfd = NULL;
219 mateuszvis 244
  }
245
 
230 mateuszvis 246
  RAII:
247
  pkg_freeflist(flist);
219 mateuszvis 248
  return(ziplinkedlist);
249
}
250
 
251
 
1599 mateusz.vi 252
/* look for a "warn" field in the package's LSM file and display it if found */
253
static void display_warn_if_exists(const char *pkgname, const char *dosdir, char *buff, size_t buffsz) {
254
  FILE *fd;
255
  char *msgptr;
256
  int warncount = 0, i;
257
 
258
  sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, pkgname);
259
  fd = fopen(buff, "rb");
260
  if (fd == NULL) return;
261
 
262
  while (freadtokval(fd, buff, buffsz, &msgptr, ':') == 0) {
263
    if (msgptr != NULL) {
264
      if (strcasecmp(buff, "warn") == 0) {
265
        /* print a visual delimiter */
266
        if (warncount == 0) {
267
          puts("");
268
          for (i = 0; i < 79; i++) putchar('*');
269
          puts("");
270
        }
271
        /* there may be more than one "warn" line */
272
        puts(msgptr);
273
        warncount++;
274
      }
275
    }
276
  }
277
 
278
  fclose(fd);
279
 
280
  /* if one or more warn lines have been displayed then close with a delimiter again */
281
  if (warncount > 0) {
282
    for (i = 0; i < 79; i++) putchar('*');
283
    puts("");
284
  }
285
 
286
}
287
 
288
 
219 mateuszvis 289
/* install a package that has been prepared already. returns 0 on success,
290
 * or a negative value on error, or a positive value on warning */
236 mateuszvis 291
int pkginstall_installpackage(const char *pkgname, const char *dosdir, const struct customdirs *dirlist, struct ziplist *ziplinkedlist, FILE *zipfd) {
293 mateuszvis 292
  char buff[256];
293
  char fulldestfilename[256];
219 mateuszvis 294
  char *shortfile;
295
  long filesextractedsuccess = 0, filesextractedfailure = 0;
296
  struct ziplist *curzipnode;
1678 mateusz.vi 297
  FILE *lsmfd;
298
  int unzip_result;
219 mateuszvis 299
 
1678 mateusz.vi 300
  /* create the %DOSDIR%/APPINFO directory, just in case it doesn't exist yet */
301
  sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, pkgname);
219 mateuszvis 302
  mkpath(buff);
303
 
1678 mateusz.vi 304
  /* start by extracting the APPINFO (LSM) file - I need it so I can append the
305
   * list of files belonging to the packages later */
306
  unzip_result = zip_unzip(zipfd, ziplinkedlist, buff);
307
  if (unzip_result != 0) {
308
    kitten_printf(8, 3, ziplinkedlist, buff); /* "ERROR: failed extracting '%s' to '%s'!" */
309
    printf(" [%d]\n", unzip_result);
310
    return(-1);
311
  }
312
  printf(" %s -> %s\n", ziplinkedlist->filename, buff);
313
  filesextractedsuccess++;
314
 
315
  /* open the (freshly created) LSM file */
316
  lsmfd = fopen(buff, "ab"); /* opening in APPEND mode so I do not loose the LSM content */
317
  if (lsmfd == NULL) {
613 mateuszvis 318
    kitten_printf(3, 10, buff); /* "ERROR: Could not create %s!" */
219 mateuszvis 319
    puts("");
320
    return(-2);
321
  }
1678 mateusz.vi 322
  fprintf(lsmfd, "\r\n"); /* in case the LSM does not end with a clear line already */
219 mateuszvis 323
 
324
  /* write list of files in zip into the lst, and create the directories structure */
1678 mateusz.vi 325
  for (curzipnode = ziplinkedlist->nextfile; curzipnode != NULL; curzipnode = curzipnode->nextfile) {
326
 
327
    /* substitute paths to custom dirs */
328
    shortfile = computelocalpath(curzipnode->filename, buff, dosdir, dirlist);
329
 
330
    /* log the filename to LSM metadata file + its CRC */
331
    fprintf(lsmfd, "%s%s?%08lX\r\n", buff, shortfile, curzipnode->crc32);
332
 
219 mateuszvis 333
    /* create the path, just in case it doesn't exist yet */
334
    mkpath(buff);
335
    sprintf(fulldestfilename, "%s%s", buff, shortfile);
1678 mateusz.vi 336
 
219 mateuszvis 337
    /* Now unzip the file */
338
    unzip_result = zip_unzip(zipfd, curzipnode, fulldestfilename);
339
    if (unzip_result != 0) {
613 mateuszvis 340
      kitten_printf(8, 3, curzipnode->filename, fulldestfilename); /* "ERROR: failed extracting '%s' to '%s'!" */
219 mateuszvis 341
      printf(" [%d]\n", unzip_result);
342
      filesextractedfailure += 1;
343
    } else {
344
      printf(" %s -> %s\n", curzipnode->filename, buff);
345
      filesextractedsuccess += 1;
346
    }
347
  }
1678 mateusz.vi 348
  fclose(lsmfd);
219 mateuszvis 349
 
1711 bttr 350
  kitten_printf(3, 19, pkgname, filesextractedfailure, filesextractedsuccess); /* "Package %s installed: %ld errors, %ld files extracted." */
219 mateuszvis 351
  puts("");
1599 mateusz.vi 352
 
353
  /* scan the LSM file for a "warn" message to display */
354
  display_warn_if_exists(pkgname, dosdir, buff, sizeof(buff));
355
 
219 mateuszvis 356
  return(filesextractedfailure);
357
}