home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / misc / PGPAmi26ui.lha / PGPAmiga / contrib / GoldEd / PGP.ged < prev   
Encoding:
Text File  |  1994-07-19  |  2.0 KB  |  84 lines
  1. /* ********************************
  2.    **       GoldED <-> PGP       **
  3.    **           V 1.01           **
  4.    **          28.06.94          **
  5.    **       Juergen Zeschky      **
  6.    **   juergen@sokrates.nbg.de  **
  7.    ********************************
  8. */
  9.  
  10. /* Edit these Variables to your needs */
  11.  
  12. MY_ID    = "<juergen@sokrates.nbg.de>"
  13. PGP_PATH = "PGP:bin/"
  14.  
  15. QUERY DOC VAR Full_Name
  16.  
  17. MARKED:
  18.  
  19. QUERY MARKED VAR BlockTest
  20. IF BlockTest = 'FALSE' THEN DO
  21.   REQUEST BODY '"Do you want to encrypt the whole text?"' BUTTON 'Yes|No' VAR TotalDecision
  22.   IF TotalDecision = '1' THEN DO
  23.     SAVE ALL NAME 'T:PGP-Mail'
  24.     NEW FORCE
  25.     CALL ACTION
  26.     END
  27.   IF TotalDecision = '0' THEN DO
  28.     REQUEST BODY '"There is nothing to encrypt, good boy :-)"'
  29.     CALL DONE
  30.     END
  31.   END
  32. IF BlockTest = 'TRUE' THEN DO
  33.   SAVE BLOCK NAME 'T:PGP-Mail'
  34.   DELETE BLOCK
  35.   END
  36.  
  37. ACTION:
  38. REQUEST TITLE '"PGP Action"'BODY '"What should PGP do?"' BUTTON '"Encrypt|Sign|Encrypt & Sign"' VAR Action
  39. IF Action = '1' THEN DO
  40.   CALL AN_WEN
  41.   Parameter =  '-ea T:PGP-Mail ' || Recipient
  42.   ADDRESS COMMAND PGP_PATH || "PGP " || Parameter
  43.   CALL PGP_DONE
  44.   END
  45. IF Action = '2' THEN DO
  46.   Parameter =  '-sa T:PGP-Mail -u' || MY_ID
  47.   ADDRESS COMMAND PGP_PATH || "PGP " || Parameter
  48.   CALL PGP_DONE
  49.   END
  50. IF Action = '0' THEN DO
  51.   REQUEST BODY Action
  52.   CALL AN_WEN
  53.   Parameter =  '-esa T:PGP-Mail ' || Recipient || ' -u' || MY_ID
  54.   ADDRESS COMMAND PGP_PATH || "PGP " || Parameter
  55.   CALL PGP_DONE
  56.   END
  57.  
  58. AN_WEN:
  59. DROP Recipient
  60. DROP Decision
  61. REQUEST TITLE '"PGP-Mail Recipient"' BODY '"Enter the User ID for PGP-Mail"' STRING VAR Recipient
  62. IF RC = '5' THEN CALL DUMPFBACKE
  63. IF Recipient = "" THEN CALL DUMPFBACKE
  64. RETURN
  65.  
  66. DUMPFBACKE:
  67. REQUEST TITLE '"What do you want to do?"' BODY '"Do you want to abort, babe?"' BUTTON 'Yes|No' VAR Decision
  68. IF Decision = '1' THEN DO
  69.   OPEN INSERT NAME 'T:PGP-Mail'
  70.   SAVE ALL NAME Full_Name
  71.   CALL DONE
  72.   END
  73. IF Decision = '0' THEN CALL AN_WEN
  74.  
  75. PGP_DONE:
  76. OPEN INSERT NAME 'T:PGP-Mail.asc'
  77. SAVE ALL NAME Full_Name
  78. ADDRESS COMMAND "DELETE T:PGP-Mail"
  79. ADDRESS COMMAND "DELETE T:PGP-Mail.asc"
  80.  
  81. DONE:
  82. EXIT
  83.  
  84.