Subversion Repositories SvarDOS

  fclose(fd);

  fclose(fd);

}

}

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

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

  char fname[512];

  char fname[512];

  sprintf(fname, "%s\\packages\\%s.lst", dosdir, pkgname);

  sprintf(fname, "%s\\packages\\%s.lst", dosdir, pkgname);

  if (fileexists(fname) != 0) { /* file exists -> package is installed */

  if (fileexists(fname) != 0) { /* file exists -> package is installed */

    return(1);

    return(1);

  } else {

  } else {

    return(0);

    return(0);

  }

  }

}

}

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

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

    kitten_printf(3, 18, "Package %s is already installed! You might want to use the 'update' action.", pkgname);

    kitten_printf(3, 18, "Package %s is already installed! You might want to use the 'update' action.", pkgname);

    puts("");

    puts("");

    return(-1);

    return(-1);

  }

  }

  return(0);

  return(0);

}

}

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

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

 * returns a pointer to the zip file's index on success, NULL on failure. the *zipfile pointer is updated with a file descriptor to the open zip file to install. */

 * returns a pointer to the zip file's index on success, NULL on failure. the *zipfile pointer is updated with a file descriptor to the open zip file to install. */

  char *fname;

  char *fname;

  char *zipfile;

  char *zipfile;

  char *appinfofile;

  char *appinfofile;

  int appinfopresence;

  int appinfopresence;

  char *shortfile;

  char *shortfile;

  strtolower(pkgname); /* convert pkgname to lower case, because the http repo is probably case sensitive */

  strtolower(pkgname); /* convert pkgname to lower case, because the http repo is probably case sensitive */

  sprintf(appinfofile, "appinfo\\%s.lsm", pkgname); /* Prepare the appinfo/xxxx.lsm filename string for later use */

  sprintf(appinfofile, "appinfo\\%s.lsm", pkgname); /* Prepare the appinfo/xxxx.lsm filename string for later use */

  /* check if not already installed, if already here, print a message "you might want to use update instead"

  /* check if not already installed, if already here, print a message "you might want to use update instead"

   * of course this must not be done if we are in the process of upgrading said package */

   * of course this must not be done if we are in the process of upgrading said package */

    return(NULL);

    return(NULL);

  }

  }

  if (localfile != NULL) {  /* if it's a local file, then we will have to skip all the network stuff */

  if (localfile != NULL) {  /* if it's a local file, then we will have to skip all the network stuff */

    strcpy(zipfile, localfile);

    strcpy(zipfile, localfile);

      return(NULL);

      return(NULL);

    }

    }

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

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

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

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

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

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

    strcat(fname, shortfile);

    strcat(fname, shortfile);

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

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

      kitten_puts(3, 9, "Error: Package contains a file that already exists locally:");

      kitten_puts(3, 9, "Error: Package contains a file that already exists locally:");

      printf(" %s\n", fname);

      printf(" %s\n", fname);

      zip_freelist(&ziplinkedlist);

      zip_freelist(&ziplinkedlist);

}

}

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

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

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

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

  char *buff;

  char *buff;

  char *fulldestfilename;

  char *fulldestfilename;

  char packageslst[64];

  char packageslst[64];

  char *shortfile;

  char *shortfile;

  long filesextractedsuccess = 0, filesextractedfailure = 0;

  long filesextractedsuccess = 0, filesextractedfailure = 0;

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

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

  mkpath(buff);

  mkpath(buff);

  /* open the lst file */

  /* open the lst file */

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

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

  lstfd = fopen(buff, "wb"); /* opening it in binary mode, because I like to have control over line terminators (CR/LF) */

  lstfd = fopen(buff, "wb"); /* opening it in binary mode, because I like to have control over line terminators (CR/LF) */

  if (lstfd == NULL) {

  if (lstfd == NULL) {

    kitten_printf(3, 10, "Error: Could not create %s!", buff);

    kitten_printf(3, 10, "Error: Could not create %s!", buff);

    puts("");

    puts("");

    zip_freelist(&ziplinkedlist);

    zip_freelist(&ziplinkedlist);

    if ((curzipnode->flags & ZIP_FLAG_ISADIR) != 0) continue; /* skip directories */

    if ((curzipnode->flags & ZIP_FLAG_ISADIR) != 0) continue; /* skip directories */

    if (strcasecmp(curzipnode->filename, packageslst) == 0) continue; /* skip silently the package.lst file, if found */

    if (strcasecmp(curzipnode->filename, packageslst) == 0) continue; /* skip silently the package.lst file, if found */

    shortfile = computelocalpath(curzipnode->filename, buff, dosdir, dirlist); /* substitute paths to custom dirs */

    shortfile = computelocalpath(curzipnode->filename, buff, dosdir, dirlist); /* substitute paths to custom dirs */

    /* log the filename to packages\pkg.lst (with original, unmapped drive) */

    /* log the filename to packages\pkg.lst (with original, unmapped drive) */

    fprintf(lstfd, "%s%s\r\n", buff, shortfile);

    fprintf(lstfd, "%s%s\r\n", buff, shortfile);

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

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

    mkpath(buff);

    mkpath(buff);

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

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

    /* Now unzip the file */

    /* Now unzip the file */

    unzip_result = zip_unzip(zipfd, curzipnode, fulldestfilename);

    unzip_result = zip_unzip(zipfd, curzipnode, fulldestfilename);

      printf(" %s -> %s\n", curzipnode->filename, buff);

      printf(" %s -> %s\n", curzipnode->filename, buff);

      filesextractedsuccess += 1;

      filesextractedsuccess += 1;

    }

    }

    /* if it's a LINK file, recompute a new content */

    /* if it's a LINK file, recompute a new content */

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

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

      processlinkfile(fulldestfilename, dosdir, dirlist, buff);

      processlinkfile(fulldestfilename, dosdir, dirlist, buff);

    }

    }

  }

  }

  fclose(lstfd);

  fclose(lstfd);