Nothing Found

#include #include #include #include "httpd.h" #include "httpsrv.h" typedef struct Point Point; typedef struct OkPoint OkPoint; typedef struct Strings Strings; struct Point { int x; int y; }; struct OkPoint { Point p; int ok; }; struct Strings { char *s1; char *s2; }; static char *me; int polytest(int, Point, Point, Point); Strings getfield(char*); OkPoint pt(char*); char* translate(HConnect*, char*, char*); Point sub(Point, Point); float dist(Point, Point); void main(int argc, char **argv) { HConnect *c; Hio *hout; char *dest; me = "imagemap"; c = init(argc, argv); hout = &c->hout; if(hparseheaders(c, HSTIMEOUT) < 0) exits("failed"); anonymous(c); if(strcmp(c->req.meth, "GET") != 0 && strcmp(c->req.meth, "HEAD") != 0){ hunallowed(c, "GET, HEAD"); exits("unallowed"); } if(c->head.expectother || c->head.expectcont){ hfail(c, HExpectFail, nil); exits("failed"); } dest = translate(c, c->req.uri, c->req.search); if(dest == nil){ if(c->req.vermaj){ hokheaders(c); hprint(hout, "Content-type: text/html\r\n"); hprint(hout, "\r\n"); } hprint(hout, "Nothing Found\n"); hprint(hout, "Nothing satisfying your search request could be found.\n\n"); hflush(hout); writelog(c, "Reply: 200 imagemap %ld %ld\n", hout->seek, hout->seek); exits(nil); } if(http11(c) && strcmp(c->req.meth, "POST") == 0) hredirected(c, "303 See Other", dest); else hredirected(c, "302 Found", dest); exits(nil); } char* translate(HConnect *c, char *uri, char *search) { Biobuf *b; Strings ss; OkPoint okp; Point p, cen, q, start; float close, d; char *line, *to, *def, *s, *dst; int n, inside, r, ncsa; if(search == nil){ hfail(c, HNoData, me); exits("failed"); } okp = pt(search); if(!okp.ok){ hfail(c, HBadSearch, me); exits("failed"); } p = okp.p; b = Bopen(uri, OREAD); if(b == nil){ hfail(c, HNotFound, uri); exits("failed"); } to = nil; def = nil; dst = nil; close = 0.; ncsa = 1; while(line = Brdline(b, '\n')){ line[Blinelen(b)-1] = 0; ss = getfield(line); s = ss.s1; line = ss.s2; if(ncsa){ ss = getfield(line); dst = ss.s1; line = ss.s2; } if(strcmp(s, "#cern") == 0){ ncsa = 0; continue; } if(strcmp(s, "rect") == 0){ ss = getfield(line); s = ss.s1; line = ss.s2; okp = pt(s); q = okp.p; if(!okp.ok || q.x > p.x || q.y > p.y) continue; ss = getfield(line); s = ss.s1; line = ss.s2; okp = pt(s); q = okp.p; if(!okp.ok || q.x < p.x || q.y < p.y) continue; if(!ncsa){ ss = getfield(line); dst = ss.s1; } return dst; }else if(strcmp(s, "circle") == 0){ ss = getfield(line); s = ss.s1; line = ss.s2; okp = pt(s); cen = okp.p; if(!okp.ok) continue; ss = getfield(line); s = ss.s1; line = ss.s2; if(ncsa){ okp = pt(s); if(!okp.ok) continue; if(dist(okp.p, cen) >= dist(p, cen)) return dst; }else{ r = strtol(s, nil, 10); ss = getfield(line); dst = ss.s1; d = (float)r * r; if(d >= dist(p, cen)) return dst; } }else if(strcmp(s, "poly") == 0){ ss = getfield(line); s = ss.s1; line = ss.s2; okp = pt(s); start = okp.p; if(!okp.ok) continue; inside = 0; cen = start; for(n = 1; ; n++){ ss = getfield(line); s = ss.s1; line = ss.s2; okp = pt(s); q = okp.p; if(!okp.ok) break; inside = polytest(inside, p, cen, q); cen = q; } inside = polytest(inside, p, cen, start); if(!ncsa) dst = s; if(n >= 3 && inside) return dst; }else if(strcmp(s, "point") == 0){ ss = getfield(line); s = ss.s1; line = ss.s2; okp = pt(s); q = okp.p; if(!okp.ok) continue; d = dist(p, q); if(!ncsa){ ss = getfield(line); dst = ss.s1; } if(d == 0.) return dst; if(close == 0. || d < close){ close = d; to = dst; } }else if(strcmp(s, "default") == 0){ if(!ncsa){ ss = getfield(line); dst = ss.s1; } def = dst; } } if(to == nil) to = def; return to; } int polytest(int inside, Point p, Point b, Point a) { Point pa, ba; if(b.y>a.y){ pa=sub(p, a); ba=sub(b, a); }else{ pa=sub(p, b); ba=sub(a, b); } if(0<=pa.y && pa.y