[Turn off line numbering]
1: arg @args;
2: var page, l;
3:
4: // this is your home page, change it as you whim may direct you
5: page = $directories.build_header(#[], #[], #[]);
6: if ((l = $directories.get_server_name_img()))
7: page += [l];
8: else
9: page += ["<h1>" + server_name + "</h1>"];
10: page += ["<p align=center><i><tt>"] + $code_lib.random_quote() + ["</tt></i>"];
11: if (server_title)
12: page += ["<h3>" + server_title + "</h3>"];
13: if (notes) {
14: page += ["<table align=center border=0><tr><td bgcolor=\"#cccccc\">"];
15: page += [notes.affix("<br/>")];
16: page += ["</td></tr></table>"];
17: }
18: page += ["<p><b>Things to do from here:</b>"];
19: page += ["<ul>"];
20: page += ["<li>Login <a href=\"/file/jlogin/index.html\">Interactively</a> or "];
21: page += ["<a href=\"/desktop/\">Non-Interactively</a><br>"];
22: page += ["<li>See <a href=\"/bin/who\">Who is Online</a><br>"];
23: page += ["<li>Browse <a href=\"/bin/describe\">the VR World</a>,"];
24: page += ["<a href=\"/bin/object\">ColdC Objects</a>"];
25: page += [" or <a href=\"/ar\">Action Requests</a><br>"];
26: page += ["<li>Read documentation: <a href=\"/bin/help\">Help Files</a>,"];
27: page += [" <a href=\"/bin/describe?target=introtut_start\">Introductory Tutorial</a>"];
28: page += [" or <a href=\"/bin/help?node=help_coldc\">the ColdC Manual</a>"];
29: page += ["</ul>"];
30: page += ["<p align=left>", "<table border=0>"];
31: page += ["<tr><th valign=top align=left>Administrators:</th>"];
32: page += ["<td>" + $sys.admins().mmap('hname).to_english() + "</td></tr>"];
33: page += ["<tr><th valign=top align=left>Current Users:</th>"];
34: page += ["<td>" + $user_db.total_connected() + " (<a href=\"/bin/who\">Get List</a>)</td></tr>"];
35: page += ["<tr><th valign=top align=left>Server Lag:</th>"];
36: page += ["<td>" + $lag_watcher.lag() + " seconds.</td></tr>"];
37: page += ["<tr><th valign=top align=left>Driver: </th>"];
38: page += ["<td><a href=\"http://www.cold.org/Software/Genesis/\">Genesis</a> " + $sys.server_info('driver_version) + "</td></tr>"];
39: page += ["<tr><th valign=top align=left>Core:</th>"];
40: page += ["<td>" + $sys.server_info('core_version, 'long) + "</td></tr>"];
41: page += ["</body>"];
42: return page;
43:
44: // $#Edited: 28 Sep 25 09:20 $user_celthric
// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit