git.chise.org Git - chise/xemacs-chise.git.1/blob - netinstall/nio-http.cc

   1 /*
   2  * Copyright (c) 2000, Red Hat, Inc.
   3  *
   4  *     This program is free software; you can redistribute it and/or modify
   5  *     it under the terms of the GNU General Public License as published by
   6  *     the Free Software Foundation; either version 2 of the License, or
   7  *     (at your option) any later version.
   8  *
   9  *     A copy of the GNU General Public License can be found at
  10  *     http://www.gnu.org/
  11  *
  12  * Written by DJ Delorie <dj@cygnus.com>
  13  *
  14  */
  15
  16 /* This file is responsible for implementing all direct HTTP protocol
  17    channels.  It is intentionally simplistic. */
  18
  19 #include "win32.h"
  20 #include "winsock.h"
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23
  24 #include "resource.h"
  25 #include "state.h"
  26 #include "simpsock.h"
  27 #include "msg.h"
  28
  29 #include "netio.h"
  30 #include "nio-http.h"
  31
  32 static char six2pr[64] = {
  33     'A','B','C','D','E','F','G','H','I','J','K','L','M',
  34     'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
  35     'a','b','c','d','e','f','g','h','i','j','k','l','m',
  36     'n','o','p','q','r','s','t','u','v','w','x','y','z',
  37     '0','1','2','3','4','5','6','7','8','9','+','/'
  38 };
  39
  40 static char *
  41 base64_encode (char *username, char *password)
  42 {
  43   unsigned char *ep;
  44   char *rp;
  45   static char *rv = 0;
  46   if (rv)
  47     free (rv);
  48   rv = (char *) malloc (2 * (strlen (username) + strlen (password)) + 5);
  49
  50   char *up = (char *) malloc (strlen (username) + strlen (password) + 6);
  51   strcpy (up, username);
  52   strcat (up, ":");
  53   strcat (up, password);
  54   ep = (unsigned char *)up + strlen (up);
  55   *ep++ = 0;
  56   *ep++ = 0;
  57   *ep++ = 0;
  58
  59   char block[4];
  60
  61   rp = rv;
  62
  63   for (ep = (unsigned char *)up; *ep; ep += 3)
  64     {
  65       block[0] = six2pr[ep[0] >> 2];
  66       block[1] = six2pr[((ep[0] << 4) & 0x30) | ((ep[1] >> 4) & 0x0f)];
  67       block[2] = six2pr[((ep[1] << 2) & 0x3c) | ((ep[2] >> 6) & 0x03)];
  68       block[3] = six2pr[ep[2] & 0x3f];
  69
  70       if (ep[1] == 0)
  71         block[2] = block[3] = '=';
  72       if (ep[2] == 0)
  73         block[3] = '=';
  74       memcpy (rp, block, 4);
  75       rp += 4;
  76     }
  77   *rp = 0;
  78
  79   free (up);
  80
  81   return rv;
  82 }
  83
  84 NetIO_HTTP::NetIO_HTTP (char *Purl)
  85   : NetIO (Purl)
  86 {
  87  retry_get:
  88   if (port == 0)
  89     port = 80;
  90
  91   if (net_method == IDC_NET_PROXY)
  92     s = new SimpleSocket (net_proxy_host, net_proxy_port);
  93   else
  94     s = new SimpleSocket (host, port);
  95
  96   if (!s->ok())
  97     {
  98       s = 0;
  99       return;
 100     }
 101
 102   if (net_method == IDC_NET_PROXY)
 103     s->printf ("GET %s HTTP/1.0\r\n", url);
 104   else
 105     s->printf ("GET %s HTTP/1.0\r\n", path);
 106   s->printf ("Host: %s:%d\r\n", host, port);
 107
 108   if (net_user && net_passwd)
 109     s->printf ("Authorization: Basic %s\r\n",
 110                base64_encode (net_user, net_passwd));
 111
 112   if (net_proxy_user && net_proxy_passwd)
 113     s->printf ("Proxy-Authorization: Basic %s\r\n",
 114                base64_encode (net_proxy_user, net_proxy_passwd));
 115
 116   s->printf ("\r\n");
 117
 118   char *l = s->gets ();
 119   int code;
 120   sscanf (l, "%*s %d", &code);
 121   if (code >= 300 && code < 400)
 122     {
 123       do {
 124         l = s->gets ();
 125         if (_strnicmp (l, "Location:", 9) == 0)
 126           {
 127             char *u = l + 9;
 128             while (*u == ' ' || *u == '\t')
 129               u++;
 130             set_url (u);
 131             delete s;
 132             goto retry_get;
 133           }
 134       } while (*l);
 135     }
 136   if (code == 401) /* authorization required */
 137     {
 138       get_auth ();
 139       delete s;
 140       goto retry_get;
 141     }
 142   if (code == 407) /* proxy authorization required */
 143     {
 144       get_proxy_auth ();
 145       delete s;
 146       goto retry_get;
 147     }
 148   if (code >= 300)
 149     {
 150       delete s;
 151       s = 0;
 152       return;
 153     }
 154   do {
 155     l = s->gets ();
 156     if (_strnicmp (l, "Content-Length:", 15) == 0)
 157       sscanf (l, "%*s %d", &file_size);
 158   } while (*l);
 159 }
 160
 161 NetIO_HTTP::~NetIO_HTTP ()
 162 {
 163   if (s)
 164     delete s;
 165 }
 166
 167 int
 168 NetIO_HTTP::ok ()
 169 {
 170   if (s)
 171     return 1;
 172   return 0;
 173 }
 174
 175 int
 176 NetIO_HTTP::read (char *buf, int nbytes)
 177 {
 178   return s->read (buf, nbytes);
 179 }