bin/pdfinfo.pl

31:   print "CAM::PDF v$CAM::PDF::VERSION\n";
68:   print "File:         $file\n";
69:   print "File Size:    $size bytes\n";
70:   print "Pages:        $pages\n";
96:         printf "%-13s %s\n", $key.q{:}, $val;
99:   print 'Page Size:    '.($pagesize[0] ? "$pagesize[0] x $pagesize[1] pts" : 'variable')."\n";
100:   print 'Optimized:    '.($doc->isLinearized()?'yes':'no')."\n";
101:   print "PDF version:  $pdfversion\n";
102:   print "Security\n";
105:      print "  Passwd:     '$prefs[0]', '$prefs[1]'\n";
109:      print "  Passwd:     none\n";
111:   print '  Print:      '.($prefs[2]?'yes':'no')."\n";
112:   print '  Modify:     '.($prefs[3]?'yes':'no')."\n";
113:   print '  Copy:       '.($prefs[4]?'yes':'no')."\n";
114:   print '  Add:        '.($prefs[5]?'yes':'no')."\n";
117:      print "---------------------------------\n";
128:pdfinfo.pl - Print information about PDF file(s)
135:   -v --verbose        print diagnostic messages
##</code><code>##

2944:=item $doc->setPrefs($ownerpass, $userpass, $print?, $modify?, $copy?, $add?)