2 files changed, 366 insertions, 0 deletions

diff --git a/release/sysinstall/http.c b/release/sysinstall/http.c
new file mode 100644
index 000000000000..0fcf15985bf7
--- /dev/null
+++ b/release/sysinstall/http.c
@@ -0,0 +1,183 @@
+#include "sysinstall.h"
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include <sys/param.h>
+#include <netdb.h>
+
+int HttpPort;
+
+Boolean
+mediaInitHTTP(Device *dev)
+{
+/* 
+ * Some proxies think that files with the extension ".ai" are postscript
+ * files and use "ascii mode" instead of "binary mode" for ftp.
+ * The FTP server then translates all LF to CRLF.
+ * I don't know how to handle this elegantly...
+ * Squid uses ascii mode, ftpget uses binary mode and both tell us:
+ * "Content-Type: application/postscript"
+ *
+ * Probably the safest way would be to get the file, look at its checksum
+ * and, if it doesn't match, replace all CRLF by LF and check again.
+ *
+ * You can force Squid to use binary mode by appending ";type=i" to the URL,
+ * which is what I do here.
+ *
+ */
+
+    extern int h_errno;
+    int rv,s;
+    bool el;                    /* end of header line */
+    char *cp, buf[PATH_MAX], req[1000];
+    struct sockaddr_in peer;
+    struct hostent *peer_in;
+
+    s=socket(PF_INET, SOCK_STREAM, 6);    /* tcp */
+    if (s == -1) {
+      msgConfirm("Network error");
+      return FALSE;
+    }
+
+    peer_in=gethostbyname(variable_get(VAR_HTTP_HOST));
+    if (peer_in == NULL) {
+      msgConfirm("%s",hstrerror(h_errno));
+      return FALSE;
+    }
+
+    peer.sin_len=peer_in->h_length;
+    peer.sin_family=peer_in->h_addrtype;
+    peer.sin_port=htons((u_short) HttpPort);
+    bcopy(peer_in->h_addr_list[0], &peer.sin_addr, peer_in->h_length);
+
+    rv=connect(s,(struct sockaddr *)&peer,sizeof(peer));
+    if (rv == -1) {
+      msgConfirm("Couldn't connect to proxy %s:%s",
+                  variable_get(VAR_HTTP_HOST),variable_get(VAR_FTP_PORT));
+      return FALSE;
+    }
+
+    sprintf(req,"GET / HTTP/1.0\r\n\r\n");
+    write(s,req,strlen(req));
+/*
+ *  scan the headers of the response
+ *  this is extremely quick'n dirty
+ *
+ */
+    cp=buf;
+    el=FALSE;
+    rv=read(s,cp,1);
+    variable_set2(VAR_HTTP_FTP_MODE,"",0);
+    while (rv>0) {
+      if ((*cp == '\012') && el) { 
+        /* reached end of a header line */
+        if (!strncmp(buf,"Server: ",8)) {
+          if (!strncmp(buf,"Server: Squid",13)) {
+            variable_set2(VAR_HTTP_FTP_MODE,";type=i",1);
+          } else {
+            variable_set2(VAR_HTTP_FTP_MODE,"",1);
+          }
+        }
+        /* ignore other headers */
+        /* check for "\015\012" at beginning of line, i.e. end of headers */
+        if ((cp-buf) == 1)
+          break;
+        cp=buf;
+        rv=read(s,cp,1);
+      } else {
+        el=FALSE;
+        if (*cp == '\015')
+          el=TRUE;
+        cp++;
+        rv=read(s,cp,1);
+      }
+    }
+    close(s);
+    return TRUE;
+} 
+
+
+FILE *
+mediaGetHTTP(Device *dev, char *file, Boolean probe)
+{
+    FILE *fp;
+    int rv,s;
+    bool el;			/* end of header line */
+    char *cp, buf[PATH_MAX], req[1000];
+    struct sockaddr_in peer;
+    struct hostent *peer_in;
+
+    s=socket(PF_INET, SOCK_STREAM, 6);    /* tcp */
+    if (s == -1) {
+      msgConfirm("Network error");
+      return NULL;
+    }
+      
+    peer_in=gethostbyname(variable_get(VAR_HTTP_HOST));
+    peer.sin_len=peer_in->h_length;
+    peer.sin_family=peer_in->h_addrtype;
+    peer.sin_port=htons((u_short) HttpPort);
+    bcopy(peer_in->h_addr_list[0], &peer.sin_addr, peer_in->h_length);
+
+    rv=connect(s,(struct sockaddr *)&peer,sizeof(peer));
+    if (rv == -1) {
+      msgConfirm("Couldn't connect to proxy %s:%s",
+                  variable_get(VAR_HTTP_HOST),variable_get(VAR_FTP_PORT));
+      return NULL;
+    }
+                                                   
+    sprintf(req,"GET ftp://%s:%s%s%s/%s%s HTTP/1.0\r\n\r\n",
+            variable_get(VAR_FTP_HOST), variable_get(VAR_FTP_PORT),
+            "/pub/FreeBSD/", variable_get(VAR_RELNAME),
+            file,variable_get(VAR_HTTP_FTP_MODE));
+    msgDebug("sending http request: %s",req);
+    write(s,req,strlen(req));
+
+/*
+ *  scan the headers of the response
+ *  this is extremely quick'n dirty
+ *
+ */
+    cp=buf;
+    el=FALSE;
+    rv=read(s,cp,1);
+    while (rv>0) {
+      if ((*cp == '\012') && el) {
+        /* reached end of a header line */
+        if (!strncmp(buf,"HTTP",4)) {
+          rv=strtol((char *)(buf+9),0,0);
+          *(cp-1)='\0';		/* chop the CRLF off */
+          if (rv >= 500) {
+            msgConfirm("Server error %s, you could try an other server",buf);
+            return NULL;
+          } else if (rv == 404) {
+            msgConfirm("%s was not found, maybe directory or release-version are wrong?",req);
+            return NULL;
+          } else if (rv >= 400) {
+            msgConfirm("Client error %s, you could try an other server",buf);
+            return NULL;
+          } else if (rv >= 300) {
+            msgConfirm("Error %s,",buf);
+            return NULL;
+          } else if (rv != 200) {
+            msgConfirm("Error %s when trying to fetch %s",buf,req);
+            return NULL;
+          }
+        }
+        /* ignore other headers */
+        /* check for "\015\012" at beginning of line, i.e. end of headers */
+        if ((cp-buf) == 1) 
+          break;
+        cp=buf;
+        rv=read(s,cp,1);
+      } else {
+        el=FALSE;
+        if (*cp == '\015')
+          el=TRUE;
+        cp++;
+        rv=read(s,cp,1);
+      }
+    }
+    fp=fdopen(s,"r");
+    return fp;
+}
diff --git a/usr.sbin/sysinstall/http.c b/usr.sbin/sysinstall/http.c
new file mode 100644
index 000000000000..0fcf15985bf7
--- /dev/null
+++ b/usr.sbin/sysinstall/http.c
@@ -0,0 +1,183 @@
+#include "sysinstall.h"
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include <sys/param.h>
+#include <netdb.h>
+
+int HttpPort;
+
+Boolean
+mediaInitHTTP(Device *dev)
+{
+/* 
+ * Some proxies think that files with the extension ".ai" are postscript
+ * files and use "ascii mode" instead of "binary mode" for ftp.
+ * The FTP server then translates all LF to CRLF.
+ * I don't know how to handle this elegantly...
+ * Squid uses ascii mode, ftpget uses binary mode and both tell us:
+ * "Content-Type: application/postscript"
+ *
+ * Probably the safest way would be to get the file, look at its checksum
+ * and, if it doesn't match, replace all CRLF by LF and check again.
+ *
+ * You can force Squid to use binary mode by appending ";type=i" to the URL,
+ * which is what I do here.
+ *
+ */
+
+    extern int h_errno;
+    int rv,s;
+    bool el;                    /* end of header line */
+    char *cp, buf[PATH_MAX], req[1000];
+    struct sockaddr_in peer;
+    struct hostent *peer_in;
+
+    s=socket(PF_INET, SOCK_STREAM, 6);    /* tcp */
+    if (s == -1) {
+      msgConfirm("Network error");
+      return FALSE;
+    }
+
+    peer_in=gethostbyname(variable_get(VAR_HTTP_HOST));
+    if (peer_in == NULL) {
+      msgConfirm("%s",hstrerror(h_errno));
+      return FALSE;
+    }
+
+    peer.sin_len=peer_in->h_length;
+    peer.sin_family=peer_in->h_addrtype;
+    peer.sin_port=htons((u_short) HttpPort);
+    bcopy(peer_in->h_addr_list[0], &peer.sin_addr, peer_in->h_length);
+
+    rv=connect(s,(struct sockaddr *)&peer,sizeof(peer));
+    if (rv == -1) {
+      msgConfirm("Couldn't connect to proxy %s:%s",
+                  variable_get(VAR_HTTP_HOST),variable_get(VAR_FTP_PORT));
+      return FALSE;
+    }
+
+    sprintf(req,"GET / HTTP/1.0\r\n\r\n");
+    write(s,req,strlen(req));
+/*
+ *  scan the headers of the response
+ *  this is extremely quick'n dirty
+ *
+ */
+    cp=buf;
+    el=FALSE;
+    rv=read(s,cp,1);
+    variable_set2(VAR_HTTP_FTP_MODE,"",0);
+    while (rv>0) {
+      if ((*cp == '\012') && el) { 
+        /* reached end of a header line */
+        if (!strncmp(buf,"Server: ",8)) {
+          if (!strncmp(buf,"Server: Squid",13)) {
+            variable_set2(VAR_HTTP_FTP_MODE,";type=i",1);
+          } else {
+            variable_set2(VAR_HTTP_FTP_MODE,"",1);
+          }
+        }
+        /* ignore other headers */
+        /* check for "\015\012" at beginning of line, i.e. end of headers */
+        if ((cp-buf) == 1)
+          break;
+        cp=buf;
+        rv=read(s,cp,1);
+      } else {
+        el=FALSE;
+        if (*cp == '\015')
+          el=TRUE;
+        cp++;
+        rv=read(s,cp,1);
+      }
+    }
+    close(s);
+    return TRUE;
+} 
+
+
+FILE *
+mediaGetHTTP(Device *dev, char *file, Boolean probe)
+{
+    FILE *fp;
+    int rv,s;
+    bool el;			/* end of header line */
+    char *cp, buf[PATH_MAX], req[1000];
+    struct sockaddr_in peer;
+    struct hostent *peer_in;
+
+    s=socket(PF_INET, SOCK_STREAM, 6);    /* tcp */
+    if (s == -1) {
+      msgConfirm("Network error");
+      return NULL;
+    }
+      
+    peer_in=gethostbyname(variable_get(VAR_HTTP_HOST));
+    peer.sin_len=peer_in->h_length;
+    peer.sin_family=peer_in->h_addrtype;
+    peer.sin_port=htons((u_short) HttpPort);
+    bcopy(peer_in->h_addr_list[0], &peer.sin_addr, peer_in->h_length);
+
+    rv=connect(s,(struct sockaddr *)&peer,sizeof(peer));
+    if (rv == -1) {
+      msgConfirm("Couldn't connect to proxy %s:%s",
+                  variable_get(VAR_HTTP_HOST),variable_get(VAR_FTP_PORT));
+      return NULL;
+    }
+                                                   
+    sprintf(req,"GET ftp://%s:%s%s%s/%s%s HTTP/1.0\r\n\r\n",
+            variable_get(VAR_FTP_HOST), variable_get(VAR_FTP_PORT),
+            "/pub/FreeBSD/", variable_get(VAR_RELNAME),
+            file,variable_get(VAR_HTTP_FTP_MODE));
+    msgDebug("sending http request: %s",req);
+    write(s,req,strlen(req));
+
+/*
+ *  scan the headers of the response
+ *  this is extremely quick'n dirty
+ *
+ */
+    cp=buf;
+    el=FALSE;
+    rv=read(s,cp,1);
+    while (rv>0) {
+      if ((*cp == '\012') && el) {
+        /* reached end of a header line */
+        if (!strncmp(buf,"HTTP",4)) {
+          rv=strtol((char *)(buf+9),0,0);
+          *(cp-1)='\0';		/* chop the CRLF off */
+          if (rv >= 500) {
+            msgConfirm("Server error %s, you could try an other server",buf);
+            return NULL;
+          } else if (rv == 404) {
+            msgConfirm("%s was not found, maybe directory or release-version are wrong?",req);
+            return NULL;
+          } else if (rv >= 400) {
+            msgConfirm("Client error %s, you could try an other server",buf);
+            return NULL;
+          } else if (rv >= 300) {
+            msgConfirm("Error %s,",buf);
+            return NULL;
+          } else if (rv != 200) {
+            msgConfirm("Error %s when trying to fetch %s",buf,req);
+            return NULL;
+          }
+        }
+        /* ignore other headers */
+        /* check for "\015\012" at beginning of line, i.e. end of headers */
+        if ((cp-buf) == 1) 
+          break;
+        cp=buf;
+        rv=read(s,cp,1);
+      } else {
+        el=FALSE;
+        if (*cp == '\015')
+          el=TRUE;
+        cp++;
+        rv=read(s,cp,1);
+      }
+    }
+    fp=fdopen(s,"r");
+    return fp;
+}