Adding debug info for encryption

2014-10-17 13:22:06 +01:00 · 2014-10-17 13:22:06 +01:00 · dd464707ba
parent 6c351c860f
commit dd464707ba
1 changed files with 1 additions and 0 deletions
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@ -547,6 +547,7 @@ let rec decrypt_if_necessary (_, _, _, user_pw, owner_pw) op pdf =
    match Pdfcrypt.decrypt_pdf_owner owner_pw pdf with
    | Some pdf -> pdf
    | _ ->
+      Printf.printf "Couldn't decrypt with owner password %s\n" owner_pw;
      match Pdfcrypt.decrypt_pdf user_pw pdf with
      | Some pdf, permissions ->
          if operation_allowed permissions op