WebSVN – SvarDOS – Diff – /pkgnet/pkgnet.c


/*
 * pkgnet - pulls SvarDOS packages from the project's online repository
 * Copyright (C) 2021 Mateusz Viste
 *
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
 *
 * COPYRIGHT (C) 2016-2021 MATEUSZ VISTE, ALL RIGHTS RESERVED.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 *
 * http://svardos.osdn.io
 */
 
#include <direct.h> /* opendir() and friends */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
 
#include "net.h"
#include "unchunk.h"
 
#include "../pkg/lsm.h"
 
 
#define PVER "20210903"
#define PDATE "2021"
 
#define HOSTADDR "svardos.osdn.io"
 
 
/* returns length of all http headers, or 0 if uncomplete yet */
static unsigned short detecthttpheadersend(const unsigned char *buff) {
  char lastbyteislf = 0;
  unsigned short i;
  for (i = 0; buff[i] != 0; i++) {
    if (buff[i] == '\r') continue; /* ignore CR characters */
    if (buff[i] != '\n') {
      lastbyteislf = 0;
      continue;
    }
    /* cur byte is LF -> if last one was also LF then this is an empty line, meaning headers are over */
    if (lastbyteislf == 0) {
      lastbyteislf = 1;
      continue;
    }
    /* end of headers! return length of headers */
    return(i + 1); /* add 1 to skip the current \n character */
  }
  return(0);
}
 
 
static void help(void) {
  puts("pkgnet ver " PVER " -- Copyright (C) " PDATE " Mateusz Viste");
  puts("");
  puts("pkgnet is the SvarDOS package downloader.");
  puts("");
  puts("usage:  pkgnet search <term>");
  puts("        pkgnet pull <package>");
  puts("        pkgnet checkup");
  puts("");
  puts("actions:");
  puts(" search   - asks remote repository for the list of matching packages");
  puts(" pull     - downloads package into current directory");
  puts(" checkup  - lists updates available for your system");
  puts("");
  printf("Watt32 kernel: %s", net_engine());
  puts("");
  puts("");
}
 
 
/* parses command line arguments and fills outfname and url accordingly
 * returns 0 on success, non-zero otherwise */
static int parseargv(int argc, char * const *argv, char *outfname, char *url, int *ispost) {
  *outfname = 0;
  *url = 0;
  *ispost = 0;
  if ((argc == 3) && (strcasecmp(argv[1], "search") == 0)) {
    sprintf(url, "/repo/?a=search&p=%s", argv[2]);
  } else if ((argc == 3) && (strcasecmp(argv[1], "pull") == 0)) {
    if ((strlen(argv[2]) > 8) || (argv[2][0] == 0)) {
      puts("ERROR: package name must be 8 characters maximum");
      return(-1);
    }
    sprintf(url, "/repo/?a=pull&p=%s", argv[2]);
    sprintf(outfname, "%s.zip", argv[2]);
  } else if ((argc == 2) && (strcasecmp(argv[1], "checkup") == 0)) {
    sprintf(url, "/repo/?a=checkup");
    *ispost = 1;
  } else {
    help();
    return(-1);
  }
  return(0);
}
 
 
static int htget_headers(unsigned char *buffer, size_t buffersz, struct net_tcpsocket *sock, int *httpcode, int *ischunked)  {
  unsigned char *buffptr = buffer;
  unsigned short bufflen = 0;
  int byteread;
  time_t starttime = time(NULL);
  for (;;) {
    byteread = net_recv(sock, buffptr, buffersz - (bufflen + 1)); /* -1 because I will append a NULL terminator */
 
    if (byteread > 0) { /* got data */
      int hdlen;
      bufflen += byteread;
      buffptr += byteread;
      buffer[bufflen] = 0;
      hdlen = detecthttpheadersend(buffer);
      if (hdlen > 0) { /* full headers - parse http code and continue processing */
        int i;
        buffer[hdlen - 1] = 0;
        /* find the first space (HTTP/1.1 200 OK) */
        for (i = 0; i < 16; i++) {
          if ((buffer[i] == ' ') || (buffer[i] == 0)) break;
        }
        if (buffer[i] != ' ') return(-1);
        *httpcode = atoi((char *)(buffer + i + 1));
        /* switch all headers to low-case so it is easier to parse them */
        for (i = 0; i < hdlen; i++) if ((buffer[i] >= 'A') && (buffer[i] <= 'Z')) buffer[i] += ('a' - 'A');
        /* look out for chunked transfer encoding */
        {
        char *lineptr = strstr((char *)buffer, "\ntransfer-encoding:");
        if (lineptr != NULL) {
          lineptr += 19;
          /* replace nearest \r, \n or 0 by 0 */
          for (i = 0; ; i++) {
            if ((lineptr[i] == '\r') || (lineptr[i] == '\n') || (lineptr[i] == 0)) {
              lineptr[i] = 0;
              break;
            }
          }
          /* do I see the 'chunked' word? */
          if (strstr((char *)lineptr, "chunked") != NULL) *ischunked = 1;
        }
        }
        /* rewind the buffer */
        bufflen -= hdlen;
        memmove(buffer, buffer + hdlen, bufflen);
        return(bufflen); /* move to body processing now */
      }
 
    } else if (byteread < 0) { /* abort on error */
      return(-2); /* unexpected end of connection (while waiting for all http headers) */
 
    } else { /* else no data received - look for timeout and release a cpu cycle */
      if (time(NULL) - starttime > 20) return(-3); /* TIMEOUT! */
      _asm int 28h; /* release a CPU cycle */
    }
  }
}
 
 
/* provides body data of the POST query for checkup actions
   fills buff with data and returns data length.
   must be called repeateadly until zero-lengh is returned */
static unsigned short checkupdata(char *buff) {
  static char *dosdir = NULL;
  static DIR *dp;
  static struct dirent *ep;
 
  /* make sure I know %DOSDIR% */
  if (dosdir == NULL) {
    dosdir = getenv("DOSDIR");
    if ((dosdir == NULL) || (dosdir[0] == 0)) {
      puts("ERROR: %DOSDIR% not set");
      return(0);
    }
  }
 
  /* if first call, open the package directory */
  if (dp == NULL) {
    sprintf(buff, "%s\\packages", dosdir);
    dp = opendir(buff);
    if (dp == NULL) {
      puts("ERROR: Could not access %DOSDIR%\\packages directory");
      return(0);
    }
  }
 
  for (;;) {
    int tlen;
    char ver[20];
    ep = readdir(dp);   /* readdir() result must never be freed (statically allocated) */
    if (ep == NULL) {   /* no more entries */
      closedir(dp);
      return(0);
    }
 
    tlen = strlen(ep->d_name);
    if (tlen < 4) continue; /* files must be at least 5 bytes long ("x.lst") */
    if (strcasecmp(ep->d_name + tlen - 4, ".lst") != 0) continue;  /* if not an .lst file, skip it silently */
    ep->d_name[tlen - 4] = 0; /* trim out the ".lst" suffix */
 
    /* load the metadata from %DOSDIR\APPINFO\*.lsm */
    sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, ep->d_name);
    readlsm(buff, ver, sizeof(ver));
 
    return(sprintf(buff, "%s\t%s\n", ep->d_name, ver));
  }
}
 
 
/* fetch http data from ipaddr using url
 * write result to file outfname if not null, or print to stdout otherwise
 * fills bsum with the BSD sum of the data
 * is ispost is non-zero, then the request is a POST and its body data is
 * obtained through repeated calls to checkupdata()
 * returns the length of data obtained, or neg value on error */
static long htget(const char *ipaddr, const char *url, const char *outfname, unsigned short *bsum, int ispost, unsigned char *buffer, size_t buffersz) {
  struct net_tcpsocket *sock;
  time_t lastactivity, lastprogressoutput = 0;
  int httpcode = -1, ischunked = 0;
  int byteread;
  long flen = 0, lastflen = 0;
  FILE *fd = NULL;
 
  /* unchunk state variable is using a little part of the supplied buffer */
  struct unchunk_state *unchstate = (void *)buffer;
  buffer += sizeof(*unchstate);
  buffersz -= sizeof(*unchstate);
  memset(unchstate, 0, sizeof(*unchstate));
 
  sock = net_connect(ipaddr, 80);
  if (sock == NULL) {
    puts("ERROR: failed to connect to " HOSTADDR);
    goto SHITQUIT;
  }
 
  /* wait for net_connect() to actually connect */
  for (;;) {
    int connstate = net_isconnected(sock);
    if (connstate > 0) break;
    if (connstate < 0) {
      puts("ERROR: connection error");
      goto SHITQUIT;
    }
    _asm int 28h;  /* DOS idle */
  }
 
  /* socket is connected - send the http request (MUST be HTTP/1.0 because I do not support chunked transfers!) */
  if (ispost) {
    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);
  } else {
    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);
  }
 
  if (net_send(sock, buffer, strlen((char *)buffer)) != (int)strlen((char *)buffer)) {
    puts("ERROR: failed to send HTTP query to remote server");
    goto SHITQUIT;
  }
 
  /* send chunked data for POST queries */
  if (ispost) {
    unsigned short blen;
    int hlen;
    char *hbuf = (char *)buffer + buffersz - 16;
    do {
      blen = checkupdata((char *)buffer);
      if (blen == 0) { /* last item contains the message trailer */
        hlen = sprintf(hbuf, "0\r\n");
      } else {
        hlen = sprintf(hbuf, "%X\r\n", blen);
      }
      if (net_send(sock, hbuf, hlen) != hlen) {
        puts("ERROR: failed to send POST data to remote server");
        goto SHITQUIT;
      }
      /* add trailing CR/LF to buffer as required by chunked mode */
      buffer[blen++] = '\r';
      buffer[blen++] = '\n';
      if (net_send(sock, buffer, blen) != blen) {
        puts("ERROR: failed to send POST data to remote server");
        goto SHITQUIT;
      }
    } while (blen != 2);
  }
 
  /* receive and process HTTP headers */
  byteread = htget_headers(buffer, buffersz, sock, &httpcode, &ischunked);
 
  /* transmission error? */
  if (byteread < 0) {
    printf("ERROR: communication error (%d)", byteread);
    puts("");
    goto SHITQUIT;
  }
 
  /* open destination file if required and if no server-side error occured */
  if ((httpcode >= 200) && (httpcode <= 299) && (*outfname != 0)) {
    fd = fopen(outfname, "wb");
    if (fd == NULL) {
      printf("ERROR: failed to create file %s", outfname);
      puts("");
      goto SHITQUIT;
    }
  }
 
  /* read body of the answer (and chunk-decode it if needed) */
  lastactivity = time(NULL);
  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 */
 
    if (byteread > 0) { /* got data */
      lastactivity = time(NULL);
 
      /* unpack data if server transmits in chunked mode */
      if (ischunked) byteread = unchunk(buffer, byteread, unchstate);
 
      /* if downloading to file, write stuff to disk */
      if (fd != NULL) {
        int i;
        if (fwrite(buffer, 1, byteread, fd) != byteread) {
          printf("ERROR: failed to write data to file %s after %ld bytes", outfname, flen);
          puts("");
          break;
        }
        flen += byteread;
        /* update progress once a sec */
        if (lastprogressoutput != lastactivity) {
          lastprogressoutput = lastactivity;
          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 */
          lastflen = flen;
          fflush(stdout); /* avoid console buffering */
        }
        /* update the bsd sum */
        for (i = 0; i < byteread; i++) {
          /* rotr16 */
          unsigned short bsumlsb = *bsum & 1;
          *bsum >>= 1;
          *bsum |= (bsumlsb << 15);
          *bsum += buffer[i];
        }
      } else { /* otherwise dump to screen */
        buffer[byteread] = 0;
        printf("%s", buffer);
      }
 
    } else if (byteread < 0) { /* end of connection */
      break;
 
    } else { /* check for timeout (byteread == 0) */
      if (time(NULL) - lastactivity > 20) { /* TIMEOUT! */
        puts("ERROR: Timeout while waiting for data");
        goto SHITQUIT;
      }
      /* waiting for packets - release a CPU cycle in the meantime */
      _asm int 28h;
    }
  }
 
  goto ALLGOOD;
 
  SHITQUIT:
  flen = -1;
 
  ALLGOOD:
  if (fd != NULL) fclose(fd);
  net_close(sock);
  return(flen);
}
 
 
/* checks if file exists, returns 0 if not, non-zero otherwise */
static int fexists(const char *fname) {
  FILE *fd = fopen(fname, "rb");
  if (fd == NULL) return(0);
  fclose(fd);
  return(1);
}
 
 
int main(int argc, char **argv) {
  unsigned short bsum = 0;
  long flen;
  int ispost; /* is the request a POST? */
 
  struct {
    unsigned char buffer[5000];
    char ipaddr[64];
    char url[64];
    char outfname[16];
  } *mem;
 
  /* allocate memory */
  mem = malloc(sizeof(*mem));
  if (mem == NULL) {
    puts("ERROR: out of memory");
    return(1);
  }
 
  /* parse command line arguments */
  if (parseargv(argc, argv, mem->outfname, mem->url, &ispost) != 0) return(1);
 
  /* if outfname requested, make sure that file does not exist yet */
  if ((mem->outfname[0] != 0) && (fexists(mem->outfname))) {
    printf("ERROR: file %s already exists", mem->outfname);
    puts("");
    return(1);
  }
 
  /* init network stack */
  if (net_init() != 0) {
    puts("ERROR: Network subsystem initialization failed");
    return(1);
  }
 
  puts(""); /* required because watt-32 likes to print out garbage sometimes ("configuring through DHCP...") */
 
  if (net_dnsresolve(mem->ipaddr, HOSTADDR) != 0) {
    puts("ERROR: DNS resolution failed");
    return(1);
  }
 
  flen = htget(mem->ipaddr, mem->url, mem->outfname, &bsum, ispost, mem->buffer, sizeof(mem->buffer));
  if (flen < 1) return(1);
 
  if (mem->outfname[0] != 0) {
    /* print bsum, size, filename */
    printf("Downloaded %ld KiB into %s (BSUM: %04X)", flen >> 10, mem->outfname, bsum);
    puts("");
  }
 
  return(0);
}
 

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

Subversion Repositories SvarDOS

(root)/pkgnet/pkgnet.c – Rev 346 → 347