[Mldonkey-commits] Changes to mldonkey/src/utils/lib/date.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/date.ml
diff -u mldonkey/src/utils/lib/date.ml:1.5 mldonkey/src/utils/lib/date.ml:1.6
--- mldonkey/src/utils/lib/date.ml:1.5  Sun May 29 23:26:01 2005
+++ mldonkey/src/utils/lib/date.ml      Mon Aug 15 20:22:50 2005
@@ -11,6 +11,7 @@
 | Space
 | Colon
 | Dot
+| Minus
 | Zone
   
 let months = [| "Jan"; "Feb"; "Mar"; "Apr"; "May"; "Jun";
@@ -30,12 +31,13 @@
       | Day -> Printf.sprintf "%s%02d" s tm.Unix.tm_mday
       | WeekDay  -> Printf.sprintf "%s%s" s (!day tm.Unix.tm_wday)
       | Month -> Printf.sprintf "%s%s" s (!month tm.Unix.tm_mon)
-      | MonthNumber -> Printf.sprintf "%s%d" s (tm.Unix.tm_mon)
+      | MonthNumber -> Printf.sprintf "%s%02d" s (tm.Unix.tm_mon+1)
       | Year -> Printf.sprintf "%s%04d" s (1900+tm.Unix.tm_year)
       | Comma -> s ^ ","
       | Space -> s ^ " "
       | Colon -> s ^ ":"
       | Dot -> s ^ "."
+      | Minus -> s ^ "-"
       | Zone -> s ^ "-0000" (* BUG: RFC 2822: Though "-0000" also indicates 
Universal Time, it is
          used to indicate that the time was generated on a system that may be
            in a local time zone other than Universal Time and therefore
@@ -54,6 +56,10 @@
 
 let simple date = 
   string_of_date [Hour;Colon;Minute;Colon;Second;Space; Space; WeekDay]
+    (Unix.localtime date)
+
+let reverse date = 
+  string_of_date [Year;MonthNumber;Day;Minus;Hour;Minute;Second]
     (Unix.localtime date)
   
 let mail_string date =