fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

More recrypting work

Browse Source
This commit is contained in:
John Whitington
2014-10-30 17:17:50 +00:00
parent 9037ce25a5
commit 942a313099
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfcommand.ml
View File

@@ -1943,7 +1943,11 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
if args.debugcrypt then Printf.printf "Recrypting in really_write_pdf\n"; if args.debugcrypt then Printf.printf "Recrypting in really_write_pdf\n";
match args.inputs with match args.inputs with
[] -> raise (Pdf.PDFError "no input in recryption") [] -> raise (Pdf.PDFError "no input in recryption")
| (_, _, _, user_pw, _)::_ -> Pdfwrite.pdf_to_file_recrypting pdf user_pw outname' | (_, _, _, user_pw, _)::_ ->
Pdfwrite.pdf_to_file_recrypting
~preserve_objstm:args.preserve_objstm
~generate_objstm:args.create_objstm
pdf user_pw outname'
end end
else else
begin begin