[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonInteracti
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonInteractive.ml |
Date: |
Fri, 26 Aug 2005 17:10:44 -0400 |
Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.45
mldonkey/src/daemon/common/commonInteractive.ml:1.46
--- mldonkey/src/daemon/common/commonInteractive.ml:1.45 Mon Aug 15
20:27:56 2005
+++ mldonkey/src/daemon/common/commonInteractive.ml Fri Aug 26 21:10:43 2005
@@ -195,19 +195,6 @@
with e ->
lprintf_nl "[cInt] Exception in file_cancel: %s" (Printexc2.to_string e)
-let time_to_string time =
- let days = time / 60 / 60 / 24 in
- let rest = time - days * 60 * 60 * 24 in
- let hours = rest / 60 / 60 in
- let rest = rest - hours * 60 * 60 in
- let minutes = rest / 60 in
- let seconds = rest - minutes * 60 in
- if days > 0
- then Printf.sprintf " %dd " days
- else if hours > 0
- then Printf.sprintf " %dh %dm " hours minutes
- else Printf.sprintf " %dm " minutes
-
let mail_for_completed_file file =
if !!mail <> "" then
let module M = Mailer in
@@ -218,7 +205,7 @@
(file_best_name file)
(file_size file)
(string_of_uids info.G.file_uids)
- (let age = (BasicSocket.last_time ()) - info.G.file_age in
time_to_string age)
+ (let age = (BasicSocket.last_time ()) - info.G.file_age in
Date.time_to_string_long age)
in
let line3 = if (file_comment file) <> "" then