Subversion Repositories SvarDOS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
207 mateuszvis 1
/*
2
 * pkgnet - pulls SvarDOS packages from the project's online repository
3
 *
4
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
5
 *
558 mateuszvis 6
 * COPYRIGHT (C) 2016-2022 MATEUSZ VISTE, ALL RIGHTS RESERVED.
207 mateuszvis 7
 *
8
 * Permission is hereby granted, free of charge, to any person obtaining a
9
 * copy of this software and associated documentation files (the "Software"),
10
 * to deal in the Software without restriction, including without limitation
11
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
12
 * and/or sell copies of the Software, and to permit persons to whom the
13
 * Software is furnished to do so, subject to the following conditions:
14
 *
15
 * The above copyright notice and this permission notice shall be included in
16
 * all copies or substantial portions of the Software.
17
 *
18
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
19
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
20
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
21
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
22
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
 * DEALINGS IN THE SOFTWARE.
25
 *
26
 * http://svardos.osdn.io
27
 */
28
 
344 mateuszvis 29
#include <direct.h> /* opendir() and friends */
207 mateuszvis 30
#include <stdio.h>
209 mateuszvis 31
#include <stdlib.h>
207 mateuszvis 32
#include <string.h>
33
#include <time.h>
34
 
35
#include "net.h"
342 mateuszvis 36
#include "unchunk.h"
207 mateuszvis 37
 
344 mateuszvis 38
#include "../pkg/lsm.h"
39
 
40
 
558 mateuszvis 41
#define PVER "20220119"
42
#define PDATE "2021-2022"
209 mateuszvis 43
 
207 mateuszvis 44
#define HOSTADDR "svardos.osdn.io"
45
 
209 mateuszvis 46
 
338 mateuszvis 47
/* returns length of all http headers, or 0 if uncomplete yet */
48
static unsigned short detecthttpheadersend(const unsigned char *buff) {
49
  char lastbyteislf = 0;
50
  unsigned short i;
51
  for (i = 0; buff[i] != 0; i++) {
207 mateuszvis 52
    if (buff[i] == '\r') continue; /* ignore CR characters */
53
    if (buff[i] != '\n') {
54
      lastbyteislf = 0;
55
      continue;
56
    }
57
    /* cur byte is LF -> if last one was also LF then this is an empty line, meaning headers are over */
58
    if (lastbyteislf == 0) {
59
      lastbyteislf = 1;
60
      continue;
61
    }
338 mateuszvis 62
    /* end of headers! return length of headers */
63
    return(i + 1); /* add 1 to skip the current \n character */
207 mateuszvis 64
  }
65
  return(0);
66
}
67
 
68
 
209 mateuszvis 69
static void help(void) {
70
  puts("pkgnet ver " PVER " -- Copyright (C) " PDATE " Mateusz Viste");
71
  puts("");
72
  puts("pkgnet is the SvarDOS package downloader.");
73
  puts("");
74
  puts("usage:  pkgnet search <term>");
75
  puts("        pkgnet pull <package>");
558 mateuszvis 76
  puts("        pkgnet pull <package>-<version>");
211 mateuszvis 77
  puts("        pkgnet checkup");
209 mateuszvis 78
  puts("");
79
  puts("actions:");
80
  puts(" search   - asks remote repository for the list of matching packages");
81
  puts(" pull     - downloads package into current directory");
211 mateuszvis 82
  puts(" checkup  - lists updates available for your system");
209 mateuszvis 83
  puts("");
342 mateuszvis 84
  printf("Watt32 kernel: %s", net_engine());
85
  puts("");
86
  puts("");
209 mateuszvis 87
}
88
 
89
 
90
/* parses command line arguments and fills outfname and url accordingly
91
 * returns 0 on success, non-zero otherwise */
342 mateuszvis 92
static int parseargv(int argc, char * const *argv, char *outfname, char *url, int *ispost) {
211 mateuszvis 93
  *outfname = 0;
209 mateuszvis 94
  *url = 0;
342 mateuszvis 95
  *ispost = 0;
209 mateuszvis 96
  if ((argc == 3) && (strcasecmp(argv[1], "search") == 0)) {
214 mateuszvis 97
    sprintf(url, "/repo/?a=search&p=%s", argv[2]);
209 mateuszvis 98
  } else if ((argc == 3) && (strcasecmp(argv[1], "pull") == 0)) {
558 mateuszvis 99
    unsigned short i;
100
    sprintf(url, "/repo/?a=pull&p=%s", argv[2]);
101
    /* copy argv[2] into outfname, but stop at first '-' or null terminator
102
     * this trims any '-version' part in filename to respect 8+3 */
103
    for (i = 0; (argv[2][i] != 0) && (argv[2][i] != '-') && (i < 8); i++) {
104
      outfname[i] = argv[2][i];
211 mateuszvis 105
    }
558 mateuszvis 106
    /* add the zip extension to filename */
107
    strcpy(outfname + i, ".zip");
209 mateuszvis 108
  } else if ((argc == 2) && (strcasecmp(argv[1], "checkup") == 0)) {
342 mateuszvis 109
    sprintf(url, "/repo/?a=checkup");
110
    *ispost = 1;
209 mateuszvis 111
  } else {
112
    help();
113
    return(-1);
114
  }
115
  return(0);
116
}
117
 
118
 
342 mateuszvis 119
static int htget_headers(unsigned char *buffer, size_t buffersz, struct net_tcpsocket *sock, int *httpcode, int *ischunked)  {
338 mateuszvis 120
  unsigned char *buffptr = buffer;
121
  unsigned short bufflen = 0;
122
  int byteread;
123
  time_t starttime = time(NULL);
124
  for (;;) {
125
    byteread = net_recv(sock, buffptr, buffersz - (bufflen + 1)); /* -1 because I will append a NULL terminator */
126
 
127
    if (byteread > 0) { /* got data */
128
      int hdlen;
129
      bufflen += byteread;
130
      buffptr += byteread;
131
      buffer[bufflen] = 0;
132
      hdlen = detecthttpheadersend(buffer);
133
      if (hdlen > 0) { /* full headers - parse http code and continue processing */
342 mateuszvis 134
        int i;
135
        buffer[hdlen - 1] = 0;
338 mateuszvis 136
        /* find the first space (HTTP/1.1 200 OK) */
342 mateuszvis 137
        for (i = 0; i < 16; i++) {
138
          if ((buffer[i] == ' ') || (buffer[i] == 0)) break;
338 mateuszvis 139
        }
342 mateuszvis 140
        if (buffer[i] != ' ') return(-1);
141
        *httpcode = atoi((char *)(buffer + i + 1));
142
        /* switch all headers to low-case so it is easier to parse them */
143
        for (i = 0; i < hdlen; i++) if ((buffer[i] >= 'A') && (buffer[i] <= 'Z')) buffer[i] += ('a' - 'A');
144
        /* look out for chunked transfer encoding */
145
        {
146
        char *lineptr = strstr((char *)buffer, "\ntransfer-encoding:");
147
        if (lineptr != NULL) {
148
          lineptr += 19;
149
          /* replace nearest \r, \n or 0 by 0 */
150
          for (i = 0; ; i++) {
151
            if ((lineptr[i] == '\r') || (lineptr[i] == '\n') || (lineptr[i] == 0)) {
152
              lineptr[i] = 0;
153
              break;
154
            }
155
          }
156
          /* do I see the 'chunked' word? */
157
          if (strstr((char *)lineptr, "chunked") != NULL) *ischunked = 1;
158
        }
159
        }
338 mateuszvis 160
        /* rewind the buffer */
161
        bufflen -= hdlen;
162
        memmove(buffer, buffer + hdlen, bufflen);
163
        return(bufflen); /* move to body processing now */
164
      }
165
 
166
    } else if (byteread < 0) { /* abort on error */
167
      return(-2); /* unexpected end of connection (while waiting for all http headers) */
168
 
169
    } else { /* else no data received - look for timeout and release a cpu cycle */
170
      if (time(NULL) - starttime > 20) return(-3); /* TIMEOUT! */
171
      _asm int 28h; /* release a CPU cycle */
172
    }
173
  }
174
}
175
 
176
 
342 mateuszvis 177
/* provides body data of the POST query for checkup actions
178
   fills buff with data and returns data length.
179
   must be called repeateadly until zero-lengh is returned */
180
static unsigned short checkupdata(char *buff) {
344 mateuszvis 181
  static char *dosdir = NULL;
182
  static DIR *dp;
183
  static struct dirent *ep;
184
 
185
  /* make sure I know %DOSDIR% */
186
  if (dosdir == NULL) {
187
    dosdir = getenv("DOSDIR");
188
    if ((dosdir == NULL) || (dosdir[0] == 0)) {
189
      puts("ERROR: %DOSDIR% not set");
190
      return(0);
191
    }
192
  }
193
 
194
  /* if first call, open the package directory */
195
  if (dp == NULL) {
196
    sprintf(buff, "%s\\packages", dosdir);
197
    dp = opendir(buff);
198
    if (dp == NULL) {
199
      puts("ERROR: Could not access %DOSDIR%\\packages directory");
200
      return(0);
201
    }
202
  }
203
 
204
  for (;;) {
205
    int tlen;
347 mateuszvis 206
    char ver[20];
344 mateuszvis 207
    ep = readdir(dp);   /* readdir() result must never be freed (statically allocated) */
208
    if (ep == NULL) {   /* no more entries */
209
      closedir(dp);
210
      return(0);
211
    }
212
 
213
    tlen = strlen(ep->d_name);
214
    if (tlen < 4) continue; /* files must be at least 5 bytes long ("x.lst") */
215
    if (strcasecmp(ep->d_name + tlen - 4, ".lst") != 0) continue;  /* if not an .lst file, skip it silently */
216
    ep->d_name[tlen - 4] = 0; /* trim out the ".lst" suffix */
217
 
218
    /* load the metadata from %DOSDIR\APPINFO\*.lsm */
219
    sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, ep->d_name);
220
    readlsm(buff, ver, sizeof(ver));
221
 
346 mateuszvis 222
    return(sprintf(buff, "%s\t%s\n", ep->d_name, ver));
344 mateuszvis 223
  }
342 mateuszvis 224
}
225
 
226
 
211 mateuszvis 227
/* fetch http data from ipaddr using url
228
 * write result to file outfname if not null, or print to stdout otherwise
229
 * fills bsum with the BSD sum of the data
342 mateuszvis 230
 * is ispost is non-zero, then the request is a POST and its body data is
231
 * obtained through repeated calls to checkupdata()
211 mateuszvis 232
 * returns the length of data obtained, or neg value on error */
342 mateuszvis 233
static long htget(const char *ipaddr, const char *url, const char *outfname, unsigned short *bsum, int ispost, unsigned char *buffer, size_t buffersz) {
211 mateuszvis 234
  struct net_tcpsocket *sock;
327 mateuszvis 235
  time_t lastactivity, lastprogressoutput = 0;
342 mateuszvis 236
  int httpcode = -1, ischunked = 0;
338 mateuszvis 237
  int byteread;
332 mateuszvis 238
  long flen = 0, lastflen = 0;
209 mateuszvis 239
  FILE *fd = NULL;
207 mateuszvis 240
 
342 mateuszvis 241
  /* unchunk state variable is using a little part of the supplied buffer */
242
  struct unchunk_state *unchstate = (void *)buffer;
243
  buffer += sizeof(*unchstate);
244
  buffersz -= sizeof(*unchstate);
245
  memset(unchstate, 0, sizeof(*unchstate));
246
 
211 mateuszvis 247
  sock = net_connect(ipaddr, 80);
207 mateuszvis 248
  if (sock == NULL) {
249
    puts("ERROR: failed to connect to " HOSTADDR);
250
    goto SHITQUIT;
251
  }
252
 
253
  /* wait for net_connect() to actually connect */
254
  for (;;) {
329 mateuszvis 255
    int connstate = net_isconnected(sock);
207 mateuszvis 256
    if (connstate > 0) break;
257
    if (connstate < 0) {
258
      puts("ERROR: connection error");
259
      goto SHITQUIT;
260
    }
211 mateuszvis 261
    _asm int 28h;  /* DOS idle */
207 mateuszvis 262
  }
263
 
330 mateuszvis 264
  /* socket is connected - send the http request (MUST be HTTP/1.0 because I do not support chunked transfers!) */
342 mateuszvis 265
  if (ispost) {
266
    snprintf((char *)buffer, buffersz, "POST %s HTTP/1.1\r\nHOST: " HOSTADDR "\r\nUSER-AGENT: pkgnet/" PVER "\r\nTransfer-Encoding: chunked\r\nConnection: close\r\n\r\n", url);
267
  } else {
268
    snprintf((char *)buffer, buffersz, "GET %s HTTP/1.1\r\nHOST: " HOSTADDR "\r\nUSER-AGENT: pkgnet/" PVER "\r\nConnection: close\r\n\r\n", url);
269
  }
207 mateuszvis 270
 
329 mateuszvis 271
  if (net_send(sock, buffer, strlen((char *)buffer)) != (int)strlen((char *)buffer)) {
207 mateuszvis 272
    puts("ERROR: failed to send HTTP query to remote server");
273
    goto SHITQUIT;
274
  }
275
 
342 mateuszvis 276
  /* send chunked data for POST queries */
277
  if (ispost) {
278
    unsigned short blen;
279
    int hlen;
280
    char *hbuf = (char *)buffer + buffersz - 16;
344 mateuszvis 281
    do {
342 mateuszvis 282
      blen = checkupdata((char *)buffer);
283
      if (blen == 0) { /* last item contains the message trailer */
344 mateuszvis 284
        hlen = sprintf(hbuf, "0\r\n");
342 mateuszvis 285
      } else {
286
        hlen = sprintf(hbuf, "%X\r\n", blen);
287
      }
288
      if (net_send(sock, hbuf, hlen) != hlen) {
289
        puts("ERROR: failed to send POST data to remote server");
290
        goto SHITQUIT;
291
      }
344 mateuszvis 292
      /* add trailing CR/LF to buffer as required by chunked mode */
293
      buffer[blen++] = '\r';
294
      buffer[blen++] = '\n';
342 mateuszvis 295
      if (net_send(sock, buffer, blen) != blen) {
296
        puts("ERROR: failed to send POST data to remote server");
297
        goto SHITQUIT;
298
      }
344 mateuszvis 299
    } while (blen != 2);
342 mateuszvis 300
  }
301
 
338 mateuszvis 302
  /* receive and process HTTP headers */
342 mateuszvis 303
  byteread = htget_headers(buffer, buffersz, sock, &httpcode, &ischunked);
207 mateuszvis 304
 
338 mateuszvis 305
  /* transmission error? */
306
  if (byteread < 0) {
307
    printf("ERROR: communication error (%d)", byteread);
308
    puts("");
309
    goto SHITQUIT;
310
  }
207 mateuszvis 311
 
338 mateuszvis 312
  /* open destination file if required and if no server-side error occured */
342 mateuszvis 313
  if ((httpcode >= 200) && (httpcode <= 299) && (*outfname != 0)) {
338 mateuszvis 314
    fd = fopen(outfname, "wb");
315
    if (fd == NULL) {
316
      printf("ERROR: failed to create file %s", outfname);
317
      puts("");
318
      goto SHITQUIT;
207 mateuszvis 319
    }
338 mateuszvis 320
  }
207 mateuszvis 321
 
342 mateuszvis 322
  /* read body of the answer (and chunk-decode it if needed) */
338 mateuszvis 323
  lastactivity = time(NULL);
342 mateuszvis 324
  for (;; byteread = net_recv(sock, buffer, buffersz - 1)) { /* read 1 byte less because I need to append a NULL terminator when printf'ing the content */
338 mateuszvis 325
 
326
    if (byteread > 0) { /* got data */
207 mateuszvis 327
      lastactivity = time(NULL);
342 mateuszvis 328
 
329
      /* unpack data if server transmits in chunked mode */
330
      if (ischunked) byteread = unchunk(buffer, byteread, unchstate);
331
 
207 mateuszvis 332
      /* if downloading to file, write stuff to disk */
209 mateuszvis 333
      if (fd != NULL) {
334
        int i;
335
        if (fwrite(buffer, 1, byteread, fd) != byteread) {
336
          printf("ERROR: failed to write data to file %s after %ld bytes", outfname, flen);
337
          puts("");
338
          break;
339
        }
340
        flen += byteread;
327 mateuszvis 341
        /* update progress once a sec */
342
        if (lastprogressoutput != lastactivity) {
343
          lastprogressoutput = lastactivity;
333 mateuszvis 344
          printf("%ld KiB (%ld KiB/s)     \r", flen >> 10, (flen >> 10) - (lastflen >> 10)); /* trailing spaces are meant to avoid leaving garbage on screen if speed goes from, say, 1000 KiB/s to 9 KiB/s */
332 mateuszvis 345
          lastflen = flen;
346
          fflush(stdout); /* avoid console buffering */
327 mateuszvis 347
        }
209 mateuszvis 348
        /* update the bsd sum */
349
        for (i = 0; i < byteread; i++) {
350
          /* rotr16 */
211 mateuszvis 351
          unsigned short bsumlsb = *bsum & 1;
352
          *bsum >>= 1;
353
          *bsum |= (bsumlsb << 15);
354
          *bsum += buffer[i];
209 mateuszvis 355
        }
356
      } else { /* otherwise dump to screen */
342 mateuszvis 357
        buffer[byteread] = 0;
209 mateuszvis 358
        printf("%s", buffer);
359
      }
338 mateuszvis 360
 
361
    } else if (byteread < 0) { /* end of connection */
362
      break;
363
 
364
    } else { /* check for timeout (byteread == 0) */
365
      if (time(NULL) - lastactivity > 20) { /* TIMEOUT! */
366
        puts("ERROR: Timeout while waiting for data");
367
        goto SHITQUIT;
368
      }
369
      /* waiting for packets - release a CPU cycle in the meantime */
370
      _asm int 28h;
207 mateuszvis 371
    }
372
  }
373
 
338 mateuszvis 374
  goto ALLGOOD;
375
 
211 mateuszvis 376
  SHITQUIT:
338 mateuszvis 377
  flen = -1;
378
 
379
  ALLGOOD:
380
  if (fd != NULL) fclose(fd);
333 mateuszvis 381
  net_close(sock);
338 mateuszvis 382
  return(flen);
211 mateuszvis 383
}
384
 
385
 
386
/* checks if file exists, returns 0 if not, non-zero otherwise */
387
static int fexists(const char *fname) {
388
  FILE *fd = fopen(fname, "rb");
389
  if (fd == NULL) return(0);
390
  fclose(fd);
391
  return(1);
392
}
393
 
394
 
395
int main(int argc, char **argv) {
396
  unsigned short bsum = 0;
397
  long flen;
342 mateuszvis 398
  int ispost; /* is the request a POST? */
211 mateuszvis 399
 
342 mateuszvis 400
  struct {
401
    unsigned char buffer[5000];
402
    char ipaddr[64];
403
    char url[64];
404
    char outfname[16];
405
  } *mem;
406
 
407
  /* allocate memory */
408
  mem = malloc(sizeof(*mem));
409
  if (mem == NULL) {
410
    puts("ERROR: out of memory");
411
    return(1);
412
  }
413
 
211 mateuszvis 414
  /* parse command line arguments */
342 mateuszvis 415
  if (parseargv(argc, argv, mem->outfname, mem->url, &ispost) != 0) return(1);
211 mateuszvis 416
 
417
  /* if outfname requested, make sure that file does not exist yet */
342 mateuszvis 418
  if ((mem->outfname[0] != 0) && (fexists(mem->outfname))) {
419
    printf("ERROR: file %s already exists", mem->outfname);
211 mateuszvis 420
    puts("");
421
    return(1);
422
  }
423
 
424
  /* init network stack */
425
  if (net_init() != 0) {
426
    puts("ERROR: Network subsystem initialization failed");
427
    return(1);
428
  }
429
 
430
  puts(""); /* required because watt-32 likes to print out garbage sometimes ("configuring through DHCP...") */
431
 
342 mateuszvis 432
  if (net_dnsresolve(mem->ipaddr, HOSTADDR) != 0) {
211 mateuszvis 433
    puts("ERROR: DNS resolution failed");
434
    return(1);
435
  }
436
 
342 mateuszvis 437
  flen = htget(mem->ipaddr, mem->url, mem->outfname, &bsum, ispost, mem->buffer, sizeof(mem->buffer));
211 mateuszvis 438
  if (flen < 1) return(1);
439
 
342 mateuszvis 440
  if (mem->outfname[0] != 0) {
209 mateuszvis 441
    /* print bsum, size, filename */
342 mateuszvis 442
    printf("Downloaded %ld KiB into %s (BSUM: %04X)", flen >> 10, mem->outfname, bsum);
209 mateuszvis 443
    puts("");
444
  }
445
 
207 mateuszvis 446
  return(0);
447
}