// -------------------------------------------------------------------
//
//	mcachedb_delete.fs
//
//					Aug/06/2011
//
// -------------------------------------------------------------------
open System
open System.Text
open Microsoft.FSharp.Core
open System.IO

open Memcached.ClientLibrary
open mcached_manipulate
// -------------------------------------------------------------------
[<EntryPoint>]
let main (args : string[] ) =

  printfn "*** 開始 ***"
  let key = args.[0]

  printfn "%s" key

  let serverlist = [|"127.0.0.1:21201" |]

  let pool = SockIOPool.GetInstance()

  pool.SetServers(serverlist)
  pool.Initialize()

  let mc = new MemcachedClient()

//  if (mc.KeyExists(key)) then
  let _ = mc.Delete (key)

  let keys = [|"t1521";"t1522";"t1523";"t1524";"t1525";
        "t1526";"t1527";"t1528";"t1529";"t1530";"t1531";"t1532";|]

  display_proc (mc,keys)
  pool.Shutdown()
  printfn "*** 終了 ***"
  0
// -------------------------------------------------------------------