open Sys
(* let pkgdir = "/home/repo" *)
(* let pkgdir = "/mnt/data/repo" *)
let pkgdir = "/home/lilydjwg/tmpfs/repo"
let exts = [".pkg.tar.xz"; ".pkg.tar.xz.sig"]
let removepkg =
  chdir pkgdir;
  let myRemove f = print_endline ("removing " ^ f ^ "."); remove f in
  let extOk f = List.exists (fun e -> Filename.check_suffix f e) exts in
  let files = List.filter (fun f -> not (is_directory f)) (Array.to_list (readdir pkgdir)) in
  List.iter (fun f -> if extOk f then myRemove f) files
let _ =
  if Array.length argv = 2 && Array.get argv 1 = "I'm sure!"
  then removepkg
  else begin prerr_endline "No, I won't do that."; exit 1 end