psyced/world/net/http/library.i

179 lines
3.9 KiB
OpenEdge ABL

// vim:noexpandtab:syntax=lpc
// $Id: library.i,v 1.38 2008/04/08 23:12:16 lynx Exp $
//
// HTTP function library -lynx
//
// (extension to "simul_efun")
#include <net.h>
#include <services.h>
#include "driver.h"
//#include CONFIG_PATH "ports.h"
#include "ht/http.h"
#if !HAS_PORT(HTTP_PORT, HTTP_PATH)
# undef HTTP_PORT
# define HTTP_PORT 44444 // should return null instead?
#endif
// not worthy of summoning url.h for this one..
string htuniform(object server, string prot, mapping headers) {
// it is really totally crazy to trust what the browser says
string host = headers["host"];
int port = HTTP_PORT;
#if __EFUN_DEFINED__(tls_query_connection_state)
#ifndef HTTPS_HOST
string scheme = "http://";
# endif
unless (server) server = this_interactive();
if (tls_query_connection_state(server)) {
#ifdef HTTPS_HOST
return HTTPS_HOST;
#else
scheme = "https://";
# if HAS_TLS_PORT(HTTPS_PORT)
port = HTTPS_PORT;
# endif
#endif
}
# define SCHEME scheme
# define PORT port
#else
# define SCHEME "http://"
# define PORT HTTP_PORT
#endif
unless (host) {
#ifdef HTTP_HOST
return HTTP_HOST;
#else
host = SERVER_HOST;
// HTTP_SERVICE is 80 from services.h
if (port != HTTP_SERVICE) host += ":"+to_string(port);
#endif
}
return SCHEME + host;
}
varargs string htheaders(string type, string extra) {
string out;
unless (stringp(type)) type = DEFAULT_CONTENT_TYPE;
out = "Content-type: "+ type +"\n";
// if (length) {
// printf("Content-length: %d\n", length);
// }
if (extra) out += extra;
return out;
}
varargs string htheaders2(string type, string extra) {
return htheaders(type, extra)
+ "Server: " HTTP_SERVER "\nDate: "+ ctime(time()) +"\n";
}
void htrequireauth(string prot, string type, string realm) {
if (prot) write(HTTP_SVERS + " " + to_string(R_UNAUTHORIZED) +
"Your password, please\n");
if (type == "digest") {
write("WWW-Authenticate: Digest realm=\"" + realm +
"\", nonce=\"" + time() + "\"\n");
} else {
write("WWW-Authenticate: Basic realm=\"" + realm + "\"\n");
}
}
varargs string htredirect(string prot, string target, string comment, int permanent) {
if (!comment) comment = "Check this out";
if (!target) target = "/";
if (prot) {
printf("%s %d %s\n%s", HTTP_SVERS,
permanent ? R_MOVED : R_FOUND, comment, htheaders());
}
printf("\
Location: %s\n\
\n\
<a href=\"%s\">%s</a>.\n\
",
target, target, comment);
return 0;
}
// written and donated by _Marcus_
//
// thanx!!
/* convert %XX escapes to real chars */
static int xx2l(string str) {
int x;
str=lower_case(str);
if (str[0]>='0' && str[0]<='9') x=(str[0]-'0')*16;
if (str[0]>='a' && str[0]<='f') x=(str[0]-'a'+10)*16;
if (str[1]>='0' && str[1]<='9') x+=str[1]-'0';
if (str[1]>='a' && str[1]<='f') x+=str[1]-'a'+10;
return x;
}
/* Content-Encoding: url-encoded */
string urldecode(string txt) {
string *xx;
int i;
txt=implode(explode(txt,"+")," ");
#if __EFUN_DEFINED__(regexplode)
xx=regexplode(txt,"%..");
for (i=1;i<sizeof(xx)-1;i+=2)
xx[i]=sprintf("%c",xx2l(xx[i][1..]));
txt=implode(xx,"");
#endif
return txt;
}
#ifndef DEFAULT_HT_TYPE
# define DEFAULT_HT_TYPE "text/plain"
#endif
string content_type(string suffix) {
switch(lower_case(suffix)) {
case "html":
return "text/html";
case "xml":
//return "application/xml";
return "text/xml"; // what type is to be used here?
case "bz2":
return "application/x-bzip2";
case "class":
return "application/octet-stream";
case "css":
return "text/css";
case "gif":
return "image/gif";
case "gz":
return "application/x-gzip";
case "jpeg":
case "jpg":
return "image/jpeg";
case "js":
return "application/x-javascript";
case "pdf":
return "application/pdf";
case "png":
return "image/png";
case "ps":
case "eps":
return "application/postscript";
case "tar":
return "application/tar";
case "zip":
return "application/zip";
case "swf":
return "application/x-shockwave-flash";
default:
return DEFAULT_HT_TYPE;
}
return 0;
}