Subversion Repositories SvarDOS

/*

 * This file is part of pkg (SvarDOS)

 * Copyright (C) 2012-2024 Mateusz Viste

 */

#include <ctype.h>     /* toupper() */

#include <stdio.h>

#include <stdlib.h>    /* system() */

#include <string.h>    /* strcpy() */

#include <strings.h>

#include <unistd.h>    /* read() */

#include <sys/types.h> /* struct utimbuf */

#include "helpers.h"   /* slash2backslash() */

#include "fileexst.h"

#include "libunzip.h"  /* zip_listfiles()... */

#include "showinst.h"  /* pkg_loadflist() */

#include "svarlang.lib/svarlang.h"

#include "pkginst.h"   /* include self for control */

/* validate a filename (8+3, no weird characters, etc). returns 0 on success,

 * nonzero otherwise. */

static int validfilename(const char *fname) {

  int i, i2;

  const char *validchars = "!#$%&'()-@^_`{}~";

  int elemlen = 0;

  int elemmaxlen = 8; /* switches from 8 to 3 depending wheter I am analyzing

                         a filename or an extension */

  /* look for invalid chars in the entire string, and check the length of the

   * element at the same time */

  for (i = 0; fname[i] != 0; i++) {

    /* director separators are threated specially */

    if (fname[i] == '\\') {

      elemlen = 0;

      elemmaxlen = 8;

      continue;

    }

    /* '.' switches the check into extension mode */

    if (fname[i] == '.') {

      if (elemlen == 0) return(-1); /* a file must have a base name */

      if (elemmaxlen == 3) return(-2); /* a file cannot have two extensions */

      elemlen = 0;

      elemmaxlen = 3;

      continue;

    }

    /* check that the element is not too long */

    if (++elemlen > elemmaxlen) return(-3);

    /* look for valid characters */

    if ((fname[i] >= 'a') && (fname[i] <= 'z')) continue;

    if ((fname[i] >= 'A') && (fname[i] <= 'Z')) continue;

    if ((fname[i] >= '0') && (fname[i] <= '9')) continue;

    if ((fname[i] & 128) != 0) continue; /* high bytes are okay (NLS) */

    /* look for other valid characters */

    for (i2 = 0; validchars[i2] != 0; i2++) {

      if (fname[i] == validchars[i2]) break;

    }

    if (validchars[i2] != 0) continue;

    /* if we are here, then the character is invalid */

    return(-4);

  }

  /* all checks passed */

  return(0);

}

/* returns 0 if pkgname is not installed, non-zero otherwise */

int is_package_installed(const char *pkgname, const char *dosdir) {

  char fname[256];

  sprintf(fname, "%s\\appinfo\\%s.lsm", dosdir, pkgname);

  return(fileexists(fname)); /* file exists -> package is installed */

}

/* checks that pkgname is NOT installed. return 0 on success, non-zero otherwise. */

static int validate_package_not_installed(const char *pkgname, const char *dosdir) {

  if (is_package_installed(pkgname, dosdir) != 0) {

    char msg[256];

    /* "Package %s is already installed! You might want to use the 'update' action." */

    sprintf(msg, svarlang_str(3,18), pkgname);

    outputnl(msg);

    return(-1);

  }

  return(0);

}

/* find a filename in a flist linked list, and returns a pointer to it */

static struct flist_t *findfileinlist(struct flist_t *flist, const char *fname) {

  while (flist != NULL) {

    if (strcasecmp(flist->fname, fname) == 0) return(flist);

    flist = flist->next;

  }

  return(NULL);

}

/* prepare a package for installation. this is mandatory before installing it!

 * returns a pointer to the zip file's index on success, NULL on failure.

 * pkgname must be at least 9 bytes long and is filled with the package name.

 * the **zipfd pointer is updated with file descriptor of the open (to be

 * installed) zip file.

 * the returned ziplist is guaranteed to have the APPINFO file as first node

 * the ziplist is also guaranteed not to contain any directory entries */

struct ziplist *pkginstall_preparepackage(char *pkgname, const char *zipfile, unsigned char flags, FILE **zipfd, const char *dosdir, const struct customdirs *dirlist, char bootdrive) {

  char fname[256];

  struct ziplist *appinfoptr = NULL;

  char *shortfile;

  struct ziplist *ziplinkedlist = NULL, *curzipnode, *prevzipnode;

  struct flist_t *flist = NULL;

  /* copy zip filename into fname */

  strcpy(fname, zipfile);

  /* append an .SVP extension if not present */

  {

    int slen = strlen(fname);

    if ((slen < 4) || (fname[slen - 4] != '.')) strcat(fname, ".SVP");

  }

  /* does the file exist? */

  if (!fileexists(fname)) {

    outputnl(svarlang_str(10, 1)); /* ERROR: File not found */

    goto RAII;

  }

  /* open the SVP archive and get the list of files */

  *zipfd = fopen(fname, "rb");

  if (*zipfd == NULL) {

    outputnl(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */

    goto RAII_ERR;

  }

  ziplinkedlist = zip_listfiles(*zipfd);

  if (ziplinkedlist == NULL) {

    outputnl(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */

    goto RAII_ERR;

  }

  /* process the entire ziplist and sanitize it + locate the appinfo file so

   * I know the package name */

  prevzipnode = NULL;

  curzipnode = ziplinkedlist;

  while (curzipnode != NULL) {

    /* change all slashes to backslashes, and switch into all-lowercase */

    slash2backslash(curzipnode->filename);

    strlwr(curzipnode->filename);

    /* validate that the file has a valid filename (8+3, no shady chars...) */

    if (validfilename(curzipnode->filename) != 0) {

      outputnl(svarlang_str(3, 23)); /* "ERROR: Package contains an invalid filename:" */

      outputnl(curzipnode->filename);

      goto RAII_ERR;

    }

    /* remove 'directory' ZIP entries to avoid false alerts about directory already existing */

    if ((curzipnode->flags & ZIP_FLAG_ISADIR) != 0) goto DELETE_ZIP_NODE;

    /* abort if entry is encrypted */

    if ((curzipnode->flags & ZIP_FLAG_ENCRYPTED) != 0) {

      outputnl(svarlang_str(3, 20)); /* "ERROR: Package contains an encrypted file:" */

      outputnl(curzipnode->filename);

      goto RAII_ERR;

    }

    /* abort if file is compressed with an unsupported method */

    if ((curzipnode->compmethod != ZIP_METH_STORE) && (curzipnode->compmethod != ZIP_METH_DEFLATE)) { /* unsupported compression method */

      /* "ERROR: Package contains a file compressed with an unsupported method:" */

      outputnl(svarlang_str(8,2));

      outputnl(curzipnode->filename);

      goto RAII_ERR;

    }

    /* is it the appinfo file? detach it from the list for now */

    if (strstr(curzipnode->filename, "appinfo\\") == curzipnode->filename) {

      if (appinfoptr != NULL) {

        outputnl(svarlang_str(3, 12)); /* "ERROR: This is not a valid SvarDOS package" */

        goto RAII_ERR;

      }

      appinfoptr = curzipnode;

      curzipnode = curzipnode->nextfile;

      if (prevzipnode == NULL) {

        ziplinkedlist = curzipnode;

      } else {

        prevzipnode->nextfile = curzipnode;

      }

      continue;

    }

    /* all good, move to the next item in the list */

    prevzipnode = curzipnode;

    curzipnode = curzipnode->nextfile;

    continue;

    DELETE_ZIP_NODE:

    if (prevzipnode == NULL) {  /* take the item out of the list */

      ziplinkedlist = curzipnode->nextfile;

      free(curzipnode); /* free the item */

      curzipnode = ziplinkedlist;

    } else {

      prevzipnode->nextfile = curzipnode->nextfile;

      free(curzipnode); /* free the item */

      curzipnode = prevzipnode->nextfile;

    }

    /* go to the next item */

  }

  /* if appinfo file not found, this is not a SvarDOS package */

  if (appinfoptr == NULL) {

    outputnl(svarlang_str(3, 12)); /* "ERROR: This is not a valid SvarDOS package." */

    goto RAII_ERR;

  }

  /* attach the appinfo node to the top of the list (installation second stage

   * relies on this) */

  appinfoptr->nextfile = ziplinkedlist;

  ziplinkedlist = appinfoptr;

  /* fill in pkgname based on what was found in APPINFO */

  {

    unsigned short i;

    /* copy and stop at the nearest dot */

    for (i = 0; i < 8; i++) {

      if (appinfoptr->filename[8 + i] == '.') break;

      pkgname[i] = appinfoptr->filename[8 + i];

    }

    pkgname[i] = 0;

    if ((i == 0) || (strcmp(appinfoptr->filename + 8 + i, ".lsm") != 0)) {

      outputnl(svarlang_str(3, 12)); /* "ERROR: This is not a valid SvarDOS package." */

      goto RAII_ERR;

    }

  }

  /* if updating, load the list of files belonging to the current package */

  if ((flags & PKGINST_UPDATE) != 0) {

    flist = pkg_loadflist(pkgname, dosdir);

  } else {

    /* if NOT updating, check that package is not installed already */

    if (validate_package_not_installed(pkgname, dosdir) != 0) goto RAII_ERR;

  }

  /* Verify that there's no collision with existing local files, but skip the

   * first entry as it is the appinfo (LSM) file that is handled specially */

  for (curzipnode = ziplinkedlist->nextfile; curzipnode != NULL; curzipnode = curzipnode->nextfile) {

    /* look out for collisions with already existing files (unless we are

     * updating the package and the local file belongs to it */

    shortfile = computelocalpath(curzipnode->filename, fname, dosdir, dirlist, bootdrive);

    strcat(fname, shortfile);

    if ((findfileinlist(flist, fname) == NULL) && (fileexists(fname) != 0)) {

      outputnl(svarlang_str(3, 9)); /* "ERROR: Package contains a file that already exists locally:" */

      outputnl(fname);

      goto RAII_ERR;

    }

  }

  goto RAII;

  RAII_ERR:

  zip_freelist(&ziplinkedlist);

  ziplinkedlist = NULL;

  if ((zipfd != NULL) && (*zipfd != NULL)) {

    fclose(*zipfd);

    *zipfd = NULL;

  }

  RAII:

  pkg_freeflist(flist);

  return(ziplinkedlist);

}

/* look for a "warn" field in the package's LSM file and display it if found */

static void display_warn_if_exists(const char *pkgname, const char *dosdir, char *buff, size_t buffsz) {

  FILE *fd;

  char *msgptr;

  int warncount = 0, i;

  sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, pkgname);

  fd = fopen(buff, "rb");

  if (fd == NULL) return;

  while (freadtokval(fd, buff, buffsz, &msgptr, ':') == 0) {

    if (msgptr != NULL) {

      if (strcasecmp(buff, "warn") == 0) {

        /* print a visual delimiter */

        if (warncount == 0) {

          outputnl("");

          for (i = 0; i < 79; i++) output("*");

          outputnl("");

        }

        /* there may be more than one "warn" line */

        outputnl(msgptr);

        warncount++;

      }

    }

  }

  fclose(fd);

  /* if one or more warn lines have been displayed then close with a delimiter again */

  if (warncount > 0) {

    for (i = 0; i < 79; i++) output("*");

    outputnl("");

  }

}

/* install a package that has been prepared already. returns 0 on success,

 * or a negative value on error, or a positive value on warning */

int pkginstall_installpackage(const char *pkgname, const char *dosdir, const struct customdirs *dirlist, struct ziplist *ziplinkedlist, FILE *zipfd, char bootdrive, unsigned char *buff15k, unsigned char flags) {

  char buff[256];

  char fulldestfilename[256];

  char *shortfile;

  long filesextractedsuccess = 0, filesextractedfailure = 0;

  struct ziplist *curzipnode;

  FILE *lsmfd;

  int unzip_result;

  /* create the %DOSDIR%/APPINFO directory, just in case it doesn't exist yet */

  sprintf(buff, "%s\\appinfo\\", dosdir);

  mkpath(buff);

  /* start by extracting the APPINFO (LSM) file - I need it so I can append the

   * list of files belonging to the packages later */

  output(ziplinkedlist->filename);

  output(" -> ");

  output(buff);

  strcat(buff, pkgname);

  strcat(buff, ".lsm");

  unzip_result = zip_unzip(zipfd, ziplinkedlist, buff, buff15k);

  outputnl("");

  if (unzip_result != 0) {

    sprintf(buff, svarlang_str(10,4), unzip_result); /* "ERROR: unzip failure (%d)" */

    output(buff);

    if (unzip_result == -4) {

      output(" [");

      output(svarlang_str(2,14)); /* "Out of memory" */

      output("]");

    }

    return(-1);

  }

  filesextractedsuccess++;

  /* open the (freshly created) LSM file */

  lsmfd = fopen(buff, "ab"); /* opening in APPEND mode so I do not loose the LSM content */

  if (lsmfd == NULL) {

    /* "ERROR: Could not create %s!" */

    sprintf(buff15k, svarlang_str(3,10), buff);

    outputnl(buff15k);

    return(-2);

  }

  fprintf(lsmfd, "\r\n"); /* in case the LSM does not end with a clear line already */

  /* write list of files in zip into the lst, and create the directories structure */

  for (curzipnode = ziplinkedlist->nextfile; curzipnode != NULL; curzipnode = curzipnode->nextfile) {

    /* substitute paths to custom dirs */

    shortfile = computelocalpath(curzipnode->filename, buff, dosdir, dirlist, bootdrive);

    /* log the filename to LSM metadata file + its CRC */

    fprintf(lsmfd, "%s%s?%08lX\r\n", buff, shortfile, curzipnode->crc32);

    /* create the path, just in case it doesn't exist yet */

    mkpath(buff);

    sprintf(fulldestfilename, "%s%s", buff, shortfile);

    /* Now unzip the file */

    output(curzipnode->filename);

    output(" -> ");

    output(buff);

    unzip_result = zip_unzip(zipfd, curzipnode, fulldestfilename, buff15k);

    outputnl("");

    if (unzip_result == 0) {

      filesextractedsuccess += 1;

    } else {

      /* "ERROR: unzip failure (%d)" */

      sprintf(buff, svarlang_str(10,4), unzip_result);

      output(buff);

      if (unzip_result == -4) {

        output(" [");

        output(svarlang_str(2,14)); /* "Out of memory" */

        output("]");

      }

      outputnl("");

      filesextractedfailure += 1;

    }

  }

  fclose(lsmfd);

  /* "Package %s installed: %ld errors, %ld files extracted." */

  sprintf(buff15k, svarlang_str(3, 19), pkgname, filesextractedfailure, filesextractedsuccess);

  outputnl(buff15k);

  /* scan the LSM file for a "warn" message to display */

  if ((flags & PKGINST_HIDEWARN) == 0) {

    display_warn_if_exists(pkgname, dosdir, buff, sizeof(buff));

  }

  return(filesextractedfailure);

}