#define BASE "/users/cardeci/export/"

mapping replaces= ([]);

string fortune()
{
  return "<i><pre>\n"+popen("/usr/local/bin/fortune -l")+"</pre></i>\n\n";
}

string engdikt()
{
  string *dir;
  dir=get_dir("/users/cardeci/export/enpoems/*");
  return ("<i><pre>\n"+
	  read_bytes("/users/cardeci/export/enpoems/" + 
		     dir[random(sizeof(dir))]) +
	  "</pre></i>\n\n");
}

string svdikt()
{
  string *dir;
  dir=get_dir("/users/cardeci/Text/dikter/klara/*");
  return ("<i><pre>\n"+
	  read_bytes("/users/cardeci/Text/dikter/klara/" + 
		     dir[random(sizeof(dir))]) +
	  "</pre></i>\n\n");
}

void create()
{
  mixed b;
  foreach( read_bytes( "/users/cardeci/export/default_replaces" ) / "\n" , b )
    if( sizeof( b /= "=" ) > 1)
      replaces[ b[0] ] = "<a href="+b[1..1000]*"="+">"+b[0]+"</a>";

  replaces["\n\n"]="\n\n<p>\n\n";
  replaces["<poem>"]=engdikt();
  replaces["<dikt>"]=svdikt();
  replaces["<fortune>"]=fortune();
  replaces["<streck>"]="<hr>";
  call_out( create, 24 * 3600 ); // 24 hrs.
}

string preparse( string s, mapping how, string base )
{
  string a, b, t;

  a = b = "";

  if( how[ "lang" ] == "eng" )
    while(sscanf(s, "%*s<eng>%s</eng>%s", b, s))
      a += b;
  else
    while(sscanf(s, "%*s<sv>%s</sv>%s", b, s))
      a += b;

  if( strlen(a) )
    s = a;

  s = replace(s, m_indices(replaces), m_values(replaces));

  if(sscanf(s, "%*s<titel>%s</titel>%s", a, s))
    s = "<title>" + (t=a) + 
      "</title><center><h1>" + a + "</h1></center>\n\n" + s;
  
  while(sscanf(s, "%s<large>%s</large>%s", a, b, s) == 3)
    s = a + "<font size=+3>" + b +"</font>" + s;

  while(sscanf(s, "%s<image %s>%s", a, b, s) == 3)
    s = a + "<img src=/~cardeci/images/" + how["pict"] + "/" + b +  "." 
      + how["form"] + " align=right hspace=10>" + s;

  while(sscanf(s, "%s<sub>%s</sub>%s", a, b, s) == 3)
    s = a + "<i><h2><font size=+3>" + b[0..0] +"</font>" + b[1..10000] + 
      "</h2></i>" + s;

#if 0
  while(sscanf(s, "%s<cs>%s</cs>%s", a, b, s) == 3)
    s = a + "<center><i><h2><font size=7>" + 
      b[0..0] +"</font>" + b[1..10000] + "</h2></i></center>" + s;
#else
  s=replace(s, ({ "<cs>", "</cs>" }), 
	    ({ "<p><center><i><b><font size=6>",
	       "</font size=6></b></i></center><br>"
	       }));
#endif

  if(how["verbosity"] == "onl")
  {
    t += " (compressed menu form)";
    b = "<title>"+ t + "</title>" + "<center><h1>" + t +
      "</h1></center>\n\n<ul>";
    while(sscanf(s, "%*s<a %s</a>%s", a, s))
      b += "<li><a "+a+"</a>";
    s=b;
  }
  
  return "<spider>"+
    replace( s, "<accessed>", previous_object()->query_num( "Cardeci:"+base ) )
      +"</spider>";
  
}

string parse_form( mapping form )
{
  return ("lang:" + lower_case(form["language"])[0..2]  + 
	  "&pict:" + lower_case(form["imagesize"])[0..0] +
	  "&form:" + lower_case(form["pictures"])  +
	  "&verb:" + lower_case(form["verbosity"])[0..2] +
	  "/" + form["f"]);
}

string decode( string s )
{
  return replace(s, "__", "/" );
}

string set_preferences( mapping options, string f )
{
  return replace("<form action=" + f + " method=get>\n<pre>"+
	  "Prefered language: <select name=language><option $EN>English"+
	  "<option $SE>Svenska</select>\n"+
	  "Picture format   : <select name=pictures><option $JPG>JPG"+
	                     "<option $GIF>GIF"+
	  "</select>\n"+
	  "Picture size     : <select name=imagesize><option $LARGE>Large"+
	  "<option $MEDIUM>Medium<option $SMALL>Small</select>\n"+
	  "Text             : <select name=verbosity><option $ALL>All text"+
	  "<option $LINKS>Only links</select>\n"+
	  "<input type=hidden name=f value="+f+">\n"+
	  "<input type=submit value=Ok>\n</pre></form>",
		 ({ "$EN", "$SE", "$JPG", "$GIF", "$LARGE", "$MEDIUM", "$SMALL"
		      , "$ALL", "$LINKS" }),
		 ({ options["lang"]=="eng"?"selected":"", 
		    options["lang"]!="eng"?"selected":"",
		    options["form"]=="jpg"?"selected":"",
		    options["form"]!="jpg"?"selected":"",
		    options["pict"]=="l"?"selected":"",
		    options["pict"]=="m"?"selected":"",
		    options["pict"]=="s"?"selected":"",
		    options["verb"]!="onl"?"selected":"",
		    options["verb"]=="onl"?"selected":"",
		  }));
}

string default_language( string from )
{
  while(sscanf( from, "%s.%*s", from ));
  if( (< "194", "130", "192", >)[ from ] )
    return "se";
  return "eng";
}

string default_format( string *client )
{
  if(pointerp( client ))
    if( client[0][0..5] == "Mozill" )
      return "jpg";
  return "gif";
}

mixed parse(int file_descriptor, string *matches, string url,
            mapping request_info)
{
  string source;
  string f = matches[0], dir=BASE;
  mapping options=([]);
  string opts;

  if(!f)
    f="";

  if(strstr(url, "postorder") == -1 )
  {
    if(strstr(url, "reload") != -1)
    {
      update(file_name(this_object()));
      destruct();
      return "<h1>Ok. I will update.</h1>";
    }

    options = 
      ([ 
	"lang":default_language( socket_address( file_descriptor ) ),
	"pict":"m", 
	"form":default_format( request_info["client"] ),
	"verb":"all",
	]);

    if( !strlen(f) )
      f="home";
    else 
    {
      if( sscanf( f, "%s/%s", opts, f ) )
      {
	if( f == "preferences" )
	  return set_preferences( options, (opts/"/")[-1] );
	else
	{
	  mixed o;
	  if(  sizeof( opts/"&" ) < 2)
	    f=opts+"/"+f;
	
	  foreach( opts/"&", o )
	  {
	    o/=":";
	    if( sizeof(o) > 1)
	      options[ decode( o[0] ) ] = o[1];
	  }
	}
      }
    }
    if( m_sizeof( request_info[ "variables" ] ))
      if(request_info[ "variables" ]["1"])
      {
	string res;
	int score;
	score = sizeof(request_info["variables"]["1"]/"\1");
	res = "You got 0x"+sprintf("%x", score)+" points.\n";
	res += "This makes you ";
	
	switch(score)
	{
	 case 0x000 .. 0x010:
	  res += "a Computer Illiterate";
	  break;
	 case 0x011 .. 0x040:
	  res += "a User";
	  break;
	 case 0x041 .. 0x080:
	  res += "an Operator";
	  break;
	 case 0x081 .. 0x0C0:
	  res += "a Nerd";
	  break;
	 case 0x0C1 .. 0x100:
	  res += "a Hacker";
	  break;
	 case 0x101 .. 0x180:
	  res += "a Guru";
	  break;
	 case 0x181 .. 0x200:
	  res += "a Wizard";
	  break;
	 default:
	  res += "a Cheater";
	}
	return "<h1>The hacker test</h1>\n<font size=+3>"+res+"</font>\n";
      } else {
	f="http://www.lysator.liu.se/~cardeci/" + 
	  parse_form( request_info[ "variables" ] );
	return  
	  (["extra_heads":(["Location": f, ]),
	    "error":"302",
	    "data":
	    "<head><title>This is a pointer to a document</title></head>" +
	    "This document recides at this point: <A HREF=\"" + f + 
	    "\">"+ f +"</A>.\n"+
	    "If you do not want this message, please get a http1.0 "+
	    "compliant client."
	    ]);
      }

    if(strstr(f, "preferences" ) != -1)
      return set_preferences( options, f - "/preferences" );
  
    if( file_size(dir + "info/" + f) > 0 )
      return "<base href=http://www.lysator.liu.se/~cardeci/"+
	(opts?opts+"/":"")+f+"><table width=100%><tr><th align=left>"+
	  ("<a href="+f+"/preferences>Adjust preferences</a></th>"+
	   "<th align=center><a href=/>Lysator</a></th>"+
	   "<th align=right>"+
	   "<a href=http://www.infovav.se/>Informationsvävarna</a></th>\n"+
	   "</tr></table>"+
	   "<hr>" + 
	   preparse( read_bytes( dir + "info/" + f ), options, f ) +
	   "<hr>" +
	   "<table width=100%><tr><th align=left>"+
	   "<a href="+f+"/preferences>Adjust preferences</a></th>"+
	   "<th align=center><a href=/>Lysator</a></th>"+
	   "<th align=right>"+
	   "<a href=http://www.infovav.se/>Informationsvävarna</a></th>\n"+
	   "</tr></table>");

    if( file_size(dir + "html/" + f) > 0 )
      return read_bytes( dir + "html/" + f );
  }
}