Subversion Repositories SvarDOS

/*

 * 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 <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <time.h>

#include "net.h"

#define PVER "20210514"

#define PDATE "2021"

#define HOSTADDR "svardos.osdn.io"

/* strips http headers and returns new buff len */

static int detecthttpheadersend(unsigned char *buff, int len) {

  static char lastbyteislf = 0; /* static because I must potentially remember it for next packet/call */

  int i;

  for (i = 0; i < len; 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! rewind the buffer and return new len */

    i += 1; /* add 1 to skip the current \n character */

    len -= i;

    if (len > 0) memmove(buff, buff + i, len + 1); /* +1 so I catch the string terminator as well */

    return(len);

  }

  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("");

}

/* 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) {

  *outfname = 0;

  *url = 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)) {

    puts("NOT SUPPORTED YET");

    return(-1);

  } else {

    help();

    return(-1);

  }

  return(0);

}

/* 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

 * 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) {

  struct net_tcpsocket *sock;

  unsigned char buffer[4096];

  time_t lastactivity, lastprogressoutput = 0;

  int headersdone = 0;

  int httpcode = -1;

  long flen = 0, lastflen = 0;

  FILE *fd = NULL;

  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!) */

  snprintf((char *)buffer, sizeof(buffer), "GET %s HTTP/1.0\r\nHOST: " HOSTADDR "\r\nUSER-AGENT: pkgnet\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;

  }

  lastactivity = time(NULL);

  for (;;) {

    int byteread = net_recv(sock, buffer, sizeof(buffer) - 1); /* -1 because I will append a NULL terminator */

    if (byteread < 0) break; /* end of connection */

    /*  */

    if (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;

      /* */

      continue;

    }

    if (byteread > 0) {

      buffer[byteread] = 0;

      lastactivity = time(NULL);

      /* do I know the http code yet? */

      if (httpcode < 0) {

        int spc;

        /* find the first space (HTTP/1.1 200 OK) */

        for (spc = 0; spc < 16; spc++) {

          if (buffer[spc] == ' ') break;

          if (buffer[spc] == 0) break;

        }

        if (buffer[spc] == 0) continue; /* not enough data received */

        if (buffer[spc] != ' ') {

          puts("ERROR: server answered with invalid HTTP");

          goto SHITQUIT;

        }

        httpcode = atoi((char *)(buffer + spc + 1));

        /* on error, the answer should be always printed on screen */

        if ((httpcode == 200) && (*outfname != 0)) {

          fd = fopen(outfname, "wb");

          if (fd == NULL) {

            printf("ERROR: failed to create file %s", outfname);

            puts("");

            goto SHITQUIT;

          }

        }

      }

      /* skip headers: look for \r\n\r\n or \n\n within the stream */

      if (headersdone == 0) {

        byteread = detecthttpheadersend(buffer, byteread);

        headersdone = 1;

        if (byteread == 0) continue;

      }

      /* 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 */

        printf("%s", buffer);

      }

    }

  }

  net_close(sock);

  return(flen);

  SHITQUIT:

  net_close(sock);

  return(-1);

}

/* 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) {

  char ipaddr[64];

  char url[64];

  unsigned short bsum = 0;

  char outfname[16];

  long flen;

  /* parse command line arguments */

  if (parseargv(argc, argv, outfname, url) != 0) return(1);

  /* if outfname requested, make sure that file does not exist yet */

  if (fexists(outfname)) {

    printf("ERROR: file %s already exists", 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(ipaddr, HOSTADDR) != 0) {

    puts("ERROR: DNS resolution failed");

    return(1);

  }

  flen = htget(ipaddr, url, outfname, &bsum);

  if (flen < 1) return(1);

  if (*outfname != 0) {

    /* print bsum, size, filename */

    printf("Downloaded %ld KiB into %s (BSUM: %04X)", flen >> 10, outfname, bsum);

    puts("");

  }

  return(0);

}