[boulder.pm] Forwarded: "Non-member submission" fromlynn.danielson@clue.denver.co.us

[Walter Pienciak]

I think you can do this straightforwardly like:

use PDF;
my $pdf = PDF->new($filename);
&do_your_thing if ($pdf->IscryptPDF);


I know the documentation says IscryptedPDF, but if you look at the
actual code (in PDF::Parse.pm), the form is IscryptPDF:

=pod

=head2 IscryptPDF

Returns true if the PDF contains a crypt object. This indicates that
the data of the PDF-File is encrypted. In this case, not all function
work as expected.

=cut

sub IscryptPDF {
  return ($_[0]->{Crypt_Object} != undef) ;
}


Walter