/* Do not remove the headers from this file! see /USAGE for more info. */

/*
**  7-Jan-97    Valentino.     Created.
**
** Hiware. Say hi if you ever happen to use this code. I am @Deepest on I3.
** No strings attached :)
*/

inherit DAEMON;

#include <net/http_d.h>
#define DEEPEST

void build_homepages()
{
  string *dirs=get_dir(WIZ_DIR+"/"+"*");
  string page="<h1>Homepages for ";
#ifdef DEEPEST
  page+="coders";
#endif
#ifndef DEEPEST
  page+="Wizards";
#endif
  page+=" on "+MUD_NAME+"!</h1>\n<UL>\n";
  foreach (string name in dirs)
    {
      if (is_file(WIZ_DIR+"/"+name+HTTP_USER_HOME+"/index.html"))
	page+="  <LI> <A HREF=http:/"+"/"+__HOST__+":"+(HTTP_PORT)+"/~"+name+
	  ">\n        "+capitalize(name)+"'s Homepage.</A>\n";
    }
  page+="</UL>\n";
  set_privilege(1);
  unguarded(1, (: write_file, HTTP_ROOT+"/"+HOMEPAGE_PAGE,page,1 :));
}