(* ------------------------------------------------------------------- *)
(*
	mcached_create.ml

					Jul/10/2011
*)
(* ------------------------------------------------------------------- *)
open Memcache
open Json_type
open Json_type.Browse
open	Unix

type unit = {name:string; population:int; date_mod:string}

(* ------------------------------------------------------------------- *)
let insert_record cache_aa key name population date_mod = 
	let city = Object ["name", String name;
                   "population", Int population; "date_mod", String date_mod]
	in let str_json = Json_io.string_of_json city
	in
		Printf.printf "%s\t" key;
		Printf.printf "%s\t" name;
		Printf.printf "%d\t" population;
		Printf.printf "%s\n" date_mod;
		Printf.printf "%s\n" str_json;
		Memcache.set cache_aa key str_json
(* ------------------------------------------------------------------- *)
let _ = print_endline "*** 開始 ***"


let _ = Printf.printf "version: %s\n" Memcache.version

let t = Unix.localtime (Unix.time ());;
let (day, month, year) = (t.tm_mday, t.tm_mon, t.tm_year)
let today = string_of_int (1900 + year) ^ "-" ^ string_of_int (month + 1)
	^ "-" ^string_of_int day
let _ = Printf.printf "%s\n" today

let cache = Memcache.open_connection "localhost" 1978

let _ = insert_record cache "t4761" "那覇" 34215 "1995-3-12"
let _ = insert_record cache "t4762" "宜野湾" 58762 "1995-9-24"
let _ = insert_record cache "t4763" "石垣" 21594 "1995-6-9"
let _ = insert_record cache "t4764" "浦添" 59487 "1995-3-12"
let _ = insert_record cache "t4765" "名護" 48723 "1995-8-24"
let _ = insert_record cache "t4766" "糸満" 67812 "1995-4-9"
let _ = insert_record cache "t4767" "沖縄" 81257 "1995-6-11"
let _ = insert_record cache "t4768" "豊見城" 25792 "1995-1-24"
let _ = insert_record cache "t4769" "うるま" 79231 "1995-5-19"

let _ =  Memcache.close_connection cache

let _ = print_endline "*** 終了 ***"
(* ------------------------------------------------------------------- *)