let get_cvslog params =
  let inch = Unix.open_process_in (Printf.sprintf "cvs log %s" params) in
  let s = string_of_in_channel inch in
  ignore(Unix.close_process_in inch);
  s