let date_of_string s =
  let f ye mo da ho mi se =
    let t =
      {
        tm_year = ye - 1900 ;
        tm_mon = mo - 1;
        tm_mday = da ;
        tm_wday = 0 ;
        tm_hour = ho ;
        tm_min = mi ;
        tm_sec = 0 ;
        tm_yday = 0;
        tm_isdst = false ;
      }
    in
    fst (Unix.mktime t)
  in
  Scanf.sscanf s "%d-%d-%d %d:%d:%d" f