removed chevrons and optionality of container, those things are better managed by css
[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, std.ascii;
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   html_push("<li" ~ (expand? " class=\"thisPage\" " : "") ~ ">");
15   html("<a href=\"" ~ to ~ (isdir ? "/" : "") ~ "\">"
16         ~ baseName(to) ~ (isdir ? "/" : "") ~ "</a>");
17   html_pop("</li>");
18 }
19
20 void nav_tree_r(string url, string cur_loc, string[] subdirs) {
21   string[] dirs = array(map!"a.name"(dirEntries(dweb_root ~ "/srv/" ~ cur_loc, SpanMode.shallow)));
22   sort(dirs);
23   if (dirs.length == 0) return;
24   bool inserted_ul = false;
25   bool next = false;
26   string next_loc;
27   foreach(string s; dirs) {
28     s= s[(dweb_root ~ "/srv/").length..$];
29     string name = stripExtension(baseName(s));
30     if (name.length == 0) continue; // e.g. ".md", should we do something else with these files?
31     if (name == "index") continue; // "index" will never appear in the nav_tree.
32     if (name[0] == '@') continue; // hidden file
33     if (!inserted_ul) { html_push("<ul>"); inserted_ul = true; }
34     bool expand = subdirs.length > 0 && name == subdirs[0];
35     write_link(url_root ~ stripExtension(s), expand);
36
37     if (expand && isDir(dweb_root ~ "/srv/" ~ s)) {
38       if (nav_tree_vert) {
39         html_push("<li>");
40         nav_tree_r(url, (cur_loc == "" ? "" : cur_loc ~ "/") ~ subdirs[0], subdirs[1..$]);
41         html_pop("</li>");
42       } else {
43         next = true;
44         next_loc = (cur_loc == "" ? "" : cur_loc ~ "/") ~ subdirs[0];
45       }
46     }
47   }
48
49   if (inserted_ul) html_pop("</ul>");
50   if (next) nav_tree_r(url, next_loc, subdirs[1..$]);
51 }
52
53 void do_nav_tree(string url) {
54   html_push("<div id=\"" ~ (nav_tree_vert ? "" : "horiz-") ~ "side-bar\">");
55   nav_tree_r(url, "", cast(string[])array(pathSplitter(url)));
56   html_pop("</div>\n");
57 }
58
59 void not_found(string path) {
60   html("The page <code>" ~ path ~ "</code> does not exist. (404)");
61 }
62
63 void do_header() {
64   html_push("<div id=\"header\">");
65   
66   html_push("<div class=\"superHeader\">");
67   
68   html_push("<div class=\"left\">");
69   html_pop("</div>"); 
70   
71   html_push("<div class=\"right\">");
72   html("<a href=\"" ~ url_root ~ "changelog\">changelog</a>");
73   html_pop("</div>");
74   
75   html_pop("</div>");
76
77   html_push("<div class=\"midHeader\">");
78   html_push("<h1 class=\"headerTitle\">");
79   html("<a href=\"" ~ url_root ~ "\">" ~ site_title ~ " <span id=\"headerSubTitle\">" ~ site_subtitle ~ "</span></a>");
80   html_pop("</h1>");
81   html_pop("</div>");
82   
83   html_push("<div class=\"subHeader\">");
84   html("<br>");
85   html_pop("</div>");
86   
87   html_pop("</div>\n");
88 }
89
90 bool dirExists(string path)  { try { if (isDir(path))  return true; else return false; } catch (Exception e) { return false; } }
91
92 void do_content(string url) {
93   html_push("<div id=\"main-copy\"" ~ (nav_tree_vert? " class=\"main-copy-side-bar\"" : "")  ~ ">");
94   // first, see if we have something that wants to handle url outright
95   foreach (string glob, string h; handlers) {
96     if (globMatch(url, glob)) {
97       html(shell(dweb_root ~ "/bin/" ~ h ~ " " ~ url));
98       html_pop("</div>");
99       return;
100     }
101   }
102   // if that failed, see if we can handle the file
103   if (url == "" ? true : url[$-1] == '/') url ~= "index";
104   foreach (f; array(map!"a.name"(dirEntries(dirName(dweb_root ~ "/srv/" ~ url), SpanMode.shallow)))) {
105     if (isDir(f)) continue;
106     string name = baseName(f); name = name[0] == '@' ? name[1..$] : name;
107     if (stripExtension(name) == baseName(url)) {
108       foreach (string glob, string h; handlers) { 
109         if (globMatch(name, glob)) {
110           html(shell(dweb_root ~ "/bin/" ~ h ~ " " ~ f));
111           html_pop("</div>");
112           return;
113         }
114       }
115     }
116   }
117   if (baseName(url) != "index") not_found(url);
118   html_pop("</div>");
119 }
120
121 void do_footer() {
122   html_push("<div id=\"footer\">");
123
124   html_push("<div class=\"left\">");
125   html("<a href=\"" ~ url_root ~ "dweb\">Powered by dweb</a>");
126   html_pop("</div>");
127
128   html_push("<div class=\"right\">");
129   html("&nbsp;");
130   html_pop("</div>");
131
132   html_pop("</div>\n");
133 }
134
135 bool evil(string s) {
136   foreach(char c; s) if (!isAlphaNum(c) && c != '/' && c != '-' && c != '_') return true;
137   return false;
138 }
139
140 void main(string[] args) {
141   init_handlers();
142   dweb_root = getcwd()[0..$-4]; // take out bin/
143  
144   html("Content-type: text/html\n");
145   html("<!DOCTYPE html>");
146   html_push("<html>\n");
147
148   string url = getenv("REQUEST_URI")[url_root.length..$];
149   if (evil(url)) { html ("bad url."); return; }
150   
151   string pagename = baseName(url);
152   if (pagename.length != 0) pagename = " - " ~ pagename;
153   pagename = site_title ~ pagename;
154   
155   html_push("<head>");
156   html("<title>" ~ pagename ~ "</title>");
157   html("<link rel=\"stylesheet\" href=\"" ~ url_root ~ "pub/style/style.css\" type=\"text/css\" media=\"screen, handheld\" title=\"default\">");
158   html("<meta charset=\"UTF-8\">");
159   html("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">");
160   html_pop("</head>\n");
161   
162   html_push("<body style=\"text-align: center\">");
163   html_push("<div id=\"container\">");
164   do_header();
165   do_nav_tree(url);
166   do_content(url);
167   do_footer();
168   html_pop("</div>");
169   html_pop("</body>\n");
170
171   html_pop("</html>");
172 }