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

Regularising recryption

This commit is contained in:
John Whitington 2014-10-30 20:21:26 +00:00
parent 2028b72c53
commit a03b90a3b5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfcommand.ml
View File

@ -1944,10 +1944,12 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
match args.inputs with match args.inputs with
[] -> raise (Pdf.PDFError "no input in recryption") [] -> raise (Pdf.PDFError "no input in recryption")
| (_, _, _, user_pw, _)::_ -> | (_, _, _, user_pw, _)::_ ->
Pdfwrite.pdf_to_file_recrypting Pdfwrite.pdf_to_file_options
~preserve_objstm:args.preserve_objstm ~preserve_objstm:args.preserve_objstm
~generate_objstm:args.create_objstm ~generate_objstm:args.create_objstm
pdf user_pw outname' ~compress_objstm:(not is_decompress)
~recrypt:(Some user_pw)
false None mk_id pdf outname'
end end
else else
begin begin