| 1,6 → 1,6 |
|---|
| /* |
| * This file is part of pkg (SvarDOS) |
| * Copyright (C) 2012-2022 Mateusz Viste |
| * Copyright (C) 2012-2023 Mateusz Viste |
| */ |
| |
| #include <ctype.h> /* toupper() */ |
| 112,9 → 112,18 |
|---|
| return(NULL); |
| } |
| |
| /* copy zip filename into fname */ |
| strcpy(fname, zipfile); |
| |
| /* append an .SVP extension if not present */ |
| { |
| int slen = strlen(fname); |
| if ((slen > 3) && (fname[slen - 4] != '.')) strcat(fname, ".SVP"); |
| } |
| |
| /* Now let's check the content of the zip file */ |
| |
| *zipfd = fopen(zipfile, "rb"); |
| *zipfd = fopen(fname, "rb"); |
| if (*zipfd == NULL) { |
| puts(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */ |
| goto RAII; |