fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Recrypting work

This commit is contained in:
John Whitington 2014-10-30 17:00:00 +00:00
parent be6e88e9e2
commit 9037ce25a5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfcommand.ml
View File

@ -1941,8 +1941,9 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
if args.recrypt && args.was_encrypted then if args.recrypt && args.was_encrypted then
begin begin
if args.debugcrypt then Printf.printf "Recrypting in really_write_pdf\n"; if args.debugcrypt then Printf.printf "Recrypting in really_write_pdf\n";
Pdfwrite.pdf_to_file_recrypting match args.inputs with
(get_single_pdf_nodecrypt false) pdf args.user outname' [] -> raise (Pdf.PDFError "no input in recryption")
| (_, _, _, user_pw, _)::_ -> Pdfwrite.pdf_to_file_recrypting pdf user_pw outname'
end end
else else
begin begin