# File vpp, line 450
def pdfproperties(file)
  width,height,pagecount = nil,nil,nil
  open("|pdfinfo #{file}") do |pdfinfo|
    pdfinfo.each do |l|
      case l
      when /^Pages:\s*(\d+)/
        pagecount = $1
      when /^Page size:\s*([\d.]+) x ([\d.]+)/
        width,height = $1,$2
        break
      end
    end
  end
  width = "%.0f" % width.to_f
  height = "%.0f" % height.to_f
  warn "#{pagecount || 'Unknown number of'} pages, papersize #{width}bp x #{height}bp" if @verbose
  return width, height, pagecount.to_i
end