5013d7d07c8588a219b3ad8dea828470d66fa7e2
[public/www-new.git] / src / web.d
1 //#!/usr/bin/rdmd
2 import std.stdio, std.path, std.process, std.file, std.array, std.string, std.algorithm, std.datetime;
3 import config;
4
5 string dweb_root;
6
7 string indent = "";
8 void html(string s) { writeln(indent ~ s); }
9 void html_pop(string s) { indent = indent[0..max(0, $-4)]; html(s); }
10 void html_push(string s) { html(s); indent ~= "    "; }
11
12 void write_link(string to, bool expand) {
13   bool isdir = dirExists(dweb_root ~ "/srv/" ~ to[url_root.length..$]);
14   string flair = nav_tree_chev? (expand? "» " : "› ") : "";
15   html_push("<li" ~ (expand? " class=\"thisPage\" " : "") ~ ">");
16   html("<a href=\"" ~ to ~ (isdir ? "/" : "") ~ "\">"
17         ~ flair ~ baseName(to) ~ (isdir ? "/" : "") ~ "</a>");
18   html_pop("</li>");
19 }
20
21 void nav_tree_r(string url, string cur_loc, string[] subdirs) {
22   string[] dirs = array(map!"a.name"(dirEntries(dweb_root ~ "/srv/" ~ cur_loc, SpanMode.shallow)));
23   sort(dirs);
24   if (dirs.length == 0) return;
25   bool inserted_ul = false;
26   bool next = false;
27   string next_loc;
28   foreach(string s; dirs) {
29     s= s[(dweb_root ~ "/srv/").length..$];
30     string name = stripExtension(baseName(s));
31     if (name.length == 0) continue; // e.g. ".md", should we do something else with these files?
32     if (name == "index") continue; // "index" will never appear in the nav_tree.
33     if (name[0] == '@') continue; // hidden file
34     if (!inserted_ul) { html_push("<ul>"); inserted_ul = true; }
35     bool expand = subdirs.length > 0 && name == subdirs[0];
36     write_link(url_root ~ stripExtension(s), expand);
37
38     if (expand && isDir(dweb_root ~ "/srv/" ~ s)) {
39       if (nav_tree_vert) {
40         html_push("<li>");
41         nav_tree_r(url, (cur_loc == "" ? "" : cur_loc ~ "/") ~ subdirs[0], subdirs[1..$]);
42         html_pop("</li>");
43       } else {
44         next = true;
45         next_loc = (cur_loc == "" ? "" : cur_loc ~ "/") ~ subdirs[0];
46       }
47     }
48   }
49
50   if (inserted_ul) html_pop("</ul>");
51   if (next) nav_tree_r(url, next_loc, subdirs[1..$]);
52 }
53
54 void do_nav_tree(string url) {
55   html_push("<div id=\"" ~ (nav_tree_vert ? "" : "horiz-") ~ "side-bar\">");
56   nav_tree_r(url, "", cast(string[])array(pathSplitter(url)));
57   html_pop("</div>\n");
58 }
59
60 void not_found(string path) {
61   html("The page <code>" ~ path ~ "</code> does not exist. (404)");
62 }
63
64 void do_header() {
65   html_push("<div id=\"header\">");
66   
67   html_push("<div class=\"superHeader\">");
68   html_push("<div class=\"right\">");
69   html("<a href=\"" ~ url_root ~ "changelog\">changelog</a>");
70   html_pop("</div>");
71   html_pop("</div>");
72
73   html_push("<div class=\"midHeader\">");
74   html_push("<h1 class=\"headerTitle\">");
75   html("<a href=\"" ~ url_root ~ "\">" ~ site_title ~ " <span id=\"headerSubTitle\">" ~ site_subtitle ~ "</span></a>");
76   html_pop("</h1>");
77   html_pop("</div>");
78   
79   html_push("<div class=\"subHeader\">");
80   html("<br>");
81   html_pop("</div>");
82   
83   html_pop("</div>\n");
84 }
85
86 bool dirExists(string path)  { try { if (isDir(path))  return true; else return false; } catch (Exception e) { return false; } }
87
88 void do_content(string url) {
89   html_push("<div id=\"main-copy\"" ~ (nav_tree_vert? " class=\"main-copy-side-bar\"" : "")  ~ ">");
90   if (url == "" ? false : url[$-1] == '/') url ~= "index";
91   foreach (f; array(map!"a.name"(dirEntries(dirName(dweb_root ~ "/srv/" ~ url), SpanMode.shallow)))) {
92     if (isDir(f)) continue;
93     string name = baseName(f); name = name[0] == '@' ? name[1..$] : name;
94     if (stripExtension(name) == baseName(url)) {
95       foreach (string glob, string h; handlers) { 
96         if (globMatch(name, glob)) {
97           html(shell(dweb_root ~ "/bin/" ~ h ~ " " ~ f));
98           html_pop("</div>");
99           return;
100         }
101       }
102     }
103   }
104   if (baseName(url) != "index") not_found(url);
105   html_pop("</div>");
106 }
107
108 void do_footer() {
109   html_push("<div id=\"footer\">");
110
111   html_push("<div class=\"left\">");
112   html("<a href=\"" ~ url_root ~ "dweb\">Powered by dweb</a>");
113   html_pop("</div>");
114
115   html_push("<div class=\"right\">");
116   html("&nbsp;");
117   html_pop("</div>");
118
119   html_pop("</div>\n");
120 }
121
122 void main(string[] args) {
123   init_handlers();
124   dweb_root = getcwd()[0..$-4]; // take out bin/
125  
126   html("Content-type: text/html\n");
127   html("<!DOCTYPE html>");
128   html_push("<html>\n");
129
130   string url = getenv("SCRIPT_URL")[url_root.length..$];
131   
132   string pagename = baseName(url);
133   if (pagename.length != 0) pagename = " - " ~ pagename;
134   pagename = site_title ~ pagename;
135   
136   html_push("<head>");
137   html("<title>" ~ pagename ~ "</title>");
138   html("<link rel=\"stylesheet\" href=\"" ~ url_root ~ "pub/style/style.css\" type=\"text/css\" media=\"screen, handheld\" title=\"default\">");
139   html("<meta charset=\"UTF-8\">");
140   html("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">");
141   html_pop("</head>\n");
142   
143   html_push("<body" ~ (page_container? " style=\"text-align: center\"" : "")~ ">");
144   if (page_container) html_push("<div id=\"container\">");
145   do_header();
146   do_nav_tree(url);
147   do_content(url);
148   do_footer();
149   if (page_container) html_pop("</div>");
150   html_pop("</body>\n");
151
152   html_pop("</html>");
153 }