' Gambas class file


Public Sub Form_Open()
  '' Usaremos el poder de pdfsig (poppler-utils)
  ' Poner titulo y version
  Me.Title = "PDFVerifySign" & " - versión: " & Application.Version
  ' Solo permitimos ver PDFs
  EscogePDF.Filter = ["*.pdf", "Ficheros PDF"]
  'Definimos cabecera mensajes en toda la App
  Message.Title = Application.Name 
  System.Shell = "/bin/bash"
End

Public Sub botonSalir_Click()
  Quit
End

Public Sub botonVerificarFirma_Click()
  Dim ficheroPDF As String
  Dim Resultado As String
  txtResultado.Text = "*** Comprobando PDF ***"
  If IsNull(EscogePDF.SelectedPath)
    Message.Warning("No ha seleccionado ningun PDF para comprobar")
    Return
  Endif
  ficheroPDF = EscogePDF.SelectedPath
  'Comprobar si tiene firma o no
  Shell "echo -n $(pdfsig " & Shell$(ficheroPDF) & " 1>/dev/null 2>/dev/null; echo $?)" To Resultado
  If Resultado = "2"
    Message.Info("No he podido localizar ninguna firma en el PDF")
    txtResultado.Text = "No se ha localizado ninguna firma en el PDF"
    Return
  Endif
  If Resultado = "1"
    Message.Error("Formato de PDF Incorrecto")
    txtResultado.Text = "Formato de PDF Incorrecto"
    Return  
  Endif
  ' Si llega aqui tiene valor de retorno 0 (Correcto)
  Shell "pdfsig " & Shell$(ficheroPDF) To txtResultado.Text
End