implement imagemap;
include "sys.m";
sys : Sys;
include "bufio.m";
bufmod: Bufio;
Iobuf: import bufmod;
include "draw.m";
draw: Draw;
include "content.m";
Content: import Cont;
include "cache.m";
include "httpd.m";
g : ref Private_info;
include "parser.m";
pars : Parser;
include "daytime.m";
daytime: Daytime;
include "string.m";
str : String;
imagemap : module
{
init: fn(g : ref Private_info, argv: list of string);
};
Point : adt {
x,y : int;
};
me : string;
init(k : ref Private_info, argv : list of string) {
meth, vers, uri, search, dest, s : string;
sys = load Sys "$Sys";
draw = load Draw "$Draw";
stderr := sys->fildes(2);
daytime = load Daytime Daytime->PATH;
if(daytime == nil){
sys->fprint(stderr,"Daytime module load: %r\n");
return;
}
pars = load Parser Parser->PATH;
if(pars == nil){
sys->fprint(stderr,"echo pars module load: %r\n");
return;
}
str = load String String->PATH;
if(str == nil){
sys->fprint(stderr,"echo str module load: %r\n");
return;
}
me = "imagemap";
meth = hd argv;
vers = hd (tl argv);
uri = hd (tl(tl argv));
search = hd (tl(tl(tl argv)));
g=k;
bufmod=g.bufmod;
pars->init();
pars->httpheaders(g,vers);
dest = translate(uri, search);
if(dest == nil){
if(vers!= ""){
pars->okheaders(g);
g.bout.puts(sys->sprint("Date: %s\r\n", daytime->time()));
g.bout.puts("Content-type: text/html\r\n");
g.bout.puts("\r\n");
}
g.bout.puts("Nothing Found\n");
g.bout.puts("Nothing satisfying your search request could be found.\n\n");
return;
}
g.bout.puts(sys->sprint("%s 301 Moved Permanently\r\n", g.version));
g.bout.puts(sys->sprint("Date: %s\r\n", daytime->time()));
g.bout.puts("Server: Charon\r\n");
g.bout.puts("MIME-version: 1.0\r\n");
g.bout.puts("Content-type: text/html\r\n");
(s,nil)=str->splitl(dest, ":");
if(s!=nil){
g.bout.puts(sys->sprint("URI: <%s>\r\n", pars->urlconv(dest)));
g.bout.puts(sys->sprint("Location: %s\r\n", pars->urlconv(dest)));
}else if(dest[0] == '/'){
g.bout.puts(sys->sprint("URI: <%s>\r\n",pars->urlconv(dest)));
g.bout.puts(sys->sprint("Location: http://%s%s\r\n", pars->urlconv(g.mydomain), pars->urlconv(dest)));
}else{
(uri,s) = str->splitr(uri, "/");
g.bout.puts(sys->sprint("URI: <%s/%s>\r\n", pars->urlconv(uri), pars->urlconv(dest)));
g.bout.puts(sys->sprint("Location: http://%s%s/%s\r\n", pars->urlconv(g.mydomain), pars->urlconv(uri), pars->urlconv(dest)));
}
g.bout.puts("\r\n");
g.bout.puts("Object Moved\r\n");
g.bout.puts("Object Moved
\r\n");
if(dest[0] == '/')
g.bout.puts(sys->sprint("Your selection mapped to here.\r\n", pars->urlconv(dest)));
else
g.bout.puts(sys->sprint("Your selection mapped to here.
\r\n", pars->urlconv(uri), pars->urlconv(dest)));
return;
}
translate(uri, search : string) : string
{
b : ref Iobuf;
p, c, q, start : Point;
close, d : real;
line, To, def, s : string;
ok, n, inside, r : int;
(pth,nil):=str->splitr(uri,"/");
# sys->print("pth is %s",pth);
if(search == nil)
pars->fail(g,OnlySearch, me);
(p, ok) = pt(search);
if(!ok)
pars->fail(g,BadSearch, me);
b = bufmod->open(uri, bufmod->OREAD);
if(b == nil){
sys->print("logfile open: %r\n");
pars->fail(g,NotFound, uri);
exit;
}
To = "";
def = "";
close = 0.;
while((line = b.gets('\n'))!=nil){
line=line[0:len line-1];
(s, line) = getfield(line);
if(s== "rect"){
(s, line) = getfield(line);
(q, ok) = pt(s);
if(!ok || q.x > p.x || q.y > p.y)
continue;
(s, line) = getfield(line);
(q, ok) = pt(s);
if(!ok || q.x < p.x || q.y < p.y)
continue;
(s, nil) = getfield(line);
return pth+s;
}else if(s== "circle"){
(s, line) = getfield(line);
(c, ok) = pt(s);
if(!ok)
continue;
(s, line) = getfield(line);
(r,nil) = str->toint(s,10);
(s, line) = getfield(line);
d = real (r * r);
if(d >= dist(p, c))
return pth+s;
}else if(s=="poly"){
(s, line) = getfield(line);
(start, ok) = pt(s);
if(!ok)
continue;
inside = 0;
c = start;
for(n = 1; ; n++){
(s, line) = getfield(line);
(q, ok) = pt(s);
if(!ok)
break;
inside = polytest(inside, p, c, q);
c = q;
}
inside = polytest(inside, p, c, start);
if(n >= 3 && inside)
return pth+s;
}else if(s== "point"){
(s, line) = getfield(line);
(q, ok) = pt(s);
if(!ok)
continue;
d = dist(p, q);
(s, line) = getfield(line);
if(d == 0.)
return pth+s;
if(close == 0. || d < close){
close = d;
To = s;
}
}else if(s == "default"){
(def, line) = getfield(line);
}
}
if(To == nil)
To = def;
return pth+To;
}
polytest(inside : int,p, b, a : Point) : int{
pa, ba : Point;
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.ysplitl(s, ")");
p = Point(0, 0);
(x,y) = str->splitl(s, ",");
if(x == s)
return (p, 0);
(p.x,nil) = str->toint(x,10);
if(y==nil)
return (p, 0);
y=y[1:];
(p.y,nil) = str->toint(y, 10);
return (p, 1);
}
getfield(s : string) : (string,string) {
i:=0;
while(s[i] == '\t' || s[i] == ' ')
i++;
return str->splitl(s[i:],"\t ");
}