Display directory aliases from web_alias.ini as shortcuts on index page

Other kinds of aliases are supported in web_alias.ini (e.g. libraries, files)
but not displaying those here (yet).

exec/webfileindex.ssjs

@@ -138,10 +138,48 @@ function lib_index(lib)
 	}
 }
 
+function get_dir_desc(vpath)
+{
+	for(var i in file_area.dir) {
+		var dir = file_area.dir[i];
+		if((file_area.web_vpath_prefix + dir.vpath).toLowerCase() == vpath.toLowerCase())
+			return dir.description;
+	}
+	return null;
+}
+
+// List configured aliases to directories as shortcuts
+function shortcuts()
+{
+	var file = new File(system.ctrl_dir + "web_alias.ini");
+	if(!file.open("r"))
+		return;
+	var list = file.iniGetObject();
+	file.close();
+	if(!list)
+		return;
+	var dir = {};
+	for(var i in list) {
+		var desc = get_dir_desc(list[i]);
+		if(desc)
+			dir[i] = desc;
+	}
+	if(!Object.keys(dir).length)
+		return;
+	writeln("<h3>Directories</h3>");
+	writeln("<ul>");
+	for(var i in dir)
+		writeln("<a href=" + i + ">" + dir[i] + "</a><br />");
+	writeln("</ul>");
+	writeln("<p>");
+}
+
 // Listing all libraries
 function root_index()
 {
 	header("File Areas");
+	shortcuts();
+	writeln("<h3>Libraries</h3>");
 	for(var l in file_area.lib_list) {
 		var lib = file_area.lib_list[l];
 		write(lib.description.link(lib.vdir + "/")+ "<br />");