Adding debug info for encryption

This commit is contained in:
John Whitington 2014-10-17 13:22:06 +01:00
parent 6c351c860f
commit dd464707ba
1 changed files with 1 additions and 0 deletions

View File

@ -547,6 +547,7 @@ let rec decrypt_if_necessary (_, _, _, user_pw, owner_pw) op pdf =
match Pdfcrypt.decrypt_pdf_owner owner_pw pdf with match Pdfcrypt.decrypt_pdf_owner owner_pw pdf with
| Some pdf -> pdf | Some pdf -> pdf
| _ -> | _ ->
Printf.printf "Couldn't decrypt with owner password %s\n" owner_pw;
match Pdfcrypt.decrypt_pdf user_pw pdf with match Pdfcrypt.decrypt_pdf user_pw pdf with
| Some pdf, permissions -> | Some pdf, permissions ->
if operation_allowed permissions op if operation_allowed permissions op