[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverCommands.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/driver/driverCommands.ml
diff -u mldonkey/src/daemon/driver/driverCommands.ml:1.80 
mldonkey/src/daemon/driver/driverCommands.ml:1.81
--- mldonkey/src/daemon/driver/driverCommands.ml:1.80   Mon Aug 15 20:22:50 2005
+++ mldonkey/src/daemon/driver/driverCommands.ml        Sun Aug 28 11:04:24 2005
@@ -377,6 +377,23 @@
         ""
     ), ":\t\t\t\tprint mldonkey version";
 
+    "uptime", Arg_none (fun o ->
+        let buf = o.conn_buf in
+        let uptime = log_time () ^ "- up" ^
+         Date.time_to_string_long (last_time () - start_time) in
+        if o.conn_output = HTML then
+          begin
+            Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>";
+            html_mods_table_header buf "versionTable" "results" [];
+            Printf.bprintf buf "\\<tr\\>";
+            html_mods_td buf [ ("", "srh", uptime); ];
+            Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\\</div\\>";
+          end
+        else
+            Printf.bprintf buf "%s" uptime;
+        ""
+    ), ":\t\t\t\tcore uptime";
+
     "buildinfo", Arg_none (fun o ->
         let buf = o.conn_buf in
         let buildinfo = CommonGlobals.buildinfo () in